WELCOME TO MAINFRAME ONLINE TRAINING.

----------------------------------------------
1. Introduction to Mainframe
2. Introduction to COBOL
3. Introduction to JCL
==
4. Introduction to Z/OS (TSO-ISPF) - THEORY
5. Introduction to Z/OS (TSO-ISPF) - PRACTICAL.
===================================================================================
=====================
5. Introduction to Z/OS (TSO-ISPF) - PRACTICAL.
------------------
TODAYS -> 1. CREATE A PDS 2. CODE 2 COBOL PGM 3. COMPILE - LOAD 4. CODE
RUN JCL -EXECUTE 5. SEE THE OUTPUT

>> 1. CREATE A PDS -> 3.2 => A -ALLOCATION -

DETAIILS: 1. NAME 2. LOCATION 3. SPACE

4. ATTRIBUTE

PDS -> OPTION -3.2 1. NAME ->

IBMUSER.T5.COBOL IBMUSER.T5.LOAD
2. LOCATION
UNIT=3390/SYSDA;VOL=JASYS1 UNIT=3390/SYSDA;VOL=JASYS1
3. SPACE
PQ=10,SQ=10,DB=10,UNIT=TRACKS PQ=10,SQ=10,DB=10,UNIT=TRACKS
4. ATTRIBUTE
TYPE=PDS,RECLEN=80,RECFM=FB,BLSI=800
TYPE=PDS,RECLEN=80,RECFM=U,BLSIZE=800

>> 2. EDIT THE PDS -> FROM THE ISPF OPTION -> 3.4 (SEARCH SCREEN)

-> PROVIDE THE DATASET NAME: 2 WAYS: FULL NAME >

IBMUSER.T5.COBOL -> HIT ENTER
PARTIAL
IBMUSER.T5.*

--> HOW TO CREATE A MEMBER(PGM) IN THE PDS

IN 3.4 -DSLIST SCREEN

2 CASES: 1. EMPTY PDS *1ST TIME

E IBMUSER.T5.COBOL(MEMBER-NAME) -> HIT ENTER 3 TIMES (MEM = 8 CHAR)

IBMUSER.T5.LOAD

2. LATER TIME
E IBMUSER.T5.COBOL -> HIT ENTER

- SHOW THE EXISTING PGM -- EDIT THEM - E -EDIT

- IN THE PDS -> NEW PGM/MEM -> 'S MEMBER-NAME' - HIT ENTER

>> ONCE UR IN THE EDITING PANELL:;

 I - INSERT NEW LINE
D - DELETE A OLD LINE

>> COBOL COLOR FORMAT -> DEFAULT -> RED -> COBOL KEYWORD
GREEN -> DEVELOPER
NAME/WORDS
TO GET THIS COLOR
'HI COB' (HILIGHT COBOL COLOR)

ALL THE PGM ARE AUTO-SAVED -> F3 (SAVE & EXIT)

3. HOW TO COMPILE THE PGM:-

===================

WE NEED A COMPILER JOB -> PROJECT -> WE EXECUTE THE COMPILER JOB -> THRU
TOOLS
-> TRAINING -> WE EXECUTE THE COMPILE JOB >
MANULLY

1. COPY THE COMPILER JOB FROM ANOTHER PDS =

'IBMUSER.TEAM.COBOL' (1 TIME)

1. GOTO 3.4 -> TYPE -> IBMUSER.TEAM.COBOL -> HIT

ENTER
2. BROWSE -> B IBMUSER.TEAM.COBOL --> LIST OF MEMBER
IN THAT PDS
3. COPY -> 'C' -> HIT ENTER -> ASK U THE TARGET
DATASET -> IBMUSER.T5.COBOL -> HIT ENTER
4. -PROMPT -> COPIED -> F3 -> GOTO UR PDS.

-> IF A DATASET - IS UR PERSONAL DATASET -> U CAN USE -> E- EDIT

BUT IF THE DATASSET - IS UR'S TEAM /PROJECT -> -> B-BROWSE
*CANNOT EDIT IT

2. EDIT THE COMPILER JOB -> WITH UR DATASET NAME * PGM NAME

SYSIN DD -> IBMUSER.T5.COBOL << INPUT --

COBOL PGM
SYSLMOD DD -> IBMUSER.T5.LOAD << OUTPUT --
LOAD OF THE COBOL PGM

MEM => PGM NAME

//IBMUSERX JOB '285','POLSANI',NOTIFY=&SYSUID,REGION=6M

//JOBPROC JCLLIB ORDER=S1304.ANIL.PROC PLZ DONT CHANGE THIS
//COBCL EXEC COBCL,MEM=CBLPGM01 GIVE YOUR PGM NAME HERE
//COMPILE.SYSIN DD DSN=IBMUSER.T5.COBOL(&MEM),DISP=SHR INPUT-COBOL
//LKED.SYSLMOD DD DSN=IBMUSER.T5.LOAD(&MEM),DISP=SHR OUTPUT-LOAD

3. EXEUCTE THE COMPILE JCL JOB

TO EXECUTE ANY JCL JOB (1.COMPILER JOB 2. RUN JCL JOB)

