TSO ...your first assignment... MIS 3013 Section 900 Summer 1998

The goal of this assignment is to familiarize you with the use of TSO as a COBOL editor. While this is not an exhaustive documentation of TSO, a summary of the steps for editing and submitting your first program are included here. For a more detailed journey through the use of TSO as an editor/job manager, visit the Interactive TSO/ISPF Users' Guide.

Here is an outline of the steps to entering your first COBOL program.

log into TSO
start ISPF
edit your program
submit your job
release your job to printer
log off the system

A few things to remember about navigation:

TSO ignores the case of your input. Thus, TSO interprets CHOCOLATE the same as chocolate
After you type in a command, you always press the ENTER key to continue
To navigate through multiple fields on a screen, use the TAB key
To back up to a previous screen, use the F3 key
To move up a page, use the F7 key
To move down a page, use the F8 key

Log into TSO

After you have connected to uokmvsa.ou.edu, you will be confronted by a screen similar to:

Enter Your Userid: Password: New password: Application: Application Required. No Installation Default

Use the TAB key to move between fields, and type tso in the field labeled Application.

The next screen will ask you for your TSO USERID:

IKJ56700A ENTER USERID - AA9999

Type your identification (most likely a 2+4 formatted value) into this field.

This should take you to the TSO/E LOGON screen:

------------------------------- TSO/E LOGON ----------------------------------- Enter LOGON parameters below: RACF LOGON parameters: Userid ===> AA9999 Password ===> New Password ===> Procedure ===> $TSOPROC Group Ident ===> Acct Nmbr ===> BDW02112 Size ===> 1024 Perform ===> Command ===> Enter an 'S' before each option desired below: -Nomail -Nonotice -Reconnect -OIDcard PF1/PF13 ==> Help PF3/PF15 ==> Logoff PA1 ==> Attention PA2 ==> Reshow You may request specific help information by entering a '?' in any entry field

Initially, you must enter your default password (supplied by your instructor) in the Password field. If the logon screen reappears with a message prompting a new password to be entered, do so.

Start ISPF

If you were successful in logging in, you should see a screen not unlike:

ICH70001I AA9999 LAST ACCESS AT 18:23:30 ON SATURDAY, FEBRUARY 28, 1998 AA9999 LOGON IN PROGRESS AT 18:26:18 ON FEBRUARY 28, 1998 READY ISPF

This indicates a successful login, and the system is awaiting further command. Type ISPF at the READY prompt.

After invoking ISPF, you should see a screen similar to:

Menu Utilities Compilers Options Status Help ------------------------------------------------------------------------------ ISPF Primary Option Menu Option ===> 2 0 Settings Terminal and user parameters User ID . : AA9999 1 View Display source data or listings Time. . . : 18:36 2 Edit Create or change source data Terminal. : 3278 3 Utilities Perform ISPF utility functions Screen. . : 1 4 Foreground Interactive language processing Language. : ENGLISH 5 Batch Submit Job for language processing Appl ID . : ISR 6 Command Enter TSO or Workstation commands TSO logon : $TSOPROC 7 Dialog Test Perform dialog testing TSO prefix: AA9999 8 Workplace ISPF Object/Action Workplace System ID : UOK1 9 OS/390 USER OS/390 USER APPLICATIONS MVS acct. : BDW02112 .--------------------------------------------------------. elease . : ISPF 4.4 | Licensed Materials - Property of IBM | | 5645-001, 5655-042 (C) Copyright IBM Corp. 1980, 1996. | | All rights reserved. | | US Government Users Restricted Rights - | | Use, duplication or disclosure restricted | | by GSA ADP Schedule Contract with IBM Corp. | '--------------------------------------------------------'

The first step in editing a program is to enter 2 at the Option ==>prompt.

The following steps are based on the assumption that you have a Partitioned Data Set allocated for storage of your source code. If you do not have a PDS allocated, click here.

