Other Customization › How to Modify the VPE File Tables › How to Modify the SCPSUTIL Output Printer Control Character or Filenames › Sample Link-Edit JCL for SCPSUTFT

Sample Link-Edit JCL for SCPSUTFT

The following is a sample of the JCL for SCPSUTFT:

//         JOBCARD
//*
//ASMMEMS PROC VQUSR='CAI.CHLQ.CUSLIB'         IPC CUSLIB
//                    
//             VQTML='CAI.SHLQ.CAIMAC',        IPC CAIMAC
//             VQCML='CAI.CHLQ.CUSMAC',        IPC CUSMAC
//             ASMBLR='ASMA90',
//             SYSOUT='*'
//*
//*    ASSEMBLE/LINK TO CUSLIB
//*
//ASMSTP  EXEC PGM=&ASMBLR,PARM='DECK,NOLOAD',REGION=2049K
//SYSLIB   DD DSN=SYS1.MACLIB,DISP=SHR
//         DD  DISP=SHR,
//         DSN=&VQCML
//         DD  DISP=SHR,
//         DSN=&VQTML       
//SYSUT1   DD  DSN=&&SYSUT1,SPACE=(1024,(120,120),,,ROUND),
//         UNIT=VIO,DCB=BUFNO=1
//SYSPUNCH DD  DSN=&&ASMOBJ,UNIT=SYSDA,
//         SPACE=(3120,(400,100),RLSE),
//         DISP=(,PASS),
//         DCB=BLKSIZE=3120
//SYSPRINT DD  SYSOUT=&SYSOUT
//*
//LNKSTP  EXEC PGM=IEWL,COND=(5,LT,ASMSTP),
//             PARM='LIST,LET,XREF,MAP'
//SYSLIN   DD  DSN=&&ASMOBJ,DISP=(OLD,DELETE)
//         DD  DDNAME=SYSIN
//SYSLMOD  DD  DSN=&VQUSR,
//         DISP=SHR
//SYSUT1   DD  DSN=&&SYSUT1,SPACE=(1024,(120,120),,,ROUND),
//         UNIT=VIO,DCB=BUFNO=1
//SYSPRINT DD  SYSOUT=&SYSOUT
//*
//  PEND
//*
//*    EXECUTE ASMMEMS PROC
//*
//PSSUTL EXEC ASMMEMS
//*
//ASMSTP.SYSIN DD DISP=SHR,
//         DSN=CAI.CHLQ.CAIMAC(SCPSUTFT)
//LNKSTP.SYSIN DD *
 NAME SCPSUTFT(R)
/*
//