--> WE USE 'SUBMIT/SUB'

-> ONCE U SUBMIT ANY JOB -> 1. ACKNOWLEDGE MESSAGE (RED

COLOR) ===IKJ56250I JOB IBMUSERX(JOB01249) SUBMITTED
 2. JOB -COMPLETION -
NOTIFCATION (RED COLOR)

19.20.17 JOB01249 $HASP165 IBMUSERX ENDED AT N1

MAXCC=0 CN(INTERNAL) ==> LOOK -> MAXCC=?? RETURN CODE

COMPILE THE PGM : MAXCC= 0000 >

SUCCESFUL
0004 >
SUCCESFUL + WARNING (IGNORE)
0008/0012 ->
ERROR -> CORRECT THE MISTAKE IN PGM - RE-COMPILE

>>4 - HOW TO EXECUTE THE COBOL LOAD**:-

1. GOTO 3.4 -> IBMUSER.T5.COBOL -> EDIT -> CREATE A RUN JCL
JOB 'S CBLPGMJ1'
2. CODE THE RUN JCL JOB -> EXECUTE (SUBMIT)

>>5 - CHECK THE OUTPUT :

DISPLAY --> THE OUTPUT WILL BE IN A PLACE CALLED
'SPOOL'

SPOOL -> TEMP JOB EXECUTION/JOB LOG -LOCATION

GOTO SPOOL -> FROM ISPF -> OPTION 'S - SDSF' --> OPTION ST - STATUS
OF THE JOB.. (U WILL SEE ALL LIST OF JOB)

-> TO THE OPEN JOB LOG -> '?'

-> TO OPEN ANY DD LIB -> 'S'

A - ALLOCATE - E - EDIT - D - DELETE - R - RENAME

===============================================
4. Introduction to Z/OS (TSO-ISPF) - THEORY
---

MAINFRAME AS A COMPUTER -> WE USE AN OPERTING SYSTEM -> Z/OS (TSO/ISPF)

--
AM NEW MAINFRAME -> LET ASSUME WE HAVE NEW JOB -> TODAY AM JOINING IT.

1. U NEED A SYSTEM + EMULATOR SOFTWARE (PROJECT -> BULE

ZONE**, QWS , IBM TELNET -> CONNECT TO MAINFRAME COMPUTER)

TRAINING -> VISTA TN3270 -ONLY TRAINING (DONT TELL IN INTERVIEW)

2. MAINFRAME IP ADDRESS/HOST NAME
PORT NUMBER (PROJECT -> TAKE UR TEAM
MEMBER HELP <-> TRAINING -> IP: 127.0.0.1 , PORT -> 3270)

3. U WILL CONNECT TO MAINFRAME -> WELCOME SCREEN -> ASKING FOR

USERID: ___ PASSWD:____