By selecting "Edit" from the Primary Option Menu, the Edit Entry Panel should appear:

Menu RefList RefMode Utilities LMF Workstation Help ------------------------------------------------------------------------------ Edit Entry Panel Command ===> ISPF Library: Project . . . AA9999 Group . . . . SPRING00 . . . . . . . . . Type . . . . COBOL Member . . . PROGRAM1 (Blank or pattern for member selection list) Other Partitioned or Sequential Data Set: Data Set Name . . . Volume Serial . . . (If not cataloged) Workstation File: File Name . . . . . Initial Macro . . . . Options Profile Name . . . . . / Confirm Cancel/Move/Replace Format Name . . . . . Mixed Mode Data Set Password . . Edit on Workstation

Make sure the Project, Group, and Type fields correspond to the PDS you have allocated for source code. Type in the name you wish for your new program in the Member field.

Edit your Program

The TSO editor screen should resemble:

File Edit Confirm Menu Utilities Compilers Test Help ------------------------------------------------------------------------------- EDIT AA9999.SPRING00.COBOL(PROGRAM1) - 01.00 Columns 00001 00072 Command ===> recovery on Scroll ===> CSR ****** ***************************** Top of Data ****************************** '''''' '''''' '''''' '''''' '''''' '''''' '''''' '''''' '''''' '''''' '''''' '''''' '''''' '''''' '''''' '''''' '''''' '''''' ****** **************************** Bottom of Data ****************************

As a matter of housekeeping, as shown in the example above, you should type recovery on at the Command ===> prompt. This will enable the undo command, and other features that protect your data in case of disconnect from the system.

For help with navigation through the TSO editor, Click here.

Enter the following program into the TSO editor. Keep in mind the appropriate spacing for the A and B margins, etc...

