ITXIL003 CSECT * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * AUTHOR: RUSSELL SNYDER * * INSTALLATION: CHASE TEXAS * * DATE WRITTEN: 04/06/98 * * PGM DESCRIPTION: THIS PGM READS A RECORD AND WRITES A RECORD AND * * I GOT PAID TO WRITE IT. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * EJECT * ************************ * * REGISTER EQUATES * * ************************ BASE EQU 12 BASE REGISTER R0 EQU 00 R1 EQU 01 R2 EQU 02 R3 EQU 03 R4 EQU 04 R5 EQU 05 R6 EQU 06 R7 EQU 07 R8 EQU 08 R9 EQU 09 R10 EQU 10 R11 EQU 11 R12 EQU 12 R13 EQU 13 R14 EQU 14 R15 EQU 15 RE EQU 15 EJECT * ************************ * * STANDARD LINKAGE * * ************************ ITXIL003 CSECT CSECT ADDRESSABILITY PRINT NOGEN DONT PRINT MACRO INSTRUCTIONS STM R14,R12,12(R13) SAVE CALLERS REGSISTERS LR BASE,R15 PUT ENTRY POINT IN BASE REG USING ITXIL003,BASE DECLARE CSECT ADDRESSABILITY B $ENTRY BRANCH AROUND CORE MARK DC C' ITXIL003 ' PGM NAME DC C' RUSSELL SNYDER' PGM AUTHOR DC C' &SYSDATE' PGM ASSEMBLY DATE DC C' &SYSTIME' PGM ASSEMBLY TIME $ENTRY DS 0H ST R13,SAVEAREA+4 SAVE ADDR OF CALLERS SAVE AREA LA R13,SAVEAREA LOAD ADDRESS OF OUR SAVE AREA EJECT * ************************ * * OPEN INPUT * * ************************ OPEN1 DS 0H OPEN (SYSUT1,(INPUT)) TM SYSUT1+48,X'10' Q- OPEN OK BO OPEN2 Y- SKIP ABEND ABEND 101 N- ABEND EJECT * ************************ * * OPEN OUTPUT * * ************************ OPEN2 DS 0H OPEN (SYSUT2,(OUTPUT)) TM SYSUT2+48,X'10' Q- OPEN OK BO READ Y- SKIP ABEND ABEND 102 N- ABEND EJECT * ************************ * * READ A RECORD * * ************************ READ DS 0H GET SYSUT1,ILOCREC READ A RECORD ZAP ILOCDDA,=P'1' DUMMY OUT ACCT NBR PUT SYSUT2,ILOCREC WRITE A RECORD B CLOSE WE ARE DONE NOW EJECT * ************************ * * FILE IS EMPTY * * ************************ EMPTY DS 0H ABEND 103 ABEND EJECT * *************************** * * AT IMAGE END OF FILE * * *************************** CLOSE DS 0H CLOSE SYSUT1 CLOSE SYSUT2 EJECT * * ************************ * * PGM EXIT * * ************************ RETURN DS 0H PGM EXIT L R13,SAVEAREA+4 ADDRESS OF CALLERS SAVEAREA LM R14,R12,12(R13) RESTORE CALLERS REGISTERS SR R15,R15 SET RETURN CODE BR R14 RETURN TO CALLER LTORG , LITERAL POOL EJECT * ******************************** * * VARIABLES, CONSTANTS, MISC * * ******************************** DS 0F VARIABLES, CONSTANTS, MISC. SAVEAREA DC 18F'0' REG SAVE AREA DBLWRK DS D A DBL WORD EJECT * ************************ * * DCBS * * ************************ SYSUT1 DCB DSORG=PS, C MACRF=(GM), C EODAD=EMPTY, C DDNAME=SYSUT1 * SYSUT2 DCB DSORG=PS, C MACRF=(PM), C DDNAME=SYSUT2 EJECT * ************************ * * ILF RECORD LAYOUT * * ************************ ILOCREC DS 0CL90 ITEM LOCATOR EXTRACT RECORD ILOCFNEN DC CL2'04' FINANCIAL ENTITY ILOCSEQ DC PL6'0' CPCS SEQUENCE NUMBER DC PL5'0' DDA ACCOUNT ILOCSER DC PL6'0' CHECK NUMBER ILOCABA DC PL5'0' FILM NUMBER/ OR ABA NUMBER ILOCDDA DC PL9'0' DDA ACCOUNT ILOCTC DC PL4'0' TRANSATION CODE ILOCAMT DC PL6'0' DOLLAR AMOUNT ILOCPKT DC PL2'0' MOD POCKET ILOCPRCD DC CL6'0' PRODUCT CODE DC XL1'0' FILLER ILOCFLGS DC CL1'T' ILOC TEXAS FLAGS ILOCACTV DC PL3'0' ACTIVITY ID ILOCNTRN DC PL2'0' NEW TRAN CODE ILOCCYC DC PL2'0' CYCLE CODE ILOCOTRN DC PL2'0' OLD TRAN CODE ILOCSRT DC PL2'0' SORTER NUMBER ILOCBOX DC PL2'0' BOX NUMBER ILOCDIV DC PL4'0' DIVIDER DOCUMENT NUMBER ILOCITM DC PL3'0' ITEMS SEQUENCE WITHIN DIVIDER DC PL6'0' FILLER ILOCRDTE DC XL3'00' RUN DATE ILOCPDTE DC XL3'00' POSTING DATE ILOCFLG DC PL1'0' 0-MATCHED 1-MISSING ILOCDCYC DC XL4'0' DDA CYCLE CODE * END