Columns . . . :                     Edit                         GOLFP/SRCFILE 
 SEU==>_______________________________________________________           PGMC24 
 FMT H  HKeywords++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
        *************** Beginning of data ************************************* 
     H
     F*---------------------------------------------------------------------
     F*- This is program C24  Process orders shipped Module 2 ©          -
     F*-                                                                   -
     F*-                  Author:  Browning, 04/11/99                      -
     F*-                                                                   -
     F*-                 PURPOSE:  Print a packing slip for the order      -
     F*-                           B24 passes data to this module from     -
     F*-                           the main prigram(24) other data is      -
     F*-                           pulled from PF files.                   -
     F*-                                                                   -
     F*-              INDICATORS:  90-- SETLL SPRHED                       -
     F*-                                                                   -
     F*-        Associated Files:  PGMP24 - Printer file                   -
     F*-                                                                   -
     F*---------------------------------------------------------------------
     F*ILENAME++IPEASFRlen+LKlen+AIDevice+.Keywords+++++++++++++++++++++++++
     FSPRINV    IF   E           K Disk
     FSPRCMF    IF   E           K Disk
     FSPRHED    IF   E             Disk
     FPGMP24    O    E             PRINTER
     D*AME+++++++++++ETDsFrom+++To/L+++IDc.keywords+++++++++++++++++++++++++
     D CUSTNO2         S              4A
     D ORDNO2          S              4A
     D SHIPDT2         S               D   DATFMT(*ISO)
     D SHIPWT2         S              4S 0
     D*------------------------------------------------
     D SCREEN          DS                  OCCURS(30)
     D ITNUM                          5
     D DSCR                          15
     D QTYOR                          4S 0
     D QTYSH                          4S 0
     D X               S              2S 0
     D*
     D FLAG            S              1
     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                   READ      SPRHED                                 90
     C                   WRITE     TITLE
     C                   WRITE     SLIPS
     C     CUSTNO2       CHAIN     SPRCMF
     C                   WRITE     SHARE
     C                   IF        STREET = SSTRET
     C                   EVAL      SSTRET = *BLANKS
     C                   EVAL      SCTST = *BLANKS
     C                   EVAL      SNAME = *BLANKS
     C                   EVAL      SZIP = *BLANKS
     C                   WRITE     PACK
     C                   ELSE
     C                   WRITE     PACK
     C                   ENDIF
     C                   WRITE     LINE
     C                   WRITE     HEAD1
     C*0N01FACTOR1+++++++OPCODE(E)+FACTOR2+++++++RESULT++++++++LEN++D+HILOEQ
     C                   DO        30            X
     C     X             OCCUR     SCREEN
     C                   IF        ITNUM = *BLANKS
     C                   LEAVE
     C                   ENDIF
     C     ITNUM         CHAIN     SPRINV
     C                   IF        QTYOR  <  QTYSH
     C                   EVAL      FLAG = '*'
     C                   ELSE
     C                   EVAL      FLAG = ' '
     C                   ENDIF
     C                   WRITE     DETPAK
     C                   ENDDO
     C                   WRITE     BOITEMS
     C                   EVAL      *INLR = *ON
     C                   RETURN