//PROG1    JOB NO1NOZIT,'YOUR NAME',CLASS=K,MSGCLASS=C,
//  USER=RACFUSER,PASSWORD=RACFPASS,NOTIFY=LOGONID
/*ROUTE PRINT R15
//  EXEC COBV2CG,PARM.COB2=('LIB,NOSEQ,ADV')
//COB2.SYSIN DD *
       IDENTIFICATION DIVISION.
       PROGRAM-ID.  PROGRAM1.
      *
       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.
       SOURCE-COMPUTER. IBM-370.
       OBJECT-COMPUTER. IBM-370.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
           SELECT COMPLETE-ADDRESS ASSIGN TO FILEOUT.
      *
       DATA DIVISION.
       FILE SECTION.
       FD  COMPLETE-ADDRESS
           RECORD CONTAINS 132 CHARACTERS
           RECORDING MODE IS F
           LABEL RECORDS ARE OMITTED
           DATA RECORD IS ADDRESS-LINE.
       01  ADDRESS-LINE                 PIC X(132).
      *
       PROCEDURE DIVISION.
       0000-MAIN-PARA.
           OPEN OUTPUT COMPLETE-ADDRESS.
           MOVE 'TIRE SMOKE RACING PARTS' TO ADDRESS-LINE.
           WRITE ADDRESS-LINE.
           MOVE '1320 BURNOUT ROAD' TO ADDRESS-LINE.
           WRITE ADDRESS-LINE.
           MOVE 'NORMAN, OK' TO ADDRESS-LINE.
           WRITE ADDRESS-LINE.
           CLOSE COMPLETE-ADDRESS.
           STOP RUN.
//GO.FILEOUT DD SYSOUT=*

Submit Your Job

Once you have completed your program, your edit screen should look something similar to:

File Edit Confirm Menu Utilities Compilers Test Help ------------------------------------------------------------------------------- EDIT AA9999.SPRING98.COBOL(PROGRAM1) - 01.00 Columns 00001 00072 Command ===> submit Scroll ===> CSR ****** ***************************** Top of Data ****************************** 000001 //PROG1 JOB NO1NOZIT,'YOUR NAME',CLASS=K,MSGCLASS=C, 000002 // USER=RACFUSER,PASSWORD=RACFPASS,NOTIFY=LOGONID 000003 /*ROUTE PRINT R15 000004 // EXEC COBV2CG,PARM.COB2=('LIB,NOSEQ,ADV') 000005 //COB2.SYSIN DD * 000006 IDENTIFICATION DIVISION. 000007 PROGRAM-ID. PROGRAM1. 000008 * 000009 ENVIRONMENT DIVISION. 000010 CONFIGURATION SECTION. 000011 SOURCE-COMPUTER. IBM-370. 000012 OBJECT-COMPUTER. IBM-370. 000013 INPUT-OUTPUT SECTION. 000014 FILE-CONTROL. 000015 SELECT COMPLETE-ADDRESS ASSIGN TO FILEOUT. 000016 * 000017 DATA DIVISION. 000018 FILE SECTION. 000019 FD COMPLETE-ADDRESS

Type submit at the Command ===> prompt. The system will notify you that the job was submitted. Press ENTER whenever you see three asterisks (***).

Release Your Job to the Printer

Type iof from the Command ===> prompt. The IOF Option Menu looks like:

------------------------------- IOF Option Menu ------------------------------- COMMAND ===> Select an option. To get a detailed option menu, follow the option with "?". blank - Your jobs G - Output Groups M - System Monitor I - Input jobs H - Jobs with held output INIT - Initiators R - Running jobs L - System Log Q - Input Queue O - Output jobs PR - Printers P - Profile J - All jobs menu D - Device Option Menu CMDS - Global Commands QT - Quick Trainer JOBNAMES ===> Enter 1 to 8 generic jobnames above SCOPE ===> userid - Another user's jobs ME -Just your jobs GROUP - Your IOF group ALL -All jobs groupid - Another IOF group DEST ===> Enter 1 to 8 destinations above SORT ===> For jobs: NULL, DEST, SIZE, JOB#, INVNULL groups: SIZE, FORMS, WTRID, UCS, FCB, FLASH

Press ENTER (for blank line) to display your jobs:

------------------------------ IOF Job List Menu -------------( 1 )------------ COMMAND ===> # r SCROLL ===> SCREEN --------------------------------- Output Jobs --------------------------------- -------JOBNAME--JOBID--ACT-STA-OWNER----DEST/DEVICE--------RECS-HELD-DAY--TIME- _ # PROG1 J00492 AA9999 ADAMS 403 059 19:40

Type the number that corresponds to the job you just submitted followed by the r key at the COMMAND ===> prompt.

The ACT field should change to REL, and the DEST/DEVICE field should change to reflect the releasing action:

------------------------------ IOF Job List Menu -------------( 1 )------------ COMMAND ===> # r SCROLL ===> SCREEN --------------------------------- Output Jobs --------------------------------- -------JOBNAME--JOBID--ACT-STA-OWNER----DEST/DEVICE--------RECS-HELD-DAY--TIME- _ # PROG1 J00492 REL AA9999 R.PR1 403 059 19:40

Your job should have printed on the large line printer in the basement of Adams Hall.

Log off the system

It is important that you properly log off the TSO system before disconnecting from uokmvsa.ou.edu. This will ensure that all of the data regarding your account is properly processed. In addition, the system will not automatically log you off if you disc onnect. You may not be able to log in again for an extended period of time if you do not log off properly.

Logging off is simple. Press the F3 key repeatedly until you reach the READY prompt:

READY logoff

Type logoff at the READY prompt.

You are Done!

Remember, if you experience difficulty stepping through the program edit process, you can consult the Interactive TSO/ISPF User's Guide. If you have a specific question regarding this literature, send e-mail to mis3013@ouwww.ou.edu.

To MIS 3013 Section 900 Syllabus

Updated: March 01, 1998
Disclaimer