SCPSMAIN and SCPSUTIL require special link-edits to support user exit routines. SCPSUTIL executes in batch. The online environment uses it to move print files from ADROUT to the system printer. SCPSMAIN is called during batch product execution to send output directly to the system printer.
The following JCL assumes that the SCPSEXT1 module was assembled and the object code is in the object library.
// JOB
//* SCPSMAIN Link Edit
//JS01 EXEC IEWL,COND=(0,NE)
PARM=’XREF,LIST,NCAL,REUS(RENT)’
//SYSLMOD DD DISP=SHR,DSN=LOAD
//SITEOBJ DD DISP=SHR,DSN=site.object.library
//ADROBJ DD DISP=SHR,DSN=OBJECT
// DD DISP=SHR,DSN=OBJECT
// DD DISP=SHR,DSN=OBJECT
//SYSIN DD *
INCLUDE ADROBJ(SCPSMAIN)
INCLUDE SITEOBJ(SCPSEXT1)
NAME SCPSMAIN(R)
/*
//* SCPSUTIL Link Edit
//JS02 EXEC IEWL,COND=(0,NE)
PARM=’XREF,LIST,NCAL,REUS(SERIAL)’
//SYSLMOD DD DISP=SHR,DSN=LOAD
//SITEOBJ DD DISP=SHR,DSN=site.object.library
//ADROBJ DD DISP=SHR,DSN=OBJECT
// DD DISP=SHR,DSN=OBJECT
// DD DISP=SHR,DSN=OBJECT
//SYSIN DD *
INCLUDE ADROBJ(VPE9861)
INCLUDE ADROBJ(SCPSUTIL)
INCLUDE ADROBJ(SCPSUTFN)
INCLUDE SITEOBJ(SCPSEXT1)
ENTRY $VTPTIN
NAME SCPSUTIL(R)
/*
|
Copyright © 2015 CA Technologies.
All rights reserved.
|
|