Sample CL Program for Splitting a Report using the RPTNUM Command - Support

Sample CL Program for Splitting a Report using the RPTNUM Command

From Support

Jump to: navigation, search
            PGM

/******************************************************/ /* Declare Spool File Retrieval Variables */ /******************************************************/ 

            DCL        VAR(&NEWSPOOL) TYPE(*CHAR) LEN(10) 
            DCL        VAR(&NEWJOB) TYPE(*CHAR) LEN(10)   
            DCL        VAR(&NEWUSER) TYPE(*CHAR) LEN(10)  
            DCL        VAR(&NEWNBR) TYPE(*CHAR) LEN(6)    
            DCL        VAR(&NEWSPNM) TYPE(*CHAR) LEN(4)

/******************************************************/ /* Run Report Program */ /* SAMPLE COMMAND BELOW */ /*Use your generation command here */ /******************************************************/ 

             CALL PGM(RPT100)

/******************************************************/ /* RETREIVE SPOOL ATTRIBUTES FROM NEW SPOOL FILE */ /* TO GET THE ACTUAL PAGE COUNT ON THE NEW FILE */ /******************************************************/ 

            RPTNUM     SPLF(RPT100P) JOB(*) SPLNBR(*LAST)
                         RTNSPLF(&NEWSPOOL) RTNJOBNAME(&NEWJOB)
                         RTNJOBUSER(&NEWUSER) RTNJOBNUM(&NEWNBR)
                         RTNSPLNUM(&NEWSPNM)

/******************************************************/ /* SPLIT REPORT BASED ON SPOOL FILE VALUES */ /******************************************************/ 

            RPTSPLIT   FILE(&NEWSPOOL) +                     
                         JOB(&NEWNBR/&NEWUSER/&NEWJOB) +     
                         SPLNBR(&NEWSPNM) BEGCMP(*ALL) +     
                         OUTQ(QGPL/QPRINT)                   

            ENDPGM
Retrieved from "http://wiki.rjssoftware.com/wiki/index.php/Sample_CL_Program_for_Splitting_a_Report_using_the_RPTNUM_Command"
Personal tools