// JOB RGSPL0 // RPG RGSPL1 H RGSPL F* 1130 RPG SAMPLE PROGRAM. RGS001 F* THIS PROGRAM PRINTS AN ACCOUNTS RECEIVABLE REGISTER WITH RGS002 F* INVOICE TOTALS . CUSTOMER TOTALS PRINT AS A RESULT OF A CONTROL RGS003 F* BREAK IN COLUMNS 39-43 OF THE INPUT CARD. CORRECT OUTPUT RGS004 F* APPEARS IN ACCOMPANYING DOCUMENTATION. CARDS ARE SORTED ON RGS005 F* COLUMNS 39-43 AND ARE IDENTIFIED BY AN ELEVEN PUNCH IN CARD RGS006 F* COLUMN 1. RGS007 F* RGS008 01010FINPUT IPE F 80 READ42 RGS009 01020FOUTPUT O F 120 OF PRINTER RGS010 02010IINPUT AA 01 1 Z- RGS011 02020I 8 29 NAME RGS012 02030I 30 310MONTH RGS013 02040I 32 330DAY RGS014 02050I 34 380INVNO RGS015 02060I 39 430CUSTNOL1 RGS016 02070I 44 450STATE RGS017 02080I 46 480CITY RGS018 02090I 74 802INVAMT RGS019 03010C 01 INVAMT ADD TOTAL TOTAL 82 RGS020 03020C 01 INVAMT ADD GRPTOT GRPTOT 82 RGS021 04010OOUTPUT H 201 1P RGS022 04020O OR OF RGS023 04030O 53 ' A C C O U N T S R' RGS024 04040O 77 ' E C E I V A B L E R E ' RGS025 04050O 88 'R E G I S T E R' RGS026 04060O H 1 1P RGS027 04070O OR OF RGS028 04080O 25 'CUSTOMER' RGS029 04090O 80 'LOCATION INVOICE' RGS030 04100O 109 'INVOICE DATE INVOICE' RGS031 04110O H 2 1P RGS032 04120O OR OF RGS033 04130O 42 'NUMBER CUSTOMER ' RGS034 04140O 46 'NAME' RGS035 04150O 79 'STATE CITY NUMBER' RGS036 04160O 108 'MO DAY AMOUNT' RGS037 05010O D 2 01 RGS038 05020O CUSTNOZ 22 RGS039 05030O NAME 53 RGS040 05040O STATE Z 59 RGS041 05050O CITY Z 67 RGS042 05060O INVNO Z 79 RGS043 05070O MONTH Z 89 RGS044 05080O DAY Z 97 RGS045 05090O INVAMT 109 '$ , 0. ' RGS046 05100O T 2 L1 RGS047 05110O GRPTOT B 109 '$ , 0. ' RGS048 05120O 110 '*' RGS049 05130O T 2 LR RGS050 05140O TOTAL 109 '$ , 0. ' RGS051 05150O 111 '**' RGS052 /* // XEQ L R - AMALGAMATED CORP 1110116031071233061 0038925 - BROWN WHOLESALE 1228123241131530231 0080208 - BROWN WHOLESALE 1214995881131530231 0026117 - FARM IMPLEMENTS 1018109011189747077 0002763 - BLACK OIL 1108115091853016067 0059295 - BLACK OIL 1223122921853016067 0095097 - LEATHER BELT CO 1108115112071636471 0033563 - LEATHER BELT CO 1217122632071636471 0012175 - GENERAL MFG CO 1114116152901706063 0044012 - GENERAL MFG CO 1123116762901706063 0072222 - A-B-C DIST CO 0911096892905425039 0064540 - A-B-C DIST CO 1111116052905425039 0027169 - A-B-C DIST CO 1214122342905425039 0055933 /* 1---5----0----5----0----5----0----5----0----5----0----5----0----5----0--3++++++0 Anzahl Karten: 72