In-Stream%20Catalogued%20Procedures

1
In-Stream Catalogued Procedures

• 
  
  1

2

• //CUSTBLG JOB ,SMITH,PRTY7,CLASSA,
  //
  MSGLEVEL(1,1),MSGCLASSA //JOBLIB
  DD //JOBCAT DD //CALCBLG EXEC
  PGMCALCBLG,TIME2, //
  PARM(CYCLE1,UPDATE) //STEPLIB
  DD //SYSUDUMP DD SYSOUTA //INMASTER
  DD DISP(OLD,KEEP,KEEP), //
  DSNBILLING.MASTER //PAYCHGS
  DD DISP(OLD,DELETE,KEEP), //
  DSNBILLING.CHANGES,
  // UNITDISK
  //TAXTBLS DD DISPSHR,DSNTAX.TABLES
  
  
  2

3

• //UPDMSTER DD DISP(NEW,CATLG,DELETE),
  //
  DSNBILLING.MASTER, //
  UNITTAPE, //
  DCB(LRECL160,BLKSIZE3200), //
  DCBRECFMFB)
  //BLGFILE DD DISP(NEW,PASS,DELETE),
  //
  UNITSYSDA,DSNBILLING.PRINT, //
  SPACE(TRK,(20,5),RLSE), //
  
  DCB(LRECL100,BLKSIZE4000) //
  DCB(RECFMVB) //ISSBILLS
  EXEC PGMISSBILLS,TIME(,30) //SYSUDUMP DD
  SYSOUTA
  
  
  3

4

• //BLGRPT DD SYSOUTA //BILLS
  SYSOUT(H,,DP12) //BLGFILE
  DD DISP(OLD,DELETE,CATLG), //
  DSNBILLING.PRINT //
  
  
  
  4

5

• //CUSTBLG JOB ,SMITH,PRTY7,CLASSA,
  //
  MSGLEVEL(1,1),MSGCLASSA //CALCBLG EXEC
  PGMCALCBLG,TIME2, //
  PARM(CYCLE1,UPDATE) //STEPLIB
  DD DISPSHR,DSNBILLING.LOADLIB
  //SYSUDUMP DD SYSOUTA //INMASTER DD
  DISP(OLD,KEEP,KEEP), //
  DSNBILLING.MASTER //PAYCHGS
  DD DISP(OLD,DELETE,KEEP), //
  DSNBILLING.CHANGES, //
  UNITDISK
  //TAXTBLS DD DISPSHR,DSNTAX.TABLES
  
  
  5

6

• //UPDMSTER DD DISP(NEW,CATLG,DELETE),
  //
  DSNBILLING.MASTER, //
  UNITTAPE, //
  DCB(LRECL160,BLKSIZE3200), //
  DCBRECFMFB)
  //BLGFILE DD DISP(NEW,PASS,DELETE),
  //
  UNITSYSDA,DSNBILLING.PRINT, //
  SPACE(TRK,(20,5),RLSE), //
  
  DCB(LRECL100,BLKSIZE4000) //
  DCB(RECFMVB) //ISSBILLS
  EXEC PGMISSBILLS,TIME(,30) //STEPLIB
  DD DISPSHR,DSNBILLING.LOADLIB
  //SYSUDUMP DD SYSOUTA
  
  
  6

7

• //BLGRPT DD SYSOUTA //BILLS
  SYSOUT(H,,DP12) //BLGFILE
  DD DISP(OLD,DELETE,CATLG), //
  DSNBILLING.PRINT //
  
  
  
  7

8
Catalogued Procedures

• 
  
  8

9

• //CUSTBLG JOB ,SMITH,PRTY7,CLASSA,
  //
  MSGLEVEL(1,1),MSGCLASSA //CALCBLG EXEC
  PGMCALCBLG,TIME2, //
  PARM(CYCLE1,UPDATE) //STEPLIB
  DD DISPSHR,DSNBILLING.LOADLIB
  //SYSUDUMP DD SYSOUTA //INMASTER DD
  DISP(OLD,KEEP,KEEP), //
  DSNBILLING.MASTER //PAYCHGS
  DD DISP(OLD,DELETE,KEEP), //
  DSNBILLING.CHANGES, //
  UNITDISK
  //TAXTBLS DD DISPSHR,DSNTAX.TABLES
  
  
  9

10

• //UPDMSTER DD DISP(NEW,CATLG,DELETE),
  //
  DSNBILLING.MASTER, //
  UNITTAPE, //
  DCB(LRECL160,BLKSIZE3200), //
  DCBRECFMFB)
  //BLGFILE DD DISP(NEW,PASS,DELETE),
  //
  UNITSYSDA,DSNBILLING.PRINT, //
  SPACE(TRK,(20,5),RLSE), //
  
  DCB(LRECL100,BLKSIZE4000) //
  DCB(RECFMVB) //ISSBILLS
  EXEC PGMISSBILLS,TIME(,30) //STEPLIB
  DD DISPSHR,DSNBILLING.LOADLIB
  //SYSUDUMP DD SYSOUTA
  
  
  10

