COBOL SCLM example
This example is included in data set IPV.SIPVSAM1 as member IPVSCLMC.
***********************************************************************
* --COPY SYSPRINT FILE TO LISTING
* The COPYFILE EXEC, in dataset PDFTDEV.PROJDEFS.EXEC contains the
* following:
*
* /* REXX */
* /**********************************************************************/
* /* Copy file I to file O. Both are assumed to be pre-allocated. */
* /**********************************************************************/
* PARSE UPPER ARG I","O .
* "EXECIO * DISKR "I" (STEM R. FINIS "
* "EXECIO * DISKW "O" (STEM R. FINIS "
* RETURN
*
***********************************************************************
*
FLMTRNSL CALLNAM='COPY FILES ', C
FUNCTN=BUILD, C
COMPILE=COPYFILE, C
DSNAME=PDFTDEV.PROJDEFS.EXEC, C
CALLMETH=TSOLNK, C
VERSION=1.0, C
PORDER=1, C
OPTIONS=(SYSPRINT,LISTING), C
GOODRC=0
FLMALLOC IOTYPE=W,RECFM=VBA,LRECL=133, C
RECNUM=90000,DDNAME=LISTING
*
FLMTRNSL CALLNAM='IPVLANGX', C
FUNCTN=BUILD, C
COMPILE=IPVLANGX, C
DSNAME=IPV.SIPVMODA, C
VERSION=3.5.2, C
GOODRC=0, C
PORDER=1, C
OPTIONS='@@FLMMBR(COBOL ERROR'
*
* (* LISTING *)
FLMALLOC IOTYPE=U,DDNAME=LISTING
*
* (* IDILANGX *)
FLMALLOC IOTYPE=P,DDNAME=IDILANGX,DFLTTYP=IDILANGX, C
KEYREF=OUT2,BLKSIZE=27998,LRECL=1562,RECFM=VB, C
RECNUM=10000,DIRBLKS=50,DFLTMEM=*