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=*