Columns . . . :                     Edit                         GOLFP/SRCFILE 
 SEU==>_______________________________________________________          PGMA24 
 FMT H  HKeywords++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
        *************** Beginning of data ************************************* 
     H
     F*---------------------------------------------------------------------
     F*- THIS IS MODULE A, LINKED TO PROCESS ORDERS SHIPPED - PGM24  © --
     F*-                                                                 --
     F*-                  AUTHOR: JOHN BROWNING, 02/28/99                --
     F*-                                                                 --
     F*-                 PURPOSE:  TO COLLECT THE DATA FROM SPCOSD(SCRN1)--
     F*-                           VERIFY THAT DATA, AND RETURN THE      --
     F*-                           DATA TO PGM24 TO PROCESS.             --
     F*-                                                                 --
     F*-              INDICATORS:  03-- EXIT                             --
     F*-                           46-- INVALID DATA, MISSING FIELD(S)   --
     F*-                           47-- INVALID CUSTOMER NUMBER          --
     F*-                           48-- INVALID ORDER NUMBER             --
     F*-                           66-- READ SPRHED                      --
     F*-                           70-- CHAIN SPRCMF                     --
     F*-                           71-- CHAIN SPRCOD                     --
     F*-                           90-- READE SPRCOD                     --
     F*-                                                                 --
     F*-        ASSOCIATED FILES:  SPRCOD1-- CUSTOMER ORDER DETAIL       --
     F*-                           SPRHED -- HEADER FILE                 --
     F*-                           SPRCMF -- CUSTOMER MASTER FILE        --
     F*-                           SPCOSD -- DSPF                        --
     F*-                                                                 --
     F*ILENAME++IPEASFRlen+LKlen+AIDevice+.Keywords+++++++++++++++++++++++++
     FSPRHED    IF   E             DISK
     FSPRCOD1   IF   E           K DISK
     FSPRCMF    IF   E           K DISK
     FSPCOSD    CF   E             WORKSTN
     D*AME+++++++++++ETDsFrom+++To/L+++IDc.keywords+++++++++++++++++++++++++
     D*
     D IS_F_ON         S              1A
     D CUSTNO2         S              4A
     D ORDNO2          S              4A
     D SHIPDT2         S               D   DATFMT(*ISO)
     D SHIPWT2         S              4S 0
     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                    IS_F_ON
     C     SCRDTA        KLIST
     C                   KFLD                    CUSTNO2
     C                   KFLD                    ORDNO2
     C                   EVAL      IS_F_ON = 'N'
     C*0N01FACTOR1+++++++OPCODE(E)+FACTOR2Extended-FACTOR2++++++++++++++++++
     C                   EVAL      *IN47 = *OFF
     C                   EVAL      *IN48 = *OFF
     C                   READ      SPRHED                                 66
     C                   DOU       *IN47 = *OFF AND *IN48 = *OFF
     C                   IF        *IN47 = *OFF AND *IN48 = *OFF
     C                   CLEAR                   CUSTNO2
     C                   CLEAR                   ORDNO2
     C                   CLEAR                   SHIPDT2
     C                   CLEAR                   SHIPWT2
     C                   ENDIF
     C                   EXFMT     SCRN1
     C                   EVAL      *IN47 = *OFF
     C                   EVAL      *IN48 = *OFF
     C                   IF        *IN03 = *ON
     C                   EVAL      IS_F_ON = 'Y'
     C                   LEAVE
     C                   ELSE
     C                   EXSR      CHECK
     C                   IF        *IN47 = *ON OR *IN48 = *ON
     C                   ITER
     C                   ENDIF
     C                   ENDIF
     C                   ENDDO
     C                   EVAL      *INLR = *ON
     C                   RETURN
     C*0N01FACTOR1+++++++OPCODE(E)+FACTOR2+++++++RESULT++++++++LEN++D+HILOEQ
     C     CHECK         BEGSR
     C     CUSTNO2       CHAIN     SPRCMF                             70
     C                   IF        *IN70 = *ON
     C                   EVAL      *IN47 = *ON
     C                   ELSE
     C                   EVAL      *IN48 = *OFF
     C                   ENDIF
     C     SCRDTA        CHAIN     SPRCOD1                            71
     C                   IF        *IN71 = *ON
     C                   EVAL      *IN48 = *ON
     C                   ELSE
     C                   EVAL      *IN48 = *OFF
     C                   ENDIF
     C                   ENDSR