COBOL SCLM example

***********************************************************************
    *        --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='CAZLANGX',                               C
                   FUNCTN=BUILD,                                           C
                   COMPILE=CAZLANGX,                                       C
                   DSNAME=#hlq.SIPVMODA,                                    C
                   VERSION=3.5.2,                                          C
                   GOODRC=0,                                               C
                   PORDER=1,                                               C
                   OPTIONS='@@FLMMBR(COBOL ERROR OFT CAZLANGX FAULT'
    *
    *          (* LISTING *)
               FLMALLOC  IOTYPE=U,DDNAME=LISTING
    *
    *          (* CAZLANGX *)
               FLMALLOC  IOTYPE=P,DDNAME=CAZLANGX,DFLTTYP=CAZLANGX,        C
                   KEYREF=OUT2,BLKSIZE=27998,LRECL=1562,RECFM=VB,          C
                   RECNUM=10000,DIRBLKS=50,DFLTMEM=*