AR/CTL-Smart/RESTART API Bridge Precompiler
During the precompile process, insert specific code in the input program depending on the options that you selected:
- RAI-SERVICES, Function Communications Area (FCA) and the Messages Area in the Working-Storage section
- Initialization and termination code at the top of the procedure division
- Replace GOBACK and STOP RUN statements with a branch to the Smart Restart termination routine
The following figure displays the AR/CTL-Smart/RESTART API Bridge Precompiler JCL:
//*---------------------------------------------------------------------
//ARCSRPC0 EXEC PGM=ARCSRPC0,REGION=512M
// PARM='STORAGE_RANGE(USER-AREA-START,USER-AREA-END)'
//STEPLIB DD DSNAME=HLQ.ARCLIB,DISP=SHR
//*
//SRSPRINT DD SYSOUT=*
//RAINPUT DD *
HOST(IBMCOB)
PRECOMPILE(YES)
RESTART_RC(NO)
SAVE_RESTORE(C)
STORAGE_RANGE(USER-AREA-START,USER-AREA-END)
/*
//SRSIN DD DSN=HLQ.COBOL(&MEM),DISP=SHR
//SRSOUT DD DSNAME=&&SRSOUT,DISP=(MOD,PASS),UNIT=WORK,
// SPACE=(CYL,(4,1)),
// DCB=(BLKSIZE=3200,LRECL=80,RECFM=FB)
//SYSUDUMP DD SYSOUT=*
//*
//*---------------------------------------------------------------------
//ARCSRPC0 EXEC PGM=ARCSRPC0,REGION=512M
// PARM='STORAGE_RANGE(USER-AREA-START,USER-AREA-END)'
//STEPLIB DD DSNAME=HLQ.ARCLIB,DISP=SHR
//*
//SRSPRINT DD SYSOUT=*
//RAINPUT DD *
HOST(IBMCOB)
PRECOMPILE(YES)
RESTART_RC(NO)
SAVE_RESTORE(C)
STORAGE_RANGE(USER-AREA-START,USER-AREA-END)
/*
//SRSIN DD DSN=HLQ.COBOL(&MEM),DISP=SHR
//SRSOUT DD DSNAME=&&SRSOUT,DISP=(MOD,PASS),UNIT=WORK,
// SPACE=(CYL,(4,1)),
// DCB=(BLKSIZE=3200,LRECL=80,RECFM=FB)
//SYSUDUMP DD SYSOUT=*
//*
//*---------------------------------------------------------------------
DDNAMEs used in the AR/CTL-Smart/RESTART API Bridge Precompiler
The AR/CTL-Smart/RESTART API Bridge Precompiler uses the following DDNAMEs:
DDNAME | DCB parameters |
|---|---|
SRSIN – COBOL application program source code to be precompiled | LRECL=80 |
SRSOUT – Precompiled COBOL application program source code | LRECL=80 |
SRSPRINT – AR/CTL-Smart/RESTART API Bridge Precompiler reports file | LRECL=133 |
Tip: For faster searching, add an asterisk to the end of your partial query. Example: cert*
