Cobol251Intro

• prompt
• Option ==>

• command prompt
• ==>

Shift-ENTER

• F1 = Help
• F3 = Exit
• F7 = back
• F8 = forward

eg =3.4 or 3.4

• place cursor where you want split and press F2
• line of dots is the separator

F9

use ISPF EXIT = X

• similar to Windows Menu Bar
• place cursor on option and press ENTER
• ESC to ignore

• End key
• Esc key

• Shift ENTER
• TAB

• ISPF default allows for a three part (qualifier) dataset name.
• Each qualifier is separated by a period
• Each qualifier can be up to 8 alpha-numeric characters but must start with an alpha character.
• Example: sales05.testdata.withtax

• Default high-level qualifier is your TSO userid
• Middle level qualifier is your choice - use COURSE CODE

Low-level qualifier normally indicates type of data ( example .COBOL for cobol source , or .CNTL for JCL source, or .DATA for data)

• PAGE, HALF, CSR
• F7 and F8

• Every time you start TSO/ISPF, a new log file is created to record the actions you take
• We do not need to keep this log as a permanent record
• Use option 2 to specify that log file is to be deleted and not printed when you logoff
• This is stored in profile and will be the automatic action when you use X to exit.

• One way to verify and make mass changes to a large file Exclude all lines from the display
• ==> ex all

• Find the string ‘xxx’ you want to change
• ==> f xxx all

• Use your eyes to verify all correct occurrences and not accidental strings, then change to new string ‘123’
• ==> c xxx 123 all

• Display all lines again
• ==> reset

Use PF5 to “repeat FIND” and if found string is correct, use PF6 to “repeat CHANGE”

• Col 1 to 6 will not be used as sequence numbers.
• used as maintenance modification code.
• command UNNUM to remove any sequence numbers
• compile option NOSEQ to tell the compiler that there are no sequence numbers

• For our use, on every program, supply the following as the first statement of the program. This statement MUST start in column 1.
• CBL NOXREF,SSRANGE,NOSEQ,TEST,LIB

Add a JCL DD statement in the execution JCL, with the “//GO.” prefix and the dataset name (DSN) of the physical file-name.

• SELECT F01-INPUT-FILE
• ASSIGN TO INFILE.
• //GO.INFILE DD DSN=dataset.name,DISP=SHR

• The mainframe operating system always verifies that the actual data file record length is exactly equal to the FD-01 record size in the program. If this is not true, your program will fail when it tries to OPEN the file. The system returns a 3000 return code with error message in JCL (SYSMSG and MSGLOG):
• IGZ0201W A file attribute mismatch was detected. File F01-INPUT-FILE

The record area is defined in the FILE Section immediately after the FD. In Visual Studio, this is allocated memory space at compile time and is always available for use in the procedure division.

In the mainframe environment, this memory is not obtained until the program is actually running, and the OPEN command has executed successfully.

• command==> COL
• command==> UNNUM

SHIFT+ENTER

• command ===> SUB
• or
• in 3.4 type J to left of member

COMMAND INPUT ==> PREFIX KC03xxx*

Type “c” (for cancel) to delete the printout from this job.

• Press PF3 to get back to ISPF Primary Option Menu
• Enter X to terminate ISPF
• Type 2 to delete log dataset, press enter (ISPF will remember this option for next time)
• At READY prompt you can
• – type command LOGOFF to terminate session
• – type command ISPF to get back into ISPF