Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-06 - decus/20-153/pweb.rpg
There is 1 other file named pweb.rpg in the archive. Click here to see a list.
01010H                                                                    PWEB  
01020FCARDSIN IP  F      80            DISK   WEBDAT                      PWEB  
01025F                                              KASCII                PWEB  
01030FPRODRPT O   F     132     OF     PRINTER                            PWEB  
02010E                    QARR        5  2 0             QTY ARRAY INPUT  PWEB  
02020E                    DARR        5  3 0             DAILY ARRAY      PWEB  
02030E                    TARR        5  3 0             TOTAL ARRAY      PWEB  
03010ICARDSIN AA  01                                                      PWEB  
03020I                                        1   1 SHIFT L1              PWEB  
03030I                                        2  25 NAME                  PWEB  
03040I                                       26  35 QARR                  PWEB  
04010C   L1      DARR      SUB  DARR      DARR    30                      PWEB  
04020C                     XFOOTQARR      DAYTOT  30                      PWEB  
04030C           QARR      ADD  DARR      DARR                            PWEB  
04040C           DAYTOT    DIV  5         DAYAVG  31                      PWEB  
04050CL1         WSHTOT    SUB  WSHTOT    WSHTOT  30                      PWEB  
04060CL1         WAVTOT    SUB  WAVTOT    WAVTOT  31                      PWEB  
04070CL1                   XFOOTDARR      WSHTOT  30                      PWEB  
04080CL1         WSHTOT    DIV  5         WAVTOT  31                      PWEB  
04090CL1         DARR      ADD  TARR      TARR                            PWEB  
04100CL1                   XFOOTTARR      FWKTOT  40                      PWEB  
04110CLR         FWKTOT    DIV  5         FTOT    41                      PWEB  
05010OPRODRPT H  201   1P                                                 PWEB  
05020O       OR        OF                                                 PWEB  
05030O                                    9 'DATE'                        PWEB  
05040O                         UDATE Y   18                               PWEB  
05050O                                   59 'PRODUCTION REPORT'           PWEB  
05060O                                   90 'PAGE'                        PWEB  
05070O                         PAGE  Z   95                               PWEB  
05080O        H  1     1P                                                 PWEB  
05090O       OR        OF                                                 PWEB  
05100O                                   58 'Q U A N T I T Y'             PWEB  
05110O                                   85 'M A N U F A C T U R E D'     PWEB  
05120O                                   95 'D A I L Y'                   PWEB  
05130O        H  2     1P                                                 PWEB  
05140O       OR        OF                                                 PWEB  
05150O                                   22 'SHIFT       NAME'            PWEB  
05160O                                   65 'DAY 1  DAY 2  DAY 3'         PWEB  
05170O                                   79 'DAY 4  DAY 5'                PWEB  
05180O                                   96 'AVERAGE'                     PWEB  
05190O        D  1     01                                                 PWEB  
05200O                 L1      SHIFT      9                               PWEB  
05210O                 OF      SHIFT      9                               PWEB  
05220O                         NAME      41                               PWEB  
05230O                         QARR,1Z   49                               PWEB  
05240O                         QARR,2Z   56                               PWEB  
05250O                         QARR,3Z   63                               PWEB  
05260O                         QARR,4Z   70                               PWEB  
05270O                         QARR,5Z   77                               PWEB  
05280O                         DAYAVG1   94                               PWEB  
05290O        T 12     L1                                                 PWEB  
05300O                                   22 'SHIFT'                       PWEB  
05310O                         SHIFT     24                               PWEB  
05320O                                   32 'TOTALS'                      PWEB  
05330O                         DARR,1Z   49                               PWEB  
05340O                         DARR,2Z   56                               PWEB  
05350O                         DARR,3Z   63                               PWEB  
05360O                         DARR,4Z   70                               PWEB  
05370O                         DARR,5Z   77                               PWEB  
05380O                         WAVTOT1   94                               PWEB  
05390O        T  3     LR                                                 PWEB  
05400O                                   40 'FINAL TOTALS'                PWEB  
05410O                         TARR,11   49                               PWEB  
05420O                         TARR,21   56                               PWEB  
05430O                         TARR,31   63                               PWEB  
05440O                         TARR,41   70                               PWEB  
05450O                         TARR,51   77                               PWEB  
05460O                         FTOT  1   94                               PWEB  
05470O        T        LR                                                 PWEB  
05480O       OR        OF                                                 PWEB  
05490O                                   25 'PROBLEM 8-2'                 PWEB