Columns . . . :                     Edit                         GOLFP/SRCFILE 
 SEU==>_______________________________________________________          PGMB24 
 FMT H  HKeywords++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
        *************** Beginning of data ************************************* 
     H
     F*---------------------------------------------------------------------
     F*- THIS IS PROGRAM B24  PROCESS ORDERS SHIPPED MODULE 2 ©
     F*-
     F*-                  AUTHOR:  BROWNING, 04/01/99 ©
     F*-
     F*-                 PURPOSE:  DISPLAY & READ SCREEN2 AND VERIFY
     F*-                           THAT QUANTITY SHIPPED IS < QUANTITY
     F*-                           ORDERED.
     F*-
     F*-              INDICATORS:  75-- SETLL SPRCOD
     F*-                           76-- READE SPRCOD
     F*-                           77-- CHAIN SPRINV
     F*-
     F*-        ASSOCIATED FILES:  SPCOSD DSPF FILE(SCRN 1 & 2)
     F*-                                           (SFL1 - CTL1)
     F*-
     F*ILENAME++IPEASFRLEN+LKLEN+AIDEVICE+.KEYWORDS++++++++++++++++++++++++
     FSPRCOD    IF   E           K DISK
     FSPRINV    IF   E           K DISK
     FSPRCMF    IF   E           K DISK
     FSPRHED    IF   E             DISK
     FSPCOSD    CF   E             WORKSTN SFILE(SFL1:RRN)
     D*AME+++++++++++ETDSFROM+++TO/L+++IDC.KEYWORDS++++++++++++++++++++
     D RRN             S              2S 0
     D SCREEN          DS                  OCCURS(30)
     D ITNUM                          5
     D DSCR                          15
     D QTYOR                          4S 0
     D QTYSH                          4S 0
     D*----------------------------------------------
     D CUSTNO2         S              4A
     D ORDNO2          S              4A
     D SHIPDT2         S               D   DATFMT(*ISO)
     D SHIPWT2         S              4S 0
     D X               S              2S 0
     D*
     C*0N01FACTOR1+++++++OPCODE(E)+FACTOR2+++++++RESULT++++++++LEN++D+HILOEQ
     C     *ENTRY        PLIST
     C                   PARM                    CUSTNO2
     C                   PARM                    ORDNO2
     C                   PARM                    SHIPDT2
     C                   PARM                    SHIPWT2
     C                   PARM                    SCREEN
     C     SCRDTA        KLIST
     C                   KFLD                    CUSTNO2
     C                   KFLD                    ORDNO2
     C                   READ      SPRHED
     C                   EXSR      CLEAR
     C*0N01FACTOR1+++++++OPCODE(E)+FACTOR2+++++++RESULT++++++++LEN++D+HILOEQ
     C     SCRDTA        SETLL     SPRCOD                             75
     C                   EXSR      STARTSF
     C                   EVAL      *IN60 = *OFF
     C                   DOW       *IN60 = *OFF
     C                   WRITE     SCRN2
     C                   EXFMT     CTL1
     C                   EVAL      *IN60 = *OFF
     C                   EVAL      RRN = *ZEROS
     C                   DO        30            X
     C     X             OCCUR     SCREEN
     C                   EVAL      RRN  = RRN + 1
     C     RRN           CHAIN     SFL1
     C                   IF        ITNUM = *BLANKS
     C                   LEAVE
     C                   ENDIF
     C     ITNUM         CHAIN     SPRINV
     C                   IF        QTYOR  <  QTYSH
     C                   EVAL      *IN60 = *ON
     C                   ITER
     C                   ENDIF
     C                   UPDATE    SFL1
     C                   EVAL      *IN60 = *ON
     C                   ENDDO
     C                   ENDDO
     C                   EVAL      *INLR = *ON
     C                   RETURN
     C*0N01FACTOR1+++++++OPCODE(E)+FACTOR2+++++++RESULT++++++++LEN++D+HILOEQ
     C     CLEAR         BEGSR
     C                   EVAL      *IN50 = *ON
     C                   WRITE     CTL1
     C                   EVAL      *IN50 = *OFF
     C                   EVAL      RRN = *ZEROS
     C                   ENDSR
     C*----------------------------------------------------------------
     C     STARTSF       BEGSR
     C                   CLEAR                   RRN
     C     SCRDTA        READE     SPRCOD                                 76
     C                   DOW       *IN76 = *OFF
     C                   EVAL      RRN  = RRN + 1
     C     RRN           CHAIN     SFL1
     C     ITEMNO        CHAIN     SPRINV                             77
     C                   EVAL      ITNUM = ITEMNO
     C                   EVAL      DSCR = DESC
     C                   EVAL      QTYOR = QTYORD
     C                   UPDATE    SFL1
     C     SCRDTA        READE     SPRCOD                                 76
     C                   ENDDO
     C                   ENDSR