11

• //BLGRPT DD SYSOUTA //BILLS
  SYSOUT(H,,DP12) //BLGFILE
  DD DISP(OLD,DELETE,CATLG), //
  DSNBILLING.PRINT //
  
  
  
  11

12
JCL ListingMSGLEVEL(1,1)

• 
  
  12

13

• //CUSTBLG JOB ,SMITH,PRTY7,CLASSA,
  //
  MSGLEVEL(1,1),MSGCLASSA //CALCBLG EXEC
  PGMCALCBLG,TIME2, //
  PARM(CYCLE1,UPDATE) //STEPLIB
  DD DISPSHR,DSNBILLING.LOADLIB
  //SYSUDUMP DD SYSOUTA //INMASTER DD
  DISP(OLD,KEEP,KEEP), //
  DSNBILLING.MASTER //PAYCHGS
  DD DISP(OLD,DELETE,KEEP), //
  DSNBILLING.CHANGES, //
  UNITDISK
  //TAXTBLS DD DISPSHR,DSNTAX.TABLES
  
  
  13

14

• //UPDMSTER DD DISP(NEW,CATLG,DELETE),
  //
  DSNBILLING.MASTER, //
  UNITTAPE, //
  DCB(LRECL160,BLKSIZE3200), //
  DCBRECFMFB)
  //BLGFILE DD DISP(NEW,PASS,DELETE),
  //
  UNITSYSDA,DSNBILLING.PRINT, //
  SPACE(TRK,(20,5),RLSE), //
  
  DCB(LRECL100,BLKSIZE4000) //
  DCB(RECFMVB) //ISSBILLS
  EXEC PGMISSBILLS,TIME(,30) //STEPLIB
  DD DISPSHR,DSNBILLING.LOADLIB
  //SYSUDUMP DD SYSOUTA
  
  
  14

15

• //BLGRPT DD SYSOUTA //BILLS
  SYSOUT(H,,DP12) //BLGFILE
  DD DISP(OLD,DELETE,CATLG), //
  DSNBILLING.PRINT //
  
  
  
  15

16
Create AnIn-Stream PROC

• 
  
  16

17

• //CUSTBLG JOB ,SMITH,PRTY7,CLASSA,
  //
  MSGLEVEL(1,1),MSGCLASSA //BILLING
  PROC //CALCBLG EXEC PGMCALCBLG,TIME2,
  //
  PARMCYCLE1,UPDATE //STEPLIB DD
  DISPSHR,DSNBILLING.LOADLIB //SYSUDUMP DD
  SYSOUTA //INMASTER DD
  DISP(OLD,KEEP,KEEP), //
  DSNBILLING.MASTER //PAYCHGS DD
  DISP(OLD,DELETE,KEEP), //
  DSNBILLING.CHANGES, //
  UNITDISK //TAXTBLS
  DD DISPSHR,DSNTAX.TABLES
  
  
  17

18

• //UPDMSTER DD DISP(NEW,CATLG,DELETE),
  //
  DSNBILLING.MASTER, //
  UNITTAPE, //
  DCB(LRECL160,BLKSIZE3200), //
  DCBRECFMFB)
  //BLGFILE DD DISP(NEW,PASS,DELETE),
  //
  UNITSYSDA,DSNBILLING.PRINT, //
  SPACE(TRK,(20,5),RLSE), //
  
  DCB(LRECL100,BLKSIZE4000) //
  DCB(RECFMVB) //ISSBILLS
  EXEC PGMISSBILLS,TIME(,30) //STEPLIB
  DD DISPSHR,DSNBILLING.LOADLIB
  //SYSUDUMP DD SYSOUTA
  
  
  18

19

• //BLGRPT DD SYSOUTA //BILLS
  DD SYSOUT(H,,DP12) //BLGFILE
  DD DISP(OLD,DELETE,CATLG), //
  DSNBILLING.PRINT //
  PEND //BILLING EXEC BILLING //
  
  
  19

20
JCL ListingMSGLEVEL(1,1)

• 
  
  20

21

• //CUSTBLG JOB ,SMITH,PRTY7,CLASSA,
  //
  MSGLEVEL(1,1),MSGCLASSA //BILLING
  PROC //CALCBLG EXEC PGMCALCBLG,TIME2,
  //
  PARMCYCLE1,UPDATE //STEPLIB DD
  DISPSHR,DSNBILLING.LOADLIB //SYSUDUMP DD
  SYSOUTA //INMASTER DD
  DISP(OLD,KEEP,KEEP), //
  DSNBILLING.MASTER //PAYCHGS DD
  DISP(OLD,DELETE,KEEP), //
  DSNBILLING.CHANGES, //
  UNITDISK //TAXTBLS
  DD DISPSHR,DSNTAX.TABLES
  
  
  21

