REG
TABLE       DSECT
TITLE       DS      CL5
ORDERNUM    DS      CL8
COST        DS      CL4
TABLENTR    DS      0H
TITLENTR    DS      CL15
ORDERNUMNT  DS      CL6
COSTNTR     DS      CL6
LTBLENTRY   EQU     *-TABLENTR
            DS      (4*LTBLENTRY)CL1
LTABLE      EQU     *-TABLE
CNTELTBL    EQU     LTABLE/LTBLENTRY
MAIN        CSECT
            STM     R14,R12,R12(R13)
            LR      R12,R15
            USING   MAIN,R12
            ST      R13,SAVE+4
            LA      R11,SAVE
            L       R11,8(R13)
            OPEN    (IN,(INPUT))
            OPEN    (OUT,(OUTPUT))
            LA      R7,WTABLE
            USING   TABLE,R7
            LA      R2,CNTELTBL
            MVC     TITLE,=C'TITLE'
            MVC     ORDERNUM,=C'ORDERNUM'
            MVC     COST,=C'COST'
LOOP        EQU     *
            MVI     LINE,C' '
            MVC     LINE+1(L'LINE-1),LINE
            GET     IN,INLINE
            MVC     TITLENTR,LINE
            MVI     LINE,C' ' '
            MVC     LINE+1(L'LINE-1),LINE
            GET     IN,INLINE
            TRT     LINE(6),TESTNUM
            BZ      ORDER_OR
            MVC     ORDERNUMNT(5),=C'ERROR'
            B       READCOST
ORDER_OK    EQU     *
            MVC     ORDERNUMNT,LINE
READCOST    EQU     *
            MVI     LINE,C' '
            MVC     LINE+1(L'LINE-1),LINE
            GET     IN,INLINE
            TRT     LINE(3),TESTNUM
            BZ      COST_OK
            MVC     COSTNTR(5),=C'ERROR'
            B       NEXTNTR
COST_OK     EQU     *
            LA      R7,LTBLENTRY(,R7)
            BCT     R2,LOOP
EOF         EQU     *
            LA      R7,WTABLE
            USING   TABLE,R7
            LA      R2,CNTELTBL
            MVC     LINETITLE(L'TITLE),TITLE
            MVC     LINEORDER(L'ORDERNUM),ORDERNUM
            MVC     LINECOST(L'COST),COST
            PUT     OUT,OUTLINE
WHILEOUT    EQU     *
            MVI     LINETITLE,C' '
            MVC     LINETITLE+1(L'LINETITLE-1),LINETITLE
            MVI     LINEORDER,C' '
            MVC     LINEORDER+1(L'LINEORDER-1),LINEORDER
            MVI     LINECOST,C' '
            MVC     LINECOST+1(L'LINECOST-1),LINECOST
            MVC     LINETITLE(L'TITLENTR),TITLENTR
            MVC     LINEORDER(L'ORDERNUMNT),ORDERNUMNT
            MVC     LINECOST(L'COSTNTR),COSTNTR
            PUT     OUT,OUTLINE
            LA      R7,LTBLENTRY(,R7)
            BCT     R2,WHILEOUT
            CLOSE   OUT
            CLOSE   IN
            L       R13,SAVE+4
            LM      R14,R12,R12(R13)
            LA      R15,0
            BR      R14
TESTNUM     DC      256X'FF'
            ORG     TESTNUM+X'F0'
            DC      10X'00'
            ORG
WTABLE      DS      (LTABLE)CL1
INLINE      DS      0CL80
LINE        DS      CL20
            DS      CL60' '
SAVE        DS      18F
OUTLINE     DS      0CL80
LINETITLE   DS      CL20
            DC      CL6' '
LINEORDER   DS      CL20
            DS      CL6' '
LINECOST    DS      CL20
            DC      CL8' '
OUT         DCB     DDNAME=FOUT,DSORG=PS,MACRF=PM,LRECL=80
IN          DCB     DDNAME=FIN,DSORG=PS,MACRF=GM,LRECL=80,EODAD=EOF
            LTORG
            END     MAIN