Example: Creating a PSB and generating a PSB map

The following figure shows example JCL for running a job that creates a PSB and generates a map of the PSB.

You can use this example JCL to create or change a PSB, and obtain a map and report on it.

Figure 1. Example of creating a PSB and generating a PSB map

//PSBGEN  PROC MBR=TEMPNAME,RGN=2048K
//C       EXEC PGM=IEV90,REGION=&RGN,PARM='OBJECT,NODECK'
//SYSLIB    DD DSN=IMSVS.MACLIB,DISP=SHR
//SYSLIN    DD UNIT=SYSDA,DISP=(,PASS),
//             SPACE=(80,(100,100),RLSE),
//             DCB=(BLKSIZE=80,RECFM=F,LRECL=80)
//SYSPRINT  DD SYSOUT=A,DCB=BLKSIZE=1089,
//             SPACE=(121,(300,300),RLSE,,ROUND)
//SYSUT1    DD UNIT=SYSDA,DISP=(,DELETE),
//             SPACE=(1700,(100,50))
//SYSUT2    DD UNIT=SYSDA,DISP=(,DELETE),
//             SPACE=(1700,(100,50))
//SYSUT3    DD UNIT=(SYSDA,SEP=(SYSLIB,SYSUT1,SYSUT2)),
//             SPACE=(1700,(100,50))
//SYSIN     DD DSNAME=DBT.SOURCE(&MBR),DISP=SHR
//L       EXEC PGM=IEWL,PARM='XREF,LIST',COND=(0,LT,C),REGION=120K
//SYSLIN    DD DSN=*.C.SYSLIN,DISP=(OLD,DELETE)
//SYSPRINT  DD SYSOUT=A,DCB=BLKSIZE=1089,
//             SPACE=(121,(90,90),RLSE)
//SYSLMOD   DD DSN=IMSVS.PSBLIB(&MBR),DISP=SHR
//SYSUT1    DD UNIT=(SYSDA,SEP=(SYSLMOD,SYSLIN)),
//             SPACE=(1024,(100,10),RLSE),DISP=(,DELETE)
//*
//PSBMAP  EXEC PGM=FABMPMAP,PARM=(&MBR)
//STEPLIB   DD DSN=HPS.SHPSLMD0,DISP=SHR
//PSBLIB    DD DSN=IMSVS.PSBLIB,DISP=SHR
//DBDLIB    DD DSN=IMSVS.DBDLIB,DISP=SHR
//SYSOUT    DD SYSOUT=A
//SYSPRINT  DD SYSOUT=A
//          PEND
//*