home *** CD-ROM | disk | FTP | other *** search
/ Hall of Fame / HallofFameCDROM.cdr / 3x400 / prtpgm.lzh / PRTPGMR.RPG < prev   
Text File  |  1988-07-09  |  5KB  |  88 lines
  1.      H
  2.      H********************************************************************
  3.      H*                                                                  *
  4.      H*      PROGRAM ID: PRTPGMR   DATE-WRITTEN: 11-17-86                *
  5.      H*      WRITTEN BY:  DAVID J. WORMELL                               *
  6.      H*                   Salt Lake City, Utah                           *
  7.      H*                                                                  *
  8.      H********************************************************************
  9.      FSOURCE  IF  F     102            DISK
  10.      FQPRINT  O   F     132     OF     PRINTER
  11.      E********************************************************************
  12.      E* DEFINE STANDARD ARRAYS                                           *
  13.      E*                                                                  *
  14.      E                    $R         80  1               SPEC RECORD     *
  15.      I********************************************************************
  16.      I* DEFINE LEVEL BREAKS AND INPUT INDICATORS
  17.      I*
  18.      ISOURCE  AA  01
  19.      I                                        1   60$ADT
  20.      I                                        7  120$BDT
  21.      I                                       13 102 $RCD
  22.      I* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
  23.      I* DEFINE DATA STRUCTURES
  24.      I* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
  25.      I            DS
  26.      I                                        1  80 $R
  27.      I                                        1   5 $NUM
  28.      I                                        6   6 $SPEC
  29.      I                                        7   7 $ASTRC
  30.      I                                       28  32 $OPCOD
  31.      I                                       33  39 $D1FMT
  32.      I                                       40  46 $WRKST
  33.      I                                       60  74 $C
  34.      C* * * * * * * * * * * * * * * * * * * * * * * * * * *
  35.      C           *ENTRY    PLIST
  36.      C                     PARM BGN       BGN     50
  37.      C                     PARM END       END     50
  38.      C* * * * * * * * * * * * * * * * * * * * * * * * * * *
  39.      C* TOP OF PROGRAM
  40.      C* * * * * * * * * * * * * * * * * * * * * * * * * * *
  41.      C* PROCESS SOURCE RECORDS
  42.      C*
  43.      C           BGN       IFNE 0                          --------------+
  44.      C           BGN       SETLLSOURCE                     <SLL>         │
  45.      C                     END                             --------------+
  46.      C*
  47.      C           END       IFNE 0                          --------------+
  48.      C           END       MULT 100       $END    70                     │
  49.      C                     END                             --------------+
  50.      C*
  51.      C                     READ SOURCE                   99<RE >
  52.      C*
  53.      C           *IN99     DOWEQ'0'                        --------------+
  54.      C*                                                                  │
  55.      C                     MOVEA$RCD      $R                             │
  56.      C*                                                                  │
  57.      C           $END      IFNE 0                          ------------+ │
  58.      C           $ADT      IFGT $END                       ----------+ │ │
  59.      C                     GOTO $FINI                                │ │ │
  60.      C                     END                             ----------+ │ │
  61.      C                     END                             ------------+ │
  62.      C*                                                                  │
  63.      C           $BDT      MULT 100.0001  $BDT                           │
  64.      C*                                                                  │
  65.      C                     EXCPT                           <EXC>         │
  66.      C*                                                                  │
  67.      C                     READ SOURCE                   99<RE >         │
  68.      C*                                                                  │
  69.      C                     END                             --------------+
  70.      C*----------------------------------------------------
  71.      C* END OF PROGRAM
  72.      C*----------------------------------------------------
  73.      C*
  74.      C           $FINI     TAG
  75.      C*
  76.      C                     SETON                     LR
  77.      C*
  78.      O*----------------------------------------------------
  79.      O* OUTPUT AREA FOR REPORT
  80.      O*----------------------------------------------------
  81.      OQPRINT  EF 1
  82.      O                         $ADT       6
  83.      O                         $RCD      97
  84.      O                         $BDT  Y  132
  85.      O        TF2
  86.      O                                      '*** END OF SOURCE ***'
  87.      O*----------------------------------------------------
  88.