ZZRPTDST is in the source module section of ZZUtils, a collection of Natural utilities.  Look for more information in my Natural Tips & Techniques section - Tip 7.

DEFINE DATA LOCAL
1 #WRK(A4)              1 REDEFINE #WRK
  2 #LOC(A1)
1 #C(P7)
END-DEFINE
*
FORMAT(01) LS=80 PS=60                 /* COMPOSITE REPORT
FORMAT(02) LS=80 PS=60                 /* DISTRIBUTED REPORT
*
READ WORK 1 #WRK
  AT START OF DATA
    PERFORM PRINTER-DEF
  END-START
  AT BREAK OF #WRK /1/
    PERFORM PRINTER-DEF
    RESET *PAGE-NUMBER(02)
  END-BREAK
*
  ADD 1 TO #C
  DISPLAY(01) #C
              #LOC(IS=T)
              #WRK
  DISPLAY(02) #C
              #WRK
END-WORK
*
WRITE(01) TITLE LEFT
          *PROGRAM
      50T *DATU
          *TIME(AL=5)
          *PAGE-NUMBER(01)
    /
WRITE(02) TITLE LEFT
          *PROGRAM
      50T *DATU
          *TIME(AL=5)
          *PAGE-NUMBER(02)
   //     'LOCATION:' #LOC
    /
*
DEFINE SUBROUTINE PRINTER-DEF
DECIDE ON FIRST #WRK.#LOC
  VALUE 'A'
    DEFINE PRINTER(02) OUTPUT 'CMPRT02'
  VALUE 'B'
    DEFINE PRINTER(02) OUTPUT 'CMPRT03'
  VALUE 'C'
    DEFINE PRINTER(02) OUTPUT 'CMPRT04'
  VALUE 'D'
    DEFINE PRINTER(02) OUTPUT 'CMPRT05'
  VALUE 'E'
    DEFINE PRINTER(02) OUTPUT 'CMPRT06'
  NONE
    DEFINE PRINTER(02) OUTPUT 'CMPRT07'
END-DECIDE
END-SUBROUTINE
END
 

//userid1x JOB (account),'ZBROG',CLASS=c,REGION=4M,
//             MSGCLASS=m,NOTIFY=userid1
//*
//NAT      EXEC PGM=NATURAL
//CMSYNIN   DD *
%*
natlib,userid1,pswd
R ZZRPTDST
FIN
/*
//CMPRINT   DD SYSOUT=*
//CMPRT01   DD SYSOUT=*
//CMPRT02   DD SYSOUT=*
//CMPRT03   DD SYSOUT=*
//CMPRT04   DD SYSOUT=*
//CMPRT05   DD SYSOUT=*
//CMPRT06   DD SYSOUT=*
//CMPRT07   DD SYSOUT=*
//CMWKF01   DD *
A111
A222
B333
C444
C555
C666
C777
X---
D888
D999
E000
/*
//

Return to Ralph G. Zbrog's home page.

Last updated April 25, 1998, by Ralph G. Zbrog.