%BLSCPRNT [ CSA ]
[ NUCLEUS ]
[ SQA ]
[ CURRENT ]
[ JOBNAME(jobname) ]
Enter the following five commands in succession.
ALLOCATE DDNAME(IPCSTOC) SYSOUT(x)
ALLOCATE DDNAME(IPCSPRNT) SYSOUT(x)
SETDEF DSNAME('dump.dsname')
%BLSCPRNT NUCLEUS,SQA,CSA,CURRENT,JOBNAME(jobname)
CLOSE PRINT
//jobname JOB (acct#),'name',MSGCLASS=A,REGION=4M
//PRTDUMP EXEC PGM=IKJEFT01
//SYSPROC DD DSN=SYS1.SBLSCLI0,DISP=SHR
//IPCSTOC DD SYSOUT=*
//IPCSPRNT DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
%BLSCDDIR DSNAME(userid.ddir) VOLUME(volid)... (optional)
IPCS
SETDEF DSN('dump.dsname') PRINT
%BLSCPRNT NUCLEUS,SQA,CSA,CURRENT,JOBNAME(jobname)
/*
See the BLSCPRNT member of SYS1.SBLSCLI0.