Download the DBS Tutorial

FTP directly from your host

The following JCL is provided to download the DBS TUTORIAL from the FTP site.


//FTPDBSTI  JOB  acccount,pgmr,MSGCLASS=X,NOTIFY=&SYSUID  
//FTP      EXEC  PGM=FTP,REGION=4096K,TIME=1439
//*
//*       Note:  If you wish to allocate space, use
//*              LOCSITE PRIMARY=nn SECONDARY=nn CYLINDERS
//*              LOCSITE VOLUME=xxxxxx UNIT=SYSALLDA
//*
//SYSPRINT    DD SYSOUT=*
//SYSIN       DD *
  -g ftp.mvssol.com 21
  TMTOOLS 'password'
  LOCSITE NOWRAP
  LOCSITE RECFM=FB LRECL=80 BLKSIZE=3120
  LOCSITE PRIMARY=40 SECONDARY=10 CYLINDERS
  CD TMTOOLS/DBSTUTOR 
  BINARY
  GET DBSTUTOR.CLIST.BIN '&PREFIX.TUTORIAL.SEQ.CLIST'  (R
  GET DBSTUTOR.PANELS.BIN '&PREFIX.TUTORIAL.SEQ.PANELS' (R
  GET DBSTUTOR.MSGS.BIN '&PREFIX.TUTORIAL.SEQ.MSGS'  (R
  GET DBSTUTOR.TABLES.BIN '&PREFIX.TUTORIAL.SEQ.TABLES' (R
  CD ..
  QUIT
  //*------------------------------------------------------------------*
  //*                                                                  *
  //*      THIS STEP TAKES THE FTP'D FILE, WHICH SHOULD BE IN          *
  //*      TSO XMIT FORMAT, AND CONVERTS IT BACK TO THE ORIGINAL       *
  //*      FORMAT USING TSO RECEIVE                                    *
  //*                                                                  *
  //*------------------------------------------------------------------*
  //RECEIVE  EXEC  PGM=IKJEFT01,REGION=4096K,TIME=1440
  //SYSTSPRT DD    SYSOUT=*
  //SYSUDUMP DD    SYSOUT=*
  //SYSPRINT DD    SYSOUT=*
  //SYSTSIN  DD    *
  RECEIVE INDATASET('&PREFIX.TUTORIAL.SEQ.CLIST')
  DATASET('&PREFIX.TUTORIAL.CLIST')
  RECEIVE INDATASET('&PREFIX.TUTORIAL.SEQ.PANELS')
  DATASET('&PREFIX.TUTORIAL.PANELS')
  RECEIVE INDATASET('&PREFIX.TUTORIAL.SEQ.MSGS')
  DATASET('&PREFIX.TUTORIAL.MSGS')
  RECEIVE INDATASET('&PREFIX.TUTORIAL.SEQ.TABLES')
  DATASET('&PREFIX.TUTORIAL.TABLES')

Install and Initiate the TM/DBS Tutorial

  1. The DBS TUTORIAL is packaged with four libraries. Use the JCL provided below to obtain the following datasets from the MVS Soltutions FTP site and load them to the installation's system.
    • A clist library to invoke the tutorial and its internal functions
    • A panel library for the TM/DBS ISPF panels
    • A message library for the TM/DBS ISPF messages
    • A table library for the TM/DBS ISPF KEYS
    Alter the &PREFIX symbolic in this JCL to reflect your high level qualifier for the DBS TUTORIAL datasets.
  2. Execute this JCL to obtain the TM/DBS Tutorial Datasets. Note that the ".SEQ" files created by the JCL may be deleted once the TSO RECEIVE step has completed successfully. They are not required by the DBS Tutorial.
  3. Once this job has completed successfully, edit the DBSTUTOR CLIST provided in the CLIST dataset to alter the &PREFIX symbolic to match that which was used in this JCL.
  4. Execute the DBSTUTOR clist ... EX '&PREFIX.TUTORIAL.CLIST(DBSTUTOR)'