22

• //UPDMSTER DD DISP(NEW,CATLG,DELETE),
  //
  DSNBILLING.MASTER, //
  UNITTAPE, //
  DCB(LRECL160,BLKSIZE3200), //
  DCBRECFMFB)
  //BLGFILE DD DISP(NEW,PASS,DELETE),
  //
  UNITSYSDA,DSNBILLING.PRINT, //
  SPACE(TRK,(20,5),RLSE), //
  DCB(LRECL100,BLKS
  IZE4000) //
  DCB(RECFMVB) //ISSBILLS EXEC
  PGMISSBILLS,TIME(,30) //STEPLIB DD
  DISPSHR,DSNBILLING.LOADLIB //SYSUDUMP DD
  SYSOUTA
  
  
  22

23

• //BLGRPT DD SYSOUTA
  //BILLS SYSOUT(H,,DP12)
  //BLGFILE DD DISP(OLD,DELETE,CATLG)
  , //
  DSNBILLING.PRINT // PEND //BILLING
  EXEC BILLING BILLING PROC
  CALCBLG EXEC PGMCALCBLG,TIME2,
  PARMCYCLE1,UPDATE
  STEPLIB DD DISPSHR,DSNBILLING.LO
  ADLIB SYSUDUMP DD SYSOUTA
  INMASTER DD DISP(OLD,KEEP,KEEP),
  DSNBILLING.MASTER
  PAYCHGS DD DISP(OLD,DELETE,KEEP),
  
  DSNBILLING.CHANGES,
  UNITDISK
  
  
  23

24

• TAXTBLS DD DISPSHR,DSNTAX.TABLE
  S UPDMSTER DD DISP(NEW,CATLG,DELETE),
  
  DSNBILLING.MASTER,
  UNITTAPE,
  DCB(LRECL160,BLKSIZE3200),
  DCBRECFMFB)
  BLGFILE DD DISP(NEW,PASS,DELETE),
  
  UNITSYSDA,DSNBILLING.PRINT,
  SPACE(TRK,(20,5),RLSE),
  
  DCB(LRECL100,BLKSIZE4000)
  DCB(RECFMVB) ISSBILLS
  EXEC PGMISSBILLS,TIME(,30) STEPLIB
  DD DISPSHR,DSNBILLING.LOADLIB
  SYSUDUMP DD SYSOUTA
  
  
  24

25

• BLGRPT DD SYSOUTA
  BILLS SYSOUT(H,,DP12)
  BLGFILE DD DISP(OLD,DELETE,CATLG)
  ,
  DSNBILLING.PRINT
  
  
  25

26
Create The Proc

• //CUSTBLG JOB ,SMITH,PRTY7,
  //
  CLASSA,MSGLEVEL(1,1), //
  MSGCLASSA //BILLING
  EXEC BILLING
  
  
  26

27
Executing The Proc

• //CUSTBLG JOB ,SMITH,PRTY7,
  //
  CLASSA,MSGLEVEL(1,1), //
  MSGCLASSA //BILLING
  EXEC BILLING
  
  
  27

28
JCL On SYSOUT Listing

• 
  
  28

29
//CUSTBLG JOB ,SMITH,PRTY7,CLASSA,
//
MSGLEVEL(1,1),MSGCLASSA //BILLING
EXEC BILLING XXCALCBLG EXEC
PGMCALCBLG,TIME2, XX
PARMCYCLE1,UPDATE XXSTEPLIB
DD DISPSHR,DSNBILLING.LOADLIB
XXSYSUDUMP DD SYSOUTA XXINMASTER DD
DISP(OLD,KEEP,KEEP), XX
DSNBILLING.MASTER
XXPAYCHGS DD DISP(OLD,DELETE,KEEP),
XX
DSNBILLING.CHANGES, XX
UNITDISK


29
30

• XXTAXTBLS DD DISPSHR,DSNTAX.TABLE
  S XXUPDMSTER DD DISP(NEW,CATLG,DELETE),
  XX
  DSNBILLING.MASTER, XX
  UNITTAPE, XX
  DCB(LRECL160,BLKSIZE3200), XX
  DCBRECFMFB)
  XXBLGFILE DD DISP(NEW,PASS,DELETE),
  XX
  UNITSYSDA,DSNBILLING.PRINT, XX
  SPACE(TRK,(20,5),RLSE), XX
  
  DCB(LRECL100,BLKSIZE4000) XX
  DCB(RECFMVB) XXISSBILLS
  EXEC PGMISSBILLS,TIME(,30) XXSTEPLIB
  DD DISPSHR,DSNBILLING.LOADLIB
  XXSYSUDUMP DD SYSOUTA
  
  
  30