TRAINING ( USERID: - IBMUSER

PASSWRD: SECURE1 (SMALL/CAPS)

 4. ONCE U LOGGED TO THE MAINFRAME -> WHAT U WILL SEE HERE??

SCREEN -> CALL IT AS -> SESSION LIST

SESSION LIST
MAINFRAME -> 2 MAJOR ENIVRONMENT 1. TSO --> SUB=LEVEL-
ENVIRONEMNT 1. TSO - PROD

2. TSO - DEV/TEST

3. TSO - QUAL

2. CICS
CICS - PROD

CICS - TEST

CICS - QUAL

TSO -> COBOL PGM (ONLINE BATCH) , JCL JOB (TEST , PROD) , LOAD (ONLINE
BATCH) , FILES (TEST/PROD) , DB2 TABLE(TEST,PROD) -- ALL CODING/DATA

CICS -> INTERACTIVE SCREEN - USED BY THE USER

===> TODAY -> WE WANT TO CODE A COBOL PGM , COMPILE -LOAD , USE FOR EXECUTION JCL ,
SEE THE OUTPUT.

WE NEED 'DATASET' - USED TO STROE THE PGM , JOB , LOAD ..

DATASET -> 2 TYPES 1. PDS 1. PS

>> PDS -> USED FOR CODING COMPONENET -> COBOL PGM , JCL JOB , LOAD MODULE ,
COPYBOOK , CONTROL CARD..

>> PS -> USED FOR DATA -> CUSTOMER DETAILS , ACCOUNT DETAILS , SALES ,
CREDIT CARD

==>
HOW TO CREATE A PDS** --

SELECT THE TSO --> ISPF PRIMARY OPTION MENU --< Z/OS > MENU
DRIVEN SCREEN

ISPF PRIMARY OPTION MENU

OPTION: ____________0_______________________________________________

0 SETTINGS
1 VIEW
2 EDIT
3 UTILITES*** DATASET
4 FORGROAD
..
..

F1 =HELP F3 EXIT F7 - UP F8 DOWN

 NAVIGATE IN THE Z/OS -> 1. FORWARD/NEXT SCREEN --> CHOOSE AN OPTION
FROM THE MEMU
2. BACKWARD/EXIT SCREEN/PREVIOUS SCREEN
-> FUCNTION F3

ON A PAGE -> UP & DOWN -> PF7 & PF8

ON A PAGE -> LEFT & DWON -> F10 & F11
-
SWAP B/W 2 SCREEN -> F9

==> HOW TO CREATE A NEW PDS-DATASET** (PDS -ONLY WE STORE OUR COBOL PGM , JCL
JOB , LOAD )

2 STEPS: 1. NAVIGATION
2. ACTION WITH DETAILS

> NAVIGATE: FROM THE ISPF -> OPTION = 3.2 (3 UTLITIES 2 -

DATASET )
-> A -> ALLOCATE OF NEW
DATASET
-> D -> DELETE A DATASET
-> R -> RENAME THE
DATASET

> ACTION / DETAILS:

1. NAME OF THE DATASET

2. LOCATION OF THE DATASET
3. SPACE ALLOCATION***
4. TYPE & ATTRIBUTE

1. NAME OF THE DATASET: 1. MAX 44 CHAR

2. SHOULD CONTAINS A QULIFER MAX 8 CHAR
3. SHOULD NOT START WITH NUMBER
4. JOIN THE QUILIFER USING . (DOT)

EX: NEW DATASET: PROJECT: -> NAMING :

USERID.APPLNAME.MODULE

EX: PROJECT -> AN$Z1A1 -APPLICATION ->

LOGNET / TIC / WX

AN$Z1A1.LN.COBOL ->
TRICK --> KEEP IT SHORT
AN$Z1A1.TIC.JCL

PROJECT -> PRODUCTION/PROJECT DATASET:

PROJCODE.APPLCODE.JOBNAME.FIELNAME.FILENAME (CHANGE A LITTLE FROM PROJECT -

PROJECT)
TZ1A1.TIC.Z1YN001.ACCT.DATA
TZ1A1.TCI.*

TRAINING -> IBMUSER.T5.COBOL

IBMUSER.T5.JCL
 2. LOCATION:
1. TELL THE - UNIT -> SYSDA / 3390
2. TELL THE - VOLUMN -> JASYS1 <TRAINING>
(PROJECT - CHECK ANY EXISTING DATASET)

LAPTOP --> 500 GB -HARD DISK -> OS -WINDOW -> PARATIOIN

DRIVE (C: D: E:) -> FOLDER/DOCEUMENT

MAINFRAME --> 500 GB ->DASD -> Z/OS --> PARAITITON UNITS -( 1.

SYSDA/3390 2. SYSALDA/3380 ) -- VOLUMNS(V1,V2..) --> DATASET(PDS/PS)

DASD --> DIRECT ACCESS STORAGE DISK

3. SPACE ALLOCATION: (STATIC NATURE)

ALLOCATE THE REQUIRD SPACE - AT THE TIME OF CREATING THE DATASET.

4 POINTS 1. SPACE UNIT ? --> TRACK &

CYLINDER ==> 1 CYL = 15 TRACKS
2. PRIMARY QTY SPACE ==> FIXED SPACE
ALLOCATION -> 1 : 1 -> EX: 10 TRACK = 10 TRACK
3. SECONDARY QTY SPACE ==> EXTENDABLE SPACE
> 1 : 15 -> EX: 10 TRACK => 10,10,10,10,10,10,10..15 TIMES
4. DIRCTORY BLOCK(PARATITIONS) -> ONLY FOR PDS --> 1 : 6
-> USED TO CREATE MEMBER SPACE.
PS >
NO DIRECTORY BLOCK => 0

EX: TRACK => PQ-1,1-SQ -> MIN= 1 MAX- 16

EX: CYL => PQ=10,SQ=10 -> MIN= 10 MAX- 160
DB=10 -> 1- 60 PGM IN IT..

4. ATTRIBUTE:-

1. TYPE => PDS - PDS

-> PS -> BLANK
2. RECORD LENGTH => ALWAYS PDS - 80
3. RECORD FORMAT => FB -COBOL & JCL ==> LOAD
= U (UNDEFINED)
4. BLOCK SIZE => MULTIPLE OF RECORD LENGTH
80 , 160.... 800

PDS -> OPTION -3.2 1. NAME ->

IBMUSER.T5.COBOL IBMUSER.T5.LOAD
2. LOCATION
UNIT=3390/SYSDA;VOL=JASYS1 UNIT=3390/SYSDA;VOL=JASYS1
3. SPACEE
PQ=10,SQ=10,DB=10,UNIT=TRACKS PQ=10,SQ=10,DB=10,UNIT=TRACKS
4. ATTRIBUTE
TYPE=PDS,RECLEN=80,RECFM=FB,BLSI=800
TYPE=PDS,RECLEN=80,RECFM=U,BLSIZE=800

PDS > PROJECT -> OPTION 3.2 -> NAME > 1.

USERID.APPLCODE.MODULENAME
2. LOCATION
> UNIT-3390 , VOL - CHECK OTHER DATASET
3. SPACE
> PQ=50,SQ=50,DB=30,UNIT=CYLINDER
4. ATTRIBUTE
-> TYPE=PDS,REC LEN = 80 , REC FM -FB , BLKSSIZE = 800