Columns . . . :                     Edit                        GOLFP/SRCFILE 
 SEU==>_______________________________________________________           PGM23 
 FMT H  HKeywords++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
        *************** Beginning of data ************************************* 
     H
     F*-----------------------------------------------------------------------
     F*- This is program 23 Customer Master File Listing  ©              ---
     F*-                  Author:  Browning, 2/25/99                       ---
     F*-                                                                   ---
     F*-                 PURPOSE:  To prepare a program to convert data    ---
     F*-                           from one file structure to another      ---
     F*-                                                                   ---
     F*-                                                                   ---
     F*-              INDICATORS:  70-- READ SPRSBI                        ---
     F*-                           90-- READ OLDSBI                        ---
     F*-                                                                   ---
     F*-        Associated Files:  OLDSBI -- Old sales by item file        ---
     F*-                           SPRSBI -- Sales by item file            ---
     F*-----------------------------------------------------------------------
     F*ILENAME++IPEASFRlen+LKlen+AIDevice+.Keywords+++++++++++++++++++++++++
     FSPRSBI    UF A E           K DISK
     FOLDSBI    IF   F  474     5AIDISK
     D*AME+++++++++++ETDsFrom+++To/L+++IDc.keywords+++++++++++++++++++++++++
     D X               S              2S 0
     D*-------------------------------------------------
     D                 DS
     D MONTHS                        36    DIM(13)
     D MASS                    1    468
     D*-------------------------------------------------
     D SPLIT           DS
     D   GRSSAL2                      9S 0
     D   NUMSLD                       6S 0
     D   SBIPRO2                      9S 0
     D   SBINR2                       6S 0
     D   NUMPUR                       6S 0
     I*ilename++SqNORiPos1+NCCPos2+NCCPos3+NCC..............................
     I*.......................Fmt+SPFrom+To+++DcField+++++++++L1M1FrPlMnZr..
     IOLDSBI    NS
     I                                  1    5  ITMNO
     I                                  6  473  MASS
     I                                474  474  DELCOD
     C*0N01FACTOR1+++++++OPCODE(E)+FACTOR2Extended-FACTOR2++++++++++++++++++
     C                   READ      OLDSBI                                 90
     C                   DOW       *IN90 = *OFF
     C                   EVAL      X = 0
     C                   DO        13            X
     C                   IF        X = 1
     C                   EVAL      MON = 13
     C                   ELSE
     C                   EVAL      MON = X - 1
     C                   ENDIF
     C*0N01FACTOR1+++++++OPCODE(E)+FACTOR2+++++++RESULT++++++++LEN++D+HILOEQ
     C                   MOVEA     MONTHS(X)     SPLIT
     C                   MOVE      GRSSAL2       GRSSAL
     C                   MOVE      SBIPRO2       SBIPRO
     C     SEARCH        KLIST
     C                   KFLD                    ITMNO
     C                   KFLD                    MON
     C     SEARCH        CHAIN     SPRSBI                             70
     C                   WRITE     SALITM
     C                   ENDDO
     C*-------------------------------------------------
     C                   READ      OLDSBI                                 90
     C                   ENDDO
     C                   EVAL      *INLR = *ON
     C                   RETURN