Mainframe Screens Zos1.7
Mainframe Screens Zos1.7
Mainframe Screens Zos1.7
Enter SYS1 as password and hit enter. Better you dont change password. Do not change
any other fields.
After you see ISPF in the bottom, you can hit enter. You can see ISPF Primary option
menu.
After closing last screen you can see below screen. Then issue 2 and Enter.
It will show screen numbers and screen names as shown below. * is current screen and
is previous screen.
Enter source PDS name in single quotes and issue command A then enter.
Enter below details and press enter. If you leave volume serial as spaces then it takes default
volume serial. In this system you give S7SYS1 as volume serial because it has more free
space. Better you leave block size as spaces. Then it takes best block size for the given record
length. Maximum space that is created for this data set is Primary space + 15 * secondary
space = 10 + 15 * 10 = 160 tracks.
Enter source PDS name in single quotes and issue command A hit enter.
Enter below details and press enter. If you leave volume serial as spaces then it takes
default volume serial. In this system you give S7SYS1 as volume serial because it has more free
space. Maximum space that is created for this data set is Primary space + 15 * secondary space
= 10 + 15 * 10 = 160 tracks.Load library should be created with Record format U and Record
length 0 and Block size 27998.
01 STUDENT-REC.
02 STUDENT-NUM PIC 9(4).
02 NAME PIC X(10).
02 DOJ PIC 9(8).
02 COURSE PIC X(10).
02 FEE PIC 9(5)V99.
02 FEE-PAID-DATE PIC 9(8).
Enter below details and hit enter. If you leave volume serial as spaces then it takes default
volume serial.
In this system you give ZASYS1 as volume serial because it has more free space.
Maximum space that is created for this data set is Primary space + 15 * secondary space = 2 +
15 * 1 = 17 tracks
Always create less space for PS files. Length of the file is 47.
Enter dataset name without quotes as shown below and hit enter.
Enter the data according to the given Layout. Then save and exit.
How to see file data with its copybook using file manager
See the below file STUDENT.FILE with its copybook JOHN.SRCLIB(COPY1)
Go to file manager from ISPF by issuing M.13 from ISPF primary option menu.
Supply file name, PDS and its member name and option 1 as shown below and hit enter.
You can see the file data in the given layout as shown below.
How to create a member in a PDS
Issue Line command E and supply member name within braces after PDS then hit enter.
Issue a line command D in front of PDS or PS in 3.4 and hit enter key.
It will ask for confirmation as shown below. Hit enter key once again.
Supply new dataset name as shown below and hit enter key.
You can see dataset information as shown below. Organization PO indicates a PDS.
You can see dataset information as shown below. Organization PS indicates a PS.
Line command used in Member of PDS or PS
How to insert a new line
Issue line command i and hit enter
Before After
Note: You can also use Cn/CC to copy n lines or group of lines.
Note: You can also use Dn/DD to delete n lines or group of lines.
Note: You can also use Mn/MM to move n lines or group of lines.
How to change a line from Upper case to Lower case
Issue a line command LC on a line and hit enter.
Before After
Note: You can also use LCn/LCC to change n lines or group of lines from upper case to
lower case.
How to change a line from Lower case to Upper case
Issue a line command UC on a line and hit enter.
Before After
Note: You can also use UCn/UCC to change n lines or group of lines from lower case to
upper case.
How to move a line 3 columns right
Issue a line command ) 3 on a line and hit enter.
Before After
Note: You can also use )) n to move group of lines n columns right.
Note: You can also use ))n to move group of lines n columns left.
How to overlap a line on another line
Issue a line o on a line and c on another line and hit enter.
Before After
Issue =3.3 from ISPF primary option menu and hit enter key.
Supply FROM dataset name and issue C in the command prompt and hit enter key.
Supply TO dataset name and hit enter key.
Select option 1 and hit enter key. It will create TO dataset and copies data. If you select option 2 then
you have to specify allocation attributes of TO dataset. Better always go with option 1.
After freeing excess space you can see confirmation as shown below.
Dataset information after Free command. Here one track is released that is allocated but
not utilized.
Issue line command Z in 3.4 and hit enter key. When a member is deleted from a PDS its
memory will not be released until you compress. When you get space ABEND SE37
compress dataset using option Z.
You can see confirmation after compression as shown below.
Issue option 6 from ISPF primary option menu and hit enter.
Issue option 6 from ISPF primary option menu and hit enter.
Browse and Select PC file left side and mainframe PS/PDS Member on right side and click on SEND.
How to Check JCL errors from the SPOOL for file not cataloged
I am submitting a JCL by taking FILE2 as input with DISP=SHR. But FILE2 is not cataloged.
To find reason to the JCL error, go to ST of SPOOL and issue line command ? on the
Job with same jobid as shown below and hit enter.
Comma omitted on statement 6 and DD is ended here. With this reason statements 7, 8, 9
and 10 are errored.
Command executed and job deleted. Issue ST in command prompt and hit enter key.
Issue 15 in the command prompt and hit enter. It will take you to DB2I Primary Option
Menu.
It is Current SPUFI defaults panel. Better you dont change these defaults. Simply Hit
enter in this Panel.
Here I am executing two sql queries. Both the queries are ended with scope terminator ;.
Hit Function key F3 to come back.
Now hit enter to execute these queries.
Issue M in the command of ISPF Primary option menu and hit enter.
Now enter table name as shown below and hit enter key.
It will show a query with all columns as shown below. You can execute the same or you
can also remove some Columns as shown in the next screen.
Create 3 PDS before you write a COBOL program in the Source PDS.
Note: Load PDS should be created with Record format as U, Lrecl as 0 and block size as 27998.
Then create a member in the Source Library and write a COBOL program as shown below.
To compile the above program, copy the compile jcl XCOB from DEMO.COMPILE to your Source
Library.
Note: Change the below screen to DEMO.COMPILE
Customize the copied compile JCL by changing the values on symbolic parameters to
your values.
Change AAA.BBB.CCC to your Source Library.
Change DDD.EEE.FFF to your Copy Library. If you dont have copy library then give source library
name here.
Change GGG.HHH.III to your Load Library.
Change XYZ to your Program Name.
You can submit the compile JCL After changing the libraries and program name.
Go to the bottom of the compile listing and you can see errors as shown below. Here 3
errors are reported in Which 2 are errors and 1 is severe error. It will also give error line
number.
Step2. Create a DCLGEN copybook for the table you are using in the program.
Issue M.15 from ISPF primary option menu and hit enter key to go to DB2I.
Execution completed and member is created with DCEMP in copy library JOHN.COPYLIB
If you view the dclgen copy book, you can see declare table syntax and Host variable declaration.
Step3. Write a COBOL program with Embedded SQL statements.
Write a COBOL DB2 program with embedded SQL.
Step4. Compile your program with XCOBDB2 and then XPLAN by copying
these from DEMO.COMPILE.
Copy compile jcl XCOBDB2 and Bind jcl XPLAN from DEMO.COMPILE to your
source library and customize.
Edit XPLAN to change DBRM Library, Plan name and Member name.
Submit this BIND jcl After changing dbrm library, plan name and member name
(program name)
Custmize below JCL to change the program name, Plan name and Load Library name.
Submit the run jcl after changing the program name, Plan name and Load Library name.
You are logged on as shown below. Hit ESC key to clear this screen before you enter any
transaction.(Make sure the ESC key is mapped to CLEAR key.)
You can see below screen after clear. Now you can execute any registered transaction.
Step2. Create a member in the source library and write a BMS map in assembler macros.
Note: Entire BMS coding is not shown here, because my intention is to show how compile
and execute BMS map but not coding rules and syntax.
Step3. Copy Compile JCL XBMSMAP from DEMO.COMPILE to your source library
and compile it after customization.
Copy compile jcl XBMSMAP from DEMO.COMPILE to your source library.
Edit Compile JCL XBMSMAP to change the below libraries and program.
Submit XBMSMAP after customization. After successful compilation, it creates a
symbolic map in copy library and Physical map in load library.
You can see Symbolic map (copy book) in copy library after successful compilation.
You can see Physical map (load module) in load library after successful compilation.
Define Mapset with CEDA as shown below. You change CAL1M1S to your mapset name
and hit enter.
Note: Better always give group as XYZ otherwise you need to install every time boot z/OS.
You can see the below screen with DEFINE Successful. Now hit F3 to come back to
previous screen.
Install Mapset with CEDA as shown below. You change CAL1M1S to your mapset name
and hit enter.
Copy the compile JCL XCOBCICS from DEMO.COMPILE to your source library. In
my case it is JOHN.SRCLIB.
Edit compile jcl that is copied into your source library to change library names before you
compile.
Change the libraries and program name and then submit.
Submit compile jcl after changing the libraries and program name as shown below.
You can see the below screen with DEFINE Successful. Now hit F3 to come back to
previous screen.
Install program with CEDA as shown below. You change program name and hit enter.
You can see the below screen with INSTALL Successful.
You can see below screen with Define Successful. Hit F3 to come back to previous
screen.
Install transaction id with CEDA as shown below. No need to give program name at
Install. You change Transaction id and hit enter.
You can see the below screen with INSTALL Successful.
It will show you panel with program name and EIB fields. Keep hitting enter key, it will
execute command by Command. You can see only CICS code but not COBOL code.
Step2. Create DCLGEN copybook for table that is used in COBOL+CICS+DB2 program.
Note: Creation of DCLGEN copybook is not shown here because it is already covered in COBOL DB2
program.
Step5. Copy the compile jcls XCOBCIDB and XPLAN from DEMO.COMPILE.
Step6. Customize XCOBCIDB by changing libraries and program name then compile.
Step7. Customize XPLAN by changing DBRM library, program and plan name then bind.
You may see Define Successful but you have to supply the physical file name at DSNAme.
Supply the physical file name as shown below and hit enter key. Then Hit F3 to come back
to previous screen.
Install file as shown below. Change logical file name and hit enter.
By default the file will be closed and enable with read access mode. Now place cursor on
physical file name and hit enter to change to update, add and delete access modes.
Change open to close and enabled to disable and hit enter key.
File is now disabled. Then change No update to update, No addable to addable, No browse
to browse and No delete to delete and hit enter.
Now the modes are changed. Now change disabled to enable and hit enter.
Now the file is enabled. Hit F3 to come back. Now you can use this file to read, write,
update, delete and browse.
If you want see the changed modes, you can execute CEMT once again as shown below .