// COPY LIBRARY-P,NAME-CONNIE,DATE-07/01/09,TIME-1100 JF1213 JF1214 JF1215 JF1216 JF1217 JF1218 // CEND // COPY LIBRARY-P,NAME-JFXX32,RECL-096,DATE-10/01/07,TIME-2108 // LOAD JFXX32 // SWITCH 00000001 OVRPRTF FILE(PRT) USRDTA('INVOICES') // PRINTER NAME-PRT,FORMSNO-INVC // FILE NAME-XINVC,LABEL-?WS?XINVC // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-MISCUS,LABEL-?L'100,2'?MISCUS,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-PRCTAB,LABEL-?L'100,2'?PRCTAB,DISP-SHR // FILE NAME-BSEHSE,LABEL-?L'100,2'?BSEHSE,DISP-SHR // FILE NAME-HOUSE,LABEL-?L'100,2'?HOUSE,DISP-SHR // FILE NAME-MESAGE,LABEL-?L'100,2'?MESAGE,DISP-SHR // FILE NAME-XHINV,LABEL-?WS?XHINV // FILE NAME-XREC,LABEL-?WS?XREC // RUN // CEND // COPY LIBRARY-P,NAME-JFX163,RECL-096,DATE-10/01/07,TIME-2115 // * 'CHANGE REPRINT INVOICES - 1% PHILA TAX' // * 'PRESS ENTER TO CONTINUE' // IF ?R?='X' GOTO START // TAG START JF0099 JF0164 JF1192 JF1193 JF1194 JF1195 JF1193 JF1196 JFX165 // CEND // COPY LIBRARY-P,NAME-JFX165,RECL-096,DATE-10/01/07,TIME-2108 // LOAD JFXX32 // SWITCH 00000001 OVRPRTF FILE(PRT) USRDTA('INVOICES') // PRINTER NAME-PRT,FORMSNO-INVC // FILE NAME-XINVC,LABEL-?WS?XXINV,RETAIN-S // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-MISCUS,LABEL-?L'100,2'?MISCUS,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-PRCTAB,LABEL-?L'100,2'?PRCTAB,DISP-SHR // FILE NAME-BSEHSE,LABEL-?L'100,2'?BSEHSE,DISP-SHR // FILE NAME-HOUSE,LABEL-?L'100,2'?HOUSE,DISP-SHR // FILE NAME-MESAGE,LABEL-?L'100,2'?MESAGE,DISP-SHR // FILE NAME-XHINV,LABEL-?WS?XHINV // FILE NAME-XREC,LABEL-?WS?XREC // RUN // CEND // COPY LIBRARY-P,NAME-JFX223,RECL-096,REF-000003,DATE-10/01/07,TIME-2113 // * 'PRINT INVOICES FROM LOADS - 1% PHILA TAX' // * 'PRESS ENTER TO CONTINUE' // IF ?R?='X' GOTO START // TAG START JF0031 JF0748 JF0749 JF1192 JF1193 JF1194 JFXX32 // CEND // COPY LIBRARY-P,NAME-JF0001,RECL-096,REF-000001,DATE-01/03/27,TIME-1256 // LOAD JF0001 // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0002,RECL-096,REF-000001,DATE-01/06/19,TIME-1013 // LOAD JF0002 OVRPRTF FILE(PRT) USRDTA('CUST LIST') // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0003,RECL-096,REF-000001,DATE-01/03/23,TIME-1220 // LOAD JF0003 // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0004,RECL-096,DATE-01/03/23,TIME-1220 // LOAD JF0004 // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0005,RECL-096,REF-000002,DATE-01/03/23,TIME-1220 // LOAD JF0005 // IF ?L'100,2'?='JF' SWITCH 10000000 // IFF ?L'100,2'?='JF' SWITCH 01000000 // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // IF ?L'100,2'?='JF' FILE NAME-SBPROD,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0006,RECL-096,DATE-01/03/23,TIME-1220 // LOAD JF0006 // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0007,RECL-096,DATE-01/03/23,TIME-1220 // LOAD JF0007 // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0008,RECL-096,DATE-01/03/23,TIME-1220 // LOAD JF0008 // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0009,RECL-096,DATE-01/03/23,TIME-1220 // LOAD JF0009 // SWITCH 10000000 // FILE NAME-HOUSE,LABEL-?L'100,2'?HOUSE,DISP-SHR,EXTEND-5000 // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-BSEHSE,LABEL-?L'100,2'?BSEHSE,DISP-SHR,EXTEND-200 // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-XHSSL,LABEL-?WS?XHSSL,RECORDS-500 // FILE NAME-CHGHS,LABEL-?L'100,2'?CHGHS,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0010,RECL-096,DATE-01/03/23,TIME-1220 // LOAD JF0010 // SWITCH 10000000 // FILE NAME-HOUSE,LABEL-?L'100,2'?HOUSE,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-BSEHSE,LABEL-?L'100,2'?BSEHSE,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-CHGHS,LABEL-?L'100,2'?CHGHS,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0011,RECL-096,DATE-01/03/23,TIME-1220 // LOAD JF0011 // SWITCH 00000001 // FILE NAME-HOUSE,LABEL-?L'100,2'?HOUSE,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-XADHS,LABEL-?WS?XADHS,RECORDS-5000 // FILE NAME-CHGHS,LABEL-?L'100,2'?CHGHS,DISP-SHR // FILE NAME-XHSSL,LABEL-?WS?XHSSL,RECORDS-1000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0012,RECL-096,DATE-01/03/23,TIME-1220 // LOAD JF0012 // SWITCH 10000001 // FILE NAME-HOUSE,LABEL-?L'100,2'?HOUSE,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-XHSSL,LABEL-?WS?XHSSL,RECORDS-500 // FILE NAME-HSECHG,LABEL-?L'100,2'?HSECHG,DISP-SHR,EXTEND-2000 // FILE NAME-CHGHS,LABEL-?L'100,2'?CHGHS,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0013,RECL-096,REF-000001,DATE-01/03/23,TIME-1220 // LOAD JF0013 // SWITCH 00000001 // FILE NAME-HOUSE,LABEL-?L'100,2'?HOUSE,DISP-SHR // FILE NAME-HSECHG,LABEL-?L'100,2'?HSECHG,DISP-SHR,EXTEND-1000 // FILE NAME-CHGHS,LABEL-?L'100,2'?CHGHS,DISP-SHR // FILE NAME-XHSSL,LABEL-?WS?XHSSL,RECORDS-3000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0014,RECL-096,DATE-01/10/08,TIME-1441 // LOAD JF0014 OVRPRTF FILE(PRT) USRDTA('HOUSE SUMM') // SWITCH 10000000 // FILE NAME-HOUSE,LABEL-?L'100,2'?HOUSE,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0015,RECL-096,REF-000002,DATE-05/06/23,TIME-0859 // LOAD JF0015 // FILE NAME-HOUSE,LABEL-?L'100,2'?HOUSE,DISP-SHR // FILE NAME-XHSEL,LABEL-?WS?XHSEL,RECORDS-30000 // FILE NAME-XHSCH,LABEL-?WS?XHSCH,RECORDS-1 // RUN // CEND // COPY LIBRARY-P,NAME-JF0016,RECL-096,REF-000002,DATE-05/06/23,TIME-0859 // LOAD JF0016 OVRPRTF FILE(PRT1) USRDTA('HOUSE DET') OVRPRTF FILE(PRT2) USRDTA('HOUSE DET') // IF ?L'201,1'?='2' SWITCH 10000001 // IFF ?L'201,1'?='2' SWITCH 10000010 ***** // IF ?L'201,1'?='2' PRINTER NAME-PRT2,FORMSNO-8X14 ***** // IFF ?L'201,1'?='2' PRINTER NAME-PRT1 // IF ?L'201,1'?='2' GOTO PRINT2 // IF ?WS?='X8' PRINTER NAME-PRT1,FONT-DF // IFF ?WS?='X8' PRINTER NAME-PRT1 // GOTO BEGIN // TAG PRINT2 // IF ?WS?='X8' PRINTER NAME-PRT2,FORMSNO-8X14,FONT-DF // IFF ?WS?='X8' PRINTER NAME-PRT2,FORMSNO-8X14 // TAG BEGIN // FILE NAME-XHSEL,LABEL-?WS?XHSEL,RETAIN-S // FILE NAME-XHSCH,LABEL-?WS?XHSCH,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-BSEHSE,LABEL-?L'100,2'?BSEHSE,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-PRCTAB,LABEL-?L'100,2'?PRCTAB,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0017,RECL-096,DATE-06/11/10,TIME-1223 // LOAD JF0017 // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-PRCTAB,LABEL-?L'100,2'?PRCTAB,DISP-SHR // FILE NAME-HOUSE,LABEL-?L'100,2'?HOUSE,DISP-SHR // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-RELSHT,LABEL-?L'100,2'?RELSHT,DISP-SHR // FILE NAME-ORDER,LABEL-?L'100,2'?ORDER,DISP-SHR // FILE NAME-XLODRF,LABEL-?WS?XLODRF,RECORDS-5000 // FILE NAME-XMSCSR,LABEL-?WS?XMSCSR,RECORDS-400 // RUN // CEND // COPY LIBRARY-P,NAME-JF0018,RECL-096,DATE-01/06/19,TIME-1109 // LOAD JF0018 OVRPRTF FILE(PRT) USRDTA('LOADS') // SWITCH 10000000 // PRINTER NAME-PRT,FORMSNO-LOAD // FILE NAME-XLOAD,LABEL-?WS?XLODRP,RETAIN-S // FILE NAME-XLMES,LABEL-?WS?XLMES,RETAIN-S // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-MISCUS,LABEL-?WS?XMSCSR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-PRCTAB,LABEL-?L'100,2'?PRCTAB,DISP-SHR // FILE NAME-MESAGE,LABEL-?L'100,2'?MESAGE,DISP-SHR // FILE NAME-CUSMAP,LABEL-?L'100,2'?CUSMAP,DISP-SHR // FILE NAME-LOAD,LABEL-?WS?XLOADR // RUN // CEND // COPY LIBRARY-P,NAME-JF0019,RECL-096,DATE-06/04/13,TIME-0802 // LOAD JF0019 // FILE NAME-XLOADF,LABEL-?WS?XLODRF,RETAIN-S // FILE NAME-HOUSE,LABEL-?L'100,2'?HOUSE,DISP-SHR // FILE NAME-XLOAD,LABEL-?WS?XLOADR,RECORDS-15000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0020,RECL-096,DATE-06/03/27,TIME-1006 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XLOADR // FILE NAME-OUTPUT,LABEL-?WS?XLODRS,RECORDS-5000 // RUN HSORTR 12A 3X 100 I C 10EQCF FNC 11 16 FNU 1 6 FDC 1 100 // END // CEND // COPY LIBRARY-P,NAME-JF0021,RECL-096,REF-000001,DATE-01/03/23,TIME-1220 // LOAD JF0021 // SWITCH 10000000 // PRINTER NAME-PRT,COPIES-1 // FILE NAME-XLOADS,LABEL-?WS?XLODRS,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-XMSCS,LABEL-?WS?XMSCSR,RETAIN-S // FILE NAME-XLOAD,LABEL-?WS?XLOADR // RUN // CEND // COPY LIBRARY-P,NAME-JF0022,RECL-096,DATE-01/03/23,TIME-1220 // LOAD JF0022 // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-XDLOAD,LABEL-?WS?XDLOAD,RECORDS-5000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0023,RECL-096,DATE-03/12/04,TIME-1258 // LOAD JF0023 // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-XDLOAD,LABEL-?WS?XDLOAD,RETAIN-S // RUN // CEND // COPY LIBRARY-P,NAME-JF0024,RECL-096,REF-000001,DATE-01/03/23,TIME-1220 // LOAD JF0024 // SWITCH 10000000 // FILE NAME-HOUSE,LABEL-?L'100,2'?HOUSE,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-BSEHSE,LABEL-?L'100,2'?BSEHSE,DISP-SHR // FILE NAME-HSECHG,LABEL-?L'100,2'?HSECHG,DISP-SHR,EXTEND-2000 // FILE NAME-CHGHS,LABEL-?L'100,2'?CHGHS,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0025,RECL-096,DATE-06/03/27,TIME-1006 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XLOADO // FILE NAME-OUTPUT,LABEL-?WS?XLODOS,RECORDS-5000 // RUN HSORTR 12A 3X 100 I C 10EQCF FNC 11 16 FNU 1 6 FDC 1 100 // END // CEND // COPY LIBRARY-P,NAME-JF0026,RECL-096,DATE-01/03/23,TIME-1220 // LOAD JF0026 // FILE NAME-XLOAD,LABEL-?WS?XLOADR // FILE NAME-XMSCS,LABEL-?WS?XMSCSR // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR,EXTEND-10000 // FILE NAME-MISCUS,LABEL-?L'100,2'?MISCUS,DISP-SHR // FILE NAME-RELSHT,LABEL-?L'100,2'?RELSHT,DISP-SHR,EXTEND-1000 // FILE NAME-INVCB,LABEL-?L'100,2'?INVCB,DISP-SHR,EXTEND-1000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0027,RECL-096,DATE-01/03/23,TIME-1220 // LOAD JF0027 // FILE NAME-XPRXX,LABEL-?WS?XPRXX // FILE NAME-XEMPL,LABEL-?WS?XEMPL // FILE NAME-XFCWG,LABEL-?WS?XFCWG,RETAIN-S // RUN // CEND // COPY LIBRARY-P,NAME-JF0028,RECL-096,DATE-01/03/23,TIME-1220 // LOAD JF0028 // FILE NAME-EMPLYE,LABEL-?L'100,2'?EMPLYE,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0029,RECL-096,REF-000002,DATE-01/03/23,TIME-1220 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XITOR // FILE NAME-OUTPUT,LABEL-?WS?XITORS,RECORDS-15000 // RUN HSORTR 20A 3X 220 FNC 1 2 FNC 3 9 FNU 17 22 FNU 23 25 FNU 26 27 FDC 1 220 // END // CEND // COPY LIBRARY-P,NAME-JF0030,RECL-096,DATE-01/03/23,TIME-1220 // LOAD JF0030 // FILE NAME-XINVC,LABEL-?WS?XINVC // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0031,RECL-096,REF-000002,DATE-11/01/12,TIME-0948 // LOAD JF0031 // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-RECEV,LABEL-?L'100,2'?RECEV,DISP-SHR // FILE NAME-XINVC,LABEL-?WS?XINVC,RECORDS-10000 // FILE NAME-XHINV,LABEL-?WS?XHINV,RECORDS-10000 // FILE NAME-XREC,LABEL-?WS?XREC,RECORDS-3000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0032,RECL-096,DATE-11/01/14,TIME-0825 // LOAD JF0032 // SWITCH 00000101 OVRPRTF FILE(PRT) USRDTA('INVOICES') // PRINTER NAME-PRT,FORMSNO-INVC // FILE NAME-XINVC,LABEL-?WS?XINVC // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-MISCUS,LABEL-?L'100,2'?MISCUS,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-PRCTAB,LABEL-?L'100,2'?PRCTAB,DISP-SHR // FILE NAME-BSEHSE,LABEL-?L'100,2'?BSEHSE,DISP-SHR // FILE NAME-HOUSE,LABEL-?L'100,2'?HOUSE,DISP-SHR // FILE NAME-MESAGE,LABEL-?L'100,2'?MESAGE,DISP-SHR // FILE NAME-XHINV,LABEL-?WS?XHINV // FILE NAME-XREC,LABEL-?WS?XREC // RUN // CEND // COPY LIBRARY-P,NAME-JF0033,RECL-096,DATE-01/06/19,TIME-1316 // LOAD JF0033 OVRPRTF FILE(PRT) USRDTA('INV REG') // SWITCH 10000000 // PRINTER NAME-PRT,FORMSNO-REG // FILE NAME-XREC,LABEL-?WS?XREC,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-RECEV,LABEL-?L'100,2'?RECEV,DISP-SHR // FILE NAME-MISCUS,LABEL-?L'100,2'?MISCUS,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0034,RECL-096,DATE-01/09/24,TIME-1026 // LOAD JF0034 // SWITCH 10000000 // FILE NAME-XXDTRC,LABEL-?WS?XXDTRC,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-INVNOT,LABEL-?L'100,2'?INVNOT,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0035,RECL-096,DATE-01/03/23,TIME-1220 // LOAD JF0035 // SWITCH 10000000 // FILE NAME-XPMTY,LABEL-?WS?XPMTY,RETAIN-S // FILE NAME-RECEV,LABEL-?L'100,2'?RECEV,DISP-SHR // FILE NAME-PYMT,LABEL-?L'100,2'?PYMT,DISP-SHR // FILE NAME-XPMTX,LABEL-?WS?XPMTX,RECORDS-3000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0036,RECL-096,DATE-01/03/23,TIME-1220 // LOAD JF0036 // FILE NAME-XPMTX,LABEL-?WS?XPMTX,RETAIN-S // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0037,RECL-096,DATE-01/03/23,TIME-1220 // LOAD JF0037 // SWITCH 10000000 // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-RECEV,LABEL-?L'100,2'?RECEV,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0038,RECL-096,REF-000001,DATE-01/03/23,TIME-1220 // LOAD JF0038 // PRINTER NAME-PRT,FORMSNO-8X11 // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0039,RECL-096,DATE-01/03/23,TIME-1220 // LOAD JF0019 // FILE NAME-XLOADF,LABEL-?WS?XLODOF,RETAIN-S // FILE NAME-HOUSE,LABEL-?L'100,2'?HOUSE,DISP-SHR // FILE NAME-XLOAD,LABEL-?WS?XLOADO,RECORDS-8000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0041,RECL-096,DATE-07/08/07,TIME-1001 // LOAD JF0041 // PRINTER NAME-PRT,FORMSNO-STMT // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-XXSTMT,LABEL-?WS?XXSTMT,RETAIN-S // FILE NAME-XSMES,LABEL-?WS?XSMES,RETAIN-S // FILE NAME-MESAGE,LABEL-?L'100,2'?MESAGE,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0042,RECL-096,REF-000003,DATE-07/08/29,TIME-0914 // LOAD JF0042 // SWITCH 10100000 *****// IF ?WS?='X8' PRINTER NAME-PRT,FONT-DF // FILE NAME-XRECSM,LABEL-?WS?XRECSM,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-UNCASH,LABEL-?L'100,2'?UNCASH,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0043,RECL-096,DATE-01/03/23,TIME-1220 // LOAD JF0043 // SWITCH 10000000 // FILE NAME-XLOADO,LABEL-?WS?XLOADO // RUN // CEND // COPY LIBRARY-P,NAME-JF0044,RECL-096,DATE-01/03/23,TIME-1220 // LOAD JF0044 // SWITCH 10000000 // FILE NAME-XLOADO,LABEL-?WS?XLOADO // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-XADLOD,LABEL-?WS?XADLOD,RECORDS-5000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0045,RECL-096,DATE-01/03/23,TIME-1220 // LOAD JF0045 // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-PROD2,LABEL-?L'100,2'?PROD,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0046,RECL-096,DATE-03/11/11,TIME-1214 // * 'THIS PROCEDURE WILL CREATE ALL NEW EMPTY BILLING SYSTEM FILES' // * ' ' // * 'PLEASE ENTER PASSWORD TO CONTINUE' // IFF ?R?='JOFFEBUILDSBETTERHOUSES' GOTO END // * ' ' // * 'PLEASE ENTER COMPANY CODE OF COMPANY YOU WILL BE CREATING' // LOCAL OFFSET-1,DATA-'?R?',BLANK-2 // IF ?L'1,2'?='JF' GOTO END // IF ?L'1,2'?='SB' GOTO END // * ' ' // * 'DO YOU WISH TO CREATE THE CNTRL FILE ? (Y=YES, ANYTHING ELSE=NO)' // IFF ?R?='Y' GOTO ARCHK // LOAD JF0046 // FILE NAME-CNTRL,LABEL-?L'1,2'?CNTRL,RECORDS-80 // RUN // * ' ' // TAG ARCHK // * 'ENTER NUMBER OF RECORDS (6 NUMBERS-WITH LEADING ZEROS) FOR FILE ARCHK' // * ' (ALL 6 ZEROS MEANS FILE WILL NOT BE CREATED)' // LOCAL OFFSET-3,DATA-'?R?',BLANK-6 // IF ?L'3,8'?='000000' GOTO ARCKBD BLDFILE ?L'1,2'?ARCHK,S,RECORDS,?L'3,8'?,24,,,,,,,?L'3,8'? // * ' ' // TAG ARCKBD // * 'ENTER NUMBER OF RECORDS (6 NUMBERS-WITH LEADING ZEROS) FOR FILE ARCKBD' // * ' (ALL 6 ZEROS MEANS FILE WILL NOT BE CREATED)' // LOCAL OFFSET-3,DATA-'?R?',BLANK-6 // IF ?L'3,8'?='000000' GOTO ASMTMP BLDFILE ?L'1,2'?ARCKBD,S,RECORDS,?L'3,8'?,24,,,,,,,?L'3,8'? // * ' ' // TAG ASMTMP // * 'ENTER NUMBER OF RECORDS (6 NUMBERS-WITH LEADING ZEROS) FOR FILE ASMTMP' // * ' (ALL 6 ZEROS MEANS FILE WILL NOT BE CREATED)' // LOCAL OFFSET-3,DATA-'?R?',BLANK-6 // IF ?L'3,8'?='000000' GOTO BILMAT BLDFILE ?L'1,2'?ASMTMP,S,RECORDS,?L'3,8'?,190,,,,,,,?L'3,8'? // * ' ' // TAG BILMAT // * 'ENTER NUMBER OF RECORDS (6 NUMBERS-WITH LEADING ZEROS) FOR FILE BILMAT' // * ' (ALL 6 ZEROS MEANS FILE WILL NOT BE CREATED)' // LOCAL OFFSET-3,DATA-'?R?',BLANK-6 // IF ?L'3,8'?='000000' GOTO BLMTTM BLDFILE ?L'1,2'?BILMAT,I,RECORDS,?L'3,8'?,21,,,1,10,,,?L'3,8'? // * ' ' // TAG BLMTTM // * 'ENTER NUMBER OF RECORDS (6 NUMBERS-WITH LEADING ZEROS) FOR FILE BLMTTM' // * ' (ALL 6 ZEROS MEANS FILE WILL NOT BE CREATED)' // LOCAL OFFSET-3,DATA-'?R?',BLANK-6 // IF ?L'3,8'?='000000' GOTO BSEHSE BLDFILE ?L'1,2'?BLMTTM,I,RECORDS,?L'3,8'?,21,,,1,10,,,?L'3,8'? // * ' ' // TAG BSEHSE // * 'ENTER NUMBER OF RECORDS (6 NUMBERS-WITH LEADING ZEROS) FOR FILE BSEHSE' // * ' (ALL 6 ZEROS MEANS FILE WILL NOT BE CREATED)' // LOCAL OFFSET-3,DATA-'?R?',BLANK-6 // IF ?L'3,8'?='000000' GOTO CHGCS BLDFILE ?L'1,2'?BSEHSE,I,RECORDS,?L'3,8'?,13,,,1,6,,,?L'3,8'? // * ' ' // TAG CHGCS // * 'ENTER NUMBER OF RECORDS (6 NUMBERS-WITH LEADING ZEROS) FOR FILE CHGCS' // * ' (ALL 6 ZEROS MEANS FILE WILL NOT BE CREATED)' // LOCAL OFFSET-3,DATA-'?R?',BLANK-6 // IF ?L'3,8'?='000000' GOTO CHGHS BLDFILE ?L'1,2'?CHGCS,S,RECORDS,?L'3,8'?,20,,,,,,,?L'3,8'? // * ' ' // TAG CHGHS // * 'ENTER NUMBER OF RECORDS (6 NUMBERS-WITH LEADING ZEROS) FOR FILE CHGHS' // * ' (ALL 6 ZEROS MEANS FILE WILL NOT BE CREATED)' // LOCAL OFFSET-3,DATA-'?R?',BLANK-6 // IF ?L'3,8'?='000000' GOTO CHKFLE BLDFILE ?L'1,2'?CHGHS,S,RECORDS,?L'3,8'?,7,,,,,,,?L'3,8'? // * ' ' // TAG CHKFLE // * 'ENTER NUMBER OF RECORDS (6 NUMBERS-WITH LEADING ZEROS) FOR FILE CHKFLE' // * ' (ALL 6 ZEROS MEANS FILE WILL NOT BE CREATED)' // LOCAL OFFSET-3,DATA-'?R?',BLANK-6 // IF ?L'3,8'?='000000' GOTO CUSMAP BLDFILE ?L'1,2'?CHKFLE,S,RECORDS,?L'3,8'?,50,,,,,,,?L'3,8'? // * ' ' // TAG CUSMAP // * 'ENTER NUMBER OF RECORDS (6 NUMBERS-WITH LEADING ZEROS) FOR FILE CUSMAP' // * ' (ALL 6 ZEROS MEANS FILE WILL NOT BE CREATED)' // LOCAL OFFSET-3,DATA-'?R?',BLANK-6 // IF ?L'3,8'?='000000' GOTO CUSMAS BLDFILE ?L'1,2'?CUSMAP,I,RECORDS,?L'3,8'?,87,,,1,8,,,?L'3,8'? // * ' ' // TAG CUSMAS // * 'ENTER NUMBER OF RECORDS (6 NUMBERS-WITH LEADING ZEROS) FOR FILE CUSMAS' // * ' (ALL 6 ZEROS MEANS FILE WILL NOT BE CREATED)' // LOCAL OFFSET-3,DATA-'?R?',BLANK-6 // IF ?L'3,8'?='000000' GOTO DEPT BLDFILE ?L'1,2'?CUSMAS,I,RECORDS,?L'3,8'?,600,,,1,6,,,?L'3,8'? // * ' ' // TAG DEPT // * 'ENTER NUMBER OF RECORDS (6 NUMBERS-WITH LEADING ZEROS) FOR FILE DEPT' // * ' (ALL 6 ZEROS MEANS FILE WILL NOT BE CREATED)' // LOCAL OFFSET-3,DATA-'?R?',BLANK-6 // IF ?L'3,8'?='000000' GOTO DPINV BLDFILE ?L'1,2'?DEPT,I,RECORDS,?L'3,8'?,200,,,1,2,,,?L'3,8'? // * ' ' // TAG DPINV // * 'ENTER NUMBER OF RECORDS (6 NUMBERS-WITH LEADING ZEROS) FOR FILE DPINV' // * ' (ALL 6 ZEROS MEANS FILE WILL NOT BE CREATED)' // LOCAL OFFSET-3,DATA-'?R?',BLANK-6 // IF ?L'3,8'?='000000' GOTO EMPLYE BLDFILE ?L'1,2'?DPINV,S,RECORDS,?L'3,8'?,71,,,,,,,?L'3,8'? // * ' ' // TAG EMPLYE // * 'ENTER NUMBER OF RECORDS (6 NUMBERS-WITH LEADING ZEROS) FOR FILE EMPLYE' // * ' (ALL 6 ZEROS MEANS FILE WILL NOT BE CREATED)' // LOCAL OFFSET-3,DATA-'?R?',BLANK-6 // IF ?L'3,8'?='000000' GOTO GLFILE BLDFILE ?L'1,2'?EMPLYE,I,RECORDS,?L'3,8'?,350,,,1,5,,,?L'3,8'? ***SAVE ?L'1,2'?GLFILE,,,JOFFE,TC,,,,,,,LEAVE // * ' ' // TAG GLFILE // * 'ENTER NUMBER OF RECORDS (6 NUMBERS-WITH LEADING ZEROS) FOR FILE GLFILE' // * ' (ALL 6 ZEROS MEANS FILE WILL NOT BE CREATED)' // LOCAL OFFSET-3,DATA-'?R?',BLANK-6 // IF ?L'3,8'?='000000' GOTO GLPMP BLDFILE ?L'1,2'?GLFILE,I,RECORDS,?L'3,8'?,224,,,1,6,,,?L'3,8'? ***SAVE ?L'1,2'?GLPMT,,,JOFFE,TC,,,,,,,LEAVE // * ' ' // TAG GLPMT // * 'ENTER NUMBER OF RECORDS (6 NUMBERS-WITH LEADING ZEROS) FOR FILE GLPMT' // * ' (ALL 6 ZEROS MEANS FILE WILL NOT BE CREATED)' // LOCAL OFFSET-3,DATA-'?R?',BLANK-6 // IF ?L'3,8'?='000000' GOTO GLTRAN BLDFILE ?L'1,2'?GLPMT,S,RECORDS,?L'3,8'?,54,,,,,,,?L'3,8'? ***SAVE ?L'1,2'?GLTRAN,,,JOFFE,TC,,,,,,,LEAVE // * ' ' // TAG GLTRAN // * 'ENTER NUMBER OF RECORDS (6 NUMBERS-WITH LEADING ZEROS) FOR FILE GLTRAN' // * ' (ALL 6 ZEROS MEANS FILE WILL NOT BE CREATED)' // LOCAL OFFSET-3,DATA-'?R?',BLANK-6 // IF ?L'3,8'?='000000' GOTO HCRED BLDFILE ?L'1,2'?GLTRAN,S,RECORDS,?L'3,8'?,24,,,,,,,?L'3,8'? ***SAVE ?L'1,2'?HCRED,,,JOFFE,TC,,,,,,,LEAVE // * ' ' // TAG HCRED // * 'ENTER NUMBER OF RECORDS (6 NUMBERS-WITH LEADING ZEROS) FOR FILE HCRED' // * ' (ALL 6 ZEROS MEANS FILE WILL NOT BE CREATED)' // LOCAL OFFSET-3,DATA-'?R?',BLANK-6 // IF ?L'3,8'?='000000' GOTO HOUEST BLDFILE ?L'1,2'?HCRED,I,RECORDS,?L'3,8'?,120,,,1,6,,,?L'3,8'? ***SAVE ?L'1,2'?HOUEST,,,JOFFE,TC,,,,,,,LEAVE // * ' ' // TAG HOUEST // * 'ENTER NUMBER OF RECORDS (6 NUMBERS-WITH LEADING ZEROS) FOR FILE HOUEST' // * ' (ALL 6 ZEROS MEANS FILE WILL NOT BE CREATED)' // LOCAL OFFSET-3,DATA-'?R?',BLANK-6 // IF ?L'3,8'?='000000' GOTO HOUOLD BLDFILE ?L'1,2'?HOUEST,I,RECORDS,?L'3,8'?,41,,,1,9,,,?L'3,8'? ***SAVE ?L'1,2'?HOUOLD,,,JOFFE,TC,,,,,,,LEAVE // * ' ' // TAG HOUOLD // * 'ENTER NUMBER OF RECORDS (6 NUMBERS-WITH LEADING ZEROS) FOR FILE HOUOLD' // * ' (ALL 6 ZEROS MEANS FILE WILL NOT BE CREATED)' // LOCAL OFFSET-3,DATA-'?R?',BLANK-6 // IF ?L'3,8'?='000000' GOTO HOUSE BLDFILE ?L'1,2'?HOUOLD,I,RECORDS,?L'3,8'?,41,,,1,9,,,?L'3,8'? ***SAVE ?L'1,2'?HOUSE,,,JOFFE,TC,,,,,,,LEAVE // * ' ' // TAG HOUSE // * 'ENTER NUMBER OF RECORDS (6 NUMBERS-WITH LEADING ZEROS) FOR FILE HOUSE' // * ' (ALL 6 ZEROS MEANS FILE WILL NOT BE CREATED)' // LOCAL OFFSET-3,DATA-'?R?',BLANK-6 // IF ?L'3,8'?='000000' GOTO HSECHG BLDFILE ?L'1,2'?HOUSE,I,RECORDS,?L'3,8'?,41,,,1,9,,,?L'3,8'? ***SAVE ?L'1,2'?HSECHG,,,JOFFE,TC,,,,,,,LEAVE // * ' ' // TAG HSECHG // * 'ENTER NUMBER OF RECORDS (6 NUMBERS-WITH LEADING ZEROS) FOR FILE HSECHG' // * ' (ALL 6 ZEROS MEANS FILE WILL NOT BE CREATED)' // LOCAL OFFSET-3,DATA-'?R?',BLANK-6 // IF ?L'3,8'?='000000' GOTO INVACC BLDFILE ?L'1,2'?HSECHG,I,RECORDS,?L'3,8'?,80,,,1,10,,,?L'3,8'? ***SAVE ?L'1,2'?INVACC,,,JOFFE,TC,,,,,,,LEAVE // * ' ' // TAG INVACC // * 'ENTER NUMBER OF RECORDS (6 NUMBERS-WITH LEADING ZEROS) FOR FILE INVACC' // * ' (ALL 6 ZEROS MEANS FILE WILL NOT BE CREATED)' // LOCAL OFFSET-3,DATA-'?R?',BLANK-6 // IF ?L'3,8'?='000000' GOTO INVCB BLDFILE ?L'1,2'?INVACC,I,RECORDS,?L'3,8'?,35,,,1,16,,,?L'3,8'? ***SAVE ?L'1,2'?INVCB,,,JOFFE,TC,,,,,,,LEAVE // * ' ' // TAG INVCB // * 'ENTER NUMBER OF RECORDS (6 NUMBERS-WITH LEADING ZEROS) FOR FILE INVCB' // * ' (ALL 6 ZEROS MEANS FILE WILL NOT BE CREATED)' // LOCAL OFFSET-3,DATA-'?R?',BLANK-6 // IF ?L'3,8'?='000000' GOTO INVCE BLDFILE ?L'1,2'?INVCB,I,RECORDS,?L'3,8'?,50,,,1,30,,,?L'3,8'? ***SAVE ?L'1,2'?INVCE,,,JOFFE,TC,,,,,,,LEAVE // * ' ' // TAG INVCE // * 'ENTER NUMBER OF RECORDS (6 NUMBERS-WITH LEADING ZEROS) FOR FILE INVCE' // * ' (ALL 6 ZEROS MEANS FILE WILL NOT BE CREATED)' // LOCAL OFFSET-3,DATA-'?R?',BLANK-6 // IF ?L'3,8'?='000000' GOTO INVEN BLDFILE ?L'1,2'?INVCE,I,RECORDS,?L'3,8'?,71,,,1,9,,,?L'3,8'? ***SAVE ?L'1,2'?INVEN,,,JOFFE,TC,,,,,,,LEAVE // * ' ' // TAG INVEN // * 'ENTER NUMBER OF RECORDS (6 NUMBERS-WITH LEADING ZEROS) FOR FILE INVEN' // * ' (ALL 6 ZEROS MEANS FILE WILL NOT BE CREATED)' // LOCAL OFFSET-3,DATA-'?R?',BLANK-6 // IF ?L'3,8'?='000000' GOTO INVNOT BLDFILE ?L'1,2'?INVEN,I,RECORDS,?L'3,8'?,40,,,1,19,,,?L'3,8'? ***SAVE ?L'1,2'?INVNOT,,,JOFFE,TC,,,,,,,LEAVE // * ' ' // TAG INVNOT // * 'ENTER NUMBER OF RECORDS (6 NUMBERS-WITH LEADING ZEROS) FOR FILE INVNOT' // * ' (ALL 6 ZEROS MEANS FILE WILL NOT BE CREATED)' // LOCAL OFFSET-3,DATA-'?R?',BLANK-6 // IF ?L'3,8'?='000000' GOTO JRDESC BLDFILE ?L'1,2'?INVNOT,I,RECORDS,?L'3,8'?,87,,,1,8,,,?L'3,8'? ***SAVE ?L'1,2'?JRDESC,,,JOFFE,TC,,,,,,,LEAVE // * ' ' // TAG JRDESC // * 'ENTER NUMBER OF RECORDS (6 NUMBERS-WITH LEADING ZEROS) FOR FILE JRDESC' // * ' (ALL 6 ZEROS MEANS FILE WILL NOT BE CREATED)' // LOCAL OFFSET-3,DATA-'?R?',BLANK-6 // IF ?L'3,8'?='000000' GOTO LABEL BLDFILE ?L'1,2'?JRDESC,I,RECORDS,?L'3,8'?,106,,,1,5,,,?L'3,8'? ***SAVE ?L'1,2'?LABEL,,,JOFFE,TC,,,,,,,LEAVE // * ' ' // TAG LABEL // * 'ENTER NUMBER OF RECORDS (6 NUMBERS-WITH LEADING ZEROS) FOR FILE LABEL' // * ' (ALL 6 ZEROS MEANS FILE WILL NOT BE CREATED)' // LOCAL OFFSET-3,DATA-'?R?',BLANK-6 // IF ?L'3,8'?='000000' GOTO LOAD BLDFILE ?L'1,2'?LABEL,S,RECORDS,?L'3,8'?,80,,,,,,,?L'3,8'? ***SAVE ?L'1,2'?LOAD,,,JOFFE,TC,,,,,,,LEAVE // * ' ' // TAG LOAD // * 'ENTER NUMBER OF RECORDS (6 NUMBERS-WITH LEADING ZEROS) FOR FILE LOAD' // * ' (ALL 6 ZEROS MEANS FILE WILL NOT BE CREATED)' // LOCAL OFFSET-3,DATA-'?R?',BLANK-6 // IF ?L'3,8'?='000000' GOTO MESAGE BLDFILE ?L'1,2'?LOAD,I,RECORDS,?L'3,8'?,79,,,1,9,,,?L'3,8'? ***SAVE ?L'1,2'?MESAGE,,,JOFFE,TC,,,,,,,LEAVE // * ' ' // TAG MESAGE // * 'ENTER NUMBER OF RECORDS (6 NUMBERS-WITH LEADING ZEROS) FOR FILE MESAGE' // * ' (ALL 6 ZEROS MEANS FILE WILL NOT BE CREATED)' // LOCAL OFFSET-3,DATA-'?R?',BLANK-6 // IF ?L'3,8'?='000000' GOTO MISCUS BLDFILE ?L'1,2'?MESAGE,I,RECORDS,?L'3,8'?,66,,,1,5,,,?L'3,8'? ***SAVE ?L'1,2'?MISCUS,,,JOFFE,TC,,,,,,,LEAVE // * ' ' // TAG MISCUS // * 'ENTER NUMBER OF RECORDS (6 NUMBERS-WITH LEADING ZEROS) FOR FILE MISCUS' // * ' (ALL 6 ZEROS MEANS FILE WILL NOT BE CREATED)' // LOCAL OFFSET-3,DATA-'?R?',BLANK-6 // IF ?L'3,8'?='000000' GOTO MLOAD BLDFILE ?L'1,2'?MISCUS,I,RECORDS,?L'3,8'?,97,,,1,7,,,?L'3,8'? ***SAVE ?L'1,2'?MLOAD,,,JOFFE,TC,,,,,,,LEAVE // * ' ' // TAG MLOAD // * 'ENTER NUMBER OF RECORDS (6 NUMBERS-WITH LEADING ZEROS) FOR FILE MLOAD' // * ' (ALL 6 ZEROS MEANS FILE WILL NOT BE CREATED)' // LOCAL OFFSET-3,DATA-'?R?',BLANK-6 // IF ?L'3,8'?='000000' GOTO MOVLOD BLDFILE ?L'1,2'?MLOAD,S,RECORDS,?L'3,8'?,8,,,,,,,?L'3,8'? ***SAVE ?L'1,2'?MOVLOD,,,JOFFE,TC,,,,,,,LEAVE // * ' ' // TAG MOVLOD // * 'ENTER NUMBER OF RECORDS (6 NUMBERS-WITH LEADING ZEROS) FOR FILE MOVLOD' // * ' (ALL 6 ZEROS MEANS FILE WILL NOT BE CREATED)' // LOCAL OFFSET-3,DATA-'?R?',BLANK-6 // IF ?L'3,8'?='000000' GOTO NHOUS BLDFILE ?L'1,2'?MOVLOD,S,RECORDS,?L'3,8'?,55,,,,,,,?L'3,8'? ***SAVE ?L'1,2'?NHOUS,,,JOFFE,TC,,,,,,,LEAVE // * ' ' // TAG NHOUS // * 'ENTER NUMBER OF RECORDS (6 NUMBERS-WITH LEADING ZEROS) FOR FILE NHOUS' // * ' (ALL 6 ZEROS MEANS FILE WILL NOT BE CREATED)' // LOCAL OFFSET-3,DATA-'?R?',BLANK-6 // IF ?L'3,8'?='000000' GOTO NJUAF BLDFILE ?L'1,2'?NHOUS,I,RECORDS,?L'3,8'?,41,,,1,9,,,?L'3,8'? ***SAVE ?L'1,2'?NJUAF,,,JOFFE,TC,,,,,,,LEAVE // * ' ' // TAG NJUAF // * 'ENTER NUMBER OF RECORDS (6 NUMBERS-WITH LEADING ZEROS) FOR FILE NJUAF' // * ' (ALL 6 ZEROS MEANS FILE WILL NOT BE CREATED)' // LOCAL OFFSET-3,DATA-'?R?',BLANK-6 // IF ?L'3,8'?='000000' GOTO NMGLEN BLDFILE ?L'1,2'?NJUAF,I,RECORDS,?L'3,8'?,50,,,1,27,,,?L'3,8'? ***SAVE ?L'1,2'?NMGLEN,,,JOFFE,TC,,,,,,,LEAVE // * ' ' // TAG NMGLEN // * 'ENTER NUMBER OF RECORDS (6 NUMBERS-WITH LEADING ZEROS) FOR FILE NMGLEN' // * ' (ALL 6 ZEROS MEANS FILE WILL NOT BE CREATED)' // LOCAL OFFSET-3,DATA-'?R?',BLANK-6 // IF ?L'3,8'?='000000' GOTO NPRCTA BLDFILE ?L'1,2'?NMGLEN,S,RECORDS,?L'3,8'?,19,,,,,,,?L'3,8'? ***SAVE ?L'1,2'?NPRCTA,,,JOFFE,TC,,,,,,,LEAVE // * ' ' // TAG NPRCTA // * 'ENTER NUMBER OF RECORDS (6 NUMBERS-WITH LEADING ZEROS) FOR FILE NPRCTA' // * ' (ALL 6 ZEROS MEANS FILE WILL NOT BE CREATED)' // LOCAL OFFSET-3,DATA-'?R?',BLANK-6 // IF ?L'3,8'?='000000' GOTO OPENAP BLDFILE ?L'1,2'?NPRCTA,I,RECORDS,?L'3,8'?,24,,,1,14,,,?L'3,8'? ***SAVE ?L'1,2'?OPENAP,,,JOFFE,TC,,,,,,,LEAVE // * ' ' // TAG OPENAP // * 'ENTER NUMBER OF RECORDS (6 NUMBERS-WITH LEADING ZEROS) FOR FILE OPENAP' // * ' (ALL 6 ZEROS MEANS FILE WILL NOT BE CREATED)' // LOCAL OFFSET-3,DATA-'?R?',BLANK-6 // IF ?L'3,8'?='000000' GOTO PAYRL BLDFILE ?L'1,2'?OPENAP,I,RECORDS,?L'3,8'?,70,,,2,14,,,?L'3,8'? ***SAVE ?L'1,2'?PAYRL,,,JOFFE,TC,,,,,,,LEAVE // * ' ' // TAG PAYRL // * 'ENTER NUMBER OF RECORDS (6 NUMBERS-WITH LEADING ZEROS) FOR FILE PAYRL' // * ' (ALL 6 ZEROS MEANS FILE WILL NOT BE CREATED)' // LOCAL OFFSET-3,DATA-'?R?',BLANK-6 // IF ?L'3,8'?='000000' GOTO PODOL BLDFILE ?L'1,2'?PAYRL,S,RECORDS,?L'3,8'?,140,,,,,,,?L'3,8'? ***SAVE ?L'1,2'?PODOL,,,JOFFE,TC,,,,,,,LEAVE // * ' ' // TAG PODOL // * 'ENTER NUMBER OF RECORDS (6 NUMBERS-WITH LEADING ZEROS) FOR FILE PODOL' // * ' (ALL 6 ZEROS MEANS FILE WILL NOT BE CREATED)' // LOCAL OFFSET-3,DATA-'?R?',BLANK-6 // IF ?L'3,8'?='000000' GOTO POMST BLDFILE ?L'1,2'?PODOL,S,RECORDS,?L'3,8'?,80,,,,,,,?L'3,8'? ***SAVE ?L'1,2'?POMST,,,JOFFE,TC,,,,,,,LEAVE // * ' ' // TAG POMST // * 'ENTER NUMBER OF RECORDS (6 NUMBERS-WITH LEADING ZEROS) FOR FILE POMST' // * ' (ALL 6 ZEROS MEANS FILE WILL NOT BE CREATED)' // LOCAL OFFSET-3,DATA-'?R?',BLANK-6 // IF ?L'3,8'?='000000' GOTO POREC BLDFILE ?L'1,2'?POMST,I,RECORDS,?L'3,8'?,150,,,1,11,,,?L'3,8'? ***SAVE ?L'1,2'?POREC,,,JOFFE,TC,,,,,,,LEAVE // * ' ' // TAG POREC // * 'ENTER NUMBER OF RECORDS (6 NUMBERS-WITH LEADING ZEROS) FOR FILE POREC' // * ' (ALL 6 ZEROS MEANS FILE WILL NOT BE CREATED)' // LOCAL OFFSET-3,DATA-'?R?',BLANK-6 // IF ?L'3,8'?='000000' GOTO PRCTAB BLDFILE ?L'1,2'?POREC,I,RECORDS,?L'3,8'?,100,,,1,12,,,?L'3,8'? ***SAVE ?L'1,2'?PRCTAB,,,JOFFE,TC,,,,,,,LEAVE // * ' ' // TAG PRCTAB // * 'ENTER NUMBER OF RECORDS (6 NUMBERS-WITH LEADING ZEROS) FOR FILE PRCTAB' // * ' (ALL 6 ZEROS MEANS FILE WILL NOT BE CREATED)' // LOCAL OFFSET-3,DATA-'?R?',BLANK-6 // IF ?L'3,8'?='000000' GOTO PRDREC BLDFILE ?L'1,2'?PRCTAB,I,RECORDS,?L'3,8'?,24,,,1,14,,,?L'3,8'? ***SAVE ?L'1,2'?PRDREC,,,JOFFE,TC,,,,,,,LEAVE // * ' ' // TAG PRDREC // * 'ENTER NUMBER OF RECORDS (6 NUMBERS-WITH LEADING ZEROS) FOR FILE PRDREC' // * ' (ALL 6 ZEROS MEANS FILE WILL NOT BE CREATED)' // LOCAL OFFSET-3,DATA-'?R?',BLANK-6 // IF ?L'3,8'?='000000' GOTO PRDUSG BLDFILE ?L'1,2'?PRDREC,S,RECORDS,?L'3,8'?,14,,,,,,,?L'3,8'? ***SAVE ?L'1,2'?PRDUSG,,,JOFFE,TC,,,,,,,LEAVE // * ' ' // TAG PRDUSG // * 'ENTER NUMBER OF RECORDS (6 NUMBERS-WITH LEADING ZEROS) FOR FILE PRDUSG' // * ' (ALL 6 ZEROS MEANS FILE WILL NOT BE CREATED)' // LOCAL OFFSET-3,DATA-'?R?',BLANK-6 // IF ?L'3,8'?='000000' GOTO PROD BLDFILE ?L'1,2'?PRDUSG,S,RECORDS,?L'3,8'?,36,,,,,,,?L'3,8'? ***SAVE ?L'1,2'?PROD,,,JOFFE,TC,,,,,,,LEAVE // * ' ' // TAG PROD // * 'ENTER NUMBER OF RECORDS (6 NUMBERS-WITH LEADING ZEROS) FOR FILE PROD' // * ' (ALL 6 ZEROS MEANS FILE WILL NOT BE CREATED)' // LOCAL OFFSET-3,DATA-'?R?',BLANK-6 // IF ?L'3,8'?='000000' GOTO PROJ BLDFILE ?L'1,2'?PROD,I,RECORDS,?L'3,8'?,400,,,1,9,,,?L'3,8'? ***SAVE ?L'1,2'?PROJ,,,JOFFE,TC,,,,,,,LEAVE // * ' ' // TAG PROJ // * 'ENTER NUMBER OF RECORDS (6 NUMBERS-WITH LEADING ZEROS) FOR FILE PROJ' // * ' (ALL 6 ZEROS MEANS FILE WILL NOT BE CREATED)' // LOCAL OFFSET-3,DATA-'?R?',BLANK-6 // IF ?L'3,8'?='000000' GOTO PYMT BLDFILE ?L'1,2'?PROJ,S,RECORDS,?L'3,8'?,60,,,,,,,?L'3,8'? ***SAVE ?L'1,2'?PYDES,,,JOFFE,TC,,,,,,,LEAVE // * ' ' // TAG PYMT // * 'ENTER NUMBER OF RECORDS (6 NUMBERS-WITH LEADING ZEROS) FOR FILE PYMT' // * ' (ALL 6 ZEROS MEANS FILE WILL NOT BE CREATED)' // LOCAL OFFSET-3,DATA-'?R?',BLANK-6 // IF ?L'3,8'?='000000' GOTO PYMTBD BLDFILE ?L'1,2'?PYMT,I,RECORDS,?L'3,8'?,57,,,1,9,,,?L'3,8'? ***SAVE ?L'1,2'?PYMTBD,,,JOFFE,TC,,,,,,,LEAVE // * ' ' // TAG PYMTBD // * 'ENTER NUMBER OF RECORDS (6 NUMBERS-WITH LEADING ZEROS) FOR FILE PYMTBD' // * ' (ALL 6 ZEROS MEANS FILE WILL NOT BE CREATED)' // LOCAL OFFSET-3,DATA-'?R?',BLANK-6 // IF ?L'3,8'?='000000' GOTO PYUN BLDFILE ?L'1,2'?PYMTBD,I,RECORDS,?L'3,8'?,57,,,1,9,,,?L'3,8'? ***SAVE ?L'1,2'?PYUN,,,JOFFE,TC,,,,,,,LEAVE // * ' ' // TAG PYUN // * 'ENTER NUMBER OF RECORDS (6 NUMBERS-WITH LEADING ZEROS) FOR FILE PYUN' // * ' (ALL 6 ZEROS MEANS FILE WILL NOT BE CREATED)' // LOCAL OFFSET-3,DATA-'?R?',BLANK-6 // IF ?L'3,8'?='000000' GOTO PYUNBD BLDFILE ?L'1,2'?PYUN,S,RECORDS,?L'3,8'?,50,,,,,,,?L'3,8'? ***SAVE ?L'1,2'?PYUNBD,,,JOFFE,TC,,,,,,,LEAVE // * ' ' // TAG PYUNBD // * 'ENTER NUMBER OF RECORDS (6 NUMBERS-WITH LEADING ZEROS) FOR FILE PYUNBD' // * ' (ALL 6 ZEROS MEANS FILE WILL NOT BE CREATED)' // LOCAL OFFSET-3,DATA-'?R?',BLANK-6 // IF ?L'3,8'?='000000' GOTO RECBD BLDFILE ?L'1,2'?PYUNBD,S,RECORDS,?L'3,8'?,50,,,,,,,?L'3,8'? ***SAVE ?L'1,2'?RECBD,,,JOFFE,TC,,,,,,,LEAVE // * ' ' // TAG RECBD // * 'ENTER NUMBER OF RECORDS (6 NUMBERS-WITH LEADING ZEROS) FOR FILE RECBD' // * ' (ALL 6 ZEROS MEANS FILE WILL NOT BE CREATED)' // LOCAL OFFSET-3,DATA-'?R?',BLANK-6 // IF ?L'3,8'?='000000' GOTO RECEV BLDFILE ?L'1,2'?RECBD,I,RECORDS,?L'3,8'?,300,,,2,6,,,?L'3,8'? BLDINDEX ?L'1,2'?RCBDA1,8,4,?L'1,2'?RECBD,,,,2,6 ***SAVE ?L'1,2'?RECEV,,,JOFFE,TC,,,,,,,LEAVE // * ' ' // TAG RECEV // * 'ENTER NUMBER OF RECORDS (6 NUMBERS-WITH LEADING ZEROS) FOR FILE RECEV' // * ' (ALL 6 ZEROS MEANS FILE WILL NOT BE CREATED)' // LOCAL OFFSET-3,DATA-'?R?',BLANK-6 // IF ?L'3,8'?='000000' GOTO RELSHT BLDFILE ?L'1,2'?RECEV,I,RECORDS,?L'3,8'?,300,,,2,6,,,?L'3,8'? BLDINDEX ?L'1,2'?RECAL1,8,4,?L'1,2'?RECEV,,,,2,6 ***SAVE ?L'1,2'?RELSHT,,,JOFFE,TC,,,,,,,LEAVE // * ' ' // TAG RELSHT // * 'ENTER NUMBER OF RECORDS (6 NUMBERS-WITH LEADING ZEROS) FOR FILE RELSHT' // * ' (ALL 6 ZEROS MEANS FILE WILL NOT BE CREATED)' // LOCAL OFFSET-3,DATA-'?R?',BLANK-6 // IF ?L'3,8'?='000000' GOTO SALMEN BLDFILE ?L'1,2'?RELSHT,I,RECORDS,?L'3,8'?,180,,,34,6,,,?L'3,8'? BLDINDEX ?L'1,2'?RELSH1,1,39,?L'1,2'?RELSHT ***SAVE ?L'1,2'?SALMEN,,,JOFFE,TC,,,,,,,LEAVE // * ' ' // TAG SALMEN // * 'ENTER NUMBER OF RECORDS (6 NUMBERS-WITH LEADING ZEROS) FOR FILE SALMEN' // * ' (ALL 6 ZEROS MEANS FILE WILL NOT BE CREATED)' // LOCAL OFFSET-3,DATA-'?R?',BLANK-6 // IF ?L'3,8'?='000000' GOTO UNCASH BLDFILE ?L'1,2'?SALMEN,I,RECORDS,?L'3,8'?,32,,,1,2,,,?L'3,8'? ***SAVE ?L'1,2'?UNCASH,,,JOFFE,TC,,,,,,,LEAVE // * ' ' // TAG UNCASH // * 'ENTER NUMBER OF RECORDS (6 NUMBERS-WITH LEADING ZEROS) FOR FILE UNCASH' // * ' (ALL 6 ZEROS MEANS FILE WILL NOT BE CREATED)' // LOCAL OFFSET-3,DATA-'?R?',BLANK-6 // IF ?L'3,8'?='000000' GOTO UNCSBD BLDFILE ?L'1,2'?UNCASH,I,RECORDS,?L'3,8'?,32,,,1,4,,,?L'3,8'? ***SAVE ?L'1,2'?UNCSBD,,,JOFFE,TC,,,,,,,LEAVE // * ' ' // TAG UNCSBD // * 'ENTER NUMBER OF RECORDS (6 NUMBERS-WITH LEADING ZEROS) FOR FILE UNCSBD' // * ' (ALL 6 ZEROS MEANS FILE WILL NOT BE CREATED)' // LOCAL OFFSET-3,DATA-'?R?',BLANK-6 // IF ?L'3,8'?='000000' GOTO VENDOR BLDFILE ?L'1,2'?UNCSBD,I,RECORDS,?L'3,8'?,32,,,1,4,,,?L'3,8'? ***SAVE ?L'1,2'?VENDOR,,,JOFFE,TC,,,,,,,LEAVE // * ' ' // TAG VENDOR // * 'ENTER NUMBER OF RECORDS (6 NUMBERS-WITH LEADING ZEROS) FOR FILE VENDOR' // * ' (ALL 6 ZEROS MEANS FILE WILL NOT BE CREATED)' // LOCAL OFFSET-3,DATA-'?R?',BLANK-6 // IF ?L'3,8'?='000000' GOTO YPAYRL BLDFILE ?L'1,2'?VENDOR,I,RECORDS,?L'3,8'?,300,,,1,6,,,?L'3,8'? ***SAVE ?L'1,2'?YPAYRL,,,JOFFE,TC,,,,,,,LEAVE // * ' ' // TAG YPAYRL // * 'ENTER NUMBER OF RECORDS (6 NUMBERS-WITH LEADING ZEROS) FOR FILE YPAYRL' // * ' (ALL 6 ZEROS MEANS FILE WILL NOT BE CREATED)' // LOCAL OFFSET-3,DATA-'?R?',BLANK-6 // IF ?L'3,8'?='000000' GOTO END BLDFILE ?L'1,2'?YPAYRL,S,RECORDS,?L'3,8'?,140,,,,,,,?L'3,8'? // TAG END // CEND // COPY LIBRARY-P,NAME-JF0047,RECL-096,DATE-03/10/26,TIME-2057 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XDTRC,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XXDTRC,RECORDS-100000 // RUN HSORTR 51A 3X 420 FNC 8 13 FNU 420 FNC 301 330 FNU 416 419 FNU 14 17 FNU 2 7 FDC 1 256 FDC 257 420 // END // CEND // COPY LIBRARY-P,NAME-JF0048,RECL-096,DATE-08/07/11,TIME-0910 // LOAD JF0048 // SWITCH 00000000 */ FILE NAME-RECEV,LABEL-?L'100,2'?RECVNC,DISP-SHR // FILE NAME-RECEV,LABEL-?L'100,2'?RECEV,DISP-SHR // FILE NAME-RECBD,LABEL-?L'100,2'?RECBD,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-MISCUS,LABEL-?L'100,2'?MISCUS,DISP-SHR // FILE NAME-XSTMT,LABEL-?WS?XSTMT,RECORDS-20000 // FILE NAME-XSMES,LABEL-?WS?XSMES,RECORDS-1 // RUN // CEND // COPY LIBRARY-P,NAME-JF0049,RECL-096,DATE-01/03/23,TIME-1220 // LOAD JF0049 // FILE NAME-XPRXX,LABEL-?WS?XPRXX // RUN // CEND // COPY LIBRARY-P,NAME-JF0050,RECL-096,DATE-01/03/23,TIME-1220 // LOAD JF0050 // FILE NAME-EMPLYE,LABEL-?L'100,2'?EMPLYE,DISP-SHR // FILE NAME-XPRXX,LABEL-?WS?XPRXX // RUN // CEND // COPY LIBRARY-P,NAME-JF0051,RECL-096,DATE-01/03/23,TIME-1220 // LOAD JF0051 // FILE NAME-XPRXX,LABEL-?WS?XPRXX // RUN // CEND // COPY LIBRARY-P,NAME-JF0052,RECL-096,DATE-01/03/23,TIME-1220 // LOAD JF0052 // FILE NAME-XPRXX,LABEL-?WS?XPRXX // FILE NAME-XEMPL,LABEL-?WS?XEMPL // FILE NAME-XFCWG,LABEL-?WS?XFCWG,RECORDS-1 // RUN // CEND // COPY LIBRARY-P,NAME-JF0053,RECL-096,DATE-01/03/23,TIME-1220 // LOAD JF0053 // FILE NAME-XPRXX,LABEL-?WS?XPRXX // FILE NAME-XEMPL,LABEL-?WS?XEMPL // RUN // CEND // COPY LIBRARY-P,NAME-JF0054,RECL-096,DATE-01/03/23,TIME-1220 // LOAD JF0054 // FILE NAME-XPRXX,LABEL-?WS?XPRXX // FILE NAME-XEMPL,LABEL-?WS?XEMPL // RUN // CEND // COPY LIBRARY-P,NAME-JF0055,RECL-096,DATE-01/03/23,TIME-1220 // LOAD JF0055 // FILE NAME-XPRXX,LABEL-?WS?XPRXX // FILE NAME-XEMPL,LABEL-?WS?XEMPL,RETAIN-S // RUN // CEND // COPY LIBRARY-P,NAME-JF0056,RECL-096,DATE-01/03/23,TIME-1220 // LOAD JF0056 // PRINTER NAME-PRT,FORMSNO-PYCK // FILE NAME-XPRXX,LABEL-?WS?XPRXX,RETAIN-S // FILE NAME-EMPLYE,LABEL-?L'100,2'?EMPLYE,DISP-SHR // FILE NAME-PAYRL,LABEL-?L'100,2'?PAYRL,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0057,RECL-096,DATE-01/03/23,TIME-1220 // LOAD JF0057 // FILE NAME-EMPLYE,LABEL-?L'100,2'?EMPLYE,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0058,RECL-096,DATE-01/03/23,TIME-1220 // LOAD JF0058 // FILE NAME-EMPLYE,LABEL-?L'100,2'?EMPLYE,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0059,RECL-096,DATE-01/03/23,TIME-1220 // LOAD JF0059 // SWITCH 10000000 // FILE NAME-EMPLYE,LABEL-?L'100,2'?EMPLYE,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0060,RECL-096,DATE-01/03/23,TIME-1220 // LOAD JF0060 // FILE NAME-VENDOR,LABEL-?L'100,2'?VENDOR,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0061,RECL-096,DATE-01/03/23,TIME-1220 JF0594 JF0593 JF0069 // CEND // COPY LIBRARY-P,NAME-JF0062,RECL-096,DATE-01/03/23,TIME-1220 // LOAD JF0062 // PRINTER NAME-PRT,CPI-15 // FILE NAME-YPAYRL,LABEL-?L'100,2'?YPAYRL,DISP-SHR // FILE NAME-PAYRL,LABEL-?L'100,2'?PAYRL,DISP-SHR // FILE NAME-PAYRL2,LABEL-?L'100,2'?PAYRL,DISP-SHR // FILE NAME-EMPLYE,LABEL-?L'100,2'?EMPLYE,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0063,RECL-096,DATE-01/03/23,TIME-1220 // LOAD JF0063 // FILE NAME-PAYRL,LABEL-?L'100,2'?PAYRL,DISP-SHR // FILE NAME-EMPLYE,LABEL-?L'100,2'?EMPLYE,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0064,RECL-096,DATE-01/03/23,TIME-1220 // LOAD JF0064 // FILE NAME-XPMTY,LABEL-?WS?XPMTY,RECORDS-3000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0065,RECL-096,DATE-01/03/23,TIME-1220 // LOAD JF0065 // FILE NAME-RECEV,LABEL-?L'100,2'?RECEV,DISP-SHR // FILE NAME-XPMTY,LABEL-?WS?XPMTY // RUN // CEND // COPY LIBRARY-P,NAME-JF0066,RECL-096,DATE-01/03/23,TIME-1220 // LOAD JF0066 // FILE NAME-XPMTY,LABEL-?WS?XPMTY // FILE NAME-RECEV,LABEL-?L'100,2'?RECEV,DISP-SHR // FILE NAME-PYMT,LABEL-?L'100,2'?PYMT,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0067,RECL-096,DATE-01/03/23,TIME-1220 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?L'100,2'?PAYRL,DISP-SHR // FILE NAME-OUTPUT,LABEL-?WS?XUNREP,RECORDS-3000 // RUN HSORTR 5A 3 17 I C 99EQCY IAC 140EQCA FNU 1 5 FDC 6 7 FDC 10 11 FDC 90 97 // END // CEND // COPY LIBRARY-P,NAME-JF0068,RECL-096,DATE-01/03/23,TIME-1220 // LOAD JF0068 // FILE NAME-XUNREP,LABEL-?WS?XUNREP,RETAIN-S // FILE NAME-EMPLYE,LABEL-?L'100,2'?EMPLYE,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0069,RECL-096,DATE-01/03/23,TIME-1220 // LOAD JF0069 // PRINTER NAME-PRT,FORMSNO-W2 // FILE NAME-EMPLYE,LABEL-?L'100,2'?EMP94 // FILE NAME-XESTWG,LABEL-?WS?XESTWG,RETAIN-S // RUN // CEND // COPY LIBRARY-P,NAME-JF0070,RECL-096,DATE-01/03/23,TIME-1220 // LOAD JF0070 // SWITCH 10000000 // FILE NAME-XPRLST,LABEL-?WS?XPRLST // FILE NAME-EMPLYE,LABEL-?L'100,2'?EMPLYE,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0071,RECL-096,DATE-01/03/23,TIME-1220 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?L'100,2'?PAYRL,DISP-SHR // FILE NAME-OUTPUT,LABEL-?WS?XPRLST,RECORDS-5000 // RUN HSORTR 11A 3 140 I C 140EQCA FNU 1 5 FNU 6 11 FDC 12 140 // END // CEND // COPY LIBRARY-P,NAME-JF0072,RECL-096,DATE-01/03/23,TIME-1220 // LOAD JF0072 // FILE NAME-XPRLST,LABEL-?WS?XPRLST,RETAIN-S // FILE NAME-XQRTDT,LABEL-?WS?XQRTDT,RETAIN-S // FILE NAME-EMPLYE,LABEL-?L'100,2'?EMPLYE,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0073,RECL-096,DATE-01/03/23,TIME-1220 // LOAD JF0073 // PRINTER NAME-PRT,CPI-15 // FILE NAME-XPRLST,LABEL-?WS?XPRLST,RETAIN-S // FILE NAME-EMPLYE,LABEL-?L'100,2'?EMPLYE,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0074,RECL-096,DATE-01/03/23,TIME-1220 // LOAD JF0074 // FILE NAME-EMPLYE,LABEL-?L'100,2'?EMPLYE,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0075,RECL-096,DATE-01/03/23,TIME-1220 // LOAD JF0075 // FILE NAME-EMPLYE,LABEL-?L'100,2'?EMPLYE,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0076,RECL-096,DATE-01/03/23,TIME-1220 // LOAD JF0076 ***** SWITCH #8 TURNS ON (1) OR OFF (0) PRINTED REPORT // SWITCH 00000000 // PRINTER NAME-PRT,COPIES-1 // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-XITORS,LABEL-?WS?XITORS,RETAIN-S // FILE NAME-XITHD,LABEL-?WS?XITHD // RUN // CEND // COPY LIBRARY-P,NAME-JF0077,RECL-096,DATE-01/03/23,TIME-1220 // LOAD JF0077 // FILE NAME-YPAYRL,LABEL-?L'100,2'?YPAYRL,RETAIN-S // FILE NAME-PAYRL,LABEL-?L'100,2'?PAYRL,RETAIN-S // FILE NAME-XPRLS,LABEL-?WS?XPRLS,RECORDS-13000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0078,RECL-096,DATE-01/03/23,TIME-1220 // LOAD JF0078 // FILE NAME-PAYRL,LABEL-?L'100,2'?PAYRL,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0079,RECL-096,DATE-01/03/23,TIME-1220 // LOAD JF0079 // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0080,RECL-096,DATE-07/10/02,TIME-0738 // LOAD JF0080 // IFF DATAF1-?L'100,2'?RECVNC SWITCH 10000000 // IF DATAF1-?L'100,2'?RECVNC SWITCH 10100000 // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-RECEV,LABEL-?L'100,2'?RECEV,DISP-SHR // IF DATAF1-?L'100,2'?RECVNC FILE NAME-RECVNC,LABEL-?L'100,2'?RECVNC,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0081,RECL-096,REF-000001,DATE-01/03/23,TIME-1220 // LOAD JF0081 // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-SALMEN,LABEL-?L'100,2'?SALMEN,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0082,RECL-096,REF-000001,DATE-04/10/07,TIME-1015 JF0214 // IF ?L'1,1'?='X' COPYDATA ?L'100,2'?GLFILE,,?L'100,2'?TGLFIL // IF ?L'1,1'?='X' JF0405 // IF ?L'1,1'?='X' GOTO END JF0103 // IF ?L'2,1'?='X' DELETE ?L'100,2'?PGLFIL,F1 // IF ?L'2,1'?='X' RENAME ?L'100,2'?TGLFIL,?L'100,2'?PGLFIL JF0119 COPYDATA ?L'100,2'?NMGLEN,,?L'100,2'?XXNMGL,,,,,,INCLUDE,19,EQ,'A' DELETE ?L'100,2'?NMGLEN,F1 RENAME ?L'100,2'?XXNMGL,?L'100,2'?NMGLEN // TAG END // CEND // COPY LIBRARY-P,NAME-JF0083,RECL-096,REF-000001,DATE-01/03/23,TIME-1220 // LOAD JF0083 // FILE NAME-XXCUSS,LABEL-?WS?XXCUSS,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-SALMEN,LABEL-?L'100,2'?SALMEN,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0084,RECL-096,REF-000001,DATE-06/11/10,TIME-1224 // LOAD JF0084 // SWITCH 10000000 // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-PRCTAB,LABEL-?L'100,2'?PRCTAB,DISP-SHR // FILE NAME-HOUSE,LABEL-?L'100,2'?HOUSE,DISP-SHR // FILE NAME-RELSHT,LABEL-?L'100,2'?RELSHT,DISP-SHR // FILE NAME-ORDER,LABEL-?L'100,2'?ORDER,DISP-SHR // FILE NAME-MISCUS,LABEL-?L'100,2'?MISCUS,DISP-SHR // FILE NAME-XCHGLD,LABEL-?WS?XCHGLD,RECORDS-500 // RUN // CEND // COPY LIBRARY-P,NAME-JF0085,RECL-096,REF-000001,DATE-01/03/23,TIME-1220 // LOAD JF0085 // SWITCH 00000001 // FILE NAME-XADHS,LABEL-?WS?XADHS,RETAIN-S // FILE NAME-HOUSE,LABEL-?L'100,2'?HOUSE,DISP-SHR,EXTEND-5000 // FILE NAME-HSECHG,LABEL-?L'100,2'?HSECHG,DISP-SHR,EXTEND-1000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0091,RECL-096,DATE-01/03/23,TIME-1220 // LOAD JF0091 // FILE NAME-XADLOD,LABEL-?WS?XADLOD,RETAIN-S // FILE NAME-XLOADO,LABEL-?WS?XLOADO // RUN // CEND // COPY LIBRARY-P,NAME-JF0092,RECL-096,DATE-01/03/23,TIME-1220 // LOAD JF0092 // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0094,RECL-096,DATE-01/03/23,TIME-1220 // LOAD JF0094 // FILE NAME-CHKFLE,LABEL-?L'100,2'?CHKFLE,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0095,RECL-096,DATE-01/12/18,TIME-1304 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-OUTPUT,LABEL-?WS?XPROD,RECORDS-15000 // RUN HSORTR 27A 3X 400 I C 11EQCI FNC 134 160 FDC 1 256 FDC 257 400 // END // CEND // COPY LIBRARY-P,NAME-JF0096,RECL-096,DATE-01/03/23,TIME-1220 // LOAD JF0096 // FILE NAME-?WS?XPROD,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0097,RECL-096,REF-000001,DATE-01/03/23,TIME-1220 // LOAD JF0097 // SWITCH 00000001 // FILE NAME-HOUSE,LABEL-?L'100,2'?HOUSE,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-HSECHG,LABEL-?L'100,2'?HSECHG,DISP-SHR,EXTEND-2000 // FILE NAME-CHGHS,LABEL-?L'100,2'?CHGHS,DISP-SHR // FILE NAME-XHSSL,LABEL-?WS?XHSSL,RECORDS-5000 // FILE NAME-XCHGLD,LABEL-?WS?XCHGLD,RECORDS-5000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0098,RECL-096,DATE-03/10/26,TIME-2057 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XXREC,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XREC,RECORDS-4000 // RUN HSORTR 6A 3X 300 FNU 2 7 FDC 1 256 FDC 257 300 // END // CEND // COPY LIBRARY-P,NAME-JF0099,RECL-096,REF-000001,DATE-01/03/23,TIME-1220 // LOAD JF0099 // FILE NAME-XINVC,LABEL-?WS?XINVC // FILE NAME-XHINV,LABEL-?WS?XHINV,RETAIN-S // FILE NAME-XREC,LABEL-?WS?XREC,RETAIN-S // FILE NAME-XINVC2,LABEL-?WS?XINVC // FILE NAME-XXHIN,LABEL-?WS?XXHIN,RECORDS-20000 // FILE NAME-XXREC,LABEL-?WS?XXREC,RECORDS-4000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0100,RECL-096,DATE-01/03/23,TIME-1220 // LOAD JF0100 // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0101,RECL-096,DATE-01/03/23,TIME-1220 // LOAD JF0101 // SWITCH 10000000 // FILE NAME-HOUSE,LABEL-?L'100,2'?HOUSE,DISP-SHR,EXTEND-5000 // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-BSEHSE,LABEL-?L'100,2'?BSEHSE,DISP-SHR // FILE NAME-HSECHG,LABEL-?L'100,2'?HSECHG,DISP-SHR,EXTEND-2000 // FILE NAME-CHGHS,LABEL-?L'100,2'?CHGHS,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0102,RECL-096,DATE-01/03/23,TIME-1220 // LOAD JF0102 // PRINTER NAME-PRT,FORMSNO-LABL,ALIGN-YES // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0103,RECL-096,DATE-01/03/23,TIME-1220 // LOAD JF0103 // FILE NAME-GLFILE,LABEL-?L'100,2'?GLFILE // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0104,RECL-096,DATE-01/03/23,TIME-1220 // LOAD JF0104 // FILE NAME-GLFILE,LABEL-?L'100,2'?GLFILE,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0105,RECL-096,DATE-01/03/23,TIME-1220 // LOAD JF0105 // FILE NAME-GLFILE,LABEL-?L'100,2'?GLFILE,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0106,RECL-096,DATE-01/03/23,TIME-1220 // LOAD JF0106 // FILE NAME-PAYRL,LABEL-?L'100,2'?PAYRL,DISP-SHR // FILE NAME-YPAYRL,LABEL-?L'100,2'?YPAYRL,DISP-SHR // FILE NAME-XPRLST,LABEL-?WS?XPRLST,RECORDS-10000 // FILE NAME-XMNYR,LABEL-?WS?XMNYR,RECORDS-100 // RUN // CEND // COPY LIBRARY-P,NAME-JF0107,RECL-096,DATE-01/03/23,TIME-1220 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XPRLST,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XPRLSS,RECORDS-10000,RETAIN-T // RUN HSORTRS 7A 3 32 FNC 1 7 FSU 8 16 FSU 17 25 // END // CEND // COPY LIBRARY-P,NAME-JF0108,RECL-096,DATE-01/03/23,TIME-1220 // LOAD JF0108 // FILE NAME-XPRLSS,LABEL-?WS?XPRLSS,RETAIN-S // FILE NAME-XMNYR,LABEL-?WS?XMNYR,RETAIN-S // RUN // CEND // COPY LIBRARY-P,NAME-JF0109,RECL-096,DATE-01/03/23,TIME-1220 // LOAD JF0109 // RUN // CEND // COPY LIBRARY-P,NAME-JF0110,RECL-096,REF-000006,DATE-01/04/23,TIME-2202 // * 'THIS PROCEDURE WILL BACKUP ALL YOUR USER FILES ONTO TAPE' // * 'FOR BOTH COMPANIES JF AND SB' // * ' ' // * 'YOU MUST BE DULY AUTHORIZED TO RUN THIS PROGRAM.' // * ' ' // * 'TO ENSURE THAT YOU ARE PLEASE ENTER THE PASSWORD NOW.' // * ' ' // IF ?R?='BETTYBACKUP' GOTO BEGIN // * ' ' // * 'ACCESS TO THIS PROGRAM HAS BEEN DENIED TO YOU.' // * 'PRESS ENTER TO RETURN TO MENU.' // * ' ' // IF ?R?='X' GOTO END // GOTO END // TAG BEGIN // * 'ERASING AND INITIALIZING TAPE' ***TAPEINIT TC,SL,JOFFE,CLEAR,JOFFE INZTAP DEV(TAP01) NEWVOL(JOFFE) NEWOWNID(JOFFE) CHECK(*NO) DENSITY(*CTGTYPE) // LOCAL OFFSET-1,DATA-'JF' // * 'BACKING UP ALL FILES FOR COMPANY JF' JF0124 // LOCAL OFFSET-1,DATA-'SB' // * 'BACKING UP ALL FILES FOR COMPANY SB' JF0124 // * ' ' // * '******************************************************' // * '******************************************************' // * '*** ***' // * '*** BACKUP OF ALL FILES IS NOW COMPLETE ***' // * '*** ***' // * '*** PRESS ENTER TO RETURN TO MENU ***' // * '*** ***' // * '******************************************************' // * '******************************************************' // IF ?R?='X' GOTO END // GOTO END // TAG END // CEND // COPY LIBRARY-P,NAME-JF0111,RECL-096,REF-000001,DATE-01/03/23,TIME-1220 JF0112 JF0118 // CEND // COPY LIBRARY-P,NAME-JF0112,RECL-096,REF-000001,DATE-01/03/23,TIME-1220 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?L'100,2'?EMPLYE,DISP-SHR // FILE NAME-OUTPUT,LABEL-?WS?XAEMP,RECORDS-3000 // RUN HSORTR 35A 3X 350 FNC 6 20 FNC 21 35 FNU 1 5 FDC 1 256 FDC 257 350 // END // CEND // COPY LIBRARY-P,NAME-JF0117,RECL-096,DATE-01/03/23,TIME-1220 // LOAD JF0117 // PRINTER NAME-PRT,FORMSNO-LABL // FILE NAME-EMPLYE,LABEL-?L'100,2'?EMPLYE,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0118,RECL-096,DATE-01/03/23,TIME-1220 // LOAD JF0059 // SWITCH 01000000 // FILE NAME-XAEMP,LABEL-?WS?XAEMP,RETAIN-S // RUN // CEND // COPY LIBRARY-P,NAME-JF0119,RECL-096,DATE-01/03/23,TIME-1220 // LOAD JF0119 // FILE NAME-NMGLEN,LABEL-?L'100,2'?NMGLEN // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-GLFILE,LABEL-?L'100,2'?GLFILE // RUN // CEND // COPY LIBRARY-P,NAME-JF0120,RECL-096,REF-000002,DATE-05/01/26,TIME-1422 // LOAD JF0120 // FILE NAME-ZEMPLY,LABEL-?WS?ZEMPLY,RETAIN-S // FILE NAME-EMPLYE,LABEL-?L'100,2'?EMPLYE,RECORDS-1000,EXTEND-500 // RUN // CEND // COPY LIBRARY-P,NAME-JF0121,RECL-096,DATE-01/03/23,TIME-1220 JF0122 JF0123 // CEND // COPY LIBRARY-P,NAME-JF0122,RECL-096,DATE-03/07/23,TIME-1005 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?L'100,2'?VENDOR,DISP-SHR // FILE NAME-OUTPUT,LABEL-?WS?XVENLS,RECORDS-6000 // RUN HSORTR 40A 3X 300 I C 300EQCA FNC 7 10 FNC 11 40 FNU 1 6 FDC 1 256 FDC 257 300 // END // CEND // COPY LIBRARY-P,NAME-JF0123,RECL-096,DATE-01/03/23,TIME-1220 // LOAD JF0236 // SWITCH 01000000 // FILE NAME-XVENLS,LABEL-?WS?XVENLS,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0124,RECL-096,DATE-10/08/11,TIME-0907 // * 'SAVING FILE ?L'1,2'?ARCHK' ***SAVE ?L'1,2'?ARCHK,,,JOFFE,TC,,,,,,,LEAVE SAVOBJ OBJ(?L'1,2'?ARCHK) LIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'1,2'?ARCHK) ENDOPT(*LEAVE) // * 'SAVING FILE ?L'1,2'?ARCKBD' ***SAVE ?L'1,2'?ARCKBD,,,JOFFE,TC,,,,,,,LEAVE SAVOBJ OBJ(?L'1,2'?ARCKBD) LIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'1,2'?ARCKBD) ENDOPT(*LEAVE) // * 'SAVING FILE ?L'1,2'?ASMTMP' ***SAVE ?L'1,2'?ASMTMP,,,JOFFE,TC,,,,,,,LEAVE SAVOBJ OBJ(?L'1,2'?ASMTMP) LIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'1,2'?ASMTMP) ENDOPT(*REWIND) // * 'SAVING FILE ?L'1,2'?BILMAT' ***SAVE ?L'1,2'?BILMAT,,,JOFFE,TC,,,,,,,LEAVE SAVOBJ OBJ(?L'1,2'?BILMAT) LIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'1,2'?BILMAT) ENDOPT(*LEAVE) // * 'SAVING FILE ?L'1,2'?BLMTTM' ***SAVE ?L'1,2'?BLMTTM,,,JOFFE,TC,,,,,,,LEAVE SAVOBJ OBJ(?L'1,2'?BLMTTM) LIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'1,2'?BLMTTM) ENDOPT(*LEAVE) // * 'SAVING FILE ?L'1,2'?BSEHSE' ***SAVE ?L'1,2'?BSEHSE,,,JOFFE,TC,,,,,,,LEAVE SAVOBJ OBJ(?L'1,2'?BSEHSE) LIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'1,2'?BSEHSE) ENDOPT(*LEAVE) // * 'SAVING FILE ?L'1,2'?CHGCS' ***SAVE ?L'1,2'?CHGCS,,,JOFFE,TC,,,,,,,LEAVE SAVOBJ OBJ(?L'1,2'?CHGCS) LIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'1,2'?CHGCS) ENDOPT(*LEAVE) // * 'SAVING FILE ?L'1,2'?CHGHS' ***SAVE ?L'1,2'?CHGHS,,,JOFFE,TC,,,,,,,LEAVE SAVOBJ OBJ(?L'1,2'?CHGHS) LIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'1,2'?CHGHS) ENDOPT(*LEAVE) // * 'SAVING FILE ?L'1,2'?CHKFLE' ***SAVE ?L'1,2'?CHKFLE,,,JOFFE,TC,,,,,,,LEAVE SAVOBJ OBJ(?L'1,2'?CHKFLE) LIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'1,2'?CHKFLE) ENDOPT(*LEAVE) // * 'SAVING FILE ?L'1,2'?CNTRL' ***SAVE ?L'1,2'?CNTRL,,,JOFFE,TC,,,,,,,LEAVE SAVOBJ OBJ(?L'1,2'?CNTRL) LIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'1,2'?CNTRL) ENDOPT(*LEAVE) // * 'SAVING FILE ?L'1,2'?CUSMAP' ***SAVE ?L'1,2'?CUSMAP,,,JOFFE,TC,,,,,,,LEAVE SAVOBJ OBJ(?L'1,2'?CUSMAP) LIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'1,2'?CUSMAP) ENDOPT(*LEAVE) // * 'SAVING FILE ?L'1,2'?CUSMAS' ***SAVE ?L'1,2'?CUSMAS,,,JOFFE,TC,,,,,,,LEAVE SAVOBJ OBJ(?L'1,2'?CUSMAS) LIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'1,2'?CUSMAS) ENDOPT(*LEAVE) // * 'SAVING FILE ?L'1,2'?DEPT' ***SAVE ?L'1,2'?DEPT,,,JOFFE,TC,,,,,,,LEAVE SAVOBJ OBJ(?L'1,2'?DEPT) LIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'1,2'?DEPT) ENDOPT(*LEAVE) // * 'SAVING FILE ?L'1,2'?DPINV' ***SAVE ?L'1,2'?DPINV,,,JOFFE,TC,,,,,,,LEAVE SAVOBJ OBJ(?L'1,2'?DPINV) LIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'1,2'?DPINV) ENDOPT(*LEAVE) // * 'SAVING FILE ?L'1,2'?EMPLYE' ***SAVE ?L'1,2'?EMPLYE,,,JOFFE,TC,,,,,,,LEAVE SAVOBJ OBJ(?L'1,2'?EMPLYE) LIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'1,2'?EMPLYE) ENDOPT(*LEAVE) // * 'SAVING FILE ?L'1,2'?GLFILE' ***SAVE ?L'1,2'?GLFILE,,,JOFFE,TC,,,,,,,LEAVE SAVOBJ OBJ(?L'1,2'?GLFILE) LIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'1,2'?GLFILE) ENDOPT(*LEAVE) // * 'SAVING FILE ?L'1,2'?GLPMT' ***SAVE ?L'1,2'?GLPMT,,,JOFFE,TC,,,,,,,LEAVE SAVOBJ OBJ(?L'1,2'?GLPMT) LIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'1,2'?GLPMT) ENDOPT(*LEAVE) // * 'SAVING FILE ?L'1,2'?GLTRAN' ***SAVE ?L'1,2'?GLTRAN,,,JOFFE,TC,,,,,,,LEAVE SAVOBJ OBJ(?L'1,2'?GLTRAN) LIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'1,2'?GLTRAN) ENDOPT(*LEAVE) // * 'SAVING FILE ?L'1,2'?HCRED' ***SAVE ?L'1,2'?HCRED,,,JOFFE,TC,,,,,,,LEAVE SAVOBJ OBJ(?L'1,2'?HCRED) LIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'1,2'?HCRED) ENDOPT(*LEAVE) // * 'SAVING FILE ?L'1,2'?HOUEST' ***SAVE ?L'1,2'?HOUEST,,,JOFFE,TC,,,,,,,LEAVE SAVOBJ OBJ(?L'1,2'?HOUEST) LIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'1,2'?HOUEST) ENDOPT(*LEAVE) // * 'SAVING FILE ?L'1,2'?HOUOLD' ***SAVE ?L'1,2'?HOUOLD,,,JOFFE,TC,,,,,,,LEAVE SAVOBJ OBJ(?L'1,2'?HOUOLD) LIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'1,2'?HOUOLD) ENDOPT(*LEAVE) // * 'SAVING FILE ?L'1,2'?HOUSE' ***SAVE ?L'1,2'?HOUSE,,,JOFFE,TC,,,,,,,LEAVE SAVOBJ OBJ(?L'1,2'?HOUSE) LIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'1,2'?HOUSE) ENDOPT(*LEAVE) // * 'SAVING FILE ?L'1,2'?HSECHG' ***SAVE ?L'1,2'?HSECHG,,,JOFFE,TC,,,,,,,LEAVE SAVOBJ OBJ(?L'1,2'?HSECHG) LIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'1,2'?HSECHG) ENDOPT(*LEAVE) // * 'SAVING FILE ?L'1,2'?INVACC' ***SAVE ?L'1,2'?INVACC,,,JOFFE,TC,,,,,,,LEAVE SAVOBJ OBJ(?L'1,2'?INVACC) LIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'1,2'?INVACC) ENDOPT(*LEAVE) // * 'SAVING FILE ?L'1,2'?INVCB' ***SAVE ?L'1,2'?INVCB,,,JOFFE,TC,,,,,,,LEAVE SAVOBJ OBJ(?L'1,2'?INVCB) LIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'1,2'?INVCB) ENDOPT(*LEAVE) // * 'SAVING FILE ?L'1,2'?INVCE' ***SAVE ?L'1,2'?INVCE,,,JOFFE,TC,,,,,,,LEAVE SAVOBJ OBJ(?L'1,2'?INVCE) LIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'1,2'?INVCE) ENDOPT(*LEAVE) // * 'SAVING FILE ?L'1,2'?INVEN' ***SAVE ?L'1,2'?INVEN,,,JOFFE,TC,,,,,,,LEAVE SAVOBJ OBJ(?L'1,2'?INVEN) LIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'1,2'?INVEN) ENDOPT(*LEAVE) // * 'SAVING FILE ?L'1,2'?INVNOT' ***SAVE ?L'1,2'?INVNOT,,,JOFFE,TC,,,,,,,LEAVE SAVOBJ OBJ(?L'1,2'?INVNOT) LIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'1,2'?INVNOT) ENDOPT(*LEAVE) // * 'SAVING FILE ?L'1,2'?JRDESC' ***SAVE ?L'1,2'?JRDESC,,,JOFFE,TC,,,,,,,LEAVE SAVOBJ OBJ(?L'1,2'?JRDESC) LIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'1,2'?JRDESC) ENDOPT(*LEAVE) // * 'SAVING FILE ?L'1,2'?LABEL' ***SAVE ?L'1,2'?LABEL,,,JOFFE,TC,,,,,,,LEAVE SAVOBJ OBJ(?L'1,2'?LABEL) LIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'1,2'?LABEL) ENDOPT(*LEAVE) // * 'SAVING FILE ?L'1,2'?LABNOT' ***SAVE ?L'1,2'?LABNOT,,,JOFFE,TC,,,,,,,LEAVE SAVOBJ OBJ(?L'1,2'?LABNOT) LIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'1,2'?LABNOT) ENDOPT(*LEAVE) // * 'SAVING FILE ?L'1,2'?LOAD' ***SAVE ?L'1,2'?LOAD,,,JOFFE,TC,,,,,,,LEAVE SAVOBJ OBJ(?L'1,2'?LOAD) LIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'1,2'?LOAD) ENDOPT(*LEAVE) // * 'SAVING FILE ?L'1,2'?MESAGE' ***SAVE ?L'1,2'?MESAGE,,,JOFFE,TC,,,,,,,LEAVE SAVOBJ OBJ(?L'1,2'?MESAGE) LIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'1,2'?MESAGE) ENDOPT(*LEAVE) // * 'SAVING FILE ?L'1,2'?MISCUS' ***SAVE ?L'1,2'?MISCUS,,,JOFFE,TC,,,,,,,LEAVE SAVOBJ OBJ(?L'1,2'?MISCUS) LIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'1,2'?MISCUS) ENDOPT(*LEAVE) // * 'SAVING FILE ?L'1,2'?MLOAD' ***SAVE ?L'1,2'?MLOAD,,,JOFFE,TC,,,,,,,LEAVE SAVOBJ OBJ(?L'1,2'?MLOAD) LIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'1,2'?MLOAD) ENDOPT(*LEAVE) // * 'SAVING FILE ?L'1,2'?MOVLOD' ***SAVE ?L'1,2'?MOVLOD,,,JOFFE,TC,,,,,,,LEAVE SAVOBJ OBJ(?L'1,2'?MOVLOD) LIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'1,2'?MOVLOD) ENDOPT(*LEAVE) // * 'SAVING FILE ?L'1,2'?NHOUS' ***SAVE ?L'1,2'?NHOUS,,,JOFFE,TC,,,,,,,LEAVE SAVOBJ OBJ(?L'1,2'?NHOUS) LIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'1,2'?NHOUS) ENDOPT(*LEAVE) // * 'SAVING FILE ?L'1,2'?NJUAF' ***SAVE ?L'1,2'?NJUAF,,,JOFFE,TC,,,,,,,LEAVE SAVOBJ OBJ(?L'1,2'?NJUAF) LIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'1,2'?NJUAF) ENDOPT(*LEAVE) // * 'SAVING FILE ?L'1,2'?NMGLEN' ***SAVE ?L'1,2'?NMGLEN,,,JOFFE,TC,,,,,,,LEAVE SAVOBJ OBJ(?L'1,2'?NMGLEN) LIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'1,2'?NMGLEN) ENDOPT(*LEAVE) // * 'SAVING FILE ?L'1,2'?NPRCTA' ***SAVE ?L'1,2'?NPRCTA,,,JOFFE,TC,,,,,,,LEAVE SAVOBJ OBJ(?L'1,2'?NPRCTA) LIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'1,2'?NPRCTA) ENDOPT(*LEAVE) // * 'SAVING FILE ?L'1,2'?OPENAP' ***SAVE ?L'1,2'?OPENAP,,,JOFFE,TC,,,,,,,LEAVE SAVOBJ OBJ(?L'1,2'?OPENAP) LIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'1,2'?OPENAP) ENDOPT(*LEAVE) // * 'SAVING FILE ?L'1,2'?PAYRL' ***SAVE ?L'1,2'?ORDER,,,JOFFE,TC,,,,,,,LEAVE SAVOBJ OBJ(?L'1,2'?ORDER) LIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'1,2'?ORDER) ENDOPT(*LEAVE) // * 'SAVING FILE ?L'1,2'?ORDER' ***SAVE ?L'1,2'?PAYRL,,,JOFFE,TC,,,,,,,LEAVE SAVOBJ OBJ(?L'1,2'?PAYRL) LIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'1,2'?PAYRL) ENDOPT(*LEAVE) // * 'SAVING FILE ?L'1,2'?PODOL' ***SAVE ?L'1,2'?PODOL,,,JOFFE,TC,,,,,,,LEAVE SAVOBJ OBJ(?L'1,2'?PODOL) LIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'1,2'?PODOL) ENDOPT(*LEAVE) // * 'SAVING FILE ?L'1,2'?POMST' ***SAVE ?L'1,2'?POMST,,,JOFFE,TC,,,,,,,LEAVE SAVOBJ OBJ(?L'1,2'?POMST) LIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'1,2'?POMST) ENDOPT(*LEAVE) // * 'SAVING FILE ?L'1,2'?POREC' ***SAVE ?L'1,2'?POREC,,,JOFFE,TC,,,,,,,LEAVE SAVOBJ OBJ(?L'1,2'?POREC) LIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'1,2'?POREC) ENDOPT(*LEAVE) // * 'SAVING FILE ?L'1,2'?PRCTAB' ***SAVE ?L'1,2'?PRCTAB,,,JOFFE,TC,,,,,,,LEAVE SAVOBJ OBJ(?L'1,2'?PRCTAB) LIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'1,2'?PRCTAB) ENDOPT(*LEAVE) // * 'SAVING FILE ?L'1,2'?PRDREC' ***SAVE ?L'1,2'?PRDREC,,,JOFFE,TC,,,,,,,LEAVE SAVOBJ OBJ(?L'1,2'?PRDREC) LIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'1,2'?PRDREC) ENDOPT(*LEAVE) // * 'SAVING FILE ?L'1,2'?PRDUSG' ***SAVE ?L'1,2'?PRDUSG,,,JOFFE,TC,,,,,,,LEAVE SAVOBJ OBJ(?L'1,2'?PRDUSG) LIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'1,2'?PRDUSG) ENDOPT(*LEAVE) // * 'SAVING FILE ?L'1,2'?PROD' ***SAVE ?L'1,2'?PROD,,,JOFFE,TC,,,,,,,LEAVE SAVOBJ OBJ(?L'1,2'?PROD) LIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'1,2'?PROD) ENDOPT(*LEAVE) // * 'SAVING FILE ?L'1,2'?PROJ' ***SAVE ?L'1,2'?PROJ,,,JOFFE,TC,,,,,,,LEAVE SAVOBJ OBJ(?L'1,2'?PROJ) LIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'1,2'?PROJ) ENDOPT(*LEAVE) // * 'SAVING FILE ?L'1,2'?PYMT' ***SAVE ?L'1,2'?PYMT,,,JOFFE,TC,,,,,,,LEAVE SAVOBJ OBJ(?L'1,2'?PYMT) LIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'1,2'?PYMT) ENDOPT(*LEAVE) // * 'SAVING FILE ?L'1,2'?PYMTBD' ***SAVE ?L'1,2'?PYMTBD,,,JOFFE,TC,,,,,,,LEAVE SAVOBJ OBJ(?L'1,2'?PYMTBD) LIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'1,2'?PYMTBD) ENDOPT(*LEAVE) // * 'SAVING FILE ?L'1,2'?PYUN' ***SAVE ?L'1,2'?PYUN,,,JOFFE,TC,,,,,,,LEAVE SAVOBJ OBJ(?L'1,2'?PYUN) LIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'1,2'?PYUN) ENDOPT(*LEAVE) // * 'SAVING FILE ?L'1,2'?PYUNBD' ***SAVE ?L'1,2'?PYUNBD,,,JOFFE,TC,,,,,,,LEAVE SAVOBJ OBJ(?L'1,2'?PYUNBD) LIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'1,2'?PYUNBD) ENDOPT(*LEAVE) // * 'SAVING FILE ?L'1,2'?RECBD' ***SAVE ?L'1,2'?RECBD,,,JOFFE,TC,,,,,,,LEAVE SAVOBJ OBJ(?L'1,2'?RECBD) LIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'1,2'?RECBD) ENDOPT(*LEAVE) // * 'SAVING FILE ?L'1,2'?RCBDA1' ***SAVE ?L'1,2'?RCBDA1,,,JOFFE,TC,,,,,,,LEAVE SAVOBJ OBJ(?L'1,2'?RCBDA1) LIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'1,2'?RCBDA1) ENDOPT(*LEAVE) // * 'SAVING FILE ?L'1,2'?RECEV' ***SAVE ?L'1,2'?RECEV,,,JOFFE,TC,,,,,,,LEAVE SAVOBJ OBJ(?L'1,2'?RECEV) LIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'1,2'?RECEV) ENDOPT(*LEAVE) // * 'SAVING FILE ?L'1,2'?RECAL1' ***SAVE ?L'1,2'?RECAL1,,,JOFFE,TC,,,,,,,LEAVE SAVOBJ OBJ(?L'1,2'?RECAL1) LIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'1,2'?RECAL1) ENDOPT(*LEAVE) // * 'SAVING FILE ?L'1,2'?RELSHT' ***SAVE ?L'1,2'?RELSHT,,,JOFFE,TC,,,,,,,LEAVE SAVOBJ OBJ(?L'1,2'?RELSHT) LIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'1,2'?RELSHT) ENDOPT(*LEAVE) // * 'SAVING FILE ?L'1,2'?RELSH1' ***SAVE ?L'1,2'?RELSH1,,,JOFFE,TC,,,,,,,LEAVE SAVOBJ OBJ(?L'1,2'?RELSH1) LIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'1,2'?RELSH1) ENDOPT(*LEAVE) // * 'SAVING FILE ?L'1,2'?SALMEN' ***SAVE ?L'1,2'?SALMEN,,,JOFFE,TC,,,,,,,LEAVE SAVOBJ OBJ(?L'1,2'?SALMEN) LIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'1,2'?SALMEN) ENDOPT(*LEAVE) // * 'SAVING FILE ?L'1,2'?UNCASH' ***SAVE ?L'1,2'?UNCASH,,,JOFFE,TC,,,,,,,LEAVE SAVOBJ OBJ(?L'1,2'?UNCASH) LIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'1,2'?UNCASH) ENDOPT(*LEAVE) // * 'SAVING FILE ?L'1,2'?UNCSBD' ***SAVE ?L'1,2'?UNCSBD,,,JOFFE,TC,,,,,,,LEAVE SAVOBJ OBJ(?L'1,2'?UNCSBD) LIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'1,2'?UNCSBD) ENDOPT(*LEAVE) // * 'SAVING FILE ?L'1,2'?VENDOR' ***SAVE ?L'1,2'?VENDOR,,,JOFFE,TC,,,,,,,LEAVE SAVOBJ OBJ(?L'1,2'?VENDOR) LIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'1,2'?VENDOR) ENDOPT(*LEAVE) // * 'SAVING FILE ?L'1,2'?YPAYRL' ***SAVE ?L'1,2'?YPAYRL,,,JOFFE,TC,,,,,,,LEAVE SAVOBJ OBJ(?L'1,2'?YPAYRL) LIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'1,2'?YPAYRL) ENDOPT(*REWIND) // IF ?F'A,?L'1,2'?RECVNC'?=0 GOTO END // * 'SAVING FILE ?L'1,2'?RECVNC' ***SAVE ?L'1,2'?RECVNC,,,JOFFE,TC,,,,,,,LEAVE SAVOBJ OBJ(?L'1,2'?RECVNC) LIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'1,2'?RECVNC) ENDOPT(*LEAVE) // * 'SAVING FILE ?L'1,2'?UNCSNC' ***SAVE ?L'1,2'?UNCSNC,,,JOFFE,TC,,,,,,,LEAVE SAVOBJ OBJ(?L'1,2'?UNCSNC) LIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'1,2'?UNCSNC) ENDOPT(*LEAVE) // TAG END // CEND // COPY LIBRARY-P,NAME-JF0125,RECL-096,REF-000002,DATE-01/03/23,TIME-1220 BLDFILE ?WS?XDLGLD,I,R,5000,49,,,1,8 JF0126 JF0127 JF0128 // CEND // COPY LIBRARY-P,NAME-JF0126,RECL-096,DATE-01/03/23,TIME-1220 // LOAD JF0126 // FILE NAME-PYMT,LABEL-?L'100,2'?PYMT,DISP-SHR // FILE NAME-PYUN,LABEL-?L'100,2'?PYUN,DISP-SHR // FILE NAME-GLPMT,LABEL-?L'100,2'?GLPMT,DISP-SHR // FILE NAME-XDLGLD,LABEL-?WS?XDLGLD // FILE NAME-XDLCSH,LABEL-?WS?XDLCSH,RECORDS-20000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0127,RECL-096,DATE-04/08/30,TIME-1126 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XDLCSH,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XDLCSS,RECORDS-10000 // RUN HSORTRS 8A 3X 40 FNU 37 40 FNU 1 4 FDC 1 6 FSP 7 11 FSP 12 16 FSP 17 21 FSP 22 26 FSP 27 31 FSP 32 36 FDC 37 40 // END // CEND // COPY LIBRARY-P,NAME-JF0128,RECL-096,DATE-01/03/23,TIME-1220 // LOAD JF0128 // FILE NAME-XDLCSS,LABEL-?WS?XDLCSS,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-XDLGLD,LABEL-?WS?XDLGLD,RETAIN-S // RUN // CEND // COPY LIBRARY-P,NAME-JF0129,RECL-096,DATE-01/03/23,TIME-1220 // LOAD JF0129 // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-GLFILE,LABEL-?L'100,2'?GLFILE,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0130,RECL-096,DATE-01/03/23,TIME-1220 // LOAD JF0130 // FILE NAME-HOUSE,LABEL-?L'100,2'?HOUSE,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-XHSITM,LABEL-?WS?XHSITM,RECORDS-40000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0131,RECL-096,DATE-01/06/19,TIME-1039 // LOAD JF0131 OVRPRTF FILE(PRT) USRDTA('HOUSE ITEM') // SWITCH 10000000 // FILE NAME-XHSITS,LABEL-?WS?XHSITS,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-HOUSE,LABEL-?L'100,2'?HOUSE,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0132,RECL-096,DATE-01/03/23,TIME-1220 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XHSITM,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XHSITS,RECORDS-40000 // RUN HSORTR 18A 3X 45 FNC 44 45 FNC 11 17 FNU 1 6 FNU 7 9 FDC 1 45 // END // CEND // COPY LIBRARY-P,NAME-JF0133,RECL-096,DATE-01/03/23,TIME-1220 // LOAD JF0133 // FILE NAME-RECEV,LABEL-?L'100,2'?RECEV,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-XRCLS,LABEL-?WS?XRCLS,RECORDS-20000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0134,RECL-096,DATE-03/10/26,TIME-2057 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XRCLS,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XRCLSS,RECORDS-20000 // RUN HSORTR 31A 3X 310 FNC 301 302 FNU 303 306 FNC 8 13 FNU 307 310 FNU 14 17 FNU 2 7 FDC 1 256 FDC 257 310 // END // CEND // COPY LIBRARY-P,NAME-JF0135,RECL-096,REF-000002,DATE-01/03/23,TIME-1220 // LOAD JF0135 ***** // IF ?WS?='X8' PRINTER NAME-PRT,FONT-DF // SWITCH 10000000 // FILE NAME-XRCLSS,LABEL-?WS?XRCLSS,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-SALMEN,LABEL-?L'100,2'?SALMEN,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0136,RECL-096,DATE-01/03/23,TIME-1220 // LOAD JF0136 // PRINTER NAME-PRT,COPIES-2,FORMSNO-NJQR // FILE NAME-XPRLST,LABEL-?WS?XPRLST // FILE NAME-XQRTDT,LABEL-?WS?XQRTDT // FILE NAME-EMPLYE,LABEL-?L'100,2'?EMPLYE,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0137,RECL-096,DATE-01/03/23,TIME-1220 // LOAD JF0137 // FILE NAME-EMPLYE,LABEL-?L'100,2'?EMPLYE // FILE NAME-PAYRL,LABEL-?L'100,2'?PAYRL,DISP-SHR // FILE NAME-YPAYRL,LABEL-?L'100,2'?YPAYRL,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0138,RECL-096,DATE-01/03/23,TIME-1220 // LOAD JF0009 // SWITCH 00000000 // FILE NAME-HOUSE,LABEL-?L'100,2'?HOUEST,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-XHSSL,LABEL-?WS?XHSSL,RECORDS-500 // RUN // CEND // COPY LIBRARY-P,NAME-JF0139,RECL-096,DATE-01/03/23,TIME-1220 // LOAD JF0010 // SWITCH 01000000 // FILE NAME-HOUSE,LABEL-?L'100,2'?HOUEST,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0140,RECL-096,DATE-01/03/23,TIME-1220 // TAG AGN // * ' ' // * 'DO YOU WISH TO USE CURRENT OR OLD PRICES TO RECALCULATE SINGLE LINE PRICES' // * 'FOR ESTIMATED HOUSES ?' // * ' ' // * ' C = CURRENT' // * ' O = OLD' // * ' ' // LOCAL OFFSET-1,DATA-'?R?' // IF ?L'1,1'?='C' GOTO CUROLD // IF ?L'1,1'?='O' GOTO CUROLD // GOTO AGN // TAG CUROLD // IF ?L'1,1'?='C' * 'YOU HAVE CHOSEN CURRENT PRICES.' // IF ?L'1,1'?='O' * 'YOU HAVE CHOSEN OLD PRICES.' // * ' PRESS ENTER TO CONTINUE.' // * ' PRESS X TO CANCEL.' // * ' ' // IFF ?R?='X' GOTO END // GOTO AGN // TAG END JF0141 JF0142 JF0559 JF0768 // CEND // COPY LIBRARY-P,NAME-JF0141,RECL-096,DATE-01/03/23,TIME-1220 // LOAD JF0011 // SWITCH 00000000 // FILE NAME-HOUSE,LABEL-?L'100,2'?HOUEST,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-XADHS,LABEL-?WS?XADHSE,RECORDS-5000 // FILE NAME-XHSSL,LABEL-?WS?XHSSL,RECORDS-1000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0142,RECL-096,DATE-01/03/23,TIME-1220 // LOAD JF0085 // SWITCH 00000000 // FILE NAME-XADHS,LABEL-?WS?XADHSE,RETAIN-S // FILE NAME-HOUSE,LABEL-?L'100,2'?HOUEST,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0143,RECL-096,DATE-01/03/23,TIME-1220 // LOAD JF0143 // FILE NAME-XHSELI,LABEL-?L'100,2'?XHSELI // FILE NAME-HOUSE,LABEL-?L'100,2'?HOUSE,RECORDS-250000,EXTEND-10000 // FILE NAME-DELHS,LABEL-?L'100,2'?DELHS,RECORDS-200000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0144,RECL-096,REF-000005,DATE-01/03/23,TIME-1221 // IFF DATAF1-?L'100,2'?DELHS GOTO BEGIN // * 'THERE EXISTS ON DISK THE FILE ?L'100,2'?DELHS WHICH CONTAINS DELETED HOUSE' // * 'DATA FROM THE LAST TIME YOU REORGANIZED THE HOUSE FILE.' // * ' ' // * 'PLEASE USE PC/SUPPORT TO COPY THIS FILE TO AN EMULATED PC' // * 'AND MAKE AT LEAST TWO (2) COPIES OF IT ON DISKETTE.' // * ' ' // * 'LABEL THEM WITH THE DATE YOU REORGANIZED THE HOUSE FILE' // * '(WHICH IS THE SAME AS THE ?L'100,2'?DELHS FILE DATE FROM A CATALOG' // * 'AND ANY OTHER PERTINENT INFORMATION YOU WISH.' // * ' ' // * 'THEN DELETE IT FROM THE COMPUTER.' // * ' ' // * 'PRESS THE ENTER KEY TO RETURN TO MENU.' // * ' ' // IF ?R?='X' GOTO END // GOTO END // TAG BEGIN // * 'THIS PROCEDURE WILL REORGANIZE THE HOUSE FILE' // * 'AND PHYSICALLY REMOVE ANY DELETED HOUSE LINES' // * ' ' // * 'IT IS STRONGLY RECOMMENDED THAT YOU MAKE A BACKUP COPY' // * 'OF THE HOUSE FILE (AND BASE HOUSE FILE) ON TAPE' // * 'BEFORE RUNNING THIS PROCEDURE' // * ' ' // * 'ALL LINES REMOVED FROM THE HOUSE FILE WILL BE PLACED' // * 'IN A FILE NAMED ?L'100,2'?DELHS. PLEASE USE PC/SUPPORT TO COPY' // * 'THIS FILE TO AN EMULATED PC AND' // * 'MAKE AT LEAST TWO (2) COPIES OF IT ON DISKETTE.' // * ' ' // * 'LABEL THEM WITH THE DATE YOU REORGANIZED THE HOUSE FILE' // * 'AND ANY OTHER PERTINENT INFORMATION YOU WISH.' // * ' ' // * 'THEN DELETE IT FROM THE COMPUTER.' // * 'PLEASE NOTE THAT ANY BASE HOUSE INFORMATION IS NOT COPIED' // * ' ' // * 'WHILE THIS IS BEING DONE NO ONE ELSE MAY USE THIS FILE' // * ' ' // * 'IF SOMEONE ELSE IS USING THIS FILE YOU MAY CANCEL THIS PROCEDURE' // * 'BY PRESSING THE "ATTN" KEY AND TAKING A 3 OPTION TO THE' // * 'SELECTIONS PRESENTED' // * '' // * 'IF YOU ARE SURE NO ONE ELSE IS USING THIS FILE YOU MAY START' // * 'THE FILE REORGANIZATION BY TAKING A 0 OPTION TO THE PAUSE HALT' // * ' ' // * 'OTHERWISE CANCEL THIS PROCEDURE BY PRESSING THE ATTN KEY' // * 'AND TAKING A 3 OPTION TO CHOICES PRESENTED' // * ' ' // PAUSE RENAME ?L'100,2'?HOUSE,?L'100,2'?XHSELI JF0143 DELETE ?L'100,2'?XHSELI,F1 RENAME ?L'100,2'?BSEHSE,?L'100,2'?XBSEHS COPYDATA ?L'100,2'?XBSEHS,,?L'100,2'?BSEHSE,,,,,REORG,OMIT,13,EQ,'D' DELETE ?L'100,2'?XBSEHS,F1 // TAG END // CEND // COPY LIBRARY-P,NAME-JF0145,RECL-096,DATE-01/03/23,TIME-1221 // * 'THIS PROCEDURE WILL REORGANIZE THE SALESMAN FILE' // * 'AND PHYSICALLY REMOVE ANY DELETED SALESMEN' // * '' // * 'WHILE THIS IS BEING DONE NO ONE ELSE MAY USE THIS FILE' // * '' // * 'IF SOMEONE ELSE IS USING THIS FILE YOU MAY CANCEL THIS PROCEDURE' // * 'BY PRESSING THE "ATTN" KEY AND TAKING A 3 OPTION TO THE' // * 'SELECTIONS PRESENTED' // * '' // * 'IF YOU ARE SURE NO ONE ELSE IS USING THIS FILE YOU MAY START' // * 'THE FILE REORGANIZATION BY TAKING A 0 OPTION TO THE PAUSE HALT' // PAUSE RENAME ?L'100,2'?SALMEN,?L'100,2'?ZSALMN COPYDATA ?L'100,2'?ZSALMN,,?L'100,2'?SALMEN,,,,,REORG,OMIT,32,EQ,'D' DELETE ?L'100,2'?ZSALMN,F1 // CEND // COPY LIBRARY-P,NAME-JF0146,RECL-096,DATE-06/11/10,TIME-1224 // LOAD JF0146 // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-PRCTAB,LABEL-?L'100,2'?PRCTAB,DISP-SHR // FILE NAME-HOUSE,LABEL-?L'100,2'?HOUSE,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-RELSHT,LABEL-?L'100,2'?RELSHT,DISP-SHR // FILE NAME-ORDER,LABEL-?L'100,2'?ORDER,DISP-SHR // FILE NAME-XLODOF,LABEL-?WS?XLODOF,RECORDS-5000 // FILE NAME-XMSCSO,LABEL-?WS?XMSCSO,RECORDS-500 // RUN // CEND // COPY LIBRARY-P,NAME-JF0147,RECL-096,REF-000001,DATE-04/12/21,TIME-0925 // * 'DO YOU WISH MONTHLY SALES ANALYSIS IN ORDER BY:' // * ' C = CUSTOMER NAME, CUSTOMER#' // * ' S = SALESMAN CODE, CUSTOMER NAME, CUSTOMER#' // LOCAL OFFSET-1,DATA-'?R?' // IF ?L'1,1'?='S' GOTO SALMAN JF1187 JF1189 JF1188 // GOTO END // TAG SALMAN JF0180 JF0790 JF0083 // TAG END // CEND // COPY LIBRARY-P,NAME-JF0148,RECL-096,REF-000001,DATE-01/03/23,TIME-1221 // LOAD JF0021 // SWITCH 01000000 // PRINTER NAME-PRT,COPIES-1 // FILE NAME-XLOADS,LABEL-?WS?XLODOS,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-XMSCS,LABEL-?WS?XMSCSO,RETAIN-S // FILE NAME-XLOAD,LABEL-?WS?XLOADO // RUN // CEND // COPY LIBRARY-P,NAME-JF0149,RECL-096,DATE-01/03/23,TIME-1221 // LOAD JF0149 // FILE NAME-LOAD1,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-LOAD2,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-XLOADB,LABEL-?WS?XLOADB,RECORDS-5000 // FILE NAME-XCHGLD,LABEL-?WS?XCHGLD,RECORDS-1000 // FILE NAME-XLMES,LABEL-?WS?XLMES,RECORDS-1 // RUN // CEND // COPY LIBRARY-P,NAME-JF0150,RECL-096,DATE-01/03/23,TIME-1221 // LOAD JF0150 // FILE NAME-XLOAD,LABEL-?WS?XLOADO // FILE NAME-XLOADP,LABEL-?WS?XLODOP,RECORDS-5000 // FILE NAME-XLMES,LABEL-?WS?XLMES,RECORDS-1 // RUN // CEND // COPY LIBRARY-P,NAME-JF0151,RECL-096,DATE-01/06/19,TIME-1110 // LOAD JF0018 OVRPRTF FILE(PRT) USRDTA('LOADS') // SWITCH 10000000 // PRINTER NAME-PRT,FORMSNO-LOAD // FILE NAME-XLOAD,LABEL-?WS?XLODOP,RETAIN-S // FILE NAME-XLMES,LABEL-?WS?XLMES,RETAIN-S // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-MISCUS,LABEL-?WS?XMSCSO // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-PRCTAB,LABEL-?L'100,2'?PRCTAB,DISP-SHR // FILE NAME-MESAGE,LABEL-?L'100,2'?MESAGE,DISP-SHR // FILE NAME-CUSMAP,LABEL-?L'100,2'?CUSMAP,DISP-SHR // FILE NAME-LOAD,LABEL-?WS?XLOADO // RUN // CEND // COPY LIBRARY-P,NAME-JF0152,RECL-096,DATE-01/03/23,TIME-1221 // LOAD JF0026 // FILE NAME-XLOAD,LABEL-?WS?XLOADO // FILE NAME-XMSCS,LABEL-?WS?XMSCSO // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR,EXTEND-10000 // FILE NAME-MISCUS,LABEL-?L'100,2'?MISCUS,DISP-SHR // FILE NAME-RELSHT,LABEL-?L'100,2'?RELSHT,DISP-SHR,EXTEND-1000 // FILE NAME-INVCB,LABEL-?L'100,2'?INVCB,DISP-SHR,EXTEND-1000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0153,RECL-096,REF-000003,DATE-01/03/23,TIME-1221 // TAG AGNPRT // * ' ' // * 'DO YOU WISH TO PRINT LABELS FOR THE BACK ORDERS AND RBOS' // * 'THAT YOU ENTER ? (Y=YES, N=NO)' // * ' ' // LOCAL OFFSET-2,DATA-'?R?' // IFF ?L'2,1'?='Y' GOTO ENLAB1 // * ' ' // * 'HOW DO YOU WISH LABELS TO PRINT ?' // * ' ' // * ' 1 - WITH BOLD HEADINGS ON ANY PRINTER WITH A QMS BOARD' // * ' ' // * ' 2 - WITH BOLD HEADINGS ON ANY IPDS PRINTER' // * ' ' // * ' 3 - WITH ONLY NORMAL SIZE WRITING ON ANY PRINTER' // * ' ' // LOCAL OFFSET-1,DATA-'?R?' // IF ?L'1,1'?='1' GOTO ENDPRT // IF ?L'1,1'?='2' GOTO ENDPRT // IF ?L'1,1'?='3' GOTO ENDPRT // GOTO AGNPRT // TAG ENDPRT // * ' ' // TAG ENLAB1 JF0149 JF0154 JF0387 JF0385 JF0386 JF0159 JF0400 JF0401 JF0402 JF0403 JF0404 RENAME ?WS?XLOADB,?WS?XILOAD JF0278 JF0029 JF0076 // IFF ?L'2,1'?='Y' GOTO ENLAB2 ***** JF0288 JF0269 JF0275 JF0276 // IF ?L'1,1'?='1' JF0220 // IF ?L'1,1'?='2' JF0711 // IF ?L'1,1'?='3' JF0220 // TAG ENLAB2 DELETE ?WS?XITHD,F1 DELETE ?WS?XITOR,F1 ***** JF0332 JF0330 JF0328 JF0329 JF0331 // CEND // COPY LIBRARY-P,NAME-JF0154,RECL-096,REF-000001,DATE-05/12/20,TIME-1212 // LOAD JF0018 // SWITCH 01000001 ***** MAP WILL NOT PRINT ON EVERY LOAD WHEN SWITCH #8 = 1 ***** TWO DIGIT # IN NEXT LINE AFTER DATA IS # LOADS WHEN MAP PRINTS // LOCAL OFFSET-3,DATA-'05' // PRINTER NAME-PRT,FORMSNO-LOAD // FILE NAME-XLOAD,LABEL-?WS?XLOADB // FILE NAME-XLMES,LABEL-?WS?XLMES,RETAIN-S // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-MISCUS,LABEL-?L'100,2'?MISCUS,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-PRCTAB,LABEL-?L'100,2'?PRCTAB,DISP-SHR // FILE NAME-MESAGE,LABEL-?L'100,2'?MESAGE,DISP-SHR // FILE NAME-CUSMAP,LABEL-?L'100,2'?CUSMAP,DISP-SHR // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0155,RECL-096,DATE-01/03/23,TIME-1221 // * 'THIS PROCEDURE WILL END THE PAYROLL QUARTER. BEFORE YOU DO THIS' // * 'BE SURE ALL QUARTERLY REPORTS HAVE BEEN RUN' // * '' // * 'IF YOU DO NOT WISH TO DO THIS YOU MAY CANCEL THIS PROCEDURE' // * 'BY PRESSING THE "ATTN" KEY AND TAKING A 3 OPTION TO THE' // * 'SELECTIONS PRESENTED' // * '' // * 'IF YOU WISH TO CONTINUE YOU SHOULD TAKE A 0 OPTION TO THE PAUSE HALT' // PAUSE JF0077 RENAME ?WS?XPRLS,?L'100,2'?YPAYRL BLDFILE ?L'100,2'?PAYRL,S,R,7000,140 // CEND // COPY LIBRARY-P,NAME-JF0156,RECL-096,DATE-01/03/23,TIME-1221 // * 'THIS PROCEDURE WILL SET ALL EMPLOYEE YEAR TO DATE TOTALS TO ZERO' // * 'AND PHYSICALLY REMOVE ANY DELETED EMPLOYEES' // * '' // * 'IF YOU DO NOT WISH TO DO THIS YOU MAY CANCEL THIS PROCEDURE' // * 'BY PRESSING THE "ATTN" KEY AND TAKING A 3 OPTION TO THE' // * 'SELECTIONS PRESENTED' // * '' // * 'IF YOU WISH TO CONTINUE YOU SHOULD TAKE A 0 OPTION TO THE PAUSE HALT' // PAUSE RENAME ?L'100,2'?EMPLYE,?WS?ZEMPLY JF0120 // CEND // COPY LIBRARY-P,NAME-JF0157,RECL-096,DATE-01/03/23,TIME-1221 JF0106 JF0107 JF0108 // CEND // COPY LIBRARY-P,NAME-JF0158,RECL-096,DATE-01/03/23,TIME-1221 JF0137 RENAME ?L'100,2'?EMPLYE,?WS?XEMP COPYDATA ?WS?XEMP,,?L'100,2'?EMPLYE,,,,,REORG,OMIT,350,EQ,D DELETE ?WS?XEMP,F1 // CEND // COPY LIBRARY-P,NAME-JF0159,RECL-096,REF-000001,DATE-01/04/17,TIME-0651 // LOAD JF0159 // PRINTER NAME-PRT,COPIES-4 // FILE NAME-XLODBS,LABEL-?WS?XLODBS,RETAIN-S // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-RELSHT,LABEL-?L'100,2'?RELSHT,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-MISCUS,LABEL-?L'100,2'?MISCUS,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0160,RECL-096,DATE-01/03/23,TIME-1221 // LOAD JF0012 // SWITCH 01000000 // FILE NAME-XLOADO,LABEL-?WS?XLOADO // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0161,RECL-096,REF-000003,DATE-07/01/30,TIME-0913 JF0162 JF1192 JF1193 JF1194 JF0032 JF1209 JF1201 JF1017 JF0653 JF0438 JF0752 JF1013 DELETE ?WS?XINVC,F1 JF0753 // IF DATAF1-?L'100,2'?RECVNC JF1219 JF0033 // CEND // COPY LIBRARY-P,NAME-JF0162,RECL-096,DATE-06/11/10,TIME-1222 // LOAD JF0162 // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-RECEV,LABEL-?L'100,2'?RECEV,DISP-SHR // FILE NAME-ORDER,LABEL-?L'100,2'?ORDER,DISP-SHR // FILE NAME-XINVC,LABEL-?WS?XINVC,RECORDS-10000 // FILE NAME-MISCUS,LABEL-?L'100,2'?MISCUS,DISP-SHR // FILE NAME-XHINV,LABEL-?WS?XHINV,RECORDS-10000 // FILE NAME-XREC,LABEL-?WS?XREC,RECORDS-2000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0163,RECL-096,DATE-05/08/31,TIME-1257 JF0099 JF0164 JF1192 JF1193 JF1194 JF1195 JF1193 JF1196 JF0165 // CEND // COPY LIBRARY-P,NAME-JF0164,RECL-096,REF-000001,DATE-01/03/23,TIME-1221 // LOAD JF0164 // FILE NAME-XINVC,LABEL-?WS?XINVC,DISP-SHR // FILE NAME-XXHIN,LABEL-?WS?XXHIN,RETAIN-S // FILE NAME-XXREC,LABEL-?WS?XXREC,RETAIN-S // FILE NAME-XINVC2,LABEL-?WS?XINVC,DISP-SHR // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-XXINV,LABEL-?WS?XXINV,RECORDS-20000 // FILE NAME-XHINV,LABEL-?WS?XHINV,RECORDS-20000 // FILE NAME-XREC,LABEL-?WS?XREC,RECORDS-4000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0165,RECL-096,DATE-11/01/14,TIME-1100 // LOAD JF0032 // SWITCH 00000101 OVRPRTF FILE(PRT) USRDTA('INVOICES') // PRINTER NAME-PRT,FORMSNO-INVC // FILE NAME-XINVC,LABEL-?WS?XXINV,RETAIN-S // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-MISCUS,LABEL-?L'100,2'?MISCUS,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-PRCTAB,LABEL-?L'100,2'?PRCTAB,DISP-SHR // FILE NAME-BSEHSE,LABEL-?L'100,2'?BSEHSE,DISP-SHR // FILE NAME-HOUSE,LABEL-?L'100,2'?HOUSE,DISP-SHR // FILE NAME-MESAGE,LABEL-?L'100,2'?MESAGE,DISP-SHR // FILE NAME-XHINV,LABEL-?WS?XHINV // FILE NAME-XREC,LABEL-?WS?XREC // RUN // CEND // COPY LIBRARY-P,NAME-JF0166,RECL-096,DATE-01/03/23,TIME-1221 // LOAD JF0166 // SWITCH 10000000 // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-MISCUS,LABEL-?L'100,2'?MISCUS,DISP-SHR // FILE NAME-RELSHT,LABEL-?L'100,2'?RELSHT,DISP-SHR // FILE NAME-XCHGLD,LABEL-?WS?XCHGLD,RECORDS-500 // RUN // CEND // COPY LIBRARY-P,NAME-JF0167,RECL-096,DATE-01/03/23,TIME-1221 // LOAD JF0167 // FILE NAME-GLFILE,LABEL-?L'100,2'?GLFILE,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0168,RECL-096,DATE-01/03/23,TIME-1221 // LOAD JF0168 // FILE NAME-XAPWK,LABEL-?WS?XAPWK // FILE NAME-XVNIN,LABEL-?WS?XVNIN,RECORDS-500 // RUN // CEND // COPY LIBRARY-P,NAME-JF0169,RECL-096,DATE-01/03/23,TIME-1221 // LOAD JF0012 // SWITCH 10000000 // FILE NAME-HOUSE,LABEL-?L'100,2'?HOUEST,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-XHSSL,LABEL-?WS?XHSSL,RECORDS-500 // RUN // CEND // COPY LIBRARY-P,NAME-JF0170,RECL-096,DATE-01/10/08,TIME-1442 // LOAD JF0014 OVRPRTF FILE(PRT) USRDTA('HOUSE SUMM') // SWITCH 01000000 // FILE NAME-HOUSE,LABEL-?L'100,2'?HOUEST,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0171,RECL-096,DATE-01/03/23,TIME-1221 // * 'PLEASE INDICATE WHICH SIZE PAPER YOU WISH FOR DETAILED HOUSE LISTING:' // * ' ' // * ' 1 = 11 X 14 INCH (FULL SIZE COMPUTER PAPER)' // * ' 2 = 8 1/2 X 14 INCH' // * ' ' // LOCAL OFFSET-201,DATA-'?R?',BLANK-1 // * ' ' // * 'DO YOU WISH PRICES TO PRINT FOR SINGLE-LINE PRICED HOUSES' // * 'FOR THOSE CUSTOMERS DESIGNATED AS NOT NORMALLY HAVING PRICES PRINT ?' // * ' (Y=YES, N OR JUST PRESSING ENTER=NO)' // * ' ' // LOCAL OFFSET-1,DATA-'?R?',BLANK-1 // * ' ' JF0172 JF0351 // CEND // COPY LIBRARY-P,NAME-JF0172,RECL-096,REF-000001,DATE-01/03/23,TIME-1221 // LOAD JF0015 // FILE NAME-HOUSE,LABEL-?L'100,2'?HOUEST,DISP-SHR // FILE NAME-XHSEL,LABEL-?WS?XHSEL,RECORDS-70000 // FILE NAME-XHSCH,LABEL-?WS?XHSCH,RECORDS-1 // RUN // CEND // COPY LIBRARY-P,NAME-JF0173,RECL-096,DATE-01/03/23,TIME-1221 // LOAD JF0024 // SWITCH 00000000 // FILE NAME-HOUSE,LABEL-?L'100,2'?HOUEST,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0174,RECL-096,DATE-01/03/23,TIME-1221 // LOAD JF0097 // SWITCH 00000000 // FILE NAME-HOUSE,LABEL-?L'100,2'?HOUEST,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-XHSSL,LABEL-?WS?XHSSL,RECORDS-1000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0175,RECL-096,DATE-01/03/23,TIME-1221 // LOAD JF0101 // SWITCH 01000000 // FILE NAME-HOUSE,LABEL-?L'100,2'?HOUEST,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0176,RECL-096,DATE-01/03/23,TIME-1221 // LOAD JF0013 // SWITCH 00000000 // FILE NAME-HOUSE,LABEL-?L'100,2'?HOUEST,DISP-SHR // FILE NAME-XHSSL,LABEL-?WS?XHSSL,RECORDS-3000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0177,RECL-096,DATE-01/03/23,TIME-1221 // IFF DATAF1-?L'100,2'?DELEHS GOTO BEGIN // * 'THERE EXISTS ON DISK THE FILE ?L'100,2'?DELEHS WHICH CONTAINS DELETED HOUSE' // * 'DATA FROM THE LAST TIME YOU REORGANIZED THE HOUSE FILE.' // * ' ' // * 'PLEASE COPY THIS FILE OFF AND DELETE IT BEFORE YOU RERUN THIS PROCEDURE.' // * ' ' // * 'PRESS THE ENTER KEY TO RETURN TO MENU.' // * ' ' // IF ?R?='X' GOTO END // GOTO END // TAG BEGIN // * 'THIS PROCEDURE WILL REORGANIZE THE ESTIMATING HOUSE FILE' // * 'AND PHYSICALLY REMOVE ANY DELETED HOUSE LINES' // * '' // * 'IT IS STRONGLY RECOMMENDED THAT YOU MAKE A BACKUP COPY' // * 'OF THE HOUSE FILE ON TAPE BEFORE YOU RUN THIS PROCEEDURE.'S FILE' // * '' // * 'WHILE THIS IS BEING DONE NO ONE ELSE MAY USE THIS FILE' // * '' // * 'IF SOMEONE ELSE IS USING THIS FILE YOU MAY CANCEL THIS PROCEDURE' // * 'BY PRESSING THE "ATTN" KEY AND TAKING A 3 OPTION TO THE' // * 'SELECTIONS PRESENTED' // * '' // * 'IF YOU ARE SURE NO ONE ELSE IS USING THIS FILE YOU MAY START' // * 'THE FILE REORGANIZATION BY TAKING A 0 OPTION TO THE PAUSE HALT' // PAUSE RENAME ?L'100,2'?HOUEST,?WS?XHSELE JF0178 DELETE ?WS?XHSELE,F1 // CEND // COPY LIBRARY-P,NAME-JF0178,RECL-096,DATE-01/03/23,TIME-1221 // LOAD JF0143 // FILE NAME-XHSELI,LABEL-?WS?XHSELE // FILE NAME-HOUSE,LABEL-?L'100,2'?HOUEST,RECORDS-70000,EXTEND-5000 // FILE NAME-DELHS,LABEL-?L'100,2'?DELEHS,RECORDS-50000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0179,RECL-096,DATE-05/04/04,TIME-0859 // * 'THIS PROGRAM WILL ALLOW YOU TO MAKE CHANGES TO THE CONTROL FILE' // * 'FOR COMPANY ?L'100,2'?' // * ' ' // * 'PLEASE ENTER THE PASSWORD.' // IFF ?R?='JOSEATJOFFEAGOODMAN' GOTO END // * ' ' // LOAD JF0179 // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // RUN // TAG END // CEND // COPY LIBRARY-P,NAME-JF0180,RECL-096,REF-000001,DATE-04/12/20,TIME-1136 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-OUTPUT,LABEL-?WS?XCUSSM,RECORDS-5000 // RUN HSORTR 38A 3X 600 I C 600EQCA IAC 1 6LTC900000 FNC 299 300 FNC 8 37 FNU 1 6 FDC 1 256 FDC 257 512 FDC 513 600 // END // CEND // COPY LIBRARY-P,NAME-JF0181,RECL-096,DATE-01/03/23,TIME-1221 // LOCAL OFFSET-1,DATA-'?DATE?',BLANK-6,AREA-USER // * 'THESE DISKETTE W2''S WILL USE THE YEAR ***** 19?L'5,2'? *****' // * 'WHICH IS THE YEAR FROM THE COMPUTER DATE' // * '' // * 'IF THIS IS THE INCORRECT YEAR YOU MAY CANCEL THIS PROCEDURE' // * 'BY PRESSING THE "ATTN" KEY AND TAKING A 3 OPTION TO THE' // * 'SELECTIONS PRESENTED' // * '' // * 'IF THE YEAR IS CORRECT YOU MAY BEGIN THE PROCEDURE' // * 'BY TAKING A 0 OPTION TO THE PAUSE HALT' // * '' // * 'BE SURE YOU HAVE A BLANK SINGLE DENSITY DISKETTE IN THE COMPUTER' // * '' // PAUSE JF0182 JF0184 INIT IBMIRD,JOFFE,FORMAT TRANSFER W2REPORT,F1,,IBMIRD,999 DELETE W2REPORT,F1 // CEND // COPY LIBRARY-P,NAME-JF0182,RECL-096,DATE-01/03/23,TIME-1221 // LOAD JF0182 // FILE NAME-EMPLYE,LABEL-?L'100,2'?EMP94 // FILE NAME-W2REPORT,RECORDS-2000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0183,RECL-096,DATE-01/03/23,TIME-1221 // LOAD JF0070 // SWITCH 01000000 // FILE NAME-XPRLST,LABEL-?WS?XPRLST // FILE NAME-EMPLYE,LABEL-?L'100,2'?EMPLYE,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0184,RECL-096,DATE-01/03/23,TIME-1221 // LOAD JF0184 // FILE NAME-W2REPORT // RUN // CEND // COPY LIBRARY-P,NAME-JF0185,RECL-096,DATE-01/03/23,TIME-1221 // LOAD JF0185 // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-HOUSE,LABEL-?L'100,2'?HOUSE,DISP-SHR // FILE NAME-HOUEST,LABEL-?L'100,2'?HOUEST,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0186,RECL-096,DATE-01/03/23,TIME-1221 // LOAD JF0037 // SWITCH 01000000 // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-RECEV,LABEL-?L'100,2'?RECBD,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0187,RECL-096,DATE-01/03/23,TIME-1221 // LOAD JF0065 // FILE NAME-RECEV,LABEL-?L'100,2'?RECBD,DISP-SHR // FILE NAME-XPMTY,LABEL-?WS?XPMTY // RUN // CEND // COPY LIBRARY-P,NAME-JF0188,RECL-096,DATE-01/03/23,TIME-1221 // LOAD JF0066 // FILE NAME-XPMTY,LABEL-?WS?XPMTY // FILE NAME-RECEV,LABEL-?L'100,2'?RECBD,DISP-SHR // FILE NAME-PYMT,LABEL-?L'100,2'?PYMTBD,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0189,RECL-096,DATE-01/03/23,TIME-1221 // LOAD JF0035 // SWITCH 01000000 // FILE NAME-XPMTY,LABEL-?WS?XPMTY,RETAIN-S // FILE NAME-RECEV,LABEL-?L'100,2'?RECBD,DISP-SHR // FILE NAME-PYMT,LABEL-?L'100,2'?PYMTBD,DISP-SHR // FILE NAME-XPMTX,LABEL-?WS?XPMTX,RECORDS-3000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0190,RECL-096,DATE-01/03/23,TIME-1221 JF0064 JF0187 JF0188 JF0189 JF0036 // CEND // COPY LIBRARY-P,NAME-JF0191,RECL-096,DATE-01/03/23,TIME-1221 JF0627 JF0047 JF0193 // CEND // COPY LIBRARY-P,NAME-JF0192,RECL-096,DATE-03/10/27,TIME-0854 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XRECL,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XRECSM,RECORDS-20000 // RUN HSORTR 24A 3X 308 I C 300EQCN FNU 301 304 FNU 8 13 FNU 305 308 FNU 14 17 FNU 2 7 FDC 1 256 FDC 257 308 // END // CEND // COPY LIBRARY-P,NAME-JF0193,RECL-096,DATE-07/08/23,TIME-0906 // LOAD JF0034 // SWITCH 11000000 // FILE NAME-XXDTRC,LABEL-?WS?XXDTRC,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-INVNOT,LABEL-?L'100,2'?INVNOT,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0194,RECL-096,REF-000003,DATE-01/03/23,TIME-1221 BLDFILE ?WS?XCUS4,I,RECORDS,500,4,,,1,4 BLDFILE ?WS?XCUS6,I,RECORDS,500,6,,,1,6 JF0679 JF0192 // * ' ' // * 'INDICATE HOW YOU WISH THE SUMMARY AGED TRIAL BALANCE TO PRINT:' // * ' 1 - LARGE PRINT ON FULL SIZE (14 7/8 X 11) PAPER' // * ' 2 - SMALL PRINT ON FULL SIZE (14 7/8 X 11) PAPER' // * ' 3 - SMALL PRINT ON LETTER SIZE (8 1/2 X 11) PAPER' // LOCAL OFFSET-4,DATA-'?R?' // IF ?L'4,1'?='1' GOTO REP1 // IF ?L'4,1'?='2' GOTO REP2 // IF ?L'4,1'?='3' GOTO REP3 // GOTO REP1 // TAG REP1 JF0195 // GOTO END // TAG REP2 JF0779 // GOTO END // TAG REP3 JF0962 // GOTO END // TAG END // CEND // COPY LIBRARY-P,NAME-JF0195,RECL-096,REF-000001,DATE-07/08/29,TIME-0902 // LOAD JF0042 // SWITCH 11000000 // FILE NAME-XRECSM,LABEL-?WS?XRECSM,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0196,RECL-096,DATE-01/03/23,TIME-1221 JF0197 JF0134 JF0198 // CEND // COPY LIBRARY-P,NAME-JF0197,RECL-096,DATE-01/03/23,TIME-1221 // LOAD JF0133 // FILE NAME-RECEV,LABEL-?L'100,2'?RECBD,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-XRCLS,LABEL-?WS?XRCLS,RECORDS-20000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0198,RECL-096,DATE-01/03/23,TIME-1221 // LOAD JF0135 // SWITCH 01000000 // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-XRCLSS,LABEL-?WS?XRCLSS,RETAIN-S // FILE NAME-SALMEN,LABEL-?L'100,2'?SALMEN,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0199,RECL-096,DATE-03/10/27,TIME-0901 JF0200 JF0884 JF0041 // CEND // COPY LIBRARY-P,NAME-JF0200,RECL-096,DATE-01/03/23,TIME-1221 // LOAD JF0048 // SWITCH 10000000 // FILE NAME-RECEV,LABEL-?L'100,2'?RECEV,DISP-SHR // FILE NAME-RECBD,LABEL-?L'100,2'?RECBD,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-MISCUS,LABEL-?L'100,2'?MISCUS,DISP-SHR // FILE NAME-XSTMT,LABEL-?WS?XSTMT,RECORDS-20000 // FILE NAME-XSMES,LABEL-?WS?XSMES,RECORDS-1 // RUN // CEND // COPY LIBRARY-P,NAME-JF0201,RECL-096,DATE-01/03/23,TIME-1221 JF0064 JF0065 JF0066 JF0035 JF0036 // CEND // COPY LIBRARY-P,NAME-JF0202,RECL-096,DATE-07/08/27,TIME-0917 // * 'DO YOU WISH A CURRENT (C) OR END OF MONTH (E) A/R LISTING' // IF ?R?='E' GOTO EOM // LOAD JF0626 // FILE NAME-RECEV,LABEL-?L'100,2'?RECEV,DISP-SHR // FILE NAME-UNCASH,LABEL-?L'100,2'?UNCASH,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-MISCUS,LABEL-?L'100,2'?MISCUS,DISP-SHR // FILE NAME-XDTRC,LABEL-?WS?XDTRC,RECORDS-100000 // RUN // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XDTRC,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XXDTRC,RECORDS-100000 // RUN HSORTR 51A 3X 420 FNC 8 13 FNU 420 FNC 301 330 FNU 416 419 FNU 14 17 FNU 2 7 FDC 1 256 FDC 257 420 // END // LOAD JF0034 // SWITCH 10000000 // FILE NAME-XXDTRC,LABEL-?WS?XXDTRC,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-INVNOT,LABEL-?L'100,2'?INVNOT,DISP-SHR // RUN // GOTO END ********* END OF MONTH // TAG EOM // IF DATAF1-?L'100,2'?RECVNC GOTO EOMBEG // * 'END OF MONTH FILES DO NOT EXIST SO PROGRAM CANNOT BE RUN' // * 'PRESS ENTER TO RETURN TO MENU' // IF ?R?='X' GOTO END // GOTO END // TAG EOMBEG // LOAD JF0626 // FILE NAME-RECEV,LABEL-?L'100,2'?RECVNC,DISP-SHR // FILE NAME-UNCASH,LABEL-?L'100,2'?UNCSNC,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-MISCUS,LABEL-?L'100,2'?MISCUS,DISP-SHR // FILE NAME-XDTRC,LABEL-?WS?XDTRC,RECORDS-100000 // RUN // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XDTRC,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XXDTRC,RECORDS-100000 // RUN HSORTR 51A 3X 420 FNC 8 13 FNU 420 FNC 301 330 FNU 416 419 FNU 14 17 FNU 2 7 FDC 1 256 FDC 257 420 // END // LOAD JF0034 // SWITCH 00000000 // FILE NAME-XXDTRC,LABEL-?WS?XXDTRC,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-INVNOT,LABEL-?L'100,2'?INVNOT,DISP-SHR // RUN // TAG END // CEND // COPY LIBRARY-P,NAME-JF0203,RECL-096,DATE-07/08/24,TIME-0803 // * 'DO YOU WISH CURRENT (C) OR END OF MONTH (E) CASH ON LISTING' // IF ?R?='E' GOTO EOM BLDFILE ?WS?XCUS4,I,RECORDS,500,4,,,1,4 BLDFILE ?WS?XCUS6,I,RECORDS,500,6,,,1,6 JF0678 JF0889 JF0452 JF0453 // * ' ' // * 'INDICATE HOW YOU WISH THE SUMMARY AGED TRIAL BALANCE TO PRINT:' // * ' 1 - LARGE PRINT ON FULL SIZE (14 7/8 X 11) PAPER' // * ' 2 - SMALL PRINT ON FULL SIZE (14 7/8 X 11) PAPER' // * ' 3 - SMALL PRINT ON LETTER SIZE (8 1/2 X 11) PAPER' // LOCAL OFFSET-4,DATA-'?R?' // IF ?L'4,1'?='1' GOTO CREP1 // IF ?L'4,1'?='2' GOTO CREP2 // IF ?L'4,1'?='3' GOTO CREP3 // GOTO CREP1 // TAG CREP1 JF0042 // GOTO END // TAG CREP2 JF0778 // GOTO END // TAG CREP3 JF0961 // GOTO END ********** // TAG EOM // IF DATAF1-?L'100,2'?RECVNC GOTO EOMBEG // * 'END OF MONTH FILES DO NOT EXIST SO PROGRAM CANNOT BE RUN' // * 'PRESS ENTER TO RETURN TO MENU' // IF ?R?='X' GOTO END // GOTO END // TAG EOMBEG BLDFILE ?WS?XCUS4,I,RECORDS,500,4,,,1,4 BLDFILE ?WS?XCUS6,I,RECORDS,500,6,,,1,6 JF1223 JF1225 JF0452 JF0453 // * ' ' // * 'INDICATE HOW YOU WISH THE SUMMARY AGED TRIAL BALANCE TO PRINT:' // * ' 1 - LARGE PRINT ON FULL SIZE (14 7/8 X 11) PAPER' // * ' 2 - SMALL PRINT ON FULL SIZE (14 7/8 X 11) PAPER' // * ' 3 - SMALL PRINT ON LETTER SIZE (8 1/2 X 11) PAPER' // LOCAL OFFSET-4,DATA-'?R?' // IF ?L'4,1'?='1' GOTO EREP1 // IF ?L'4,1'?='2' GOTO EREP2 // IF ?L'4,1'?='3' GOTO EREP3 // GOTO EREP1 // TAG EREP1 JF1234 // GOTO END // TAG EREP2 JF1235 // GOTO END // TAG EREP3 JF1236 // TAG END // CEND // COPY LIBRARY-P,NAME-JF0204,RECL-096,REF-000001,DATE-08/07/11,TIME-0910 // * 'DO YOU WISH CURRENT (C) OR END OF MONTH (E) STATEMENTS' // IF ?R?='E' GOTO EOM JF0048 JF0884 JF0041 // GOTO END // TAG EOM JF1258 JF0884 JF0041 // TAG END // CEND // COPY LIBRARY-P,NAME-JF0205,RECL-096,DATE-01/03/23,TIME-1221 JF0133 JF0134 JF0135 // CEND // COPY LIBRARY-P,NAME-JF0206,RECL-096,REF-000002,DATE-04/08/26,TIME-1240 // LOCAL OFFSET-1,DATA-'?DATE?' // IF ?L'5,2'?>70 EVALUATE P1=?L'5,2'?+1900-5 // IFF ?L'5,2'?>70 EVALUATE P1=?L'5,2'?+2000-5 // LOCAL OFFSET-7,DATA-'?1?' // * 'THIS PROCEDURE WILL REMOVE FROM THE RECEIVABLES & PAYMENT HISTORY FILES' // * '(RECEV PYMT GLPMT) ANY VOIDED OR DELETED RECEIVABLES' // * 'OR ANY THAT HAVE BEEN PAID IN FULL & ARE 5 YEARS OLDER' // * 'THAN THE COMPUTER YEAR OF ?L'5,2'? OR OLDER' // * '(YEAR EQUAL TO OR OLDER THAN ?L'7,4'?')' // * 'FOR COMPANY ?L'100,2'?.' // * '' // * 'WHILE THIS IS BEING DONE NO ONE ELSE MAY USE THE A/R FILES' // * 'THIS INCLUDES INVOICING, CASH POSTINGS, OR ANY CASH REPORTS.' // * '' // * 'IF YOU ARE SURE NO ONE ELSE WILL BE USING THESE FILES YOU MAY START' // * 'THE REMOVAL OF OLD RECORDS BY ENTERING THE CORRECT PASSWORD.' // * ' (BE SURE TO HAVE A TAPE IN THE TAPE DRIVE TO COPY OFF THE' // * ' DATA THAT WILL BE REMOVED.)' // * ' ' // * 'PLEASE ENTER PASSWORD TO RUN THIS PROGRAM' // IFF ?R?='LETERRIP' GOTO END // LOAD JF0206 // FILE NAME-RECEV,LABEL-?L'100,2'?RECEV // FILE NAME-PYMT,LABEL-?L'100,2'?PYMT // FILE NAME-GLPMT,LABEL-?L'100,2'?GLPMT // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-XREC,LABEL-?L'100,2'??L'9,2'?XREC,RECORDS-170000 // FILE NAME-XPYM,LABEL-?L'100,2'??L'9,2'?XPYM,RECORDS-200000 // FILE NAME-XGLP,LABEL-?L'100,2'??L'9,2'?XGLP,RECORDS-10000 // RUN RENAME ?L'100,2'?RECEV,?L'100,2'?XRECEV COPYDATA ?L'100,2'?XRECEV,,?L'100,2'?RECEV,,,,,REORG,OMIT,300,EQ,'D' DELETE ?L'100,2'?XRECEV,F1 RENAME ?L'100,2'?PYMT,?L'100,2'?XPYMT COPYDATA ?L'100,2'?XPYMT,,?L'100,2'?PYMT,,,,,,OMIT,80,EQ,'D' DELETE ?L'100,2'?XPYMT,F1 RENAME ?L'100,2'?GLPMT,?L'100,2'?XGLPMT COPYDATA ?L'100,2'?XGLPMT,,?L'100,2'?GLPMT,,,,,,OMIT,54,EQ,'D' DELETE ?L'100,2'?XGLPMT,F1 *****SAVE ?L'100,2'??L'9,2'?XREC,,,IBMIRD,TC,,,,,,,LEAVE *****SAVE ?L'100,2'??L'9,2'?XPYM,,,IBMIRD,TC,,,,,,,LEAVE *****SAVE ?L'100,2'??L'9,2'?XGLP,,,IBMIRD,TC *****DELETE ?L'100,2'??L'9,2'?XREC,F1 *****DELETE ?L'100,2'??L'9,2'?XPYM,F1 *****DELETE ?L'100,2'??L'9,2'?XGLP,F1 // TAG END // CEND // COPY LIBRARY-P,NAME-JF0207,RECL-096,REF-000001,DATE-01/03/23,TIME-1221 // * 'THIS PROCEDURE WILL REORGANIZE THE CUSTOMER FILE' // * 'AND PHYSICALLY REMOVE ANY DELETED CUSTOMERS' // * '' // * 'WHILE THIS IS BEING DONE NO ONE ELSE MAY USE THIS FILE' // * '' // * 'IF SOMEONE ELSE IS USING THIS FILE YOU MAY CANCEL THIS PROCEDURE' // * 'BY PRESSING THE "ATTN" KEY AND TAKING A 3 OPTION TO THE' // * 'SELECTIONS PRESENTED' // * '' // * 'IF YOU ARE SURE NO ONE ELSE IS USING THIS FILE YOU MAY START' // * 'THE FILE REORGANIZATION BY TAKING A 0 OPTION TO THE PAUSE HALT' // PAUSE RENAME ?L'100,2'?CUSMAS,?L'100,2'?ZCUSMS COPYDATA ?L'100,2'?ZCUSMS,,?L'100,2'?CUSMAS,,,,,REORG,OMIT,600,EQ,'D' DELETE ?L'100,2'?ZCUSMS,F1 // CEND // COPY LIBRARY-P,NAME-JF0208,RECL-096,REF-000001,DATE-01/03/23,TIME-1221 // TAG AGN // * ' ' // * 'DO YOU WISH TO USE CURRENT OR OLD PRICES TO RECALCULATE SINGLE LINE PRICES?' // * ' ' // * ' C = CURRENT' // * ' O = OLD' // * ' ' // LOCAL OFFSET-1,DATA-'?R?' // IF ?L'1,1'?='C' GOTO CUROLD // IF ?L'1,1'?='O' GOTO CUROLD // GOTO AGN // TAG CUROLD // IF ?L'1,1'?='C' * 'YOU HAVE CHOSEN CURRENT PRICES.' // IF ?L'1,1'?='O' * 'YOU HAVE CHOSEN OLD PRICES.' // * ' PRESS ENTER TO CONTINUE.' // * ' PRESS X TO CANCEL.' // * ' ' // IFF ?R?='X' GOTO END // GOTO AGN // TAG END JF0011 JF0085 JF0559 JF0552 // CEND // COPY LIBRARY-P,NAME-JF0209,RECL-096,DATE-05/06/23,TIME-0859 // * 'PLEASE INDICATE WHICH SIZE PAPER YOU WISH FOR DETAILED HOUSE LISTING:' // * ' ' // * ' 1 = 11 X 14 INCH (FULL SIZE COMPUTER PAPER)' // * ' 2 = 8 1/2 X 14 INCH' // * ' ' // LOCAL OFFSET-201,DATA-'?R?',BLANK-1 // * ' ' // * 'DO YOU WISH PRICES TO PRINT FOR SINGLE-LINE PRICED HOUSES' // * 'FOR THOSE CUSTOMERS DESIGNATED AS NOT NORMALLY HAVING PRICES PRINT ?' // * ' (Y=YES, N OR JUST PRESSING ENTER=NO)' // * ' ' // LOCAL OFFSET-1,DATA-'?R?',BLANK-1 // * ' ' JF0015 JF0016 // CEND // COPY LIBRARY-P,NAME-JF0210,RECL-096,DATE-01/03/23,TIME-1221 JF0130 JF0132 JF0131 // CEND // COPY LIBRARY-P,NAME-JF0212,RECL-096,DATE-01/03/23,TIME-1221 // LOAD JF0080 // SWITCH 01000000 // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-RECEV,LABEL-?L'100,2'?RECBD,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0213,RECL-096,REF-000002,DATE-01/03/23,TIME-1221 // * 'THIS PROCEDURE WILL REORGANIZE THE RECEIVABLES BAD DEBTS FILE' // * 'AND PHYSICALLY REMOVE ANY PAID, VOIDED, OR DELETED RECEIVABLES' // * '' // * 'WHILE THIS IS BEING DONE NO ONE ELSE MAY USE THIS FILE' // * '' // * 'IF SOMEONE ELSE IS USING THIS FILE YOU MAY CANCEL THIS PROCEDURE' // * 'BY PRESSING THE "ATTN" KEY AND TAKING A 3 OPTION TO THE' // * 'SELECTIONS PRESENTED' // * '' // * 'IF YOU ARE SURE NO ONE ELSE IS USING THIS FILE YOU MAY START' // * 'THE FILE REORGANIZATION BY TAKING A 0 OPTION TO THE PAUSE HALT' // PAUSE RENAME ?L'100,2'?RECBD,?L'100,2'?ZRECBD COPYDATA ?L'100,2'?ZRECBD,,?L'100,2'?RECBD,,,,,REORG,INCLUDE,150,EQ,'N' DELETE ?L'100,2'?ZRECBD,F1 // CEND // COPY LIBRARY-P,NAME-JF0214,RECL-096,DATE-01/03/23,TIME-1221 // LOAD JF0214 // FILE NAME-GLFILE,LABEL-?L'100,2'?GLFILE,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0215,RECL-096,DATE-01/03/23,TIME-1221 // * 'THIS PROCEDURE WILL ZERO OUT THE MONTHLY SALES FIGURES' // * 'IN THE SALES ANALYSIS REPORT' // * '' // * 'TO RUN THIS PROCEDURE YOU MUST ENTER THE CORRECT PASSWORD NOW' // * '' // IFF ?R?='BERGEN' GOTO END // LOAD JF0215 // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // RUN // TAG END // CEND // COPY LIBRARY-P,NAME-JF0216,RECL-096,DATE-01/03/23,TIME-1221 // LOAD JF0216 // SWITCH 01000000 // FILE NAME-LOAD,LABEL-?WS?XLOADO // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-MISCUS,LABEL-?WS?XMSCSO // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-PRCTAB,LABEL-?L'100,2'?PRCTAB,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0217,RECL-096,DATE-01/12/19,TIME-1555 // LOAD JF0217 // FILE NAME-DEPT,LABEL-?L'100,2'?DEPT,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0218,RECL-096,REF-000001,DATE-06/11/10,TIME-1223 // LOAD JF0084 // SWITCH 01000000 // FILE NAME-LOAD,LABEL-?WS?XLOADO // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-PRCTAB,LABEL-?L'100,2'?PRCTAB,DISP-SHR // FILE NAME-HOUSE,LABEL-?L'100,2'?HOUSE,DISP-SHR // FILE NAME-ORDER,LABEL-?L'100,2'?ORDER,DISP-SHR // FILE NAME-MISCUS,LABEL-?WS?XMSCSO // RUN // CEND // COPY LIBRARY-P,NAME-JF0219,RECL-096,DATE-01/03/23,TIME-1221 // LOAD JF0166 // SWITCH 01000000 // FILE NAME-LOAD,LABEL-?WS?XLOADO // FILE NAME-MISCUS,LABEL-?WS?XMSCSO // RUN // CEND // COPY LIBRARY-P,NAME-JF0220,RECL-096,REF-000006,DATE-07/06/08,TIME-1155 // LOAD JF0220 OVRPRTF FILE(PRT1) USRDTA('LABELS') OVRPRTF FILE(PRT2) USRDTA('LABELS') // IF ?L'1,1'?='1' SWITCH 10000010 // IF ?L'1,1'?='1' PRINTER NAME-PRT1,FORMSNO-?L'3,1'?LB1 // IF ?L'1,1'?='3' SWITCH 10000001 // IF ?L'1,1'?='3' PRINTER NAME-PRT2,FORMSNO-?L'3,1'?LB3 // FILE NAME-XLABLS,LABEL-?WS?XLABLS // FILE NAME-XLABL2,LABEL-?WS?XLABLS,RETAIN-S // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-MISCUS,LABEL-?L'100,2'?MISCUS,DISP-SHR // FILE NAME-XITHD,LABEL-?WS?XITHD // FILE NAME-LABNOT,LABEL-?L'100,2'?LABNOT,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0221,RECL-096,DATE-06/04/13,TIME-0802 // IFF DATAF1-?WS?XLOADR GOTO BEGIN // * 'THE PREVIOUS BATCH OF REGULAR LOADS HAS NOT BEEN UPDATED' // * 'THIS PROGRAM WILL BE CANCELLED' // * 'PRESS THE ENTER KEY TO RETURN TO THE MENU AND UPDATE THE PREVIOUS LOADS' // IF ?R?=' ' GOTO END // GOTO END // TAG BEGIN // IFF DATAF1-?WS?XREGLD BLDFILE ?WS?XREGLD,S,RECORDS,1,1 JF0017 JF0019 JF0512 JF0368 // TAG END // CEND // COPY LIBRARY-P,NAME-JF0222,RECL-096,DATE-01/03/23,TIME-1221 JF0219 JF0218 JF0160 JF0043 JF0044 JF0091 KEYSORT ?WS?XLOADO RENAME ?WS?XLOADO,?WS?XLODOX COPYDATA ?WS?XLODOX,,?WS?XLOADO,,,,,REORG,OMIT,10,EQ,'D' DELETE ?WS?XLODOX,F1 // CEND // COPY LIBRARY-P,NAME-JF0223,RECL-096,REF-000003,DATE-11/01/14,TIME-0911 JF0031 JF0748 JF0749 JF1192 JF1193 JF1194 JF1323 JF1320 JF1321 JF1322 // CEND // COPY LIBRARY-P,NAME-JF0224,RECL-096,REF-000002,DATE-11/10/25,TIME-0947 RENAME ?WS?XREC,?WS?XXREC JF0098 JF0030 ***JF0022 JF1327 JF1017 JF0653 JF0438 JF0752 JF1013 JF0753 // IF DATAF1-?L'100,2'?RECVNC JF1219 JF0033 ***JF0023 JF1329 JF1328 ***RENAME ?L'100,2'?LOAD,?WS?XXLOAD ***COPYDATA ?WS?XXLOAD,,?L'100,2'?LOAD,,,,,REORG,OMIT,10,EQ,'D' ***DELETE ?WS?XXLOAD,F1 ***JF0784 ***JF0785 JF1122 **RENAME ?WS?XDLOAD,?WS?XCHGLD JF0332 JF0330 JF0328 JF0329 JF0331 // CEND // COPY LIBRARY-P,NAME-JF0225,RECL-096,DATE-01/03/23,TIME-1221 // IFF DATAF1-?WS?XPRXX BLDFILE ?WS?XPRXX,I,R,600,156,,,1,9 JF0049 JF0050 JF0051 COPYDATA ?L'100,2'?EMPLYE,,XEMPL JF0052 JF0054 JF0053 JF0027 JF0055 // CEND // COPY LIBRARY-P,NAME-JF0226,RECL-096,DATE-01/03/23,TIME-1221 JF0067 JF0068 // CEND // COPY LIBRARY-P,NAME-JF0227,RECL-096,DATE-01/03/23,TIME-1221 JF0071 JF0522 JF0136 JF0070 JF0183 JF0072 // CEND // COPY LIBRARY-P,NAME-JF0228,RECL-096,DATE-01/03/23,TIME-1221 JF0071 JF0078 JF0073 // CEND // COPY LIBRARY-P,NAME-JF0229,RECL-096,DATE-01/03/23,TIME-1221 // IFF DATAF1-?WS?XLOADO GOTO BEGIN // * 'THE PREVIOUS BATCH OF ODD LOADS HAS NOT BEEN UPDATED' // * 'THIS PROGRAM WILL BE CANCELLED' // * 'PRESS THE ENTER KEY TO RETURN TO THE MENU AND UPDATE THE PREVIOUS LOADS' // IF ?R?=' ' GOTO END // GOTO END // TAG BEGIN // IFF DATAF1-?WS?XODDLD BLDFILE ?WS?XODDLD,S,RECORDS,1,1 JF0146 JF0039 // TAG END // CEND // COPY LIBRARY-P,NAME-JF0230,RECL-096,DATE-01/03/23,TIME-1221 JF0150 JF0151 // CEND // COPY LIBRARY-P,NAME-JF0231,RECL-096,DATE-01/03/23,TIME-1221 // LOAD JF0231 // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-OPENAP,LABEL-?L'100,2'?OPENAP,DISP-SHR // FILE NAME-VENDOR,LABEL-?L'100,2'?VENDOR,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0232,RECL-096,REF-000002,DATE-06/06/15,TIME-0803 JF0152 // IF DATAF1-?WS?XODDLD DELETE ?WS?XODDLD,F1 JF0025 JF0148 JF1200 JF1201 JF0330 JF0326 JF0324 JF0331 // JOBQ JOFFE,JF0787 // CEND // COPY LIBRARY-P,NAME-JF0233,RECL-096,DATE-01/03/23,TIME-1221 JF0095 JF0096 // CEND // COPY LIBRARY-P,NAME-JF0234,RECL-096,DATE-01/03/23,TIME-1221 // LOAD JF0234 // FILE NAME-VENDOR,LABEL-?L'100,2'?VENDOR,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0235,RECL-096,DATE-01/03/23,TIME-1221 // LOAD JF0235 // FILE NAME-VENDOR,LABEL-?L'100,2'?VENDOR,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0236,RECL-096,DATE-01/03/23,TIME-1221 // LOAD JF0236 // SWITCH 10000000 // FILE NAME-VENDOR,LABEL-?L'100,2'?VENDOR,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0237,RECL-096,DATE-01/03/23,TIME-1221 JF0238 JF0239 // CEND // COPY LIBRARY-P,NAME-JF0238,RECL-096,DATE-01/03/23,TIME-1221 // LOAD JF0238 // SWITCH 00000000 // FILE NAME-XAPWK,LABEL-?WS?XAPWK,RECORDS-3000 // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-VENDOR,LABEL-?L'100,2'?VENDOR,DISP-SHR // FILE NAME-OPENAP,LABEL-?L'100,2'?OPENAP,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0239,RECL-096,DATE-01/03/23,TIME-1221 // LOAD JF0239 // FILE NAME-XAPWK,LABEL-?WS?XAPWK // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-GLFILE,LABEL-?L'100,2'?GLFILE,DISP-SHR // FILE NAME-VENDOR,LABEL-?L'100,2'?VENDOR,DISP-SHR // FILE NAME-OPENAP,LABEL-?L'100,2'?OPENAP,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0240,RECL-096,DATE-01/03/23,TIME-1221 JF0241 RENAME ?WS?XAPWK,?WS?XDAPWK COPYDATA ?WS?XDAPWK,,?WS?XAPWK,,,,,REORG,OMIT,1,EQ,'D' DELETE ?WS?XDAPWK,F1 JF0168 JF0266 JF0239 // CEND // COPY LIBRARY-P,NAME-JF0241,RECL-096,DATE-01/03/23,TIME-1221 // LOAD JF0241 // FILE NAME-XAPWK,LABEL-?WS?XAPWK // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0242,RECL-096,REF-000002,DATE-09/10/29,TIME-0749 // * 'PLEASE ENTER PASSWORD NEEDED TO RUN THIS PROGRAM' // IFF ?R?='JOSEG' GOTO END RENAME ?L'100,2'?PROD,?WS?ZDLPRD *// LOAD JF1284 *// FILE NAME-ZDLPRD,LABEL-?WS?ZDLPRD *// FILE NAME-PROD,LABEL-?L'100,2?PROD,RECORDS-40000,EXTEND-2000 *// RUN COPYDATA ?WS?ZDLPRD,,?L'100,2'?PROD,,,,,REORG,OMIT,11,EQ,'D' DELETE ?WS?ZDLPRD,F1 // TAG END // CEND // COPY LIBRARY-P,NAME-JF0243,RECL-096,REF-000001,DATE-01/09/06,TIME-1016 // TAG AGN1 // * ' ' // * 'YOU WILL BE ADDING THESE INVOICES TO THE PREMANENT FILES' // * 'OF COMPANY ?L'100,2'?.' // * ' ' // * 'IF YOU WISH TO CONTINUE WITH THE UPDATE PLEASE CONFIRM THIS' // * 'BY ENTERING THE CODE OF THE COMPANY YOU WISH TO UPDATE.' // * ' JF = JOFFE' // * ' SB = SBS' // * ' XX = CANCEL UPDATE' // * ' ' // LOCAL OFFSET-1,DATA-'?R?',BLANK-2 // IF ?L'1,2'?='XX' GOTO CANCEL // IF ?L'1,2'?=?L'100,2'? GOTO UPDATE // * ' ' // * 'YOU HAVE MADE AN INCORRECT RESPONSE. PLEASE RE-ENTER.' // GOTO AGN1 // * ' ' // TAG CANCEL // * 'THE UPDATE HAS BEEN CANCELLED. PRESS ENTER TO RETURN TO MENU.' // IF ?R?='X' GOTO END // GOTO END // TAG UPDATE JF0447 // IFF ?L'1,1'?='G' GOTO END JF0244 JF0245 // IF DATAF1-?WS?XAPIN DELETE ?WS?XAPIN,F1 // IF DATAF1-?WS?XAPTL DELETE ?WS?XAPTL,F1 // * ' ' // * 'THE INVOICES HAVE BEEN UPDATED INTO COMPANY ?L'100,2'?.' // * 'PRESS ENTER TO RETURN TO MENU.' // IF ?R?='X' GOTO END // GOTO END // TAG END // CEND // COPY LIBRARY-P,NAME-JF0244,RECL-096,DATE-01/03/23,TIME-1221 // LOAD JF0244 // FILE NAME-XAPWK,LABEL-?WS?XAPWK // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-OPENAP,LABEL-?L'100,2'?OPENAP,DISP-SHR // FILE NAME-VENDOR,LABEL-?L'100,2'?VENDOR,DISP-SHR // FILE NAME-GLFILE,LABEL-?L'100,2'?GLFILE,DISP-SHR // FILE NAME-NMGLEN,LABEL-?L'100,2'?NMGLEN,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0245,RECL-096,DATE-01/03/23,TIME-1221 // LOAD JF0245 // FILE NAME-XAPWK,LABEL-?WS?XAPWK,RETAIN-S // FILE NAME-INVACC,LABEL-?L'100,2'?INVACC,DISP-SHR // FILE NAME-GLTRAN,LABEL-?L'100,2'?GLTRAN,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0246,RECL-096,DATE-01/03/23,TIME-1221 // IFF DATAF1-?L'100,2'?APPAY GOTO BEGIN // * ' ' // * 'THERE ARE EXISTING INVOICES THAT HAVE BEEN CALLED OUT FOR PAYMENT' // * 'ON A PREVIOUS DUE LISTING, BUT HAVE NOT BEEN UPDATED AS CHECKS.' // * ' ' // * 'IF YOU CONTINUE WITH THIS DUE LISTING THESE PREVIOUS INVOICES' // * 'WILL BE LOST AND REPLACED BY NEW INVOICES THAT ARE DUE NOW.' // * ' ' // * 'DO YOU WISH TO CONTINUE ?' // * ' Y=YES' // * ' N=NO' // IFF ?R?='Y' GOTO END // * ' ' // * 'A NEW DUE LISTING WILL BE GENERATED.' // * ' ' // DELETE ?L'100,2'?APPAY,F1 // TAG BEGIN JF0247 JF0248 // TAG END // CEND // COPY LIBRARY-P,NAME-JF0247,RECL-096,REF-000002,DATE-01/03/23,TIME-1221 // LOAD JF0247 // FILE NAME-OPENAP,LABEL-?L'100,2'?OPENAP,DISP-SHR // FILE NAME-VENDOR,LABEL-?L'100,2'?VENDOR,DISP-SHR // FILE NAME-APPAY,LABEL-?L'100,2'?APPAY,RECORDS-5000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0248,RECL-096,REF-000001,DATE-01/03/23,TIME-1221 // LOAD JF0248 // FILE NAME-APPAY,LABEL-?L'100,2'?APPAY // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0249,RECL-096,REF-000001,DATE-01/03/23,TIME-1221 // LOAD JF0249 // FILE NAME-APPAY,LABEL-?L'100,2'?APPAY // RUN // CEND // COPY LIBRARY-P,NAME-JF0250,RECL-096,REF-000002,DATE-01/03/23,TIME-1221 // LOAD JF0250 // SWITCH 10000000 // FILE NAME-APPAY,LABEL-?L'100,2'?APPAY // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0251,RECL-096,REF-000003,DATE-01/03/23,TIME-1221 // * 'THIS PROCEDURE WILL ZERO OUT THE YEAR TO DATE ACTIVITY' // * 'IN THE VENDOR FILE OF COMPANY ?L'100,2'?' // * '' // * 'YOU MUST ENTER THE CORRECT PASSWORD TO CONTINUE.' // * ' ' // IF ?R?='JOFFEBUILDSBETTERHOUSES' GOTO BEGIN // * ' ' // * 'INCORRECT PASSWORD. PROGRAM HAS BEEN CANCELLED.' // * 'PRESS ENTER TO RETURN TO MENU.' // * ' ' // IF ?R?='X' GOTO END // GOTO END // TAG BEGIN // LOAD JF0251 // FILE NAME-VENDOR,LABEL-?L'100,2'?VENDOR,DISP-SHR // RUN // * ' ' // * 'VENDOR YTD ACTIVITY HAS BEEN SET TO ZERO.' // * 'PRESS ENTER TO RETURN TO MENU.' // * ' ' // IF ?R?='X' GOTO END // GOTO END // TAG END // CEND // COPY LIBRARY-P,NAME-JF0252,RECL-096,REF-000003,DATE-01/03/23,TIME-1221 // LOAD JF0252 // FILE NAME-APPAY,LABEL-?L'100,2'?APPAY,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-OPENAP,LABEL-?L'100,2'?OPENAP,DISP-SHR // FILE NAME-INVACC,LABEL-?L'100,2'?INVACC,DISP-SHR // FILE NAME-CHKFLE,LABEL-?L'100,2'?CHKFLE,DISP-SHR // FILE NAME-GLFILE,LABEL-?L'100,2'?GLFILE,DISP-SHR // FILE NAME-NMGLEN,LABEL-?L'100,2'?NMGLEN,DISP-SHR // FILE NAME-GLTRAN,LABEL-?L'100,2'?GLTRAN,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0253,RECL-096,DATE-01/03/23,TIME-1221 // LOAD JF0253 // FILE NAME-XGLTS,LABEL-?L'100,2'?XGLTS,RETAIN-S // FILE NAME-XGLWK,LABEL-?L'100,2'?XGLWK,RETAIN-S // FILE NAME-XJDES,LABEL-?L'100,2'?XJDES,RETAIN-S // FILE NAME-GLTRAN,LABEL-?L'100,2'?GLTRAN,DISP-SHR // FILE NAME-JRDESC,LABEL-?L'100,2'?JRDESC,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0254,RECL-096,DATE-01/03/23,TIME-1221 JF0255 JF0256 // CEND // COPY LIBRARY-P,NAME-JF0255,RECL-096,REF-000001,DATE-01/03/23,TIME-1221 // LOAD JF0255 // SWITCH 00000000 // FILE NAME-XGLWK,LABEL-?L'100,2'?XGLWK,RECORDS-5000 // FILE NAME-XJDES,LABEL-?L'100,2'?XJDES,RECORDS-1000 // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0256,RECL-096,DATE-01/03/23,TIME-1221 // LOAD JF0256 // FILE NAME-XGLWK,LABEL-?L'100,2'?XGLWK // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-XJDES,LABEL-?L'100,2'?XJDES // FILE NAME-JRDESC,LABEL-?L'100,2'?JRDESC,DISP-SHR // FILE NAME-GLFILE,LABEL-?L'100,2'?GLFILE,DISP-SHR // FILE NAME-XGLTS,LABEL-?L'100,2'?XGLTS,RECORDS-1 // RUN // CEND // COPY LIBRARY-P,NAME-JF0257,RECL-096,REF-000001,DATE-01/03/23,TIME-1221 DELETE ?L'100,2'?XGLTS,F1 JF0259 JF0857 JF0256 // CEND // COPY LIBRARY-P,NAME-JF0258,RECL-096,REF-000001,DATE-01/03/23,TIME-1221 // LOAD JF0258 // FILE NAME-XGLTS,LABEL-?L'100,2'?XGLTS // FILE NAME-XGLWK,LABEL-?L'100,2'?XGLWK // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-XJDES,LABEL-?L'100,2'?XJDES // FILE NAME-GLFILE,LABEL-?L'100,2'?GLFILE,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0259,RECL-096,DATE-01/03/23,TIME-1221 // LOAD JF0259 // FILE NAME-XGLWK,LABEL-?L'100,2'?XGLWK // RUN // CEND // COPY LIBRARY-P,NAME-JF0261,RECL-096,DATE-01/03/23,TIME-1221 JF0262 JF0263 JF0264 JF0265 // CEND // COPY LIBRARY-P,NAME-JF0262,RECL-096,DATE-01/03/23,TIME-1221 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?L'100,2'?GLFILE,DISP-SHR // FILE NAME-OUTPUT,LABEL-?WS?XGLPL,RECORDS-3000 // RUN HSORTR 8A 3X 224 I C 218 219NEC IAC 224NECD FNC 218 219 FNU 1 6 FDC 1 224 // END // CEND // COPY LIBRARY-P,NAME-JF0263,RECL-096,DATE-04/10/07,TIME-0740 // LOAD JF0263 // FILE NAME-XGLPL,LABEL-?WS?XGLPL,RETAIN-S // FILE NAME-GLFILE,LABEL-?L'100,2'?GLFILE,DISP-SHR // FILE NAME-PGLFIL,LABEL-?L'100,2'?PGLFIL,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0264,RECL-096,DATE-01/03/23,TIME-1221 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?L'100,2'?GLFILE,DISP-SHR // FILE NAME-OUTPUT,LABEL-?WS?XGLBL,RECORDS-3000 // RUN HSORTR 8A 3X 224 I C 220 221NEC IAC 224NECD FNC 220 221 FNU 1 6 FDC 1 224 // END // CEND // COPY LIBRARY-P,NAME-JF0265,RECL-096,DATE-01/03/23,TIME-1221 // LOAD JF0265 // FILE NAME-XGLBL,LABEL-?WS?XGLBL,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0266,RECL-096,DATE-01/03/23,TIME-1221 // LOAD JF0266 // FILE NAME-XAPWK,LABEL-?WS?XAPWK // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-VENDOR,LABEL-?L'100,2'?VENDOR,DISP-SHR // FILE NAME-XVNIN,LABEL-?WS?XVNIN,RETAIN-S // FILE NAME-OPENAP,LABEL-?L'100,2'?OPENAP,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0267,RECL-096,DATE-01/03/23,TIME-1221 JF0258 JF0253 // CEND // COPY LIBRARY-P,NAME-JF0269,RECL-096,REF-000001,DATE-06/02/09,TIME-1047 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XITOR // FILE NAME-OUTPUT,LABEL-?WS?XITORS,RECORDS-20000 // RUN HSORTR 20A 3X 220 I C 1 2NECVV IAC 1 2NECZZ FNU 17 22 FNC 1 2 FNC 3 9 FNU 23 25 FNU 26 27 FDC 1 220 // END // CEND // COPY LIBRARY-P,NAME-JF0270,RECL-096,REF-000010,DATE-10/01/14,TIME-1643 // TAG AGNPRT // * ' ' // * 'BEAR IN MIND THE LABELS YOU ASK FOR WILL BE SEPARATED INTO THREE GROUPS' // * 'OF WHITE, YELLOW, AND RED (AN UNKNOWN LABEL TYPE-NOT W/Y/R IN CUSTOMER' // * 'FILE WILL DEFAULT TO WHITE). IF THERE ARE NO LABELS IN ONE OR MORE OF' // * 'THESE GROUPS, YOU MAY GET SOME HALTS FOR NO INPUT RECORDS FOUND.' // * 'THIS IS PERFECTLY OK, SIMPLY TAKE A 0 OPTION TO THESE HALTS.' // * ' ' // * 'HOW DO YOU WISH LABELS TO PRINT ?' // * ' ' // * ' 1 - WITH BOLD HEADINGS ON ANY PRINTER WITH A QMS BOARD' // * ' ' // * ' 2 - WITH BOLD HEADINGS ON ANY IPDS PRINTER' // * ' ' // * ' 3 - WITH ONLY NORMAL SIZE WRITING ON ANY PRINTER' // * ' ' // LOCAL OFFSET-1,DATA-'?R?' // IF ?L'1,1'?='1' GOTO ENDPRT // IF ?L'1,1'?='2' GOTO ENDPRT // IF ?L'1,1'?='3' GOTO ENDPRT // GOTO AGNPRT // TAG ENDPRT // * ' ' // * ' ' // * 'DO YOU WISH TO PRINT LABELS BY CHOICE OF:' // * ' ' // * ' N - FROM AND THROUGH LOAD NUMBERS / DEPARTMENTS' // * ' ' // * ' D - MANUFACTURE DATES / LABEL PREVIOUSLY PRINTED / DEPARTMENTS' // * ' ' // IF ?R?='N' GOTO LOADNO JF0520 // GOTO LABEL // TAG LOADNO JF0292 // TAG LABEL JF0278 JF0341 // IFF ?L'2,1'?='Y' JF0302 // IF ?L'2,1'?='Y' JF0822 // IF ?L'2,1'?='Y' JF0823 *** JF1210 JF1211 RENAME ?WS?XITOR,?WS?XXITOR // TAG AGNLAB JF1212 // IF ?L'4,1'?='N' GOTO ENDLAB // * 'PRINTING ?L'3,1'? LABELS' JF0269 JF0275 JF0276 // IF ?L'1,1'?='1' JF0220 // IF ?L'1,1'?='2' JF0711 // IF ?L'1,1'?='3' JF0220 JF0299 DELETE ?WS?XITOR,F1 JF0300 JF0301 // GOTO AGNLAB // TAG ENDLAB DELETE ?WS?XLBCOL,F1 DELETE ?WS?XITOR,F1 DELETE ?WS?XXITOR,F1 DELETE ?WS?XITHD,F1 DELETE ?WS?XDPCH,F1 // CEND // COPY LIBRARY-P,NAME-JF0272,RECL-096,DATE-01/03/23,TIME-1221 // LOAD JPG272 // FILE NAME-LOAD,DISP-SHR // FILE NAME-XILOAD,LABEL-XILOAD?WS?,RECORDS-35000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0273,RECL-096,DATE-01/03/23,TIME-1221 // LOAD #GSORT // FILE NAME-INPUT,LABEL-XITOR?WS?,RETAIN-S // FILE NAME-OUTPUT,LABEL-XITORS?WS?,RECORDS-20000 // RUN HSORTR 32A 3X 220 I C 1 2EQCE1 I C 1 2EQCE2 IOC 1 2EQCH1 IOC 1 2EQCH2 IOC 1 2EQCL1 IOC 1 2EQCL3 IOC 1 2EQCS5 IOC 1 2EQCR0 IOC 1 2EQCR1 IOC 1 2EQCR2 IOC 1 2EQCR3 IOC 1 2EQCR4 IOC 1 2EQCR5 IOC 1 2EQCR6 IOC 1 2EQCR7 IOC 1 2EQCR8 IOC 1 2EQCR9 IOC 1 2EQCRA IOC 1 2EQCRP FNC 1 2 FNC 3 9 FNU 28 33 FNU 120 121 FNU 116 119 FNU 17 22 FNU 23 25 FNU 26 27 FDC 1 220 // END // CEND // COPY LIBRARY-P,NAME-JF0274,RECL-096,DATE-01/03/23,TIME-1221 // IF DATAF1-?WS?X274A DELETE ?WS?X274A,F1 // IF DATAF1-?WS?X274B DELETE ?WS?X274B,F1 // IF DATAF1-?WS?X274C DELETE ?WS?X274C,F1 // IF DATAF1-?WS?X274D DELETE ?WS?X274D,F1 // LOAD JF0272 // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-XILOAD,LABEL-?WS?X274A,RECORDS-35000 // RUN // LOAD JF0278 // FILE NAME-XILOAD,LABEL-?WS?X274A,RETAIN-S // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-XITOR,LABEL-?WS?X274B,RECORDS-60000 // FILE NAME-XITHD,LABEL-?WS?X274C,RECORDS-8000 // RUN // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?X274B,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?X274D,RECORDS-20000 // RUN HSORTR 32A 3X 220 I C 1 2EQCE1 I C 1 2EQCE2 IOC 1 2EQCH1 IOC 1 2EQCH2 IOC 1 2EQCL1 IOC 1 2EQCL3 IOC 1 2EQCS5 IOC 1 2EQCR0 IOC 1 2EQCR1 IOC 1 2EQCR2 IOC 1 2EQCR3 IOC 1 2EQCR4 IOC 1 2EQCR5 IOC 1 2EQCR6 IOC 1 2EQCR7 IOC 1 2EQCR8 IOC 1 2EQCR9 IOC 1 2EQCRA IOC 1 2EQCRP FNC 1 2 FNC 3 9 FNU 28 33 FNU 120 121 FNU 116 119 FNU 17 22 FNU 23 25 FNU 26 27 FDC 1 220 // END // LOAD JF0271 // FILE NAME-XITORS,LABEL-?WS?X274D,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-XITHD,LABEL-?WS?X274C,RETAIN-S // RUN // CEND // COPY LIBRARY-P,NAME-JF0275,RECL-096,DATE-01/03/23,TIME-1221 // LOAD JF0275 // FILE NAME-XITORS,LABEL-?WS?XITORS,RETAIN-S // FILE NAME-DEPT,LABEL-?L'100,2'?DEPT,DISP-SHR // FILE NAME-XLABL,LABEL-?WS?XLABL,RECORDS-40000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0276,RECL-096,REF-000001,DATE-01/03/23,TIME-1221 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XLABL,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XLABLS,RECORDS-40000 // RUN HSORTR 28A 3X 230 FND 151 FNZ 152 FND 149 FNZ 150 FND 150 FNZ 151 FNC 1 2 FNU 28 33 FNU 17 22 FNC 229 FNU 225 226 FNU 23 25 FNU 26 27 FDC 1 230 // END // CEND // COPY LIBRARY-P,NAME-JF0277,RECL-096,DATE-01/03/23,TIME-1221 // LOAD JF0277 // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-XLDTRS,LABEL-?WS?XLDTRS,RETAIN-S // FILE NAME-XILOAD,LABEL-?WS?XILOAD,RECORDS-20000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0278,RECL-096,DATE-01/03/23,TIME-1221 // LOAD JF0278 // FILE NAME-XILOAD,LABEL-?WS?XILOAD,RETAIN-S // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-XITOR,LABEL-?WS?XITOR,RECORDS-60000 // FILE NAME-XITHD,LABEL-?WS?XITHD,RECORDS-8000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0279,RECL-096,REF-000002,DATE-01/03/23,TIME-1221 // LOAD JF0279 // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-RELSHT,LABEL-?L'100,2'?RELSHT,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-MISCUS,LABEL-?L'100,2'?MISCUS,DISP-SHR // FILE NAME-TRCHLD,LABEL-?L'100,2'?TRCHLD,DISP-SHR // FILE NAME-LDTRK,LABEL-?L'100,2'?LDTRK,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0280,RECL-096,DATE-09/12/10,TIME-1005 *** TRUCK MILL REPORT FOR DEPARTMENTS S0 THRU S9 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XITOR // FILE NAME-OUTPUT,LABEL-?WS?XITORS,RECORDS-10000 // RUN HSORTR 24A 3X 220 I C 1 2EQCS0 IOC 1 2EQCS1 IOC 1 2EQCS2 IOC 1 2EQCS3 IOC 1 2EQCS4 IOC 1 2EQCS5 IOC 1 2EQCS6 IOC 1 2EQCS7 IOC 1 2EQCS8 IOC 1 2EQCS9 FNU 116 121 FNC 1 2 FNC 122 123 FNU 124 126 FNU 17 22 FNU 23 25 FNU 26 27 FDC 1 220 // END // CEND // COPY LIBRARY-P,NAME-JF0281,RECL-096,REF-000001,DATE-09/12/10,TIME-1006 *** TRUCK MILL REPORT FOR DEPARTMENTS S0 THRU S9 // LOAD JF0281 // SWITCH 10000000 // PRINTER NAME-PRT,FORMSNO-8X11,COPIES-4 // FILE NAME-XITORS,LABEL-?WS?XITORS,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-DEPT,LABEL-?L'100,2'?DEPT,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-XITHD,LABEL-?WS?XITHD // RUN // CEND // COPY LIBRARY-P,NAME-JF0282,RECL-096,DATE-10/01/26,TIME-1114 // TAG AGNPRT // * ' ' // * 'HOW DO YOU WISH LABELS TO PRINT ?' // * ' ' // * ' 1 - WITH BOLD HEADINGS ON ANY PRINTER WITH A QMS BOARD' // * ' ' // * ' 2 - WITH BOLD HEADINGS ON ANY IPDS PRINTER' // * ' ' // * ' 3 - WITH ONLY NORMAL SIZE WRITING ON ANY PRINTER' // * ' ' // LOCAL OFFSET-1,DATA-'?R?' // IF ?L'1,1'?='1' GOTO ENDPRT // IF ?L'1,1'?='2' GOTO ENDPRT // IF ?L'1,1'?='3' GOTO ENDPRT // GOTO AGNPRT // TAG ENDPRT // * ' ' // IF DATAF1-XXXJOHN DELETE XXXJOHN,F1 // IF DATAF1-XXXXJOHN DELETE XXXXJOHN,F1 COPYDATA ?L'100,2'?LDTRK,,XXXJOHN JF0283 JF0277 JF0784 JF0785 JF0278 COPYDATA ?WS?XITOR,,XXXXJOHN JF0288 JF0280 JF0281 JF0284 JF0317 JF0440 JF0441 JF0289 JF0318 JF0285 JF0319 JF0286 JF0320 JF0585 JF0586 JF0788 JF0789 JF0287 JF0321 JF0291 JF0290 JF0855 JF0856 JF1158 JF1159 JF1291 JF1292 JF1160 JF1161 JF1162 JF1163 JF1164 JF1165 JF1293 JF1294 JF1295 JF1296 JF1297 JF1298 JF1299 JF1300 JF0636 JF0637 JF0638 JF0639 JF0963 JF0964 JF0965 JF0966 JF1313 JF1314 JF1301 JF1302 JF1303 JF1304 ***JF1305 // IFF ?F'A,?WS?XITCMS'?=0 JF1305 DELETE ?WS?XITCMS,F1 JF1306 ***JF1307 // IFF ?F'A,?WS?XITCMS'?=0 JF1307 DELETE ?WS?XITCMS,F1 JF1308 ***JF1309 // IFF ?F'A,?WS?XTRCUS'?=0 JF1309 DELETE ?WS?XITORS,F1 JF1310 ***JF1309 // IFF ?F'A,?WS?XTRCUS'?=0 JF1309 DELETE ?WS?XITORS,F1 DELETE ?WS?XITCM,F1 DELETE ?WS?XTRCUS,F1 JF0297 JF0298 JF0495 *F0499 *F0500 JF0305 JF0269 JF0275 JF0306 // IF ?L'1,1'?='1' JF0498 // IF ?L'1,1'?='2' JF0713 // IF ?L'1,1'?='3' JF0498 JF0299 JF0300 JF0567 DELETE ?L'100,2'?LDTRK,F1 DELETE ?WS?XITOR,F1 DELETE ?WS?XITHD,F1 RENAME ?L'100,2'?TRCHLD,?WS?XCHGLD JF0332 JF0330 JF0328 JF0329 JF0331 // CEND // COPY LIBRARY-P,NAME-JF0283,RECL-096,DATE-04/03/31,TIME-1257 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?L'100,2'?LDTRK // FILE NAME-OUTPUT,LABEL-?WS?XLDTRS,RECORDS-3000 // RUN HSORTR 6A 3X 130 I C 109NEC* IAC 130EQCA FNU 8 13 FDC 1 130 // END // CEND // COPY LIBRARY-P,NAME-JF0284,RECL-096,DATE-09/12/10,TIME-1007 *** TRUCK MILL REPORT FOR DEPARTMENTS L1 AND ALL R // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XITOR // FILE NAME-OUTPUT,LABEL-?WS?XITORS,RECORDS-10000 // RUN HSORTR 24A 3X 220 I C 1 2EQCL1 IOC 1EQCR FNU 116 121 FNC 1 2 FNC 122 123 FNU 124 126 FNU 17 22 FNU 23 25 FNU 26 27 FDC 1 220 // END // CEND // COPY LIBRARY-P,NAME-JF0285,RECL-096,DATE-09/12/10,TIME-1014 *** TRUCK MILL REPORT FOR DEPARTMENTS H1 AND H2 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XITOR // FILE NAME-OUTPUT,LABEL-?WS?XITORS,RECORDS-10000 // RUN HSORTR 22A 3X 220 I C 1 2EQCH1 IOC 1 2EQCH2 FNU 116 121 FNC 122 123 FNU 124 126 FNU 17 22 FNU 23 25 FNU 26 27 FDC 1 FDC 1 FDC 3 220 // END // CEND // COPY LIBRARY-P,NAME-JF0286,RECL-096,DATE-09/12/10,TIME-1016 *** TRUCK MILL REPORT FOR DEPARTMENT G1 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XITOR // FILE NAME-OUTPUT,LABEL-?WS?XITORS,RECORDS-10000 // RUN HSORTR 24A 3X 220 I C 1 2EQCG1 FNU 116 121 FNC 1 2 FNC 122 123 FNU 124 126 FNU 17 22 FNU 23 25 FNU 26 27 FDC 1 220 // END // CEND // COPY LIBRARY-P,NAME-JF0287,RECL-096,REF-000002,DATE-09/12/10,TIME-1019 *** TRUCK MILL REPORT FOR DEPARTMENT L2 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XITOR // FILE NAME-OUTPUT,LABEL-?WS?XITORS,RECORDS-10000 // RUN HSORTR 24A 3X 220 I C 1 2EQCL2 FNU 116 121 FNC 1 2 FNC 122 123 FNU 124 126 FNU 17 22 FNU 23 25 FNU 26 27 FDC 1 220 // END // CEND // COPY LIBRARY-P,NAME-JF0288,RECL-096,DATE-01/03/23,TIME-1221 RENAME ?WS?XITOR,?WS?XXITOR // LOAD JF0288 // FILE NAME-XXITOR,LABEL-?WS?XXITOR,RETAIN-S // FILE NAME-XITOR,LABEL-?WS?XITOR,RECORDS-20000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0289,RECL-096,DATE-09/12/10,TIME-1009 *** TRUCK MILL REPORT FOR DEPARTMENT L1 BY ITEM // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XITOR // FILE NAME-OUTPUT,LABEL-?WS?XITORS,RECORDS-10000 // RUN HSORTR 26A 3X 220 I C 1 2EQCL1 FNU 116 121 FNC 1 2 FNC 3 9 FNU 17 22 FNU 23 25 FNU 26 27 FDC 1 121 FDC 1 2 FDC 124 220 // END // CEND // COPY LIBRARY-P,NAME-JF0290,RECL-096,REF-000001,DATE-09/12/10,TIME-1021 *** TRUCK MILL REPORT FOR DEPARTMENT L2 BY ITEM // LOAD JF0281 // SWITCH 01000000 // PRINTER NAME-PRT,FORMSNO-8X11,COPIES-2 // FILE NAME-XITORS,LABEL-?WS?XITORS,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-DEPT,LABEL-?L'100,2'?DEPT,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-XITHD,LABEL-?WS?XITHD // RUN // CEND // COPY LIBRARY-P,NAME-JF0291,RECL-096,DATE-09/12/10,TIME-1020 *** TRUCK MILL REPORT FOR DEPARTMENT L2 BY ITEM // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XITOR // FILE NAME-OUTPUT,LABEL-?WS?XITORS,RECORDS-10000 // RUN HSORTR 26A 3X 220 I C 1 2EQCL2 FNU 116 121 FNC 1 2 FNC 3 9 FNU 17 22 FNU 23 25 FNU 26 27 FDC 1 121 FDC 1 2 FDC 124 220 // END // CEND // COPY LIBRARY-P,NAME-JF0292,RECL-096,REF-000001,DATE-01/03/23,TIME-1221 // LOAD JF0292 // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-XDPCH,LABEL-?WS?XDPCH,RECORDS-300 // FILE NAME-XILOAD,LABEL-?WS?XILOAD,RECORDS-50000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0293,RECL-096,REF-000001,DATE-01/03/23,TIME-1221 // LOAD JF0293 // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-XICHHS,LABEL-?WS?XICHHS,RETAIN-S // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0294,RECL-096,DATE-11/08/16,TIME-0903 // * 'CHECKING FOR PENDING REGULAR AND OLL LOADS USING FILES:' // * ' REGULAR LOADS - FILE XXREGLD' // * ' ODD LOADS - FILE XXODDLD' // * ' (WHERE XX = TERMINAL ID#)' // * 'IF INVALID PENDING LOAD(S), DELETE FILE(S) TO ALLOW RUNNING' // * ' ' // LOCAL OFFSET-1,BLANK-1 // IF DATAF1-W1XREGLD * 'WARNING!!! - PENDING REGULAR LOADS FROM TERMINAL W1' // IF DATAF1-W1XREGLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-W2XREGLD * 'WARNING!!! - PENDING REGULAR LOADS FROM TERMINAL W2' // IF DATAF1-W2XREGLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-W3XREGLD * 'WARNING!!! - PENDING REGULAR LOADS FROM TERMINAL W3' // IF DATAF1-W3XREGLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-W4XREGLD * 'WARNING!!! - PENDING REGULAR LOADS FROM TERMINAL W4' // IF DATAF1-W4XREGLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-W5XREGLD * 'WARNING!!! - PENDING REGULAR LOADS FROM TERMINAL W5' // IF DATAF1-W5XREGLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-W6XREGLD * 'WARNING!!! - PENDING REGULAR LOADS FROM TERMINAL W6' // IF DATAF1-W6XREGLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-W7XREGLD * 'WARNING!!! - PENDING REGULAR LOADS FROM TERMINAL W7' // IF DATAF1-W7XREGLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-W8XREGLD * 'WARNING!!! - PENDING REGULAR LOADS FROM TERMINAL W8' // IF DATAF1-W8XREGLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-W9XREGLD * 'WARNING!!! - PENDING REGULAR LOADS FROM TERMINAL W9' // IF DATAF1-W9XREGLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-W0XREGLD * 'WARNING!!! - PENDING REGULAR LOADS FROM TERMINAL W0' // IF DATAF1-W0XREGLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-WAXREGLD * 'WARNING!!! - PENDING REGULAR LOADS FROM TERMINAL WA' // IF DATAF1-WAXREGLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-WBXREGLD * 'WARNING!!! - PENDING REGULAR LOADS FROM TERMINAL WB' // IF DATAF1-WBXREGLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-WCXREGLD * 'WARNING!!! - PENDING REGULAR LOADS FROM TERMINAL WC' // IF DATAF1-WCXREGLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-WDXREGLD * 'WARNING!!! - PENDING REGULAR LOADS FROM TERMINAL WD' // IF DATAF1-WDXREGLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-WEXREGLD * 'WARNING!!! - PENDING REGULAR LOADS FROM TERMINAL WE' // IF DATAF1-WEXREGLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-WFXREGLD * 'WARNING!!! - PENDING REGULAR LOADS FROM TERMINAL WF' // IF DATAF1-WFXREGLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-WGXREGLD * 'WARNING!!! - PENDING REGULAR LOADS FROM TERMINAL WG' // IF DATAF1-WGXREGLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-WHXREGLD * 'WARNING!!! - PENDING REGULAR LOADS FROM TERMINAL WH' // IF DATAF1-WHXREGLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-WIXREGLD * 'WARNING!!! - PENDING REGULAR LOADS FROM TERMINAL WI' // IF DATAF1-WIXREGLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-WJXREGLD * 'WARNING!!! - PENDING REGULAR LOADS FROM TERMINAL WJ' // IF DATAF1-WJXREGLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-WKXREGLD * 'WARNING!!! - PENDING REGULAR LOADS FROM TERMINAL WK' // IF DATAF1-WKXREGLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-WLXREGLD * 'WARNING!!! - PENDING REGULAR LOADS FROM TERMINAL WL' // IF DATAF1-WLXREGLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-WMXREGLD * 'WARNING!!! - PENDING REGULAR LOADS FROM TERMINAL WM' // IF DATAF1-WMXREGLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-WNXREGLD * 'WARNING!!! - PENDING REGULAR LOADS FROM TERMINAL WN' // IF DATAF1-WNXREGLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-WOXREGLD * 'WARNING!!! - PENDING REGULAR LOADS FROM TERMINAL WO' // IF DATAF1-WOXREGLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-WPXREGLD * 'WARNING!!! - PENDING REGULAR LOADS FROM TERMINAL WP' // IF DATAF1-WPXREGLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-WQXREGLD * 'WARNING!!! - PENDING REGULAR LOADS FROM TERMINAL WQ' // IF DATAF1-WQXREGLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-WRXREGLD * 'WARNING!!! - PENDING REGULAR LOADS FROM TERMINAL WR' // IF DATAF1-WRXREGLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-WSXREGLD * 'WARNING!!! - PENDING REGULAR LOADS FROM TERMINAL WS' // IF DATAF1-WSXREGLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-WTXREGLD * 'WARNING!!! - PENDING REGULAR LOADS FROM TERMINAL WT' // IF DATAF1-WTXREGLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-WUXREGLD * 'WARNING!!! - PENDING REGULAR LOADS FROM TERMINAL WU' // IF DATAF1-WUXREGLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-WVXREGLD * 'WARNING!!! - PENDING REGULAR LOADS FROM TERMINAL WV' // IF DATAF1-WVXREGLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-WWXREGLD * 'WARNING!!! - PENDING REGULAR LOADS FROM TERMINAL WW' // IF DATAF1-WWXREGLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-WXXREGLD * 'WARNING!!! - PENDING REGULAR LOADS FROM TERMINAL WX' // IF DATAF1-WXXREGLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-WYXREGLD * 'WARNING!!! - PENDING REGULAR LOADS FROM TERMINAL WY' // IF DATAF1-WYXREGLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-WZXREGLD * 'WARNING!!! - PENDING REGULAR LOADS FROM TERMINAL WZ' // IF DATAF1-WZXREGLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-X1XREGLD * 'WARNING!!! - PENDING REGULAR LOADS FROM TERMINAL X1' // IF DATAF1-X1XREGLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-X2XREGLD * 'WARNING!!! - PENDING REGULAR LOADS FROM TERMINAL X2' // IF DATAF1-X2XREGLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-X3XREGLD * 'WARNING!!! - PENDING REGULAR LOADS FROM TERMINAL X3' // IF DATAF1-X3XREGLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-X4XREGLD * 'WARNING!!! - PENDING REGULAR LOADS FROM TERMINAL X4' // IF DATAF1-X4XREGLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-X5XREGLD * 'WARNING!!! - PENDING REGULAR LOADS FROM TERMINAL X5' // IF DATAF1-X5XREGLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-X6XREGLD * 'WARNING!!! - PENDING REGULAR LOADS FROM TERMINAL X6' // IF DATAF1-X6XREGLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-X7XREGLD * 'WARNING!!! - PENDING REGULAR LOADS FROM TERMINAL X7' // IF DATAF1-X7XREGLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-X8XREGLD * 'WARNING!!! - PENDING REGULAR LOADS FROM TERMINAL X8' // IF DATAF1-X8XREGLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-X9XREGLD * 'WARNING!!! - PENDING REGULAR LOADS FROM TERMINAL X9' // IF DATAF1-X9XREGLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-X0XREGLD * 'WARNING!!! - PENDING REGULAR LOADS FROM TERMINAL X0' // IF DATAF1-X0XREGLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-XAXREGLD * 'WARNING!!! - PENDING REGULAR LOADS FROM TERMINAL XA' // IF DATAF1-XAXREGLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-XBXREGLD * 'WARNING!!! - PENDING REGULAR LOADS FROM TERMINAL XB' // IF DATAF1-XBXREGLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-XCXREGLD * 'WARNING!!! - PENDING REGULAR LOADS FROM TERMINAL XC' // IF DATAF1-XCXREGLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-XDXREGLD * 'WARNING!!! - PENDING REGULAR LOADS FROM TERMINAL XD' // IF DATAF1-XDXREGLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-XEXREGLD * 'WARNING!!! - PENDING REGULAR LOADS FROM TERMINAL XE' // IF DATAF1-XEXREGLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-XFXREGLD * 'WARNING!!! - PENDING REGULAR LOADS FROM TERMINAL XF' // IF DATAF1-XFXREGLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-XGXREGLD * 'WARNING!!! - PENDING REGULAR LOADS FROM TERMINAL XG' // IF DATAF1-XGXREGLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-XHXREGLD * 'WARNING!!! - PENDING REGULAR LOADS FROM TERMINAL XH' // IF DATAF1-XHXREGLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-XIXREGLD * 'WARNING!!! - PENDING REGULAR LOADS FROM TERMINAL XI' // IF DATAF1-XIXREGLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-XJXREGLD * 'WARNING!!! - PENDING REGULAR LOADS FROM TERMINAL XJ' // IF DATAF1-XJXREGLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-XKXREGLD * 'WARNING!!! - PENDING REGULAR LOADS FROM TERMINAL XK' // IF DATAF1-XKXREGLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-XLXREGLD * 'WARNING!!! - PENDING REGULAR LOADS FROM TERMINAL XL' // IF DATAF1-XLXREGLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-XMXREGLD * 'WARNING!!! - PENDING REGULAR LOADS FROM TERMINAL XM' // IF DATAF1-XMXREGLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-XNXREGLD * 'WARNING!!! - PENDING REGULAR LOADS FROM TERMINAL XN' // IF DATAF1-XNXREGLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-XOXREGLD * 'WARNING!!! - PENDING REGULAR LOADS FROM TERMINAL XO' // IF DATAF1-XOXREGLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-XPXREGLD * 'WARNING!!! - PENDING REGULAR LOADS FROM TERMINAL XP' // IF DATAF1-XPXREGLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-XQXREGLD * 'WARNING!!! - PENDING REGULAR LOADS FROM TERMINAL XQ' // IF DATAF1-XQXREGLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-XRXREGLD * 'WARNING!!! - PENDING REGULAR LOADS FROM TERMINAL XR' // IF DATAF1-XRXREGLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-XSXREGLD * 'WARNING!!! - PENDING REGULAR LOADS FROM TERMINAL XS' // IF DATAF1-XSXREGLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-XTXREGLD * 'WARNING!!! - PENDING REGULAR LOADS FROM TERMINAL XT' // IF DATAF1-XTXREGLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-XUXREGLD * 'WARNING!!! - PENDING REGULAR LOADS FROM TERMINAL XU' // IF DATAF1-XUXREGLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-XVXREGLD * 'WARNING!!! - PENDING REGULAR LOADS FROM TERMINAL XV' // IF DATAF1-XVXREGLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-XWXREGLD * 'WARNING!!! - PENDING REGULAR LOADS FROM TERMINAL XW' // IF DATAF1-XWXREGLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-XXXREGLD * 'WARNING!!! - PENDING REGULAR LOADS FROM TERMINAL XX' // IF DATAF1-XXXREGLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-XYXREGLD * 'WARNING!!! - PENDING REGULAR LOADS FROM TERMINAL XY' // IF DATAF1-XYXREGLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-XZXREGLD * 'WARNING!!! - PENDING REGULAR LOADS FROM TERMINAL XZ' // IF DATAF1-XZXREGLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-Y1XREGLD * 'WARNING!!! - PENDING REGULAR LOADS FROM TERMINAL Y1' // IF DATAF1-Y1XREGLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-Y2XREGLD * 'WARNING!!! - PENDING REGULAR LOADS FROM TERMINAL Y2' // IF DATAF1-Y2XREGLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-Y3XREGLD * 'WARNING!!! - PENDING REGULAR LOADS FROM TERMINAL Y3' // IF DATAF1-Y3XREGLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-Y4XREGLD * 'WARNING!!! - PENDING REGULAR LOADS FROM TERMINAL Y4' // IF DATAF1-Y4XREGLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-Y5XREGLD * 'WARNING!!! - PENDING REGULAR LOADS FROM TERMINAL Y5' // IF DATAF1-Y5XREGLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-Y6XREGLD * 'WARNING!!! - PENDING REGULAR LOADS FROM TERMINAL Y6' // IF DATAF1-Y6XREGLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-Y7XREGLD * 'WARNING!!! - PENDING REGULAR LOADS FROM TERMINAL Y7' // IF DATAF1-Y7XREGLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-Y8XREGLD * 'WARNING!!! - PENDING REGULAR LOADS FROM TERMINAL Y8' // IF DATAF1-Y8XREGLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-Y9XREGLD * 'WARNING!!! - PENDING REGULAR LOADS FROM TERMINAL Y9' // IF DATAF1-Y9XREGLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-Y0XREGLD * 'WARNING!!! - PENDING REGULAR LOADS FROM TERMINAL Y0' // IF DATAF1-Y0XREGLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-YAXREGLD * 'WARNING!!! - PENDING REGULAR LOADS FROM TERMINAL YA' // IF DATAF1-YAXREGLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-YBXREGLD * 'WARNING!!! - PENDING REGULAR LOADS FROM TERMINAL YB' // IF DATAF1-YBXREGLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-YCXREGLD * 'WARNING!!! - PENDING REGULAR LOADS FROM TERMINAL YC' // IF DATAF1-YCXREGLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-YDXREGLD * 'WARNING!!! - PENDING REGULAR LOADS FROM TERMINAL YD' // IF DATAF1-YDXREGLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-YEXREGLD * 'WARNING!!! - PENDING REGULAR LOADS FROM TERMINAL YE' // IF DATAF1-YEXREGLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-YFXREGLD * 'WARNING!!! - PENDING REGULAR LOADS FROM TERMINAL YF' // IF DATAF1-YFXREGLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-YGXREGLD * 'WARNING!!! - PENDING REGULAR LOADS FROM TERMINAL YG' // IF DATAF1-YGXREGLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-YHXREGLD * 'WARNING!!! - PENDING REGULAR LOADS FROM TERMINAL YH' // IF DATAF1-YHXREGLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-YIXREGLD * 'WARNING!!! - PENDING REGULAR LOADS FROM TERMINAL YI' // IF DATAF1-YIXREGLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-YJXREGLD * 'WARNING!!! - PENDING REGULAR LOADS FROM TERMINAL YJ' // IF DATAF1-YJXREGLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-YKXREGLD * 'WARNING!!! - PENDING REGULAR LOADS FROM TERMINAL YK' // IF DATAF1-YKXREGLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-YLXREGLD * 'WARNING!!! - PENDING REGULAR LOADS FROM TERMINAL YL' // IF DATAF1-YLXREGLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-YMXREGLD * 'WARNING!!! - PENDING REGULAR LOADS FROM TERMINAL YM' // IF DATAF1-YMXREGLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-YNXREGLD * 'WARNING!!! - PENDING REGULAR LOADS FROM TERMINAL YN' // IF DATAF1-YNXREGLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-YOXREGLD * 'WARNING!!! - PENDING REGULAR LOADS FROM TERMINAL YO' // IF DATAF1-YOXREGLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-YPXREGLD * 'WARNING!!! - PENDING REGULAR LOADS FROM TERMINAL YP' // IF DATAF1-YPXREGLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-YQXREGLD * 'WARNING!!! - PENDING REGULAR LOADS FROM TERMINAL YQ' // IF DATAF1-YQXREGLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-YRXREGLD * 'WARNING!!! - PENDING REGULAR LOADS FROM TERMINAL YR' // IF DATAF1-YRXREGLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-YSXREGLD * 'WARNING!!! - PENDING REGULAR LOADS FROM TERMINAL YS' // IF DATAF1-YSXREGLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-YTXREGLD * 'WARNING!!! - PENDING REGULAR LOADS FROM TERMINAL YT' // IF DATAF1-YTXREGLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-YUXREGLD * 'WARNING!!! - PENDING REGULAR LOADS FROM TERMINAL YU' // IF DATAF1-YUXREGLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-YVXREGLD * 'WARNING!!! - PENDING REGULAR LOADS FROM TERMINAL YV' // IF DATAF1-YVXREGLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-YWXREGLD * 'WARNING!!! - PENDING REGULAR LOADS FROM TERMINAL YW' // IF DATAF1-YWXREGLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-YXXREGLD * 'WARNING!!! - PENDING REGULAR LOADS FROM TERMINAL YX' // IF DATAF1-YXXREGLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-YYXREGLD * 'WARNING!!! - PENDING REGULAR LOADS FROM TERMINAL YY' // IF DATAF1-YYXREGLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-YZXREGLD * 'WARNING!!! - PENDING REGULAR LOADS FROM TERMINAL YZ' // IF DATAF1-YZXREGLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-W1XODDLD * 'WARNING!!! - PENDING ODD LOADS FROM TERMINAL W1' // IF DATAF1-W1XODDLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-W2XODDLD * 'WARNING!!! - PENDING ODD LOADS FROM TERMINAL W2' // IF DATAF1-W2XODDLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-W3XODDLD * 'WARNING!!! - PENDING ODD LOADS FROM TERMINAL W3' // IF DATAF1-W3XODDLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-W4XODDLD * 'WARNING!!! - PENDING ODD LOADS FROM TERMINAL W4' // IF DATAF1-W4XODDLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-W5XODDLD * 'WARNING!!! - PENDING ODD LOADS FROM TERMINAL W5' // IF DATAF1-W5XODDLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-W6XODDLD * 'WARNING!!! - PENDING ODD LOADS FROM TERMINAL W6' // IF DATAF1-W6XODDLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-W7XODDLD * 'WARNING!!! - PENDING ODD LOADS FROM TERMINAL W7' // IF DATAF1-W7XODDLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-W8XODDLD * 'WARNING!!! - PENDING ODD LOADS FROM TERMINAL W8' // IF DATAF1-W8XODDLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-W9XODDLD * 'WARNING!!! - PENDING ODD LOADS FROM TERMINAL W9' // IF DATAF1-W9XODDLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-W0XODDLD * 'WARNING!!! - PENDING ODD LOADS FROM TERMINAL W0' // IF DATAF1-W0XODDLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-WAXODDLD * 'WARNING!!! - PENDING ODD LOADS FROM TERMINAL WA' // IF DATAF1-WAXODDLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-WBXODDLD * 'WARNING!!! - PENDING ODD LOADS FROM TERMINAL WB' // IF DATAF1-WBXODDLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-WCXODDLD * 'WARNING!!! - PENDING ODD LOADS FROM TERMINAL WC' // IF DATAF1-WCXODDLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-WDXODDLD * 'WARNING!!! - PENDING ODD LOADS FROM TERMINAL WD' // IF DATAF1-WDXODDLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-WEXODDLD * 'WARNING!!! - PENDING ODD LOADS FROM TERMINAL WE' // IF DATAF1-WEXODDLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-WFXODDLD * 'WARNING!!! - PENDING ODD LOADS FROM TERMINAL WF' // IF DATAF1-WFXODDLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-WGXODDLD * 'WARNING!!! - PENDING ODD LOADS FROM TERMINAL WG' // IF DATAF1-WGXODDLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-WHXODDLD * 'WARNING!!! - PENDING ODD LOADS FROM TERMINAL WH' // IF DATAF1-WHXODDLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-WIXODDLD * 'WARNING!!! - PENDING ODD LOADS FROM TERMINAL WI' // IF DATAF1-WIXODDLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-WJXODDLD * 'WARNING!!! - PENDING ODD LOADS FROM TERMINAL WJ' // IF DATAF1-WJXODDLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-WKXODDLD * 'WARNING!!! - PENDING ODD LOADS FROM TERMINAL WK' // IF DATAF1-WKXODDLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-WLXODDLD * 'WARNING!!! - PENDING ODD LOADS FROM TERMINAL WL' // IF DATAF1-WLXODDLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-WMXODDLD * 'WARNING!!! - PENDING ODD LOADS FROM TERMINAL WM' // IF DATAF1-WMXODDLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-WNXODDLD * 'WARNING!!! - PENDING ODD LOADS FROM TERMINAL WN' // IF DATAF1-WNXODDLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-WOXODDLD * 'WARNING!!! - PENDING ODD LOADS FROM TERMINAL WO' // IF DATAF1-WOXODDLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-WPXODDLD * 'WARNING!!! - PENDING ODD LOADS FROM TERMINAL WP' // IF DATAF1-WPXODDLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-WQXODDLD * 'WARNING!!! - PENDING ODD LOADS FROM TERMINAL WQ' // IF DATAF1-WQXODDLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-WRXODDLD * 'WARNING!!! - PENDING ODD LOADS FROM TERMINAL WR' // IF DATAF1-WRXODDLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-WSXODDLD * 'WARNING!!! - PENDING ODD LOADS FROM TERMINAL WS' // IF DATAF1-WSXODDLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-WTXODDLD * 'WARNING!!! - PENDING ODD LOADS FROM TERMINAL WT' // IF DATAF1-WTXODDLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-WUXODDLD * 'WARNING!!! - PENDING ODD LOADS FROM TERMINAL WU' // IF DATAF1-WUXODDLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-WVXODDLD * 'WARNING!!! - PENDING ODD LOADS FROM TERMINAL WV' // IF DATAF1-WVXODDLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-WWXODDLD * 'WARNING!!! - PENDING ODD LOADS FROM TERMINAL WW' // IF DATAF1-WWXODDLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-WXXODDLD * 'WARNING!!! - PENDING ODD LOADS FROM TERMINAL WX' // IF DATAF1-WXXODDLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-WYXODDLD * 'WARNING!!! - PENDING ODD LOADS FROM TERMINAL WY' // IF DATAF1-WYXODDLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-WZXODDLD * 'WARNING!!! - PENDING ODD LOADS FROM TERMINAL WZ' // IF DATAF1-WZXODDLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-X1XODDLD * 'WARNING!!! - PENDING ODD LOADS FROM TERMINAL X1' // IF DATAF1-X1XODDLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-X2XODDLD * 'WARNING!!! - PENDING ODD LOADS FROM TERMINAL X2' // IF DATAF1-X2XODDLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-X3XODDLD * 'WARNING!!! - PENDING ODD LOADS FROM TERMINAL X3' // IF DATAF1-X3XODDLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-X4XODDLD * 'WARNING!!! - PENDING ODD LOADS FROM TERMINAL X4' // IF DATAF1-X4XODDLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-X5XODDLD * 'WARNING!!! - PENDING ODD LOADS FROM TERMINAL X5' // IF DATAF1-X5XODDLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-X6XODDLD * 'WARNING!!! - PENDING ODD LOADS FROM TERMINAL X6' // IF DATAF1-X6XODDLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-X7XODDLD * 'WARNING!!! - PENDING ODD LOADS FROM TERMINAL X7' // IF DATAF1-X7XODDLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-X8XODDLD * 'WARNING!!! - PENDING ODD LOADS FROM TERMINAL X8' // IF DATAF1-X8XODDLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-X9XODDLD * 'WARNING!!! - PENDING ODD LOADS FROM TERMINAL X9' // IF DATAF1-X9XODDLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-X0XODDLD * 'WARNING!!! - PENDING ODD LOADS FROM TERMINAL X0' // IF DATAF1-X0XODDLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-XAXODDLD * 'WARNING!!! - PENDING ODD LOADS FROM TERMINAL XA' // IF DATAF1-XAXODDLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-XBXODDLD * 'WARNING!!! - PENDING ODD LOADS FROM TERMINAL XB' // IF DATAF1-XBXODDLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-XCXODDLD * 'WARNING!!! - PENDING ODD LOADS FROM TERMINAL XC' // IF DATAF1-XCXODDLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-XDXODDLD * 'WARNING!!! - PENDING ODD LOADS FROM TERMINAL XD' // IF DATAF1-XDXODDLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-XEXODDLD * 'WARNING!!! - PENDING ODD LOADS FROM TERMINAL XE' // IF DATAF1-XEXODDLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-XFXODDLD * 'WARNING!!! - PENDING ODD LOADS FROM TERMINAL XF' // IF DATAF1-XFXODDLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-XGXODDLD * 'WARNING!!! - PENDING ODD LOADS FROM TERMINAL XG' // IF DATAF1-XGXODDLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-XHXODDLD * 'WARNING!!! - PENDING ODD LOADS FROM TERMINAL XH' // IF DATAF1-XHXODDLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-XIXODDLD * 'WARNING!!! - PENDING ODD LOADS FROM TERMINAL XI' // IF DATAF1-XIXODDLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-XJXODDLD * 'WARNING!!! - PENDING ODD LOADS FROM TERMINAL XJ' // IF DATAF1-XJXODDLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-XKXODDLD * 'WARNING!!! - PENDING ODD LOADS FROM TERMINAL XK' // IF DATAF1-XKXODDLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-XLXODDLD * 'WARNING!!! - PENDING ODD LOADS FROM TERMINAL XL' // IF DATAF1-XLXODDLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-XMXODDLD * 'WARNING!!! - PENDING ODD LOADS FROM TERMINAL XM' // IF DATAF1-XMXODDLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-XNXODDLD * 'WARNING!!! - PENDING ODD LOADS FROM TERMINAL XN' // IF DATAF1-XNXODDLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-XOXODDLD * 'WARNING!!! - PENDING ODD LOADS FROM TERMINAL XO' // IF DATAF1-XOXODDLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-XPXODDLD * 'WARNING!!! - PENDING ODD LOADS FROM TERMINAL XP' // IF DATAF1-XPXODDLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-XQXODDLD * 'WARNING!!! - PENDING ODD LOADS FROM TERMINAL XQ' // IF DATAF1-XQXODDLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-XRXODDLD * 'WARNING!!! - PENDING ODD LOADS FROM TERMINAL XR' // IF DATAF1-XRXODDLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-XSXODDLD * 'WARNING!!! - PENDING ODD LOADS FROM TERMINAL XS' // IF DATAF1-XSXODDLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-XTXODDLD * 'WARNING!!! - PENDING ODD LOADS FROM TERMINAL XT' // IF DATAF1-XTXODDLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-XUXODDLD * 'WARNING!!! - PENDING ODD LOADS FROM TERMINAL XU' // IF DATAF1-XUXODDLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-XVXODDLD * 'WARNING!!! - PENDING ODD LOADS FROM TERMINAL XV' // IF DATAF1-XVXODDLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-XWXODDLD * 'WARNING!!! - PENDING ODD LOADS FROM TERMINAL XW' // IF DATAF1-XWXODDLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-XXXODDLD * 'WARNING!!! - PENDING ODD LOADS FROM TERMINAL XX' // IF DATAF1-XXXODDLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-XYXODDLD * 'WARNING!!! - PENDING ODD LOADS FROM TERMINAL XY' // IF DATAF1-XYXODDLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-XZXODDLD * 'WARNING!!! - PENDING ODD LOADS FROM TERMINAL XZ' // IF DATAF1-XZXODDLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-Y1XODDLD * 'WARNING!!! - PENDING ODD LOADS FROM TERMINAL Y1' // IF DATAF1-Y1XODDLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-Y2XODDLD * 'WARNING!!! - PENDING ODD LOADS FROM TERMINAL Y2' // IF DATAF1-Y2XODDLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-Y3XODDLD * 'WARNING!!! - PENDING ODD LOADS FROM TERMINAL Y3' // IF DATAF1-Y3XODDLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-Y4XODDLD * 'WARNING!!! - PENDING ODD LOADS FROM TERMINAL Y4' // IF DATAF1-Y4XODDLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-Y5XODDLD * 'WARNING!!! - PENDING ODD LOADS FROM TERMINAL Y5' // IF DATAF1-Y5XODDLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-Y6XODDLD * 'WARNING!!! - PENDING ODD LOADS FROM TERMINAL Y6' // IF DATAF1-Y6XODDLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-Y7XODDLD * 'WARNING!!! - PENDING ODD LOADS FROM TERMINAL Y7' // IF DATAF1-Y7XODDLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-Y8XODDLD * 'WARNING!!! - PENDING ODD LOADS FROM TERMINAL Y8' // IF DATAF1-Y8XODDLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-Y9XODDLD * 'WARNING!!! - PENDING ODD LOADS FROM TERMINAL Y9' // IF DATAF1-Y9XODDLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-Y0XODDLD * 'WARNING!!! - PENDING ODD LOADS FROM TERMINAL Y0' // IF DATAF1-Y0XODDLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-YAXODDLD * 'WARNING!!! - PENDING ODD LOADS FROM TERMINAL YA' // IF DATAF1-YAXODDLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-YBXODDLD * 'WARNING!!! - PENDING ODD LOADS FROM TERMINAL YB' // IF DATAF1-YBXODDLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-YCXODDLD * 'WARNING!!! - PENDING ODD LOADS FROM TERMINAL YC' // IF DATAF1-YCXODDLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-YDXODDLD * 'WARNING!!! - PENDING ODD LOADS FROM TERMINAL YD' // IF DATAF1-YDXODDLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-YEXODDLD * 'WARNING!!! - PENDING ODD LOADS FROM TERMINAL YE' // IF DATAF1-YEXODDLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-YFXODDLD * 'WARNING!!! - PENDING ODD LOADS FROM TERMINAL YF' // IF DATAF1-YFXODDLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-YGXODDLD * 'WARNING!!! - PENDING ODD LOADS FROM TERMINAL YG' // IF DATAF1-YGXODDLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-YHXODDLD * 'WARNING!!! - PENDING ODD LOADS FROM TERMINAL YH' // IF DATAF1-YHXODDLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-YIXODDLD * 'WARNING!!! - PENDING ODD LOADS FROM TERMINAL YI' // IF DATAF1-YIXODDLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-YJXODDLD * 'WARNING!!! - PENDING ODD LOADS FROM TERMINAL YJ' // IF DATAF1-YJXODDLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-YKXODDLD * 'WARNING!!! - PENDING ODD LOADS FROM TERMINAL YK' // IF DATAF1-YKXODDLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-YLXODDLD * 'WARNING!!! - PENDING ODD LOADS FROM TERMINAL YL' // IF DATAF1-YLXODDLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-YMXODDLD * 'WARNING!!! - PENDING ODD LOADS FROM TERMINAL YM' // IF DATAF1-YMXODDLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-YNXODDLD * 'WARNING!!! - PENDING ODD LOADS FROM TERMINAL YN' // IF DATAF1-YNXODDLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-YOXODDLD * 'WARNING!!! - PENDING ODD LOADS FROM TERMINAL YO' // IF DATAF1-YOXODDLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-YPXODDLD * 'WARNING!!! - PENDING ODD LOADS FROM TERMINAL YP' // IF DATAF1-YPXODDLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-YQXODDLD * 'WARNING!!! - PENDING ODD LOADS FROM TERMINAL YQ' // IF DATAF1-YQXODDLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-YRXODDLD * 'WARNING!!! - PENDING ODD LOADS FROM TERMINAL YR' // IF DATAF1-YRXODDLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-YSXODDLD * 'WARNING!!! - PENDING ODD LOADS FROM TERMINAL YS' // IF DATAF1-YSXODDLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-YTXODDLD * 'WARNING!!! - PENDING ODD LOADS FROM TERMINAL YT' // IF DATAF1-YTXODDLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-YUXODDLD * 'WARNING!!! - PENDING ODD LOADS FROM TERMINAL YU' // IF DATAF1-YUXODDLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-YVXODDLD * 'WARNING!!! - PENDING ODD LOADS FROM TERMINAL YV' // IF DATAF1-YVXODDLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-YWXODDLD * 'WARNING!!! - PENDING ODD LOADS FROM TERMINAL YW' // IF DATAF1-YWXODDLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-YXXODDLD * 'WARNING!!! - PENDING ODD LOADS FROM TERMINAL YX' // IF DATAF1-YXXODDLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-YYXODDLD * 'WARNING!!! - PENDING ODD LOADS FROM TERMINAL YY' // IF DATAF1-YYXODDLD LOCAL OFFSET-1,DATA-'X' // IF DATAF1-YZXODDLD * 'WARNING!!! - PENDING ODD LOADS FROM TERMINAL YZ' // IF DATAF1-YZXODDLD LOCAL OFFSET-1,DATA-'X' // IF ?L'1,1'?='X' * 'THE PROGRAM HAS BEEN CANCELLED. PRESS ENTER TO RETURN TO MENU' // IF ?L'1,1'?='X' LOCAL OFFSET-2,DATA-'?R?' // IF ?L'1,1'?='X' GOTO END JF0606 // IFF ?L'1,4'?='9550' GOTO END RENAME ?L'100,2'?CHGHS,?WS?XCHGHS BLDFILE ?L'100,2'?CHGHS,S,RECORDS,2000,7,,,,,,,1000 JF0295 JF0296 JF0293 // TAG END // CEND // COPY LIBRARY-P,NAME-JF0295,RECL-096,DATE-01/03/23,TIME-1221 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XCHGHS,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XCHHSS,RECORDS-5000 // RUN HSORTR 7A 3X 7 FNU 1 6 FNC 7 FDC 1 7 // END // CEND // COPY LIBRARY-P,NAME-JF0296,RECL-096,DATE-01/03/23,TIME-1221 // LOAD JF0296 // FILE NAME-XCHHSS,LABEL-?WS?XCHHSS,RETAIN-S // FILE NAME-XICHHS,LABEL-?WS?XICHHS,RECORDS-3000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0297,RECL-096,DATE-04/03/31,TIME-1257 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?L'100,2'?LDTRK,DISP-SHR // FILE NAME-OUTPUT,LABEL-?WS?XLDTRS,RECORDS-3000 // RUN HSORTR 5A 3X 130 I C 130EQCA FNC 1 2 FNU 3 5 FDC 1 130 // END // CEND // COPY LIBRARY-P,NAME-JF0298,RECL-096,REF-000004,DATE-04/10/26,TIME-1000 // LOAD JF0298 // PRINTER NAME-PRT,FORMSNO-8X11,COPIES-11 // FILE NAME-XLDTRS,LABEL-?WS?XLDTRS // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0299,RECL-096,REF-000001,DATE-10/01/14,TIME-1404 // LOAD JF0299 // FILE NAME-XITOR,LABEL-?WS?XITOR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-MISCUS,LABEL-?L'100,2'?MISCUS,DISP-SHR // FILE NAME-XITRG,LABEL-?WS?XITRG,RECORDS-2000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0300,RECL-096,DATE-01/03/23,TIME-1221 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XITRG,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XITRGS,RECORDS-2000 // RUN HSORTR 42A 3X 167 FNC 7 36 FNU 1 6 FNU 62 67 FDC 1 167 // END // CEND // COPY LIBRARY-P,NAME-JF0301,RECL-096,REF-000002,DATE-06/10/26,TIME-0749 // LOAD JF0301 // SWITCH 01010000 // FILE NAME-XITRGS,LABEL-?WS?XITRGS,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-XDPCH,LABEL-?WS?XDPCH // RUN // CEND // COPY LIBRARY-P,NAME-JF0302,RECL-096,DATE-01/03/23,TIME-1221 RENAME ?WS?XITOR,?WS?XXITOR // LOAD JF0302 // FILE NAME-XXITOR,LABEL-?WS?XXITOR,RETAIN-S // FILE NAME-XDPCH,LABEL-?WS?XDPCH // FILE NAME-XITOR,LABEL-?WS?XITOR,RECORDS-25000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0303,RECL-096,DATE-01/03/23,TIME-1221 // LOAD JF0303 // PRINTER NAME-PRT,FORMSNO-8X11 // FILE NAME-XLDTRS,LABEL-?WS?XLDTRS // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0304,RECL-096,REF-000003,DATE-06/03/27,TIME-1410 JF0297 JF0303 JF0494 JF0495 JF0854 JF0852 JF0853 // CEND // COPY LIBRARY-P,NAME-JF0305,RECL-096,DATE-01/03/23,TIME-1221 RENAME ?WS?XITOR,?WS?XXITOR // LOAD JF0305 // FILE NAME-XXITOR,LABEL-?WS?XXITOR,RETAIN-S // FILE NAME-XDPCH,LABEL-?WS?XDPCH,RECORDS-100 // FILE NAME-XITOR,LABEL-?WS?XITOR,RECORDS-25000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0306,RECL-096,DATE-09/03/11,TIME-0946 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XLABL,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XLABLS,RECORDS-20000 // RUN HSORTR 21A 3X 230 FNC 1 2 FNC 122 123 FNU 124 126 FNU 17 22 FNC 229 FNU 225 226 FNU 23 25 FNU 26 27 FDC 1 230 // END // CEND // COPY LIBRARY-P,NAME-JF0307,RECL-096,DATE-01/03/23,TIME-1221 // LOAD JF0012 // SWITCH 01100000 // FILE NAME-XLOADO,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-XCHGLD,LABEL-?WS?XCHGLD,RECORDS-1000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0308,RECL-096,DATE-01/03/23,TIME-1221 // LOAD JF0043 // SWITCH 01000000 // FILE NAME-XLOADO,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-XCHGLD,LABEL-?WS?XCHGLD // RUN // CEND // COPY LIBRARY-P,NAME-JF0309,RECL-096,DATE-01/03/23,TIME-1221 // LOAD JF0044 // SWITCH 01000000 // FILE NAME-XLOADO,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-XADLOD,LABEL-?WS?XADLOD,RECORDS-5000 // FILE NAME-XCHGLD,LABEL-?WS?XCHGLD // RUN // CEND // COPY LIBRARY-P,NAME-JF0310,RECL-096,DATE-01/03/23,TIME-1221 // LOAD JF0091 // FILE NAME-XADLOD,LABEL-?WS?XADLOD,RETAIN-S // FILE NAME-XLOADO,LABEL-?L'100,2'?LOAD,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0311,RECL-096,DATE-01/03/23,TIME-1221 JF0307 JF0308 JF0309 JF0310 KEYSORT ?L'100,2'?LOAD JF0332 JF0330 JF0328 JF0329 JF0331 // CEND // COPY LIBRARY-P,NAME-JF0312,RECL-096,REF-000005,DATE-01/07/12,TIME-0916 // * 'DO YOU WISH TO PRINT LOAD TICKETS BY CHOICE OF:' // * ' N - FROM AND THROUGH LOAD NUMBERS' // * ' ALL LOAD TICKETS WILL PRINT OUT IN ORDER BY:' // * ' 1.) NUMERICALLY BY LOAD NUMBER' // * ' D - DELIVERY DATES AND WHETHER OR NOT TICKET PREVIOUSLY PRINTED' // * ' ALL LOAD TICKETS WILL PRINT OUT IN ORDER BY:' // * ' 1.) DELIVERY DATE' // * ' 2.) ZONE CHARACTERS 1-3 IN SPECIAL ORDER' // * ' 3.) ZONE CHARACTERS 1-4' // * ' 4.) ZONE CHARACTERS 5-6 (OPPOSITE)' // * ' 5.) CUSTOMER NUMBER' // * ' 6.) HIGHEST CATEGORY (EXT/INT/MISC) FOR SAME' // * ' DELIVERY DATE/ZONE CUSTOMER#/LOT/BLOCK/SEQ#' // * ' 7.) BUILDING, LOT, SEQUENCE (OPPOSITE)' // * ' 8.) EXTERIOR/INTERIOR/MISCELLANEOUS' // * ' 9.) WHETHER NON ZERO OR ZERO HOUSE NUMBER' // * ' 10.) LAST DIGIT OF HOUSE NUMBER (1234056789)' // * ' 11.) LOAD NUMBER' // IF ?R?='N' GOTO LOADNO JF0516 JF0868 JF0869 JF0870 // GOTO TICKET // TAG LOADNO JF0313 // TAG TICKET JF0517 JF0314 JF0518 JF0519 // CEND // COPY LIBRARY-P,NAME-JF0313,RECL-096,DATE-01/03/23,TIME-1221 // LOAD JF0313 // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-XZLOAD,LABEL-?WS?XZLOAD,RECORDS-10000 // FILE NAME-XLMES,LABEL-?WS?XLMES,RECORDS-1 // RUN // CEND // COPY LIBRARY-P,NAME-JF0314,RECL-096,DATE-05/12/20,TIME-1209 // LOAD JF0018 // SWITCH 10000001 ***** TWO DIGIT # IN NEXT LINE AFTER DATA IS # LOADS WHEN MAP PRINTS // LOCAL OFFSET-3,DATA-'05' // PRINTER NAME-PRT,FORMSNO-LOAD // FILE NAME-XLOAD,LABEL-?WS?XILOAD // FILE NAME-XLMES,LABEL-?WS?XLMES,RETAIN-S // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-MISCUS,LABEL-?L'100,2'?MISCUS,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-PRCTAB,LABEL-?L'100,2'?PRCTAB,DISP-SHR // FILE NAME-MESAGE,LABEL-?L'100,2'?MESAGE,DISP-SHR // FILE NAME-CUSMAP,LABEL-?L'100,2'?CUSMAP,DISP-SHR // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0315,RECL-096,DATE-01/03/23,TIME-1221 // IF DATAF1-?L'100,2'?PROJ GOTO BEGREP // TAG AGN1 // * 'YOU WILL GET A PAUSE HALT BECAUSE THE PROJECTION FILE' // * 'IS CURRENTLY BEING REORGANIZED.' // * ' ' // * 'TAKE A 0 OPTION TO TRY AGAIN.' // * ' ' // * 'IF THE FILE HAS COMPLETED REORGANIZATION THE PROGRAM WILL CONTINUE.' // * 'IF NOT YOU WILL AGAIN GET A PAUSE HALT.' // PAUSE // IFF DATAF1-?L'100,2'?PROJ GOTO AGN1 // TAG BEGREP // LOAD JF0315 // FILE NAME-PROJ,LABEL-?L'100,2'?PROJ,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0316,RECL-096,DATE-01/03/23,TIME-1221 // LOAD JF0316 // SWITCH 10000000 // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-PROJ,LABEL-?L'100,2'?PROJ,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0317,RECL-096,REF-000001,DATE-09/12/10,TIME-1008 *** TRUCK MILL REPORT FOR DEPARTMENTS L1 AND ALL R // LOAD JF0281 // SWITCH 10000000 // PRINTER NAME-PRT,FORMSNO-8X11,COPIES-3 // FILE NAME-XITORS,LABEL-?WS?XITORS,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-DEPT,LABEL-?L'100,2'?DEPT,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-XITHD,LABEL-?WS?XITHD // RUN // CEND // COPY LIBRARY-P,NAME-JF0318,RECL-096,REF-000001,DATE-09/12/10,TIME-1010 *** TRUCK MILL REPORT FOR DEPARTMENT L1 BY ITEM // LOAD JF0281 // SWITCH 01000000 // PRINTER NAME-PRT,FORMSNO-8X11,COPIES-2 // FILE NAME-XITORS,LABEL-?WS?XITORS,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-DEPT,LABEL-?L'100,2'?DEPT,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-XITHD,LABEL-?WS?XITHD // RUN // CEND // COPY LIBRARY-P,NAME-JF0319,RECL-096,REF-000001,DATE-09/12/10,TIME-1015 *** TRUCK MILL REPORT FOR DEPARTMENTS H1 AND H2 // LOAD JF0281 // SWITCH 10000000 // PRINTER NAME-PRT,FORMSNO-8X11,COPIES-3 // FILE NAME-XITORS,LABEL-?WS?XITORS,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-DEPT,LABEL-?L'100,2'?DEPT,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-XITHD,LABEL-?WS?XITHD // RUN // CEND // COPY LIBRARY-P,NAME-JF0320,RECL-096,REF-000001,DATE-09/12/10,TIME-1016 *** TRUCK MILL REPORT FOR DEPARTMENT G1 // LOAD JF0281 // SWITCH 10000000 // PRINTER NAME-PRT,FORMSNO-8X11,COPIES-2 // FILE NAME-XITORS,LABEL-?WS?XITORS,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-DEPT,LABEL-?L'100,2'?DEPT,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-XITHD,LABEL-?WS?XITHD // RUN // CEND // COPY LIBRARY-P,NAME-JF0321,RECL-096,REF-000001,DATE-09/12/10,TIME-1020 *** TRUCK MILL REPORT FOR DEPARTMENT L2 // LOAD JF0281 // SWITCH 10000000 // PRINTER NAME-PRT,FORMSNO-8X11,COPIES-2 // FILE NAME-XITORS,LABEL-?WS?XITORS,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-DEPT,LABEL-?L'100,2'?DEPT,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-XITHD,LABEL-?WS?XITHD // RUN // CEND // COPY LIBRARY-P,NAME-JF0322,DATE-07/10/08,TIME-0739 // LOAD JF0322 // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0323,RECL-096,DATE-01/03/23,TIME-1222 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?L'100,2'?PROJ // FILE NAME-OUTPUT,LABEL-?WS?XPROJ,RECORDS-8000,EXTEND-2000 // RUN HSORTRS 14A 3X 60 I C 60EQCA FNU 1 6 FNU 38 39 FNU 40 41 FNU 42 43 FNU 37 FNC 58 FDC 1 30 FSU 31 36 FDC 37 43 FSU 44 50 FSU 51 57 FDC 58 60 // END // CEND // COPY LIBRARY-P,NAME-JF0324,RECL-096,DATE-01/03/23,TIME-1222 // LOAD JF0324 // FILE NAME-PROJ,LABEL-?L'100,2'?PROJ,DISP-SHR // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0325,RECL-096,DATE-01/03/23,TIME-1222 // LOAD JF0316 // SWITCH 00000000 // FILE NAME-LOAD,LABEL-?WS?XLOADR,RETAIN-S // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-PROJ,LABEL-?L'100,2'?PROJ,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0326,RECL-096,DATE-01/03/23,TIME-1222 // LOAD JF0316 // SWITCH 00000000 // FILE NAME-LOAD,LABEL-?WS?XLOADO,RETAIN-S // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-PROJ,LABEL-?L'100,2'?PROJ,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0327,RECL-096,DATE-02/02/04,TIME-1342 // * 'THIS PROCEDURE WILL ERASE THE PRESENT PROJECTION FILE' // * 'AND CREATE A NEW ONE WITH DATA FROM THE CURRENT LOAD FILE' // * ' ' // * 'ONLY DATA FROM LOADS WITH DELIVERY DATES EQUAL TO OR HIGHER' // * 'THAN THE COMPUTER DATE OF ?DATE? WILL BE KEPT.' // * ' ' // * 'NO UPDATING OF THE LOAD FILE SHOULD BE DONE WHILE THIS PROCEDURE' // * 'IS OPERATING. AND YOU WILL NOT BE ABLE TO GET ANY PROJECTION' // * 'REPORTS UNTIL THIS PROCEDURE IS FINISHED.' // * ' ' // * 'IF THIS IS OK TAKE A 0 OPTION TO THE PAUSE HALT.' // * ' ' // * 'IF NOT PRESS THE ATTN KEY AND TAKE A 3 OPTION TO CANCEL THIS PROCEDURE.' // PAUSE // IF DATAF1-'?L'100,2'?PROJ' DELETE ?L'100,2'?PROJ,F1 BLDFILE ?L'100,2'?PROJ,S,R,8000,60,,,,,,,2000 JF0316 JF0323 DELETE ?L'100,2'?PROJ,F1 RENAME ?WS?XPROJ,?L'100,2'?PROJ // CEND // COPY LIBRARY-P,NAME-JF0328,RECL-096,DATE-01/03/23,TIME-1222 // LOAD JF0328 // FILE NAME-PROJ,LABEL-?L'100,2'?PROJ,DISP-SHR // FILE NAME-XCHGLD,LABEL-?WS?XCHGLD // RUN // CEND // COPY LIBRARY-P,NAME-JF0329,RECL-096,DATE-01/03/23,TIME-1222 // LOAD JF0329 // FILE NAME-XCHGLD,LABEL-?WS?XCHGLD,RETAIN-S // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-PROJ,LABEL-?L'100,2'?PROJ,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0330,RECL-096,DATE-01/03/23,TIME-1222 // IF DATAF1-?L'100,2'?PROJ GOTO BEGUPD // TAG AGN1 // * 'YOU WILL GET A PAUSE HALT BECAUSE THE PROJECTION FILE' // * 'IS CURRENTLY BEING REORGANIZED.' // * ' ' // * 'TAKE A 0 OPTION TO TRY AGAIN.' // * ' ' // * 'IF THE FILE HAS COMPLETED REORGANIZATION THE PROGRAM WILL CONTINUE.' // * 'IF NOT YOU WILL AGAIN GET A PAUSE HALT.' // PAUSE // IFF DATAF1-?L'100,2'?PROJ GOTO AGN1 // TAG BEGUPD // CEND // COPY LIBRARY-P,NAME-JF0331,RECL-096,REF-000001,DATE-01/08/29,TIME-1229 // IF 2000>?F'A,?L'100,2'?PROJ'? GOTO STOP // * '****************************************************' // * '*** IF YOU GET ANY OF THE FOLLOWING MESSAGES:' // * '*** ' // * '*** SYS-6408 OPTIONS ( 123 )' // * '*** FILE/LIBRARY/FOLDER PROJ CURRENTLY IN USE...' // * '*** ' // * '*** SYS-6406 OPTIONS ( 23 )' // * '*** OLD LABEL PROJ DOES NOT EXIST ON THE DISK...' // * '*** ' // * '*** SOR7725 OPTIONS ( 3 )' // * '*** SEVERE ERRORS WHILE PROCESSING SORT SPECIFICATIONS.' // * '*** ' // * '*** TAKE A 3 OPTION. THANK YOU.' // * '****************************************************' RENAME ?L'100,2'?PROJ,?WS?XPROJ // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XPROJ,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XXPROJ,RECORDS-8000,EXTEND-2000 // RUN HSORTRS 14A 3X 60 I C 60EQCA FNU 1 6 FNU 38 39 FNU 40 41 FNU 42 43 FNU 37 FNC 58 FDC 1 30 FSU 31 36 FDC 37 43 FSU 44 50 FSU 51 57 FDC 58 60 // END RENAME ?WS?XXPROJ,?L'100,2'?PROJ // TAG STOP // CEND // COPY LIBRARY-P,NAME-JF0332,RECL-096,DATE-01/03/23,TIME-1222 RENAME ?WS?XCHGLD,?WS?XXCHGL // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XXCHGL,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XCHGLD,RECORDS-1000 // RUN HSORTRS 6A 3X 7 FNU 1 6 FDC 1 6 FSU 7 // END // CEND // COPY LIBRARY-P,NAME-JF0333,RECL-096,REF-000002,DATE-01/03/23,TIME-1222 JF0166 JF0332 JF0330 JF0328 JF0329 JF0331 // JOBQ JOFFE,JF0787 // CEND // COPY LIBRARY-P,NAME-JF0334,RECL-096,REF-000002,DATE-01/03/23,TIME-1222 JF0084 JF0332 JF0330 JF0328 JF0329 JF0331 // JOBQ JOFFE,JF0787 // CEND // COPY LIBRARY-P,NAME-JF0335,RECL-096,DATE-01/03/23,TIME-1222 // LOAD JF0335 // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0341,RECL-096,REF-000001,DATE-01/03/23,TIME-1222 RENAME ?WS?XITOR,?WS?XXITOR // LOAD JF0341 // FILE NAME-XXITOR,LABEL-?WS?XXITOR,RETAIN-S // FILE NAME-XITOR,LABEL-?WS?XITOR,RECORDS-30000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0344,RECL-096,DATE-01/03/23,TIME-1222 JF0345 JF0346 JF0347 // CEND // COPY LIBRARY-P,NAME-JF0345,RECL-096,DATE-01/03/23,TIME-1222 // LOAD JF0345 // FILE NAME-HOUSE,LABEL-?L'100,2'?HOUSE,DISP-SHR // FILE NAME-XSMHS,LABEL-?WS?XSMHS,RECORDS-20000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0346,RECL-096,DATE-01/03/23,TIME-1222 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XSMHS,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XSMHSS,RECORDS-20000 // RUN HSORTR 12A 3X 67 FNU 61 66 FNU 1 6 FDC 1 67 // END // CEND // COPY LIBRARY-P,NAME-JF0347,RECL-096,DATE-01/10/08,TIME-1444 // LOAD JF0347 OVRPRTF FILE(PRT) USRDTA('HOUSE SUMM') // SWITCH 10000000 // PRINTER NAME-PRT,COPIES-1 // FILE NAME-XSMHSS,LABEL-?WS?XSMHSS,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0348,RECL-096,DATE-01/03/23,TIME-1222 JF0349 JF0346 JF0350 // CEND // COPY LIBRARY-P,NAME-JF0349,RECL-096,REF-000002,DATE-01/03/23,TIME-1222 // LOAD JF0345 // FILE NAME-HOUSE,LABEL-?L'100,2'?HOUEST,DISP-SHR // FILE NAME-XSMHS,LABEL-?WS?XSMHS,RECORDS-10000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0350,RECL-096,REF-000001,DATE-01/10/08,TIME-1443 // LOAD JF0347 // SWITCH 01000000 // FILE NAME-XSMHSS,LABEL-?WS?XSMHSS,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0351,RECL-096,REF-000002,DATE-01/03/23,TIME-1222 // LOAD JF0016 // IF ?L'201,1'?='2' SWITCH 01000001 // IFF ?L'201,1'?='2' SWITCH 01000010 ***** // IF ?L'201,1'?='2' PRINTER NAME-PRT2,FORMSNO-8X14 ***** // IFF ?L'201,1'?='2' PRINTER NAME-PRT1 // IF ?L'201,1'?='2' GOTO PRINT2 // IF ?WS?='X8' PRINTER NAME-PRT1,FONT-DF // IFF ?WS?='X8' PRINTER NAME-PRT1 // GOTO BEGIN // TAG PRINT2 // IF ?WS?='X8' PRINTER NAME-PRT2,FORMSNO-8X14,FONT-DF // IFF ?WS?='X8' PRINTER NAME-PRT2,FORMSNO-8X14 // TAG BEGIN // FILE NAME-XHSEL,LABEL-?WS?XHSEL,RETAIN-S // FILE NAME-XHSCH,LABEL-?WS?XHSCH,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-PRCTAB,LABEL-?L'100,2'?PRCTAB,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0352,RECL-096,REF-000003,DATE-01/03/23,TIME-1222 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-OUTPUT,LABEL-?WS?XCUSTM,RECORDS-5000 // RUN HSORTR 38A 3X 600 I C 600EQCA IAC 1 6LTC900000 FNC 299 300 FNC 8 37 FNU 1 6 FDC 1 256 FDC 257 512 FDC 513 600 // END // CEND // COPY LIBRARY-P,NAME-JF0353,RECL-096,REF-000001,DATE-01/03/23,TIME-1222 // LOAD JF0355 // SWITCH 01000000 // FILE NAME-XCUSTM,LABEL-?WS?XCUSTM,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0354,RECL-096,REF-000002,DATE-01/03/23,TIME-1222 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-OUTPUT,LABEL-?WS?XCUSTM,RECORDS-5000 // RUN HSORTR 36A 3X 600 I C 600EQCA IAC 1 6LTC900000 FNC 8 37 FNU 1 6 FDC 1 256 FDC 257 512 FDC 513 600 // END // CEND // COPY LIBRARY-P,NAME-JF0355,RECL-096,REF-000001,DATE-01/03/23,TIME-1222 // LOAD JF0355 // SWITCH 10000000 // FILE NAME-XCUSTM,LABEL-?WS?XCUSTM,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0356,RECL-096,DATE-01/03/23,TIME-1222 JF0354 JF0355 // CEND // COPY LIBRARY-P,NAME-JF0357,RECL-096,DATE-01/03/23,TIME-1222 JF0352 JF0353 // CEND // COPY LIBRARY-P,NAME-JF0358,RECL-096,REF-000002,DATE-07/05/23,TIME-0653 // * 'PLEASE ENTER PASSWORD TO ALLOW CHANGING CUSTOMER FILE' // LOCAL OFFSET-2,DATA-'?R?' // IF ?L'2,4'?='ROCK' GOTO BEGIN // IF ?L'2,4'?='0186' GOTO BEGIN // IF ?L'2,4'?='MEAN' GOTO BEGIN // IF ?L'2,7'?='PTLDXN1' GOTO BEGIN // GOTO END // TAG BEGIN // * 'PLEASE ENTER PASSWORD TO ALLOW DELETIONS' // * '(JUST PRESS ENTER IF YOU DO NOT WISH TO MAKE ANY DELETIONS.)' // LOCAL OFFSET-1,DATA-' ' // IF ?R?='GUTIERREZ' LOCAL OFFSET-1,DATA-'X' // LOAD JF0358 // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // RUN // TAG END // CEND // COPY LIBRARY-P,NAME-JF0359,RECL-096,DATE-01/03/23,TIME-1222 // * 'ENTER SPOOL ID FOR WHICH YOU WANT TO DISPLAY PRINTED OUTPUT ON SCREEN' // LOCAL OFFSET-141,DATA-'?R?',BLANK-6 COPYPRT ?L'141,6'?,?WS??L'141,6'?,,CRT DELETE ?WS??L'141,6'?,F1 // CEND // COPY LIBRARY-P,NAME-JF0360,RECL-096,DATE-01/03/23,TIME-1222 JF0361 JF0362 // CEND // COPY LIBRARY-P,NAME-JF0361,RECL-096,REF-000002,DATE-01/03/23,TIME-1222 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-OUTPUT,LABEL-?WS?XCUSTM,RECORDS-5000 // RUN HSORTR 42A 3X 600 I C 600EQCA IAC 1 6LTC900000 FNC 436 441 FNC 8 37 FNU 1 6 FDC 1 256 FDC 257 512 FDC 513 600 // END // CEND // COPY LIBRARY-P,NAME-JF0362,RECL-096,REF-000001,DATE-01/03/23,TIME-1222 // LOAD JF0355 // SWITCH 00100000 // FILE NAME-XCUSTM,LABEL-?WS?XCUSTM,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0363,RECL-096,DATE-01/03/23,TIME-1222 // LOAD JF0216 // SWITCH 10000000 // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-MISCUS,LABEL-?L'100,2'?MISCUS,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-PRCTAB,LABEL-?L'100,2'?PRCTAB,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0364,RECL-096,DATE-01/03/23,TIME-1222 JF0365 JF0366 RENAME ?WS?XLOADR,?WS?XLODRX COPYDATA ?WS?XLODRX,,?WS?XLOADR,,,,,REORG,OMIT,10,EQ,'D' DELETE ?WS?XLODRX,F1 COPYDATA ?WS?XLOADR,,?WS?XLODRF,,,,,REORG,INCLUDE,7,LE,'000' DELETE ?WS?XLOADR,F1 JF0019 // CEND // COPY LIBRARY-P,NAME-JF0365,RECL-096,DATE-01/03/23,TIME-1222 // LOAD JF0166 // SWITCH 01000000 // FILE NAME-LOAD,LABEL-?WS?XLOADR // FILE NAME-MISCUS,LABEL-?WS?XMSCSR // RUN // CEND // COPY LIBRARY-P,NAME-JF0366,RECL-096,REF-000001,DATE-06/11/10,TIME-1224 // LOAD JF0084 // SWITCH 01000000 // FILE NAME-LOAD,LABEL-?WS?XLOADR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-PRCTAB,LABEL-?L'100,2'?PRCTAB,DISP-SHR // FILE NAME-HOUSE,LABEL-?L'100,2'?HOUSE,DISP-SHR // FILE NAME-ORDER,LABEL-?L'100,2'?ORDER,DISP-SHR // FILE NAME-MISCUS,LABEL-?WS?XMSCSR // RUN // CEND // COPY LIBRARY-P,NAME-JF0367,RECL-096,DATE-01/03/23,TIME-1222 JF0512 JF0368 // CEND // COPY LIBRARY-P,NAME-JF0368,RECL-096,REF-000001,DATE-06/04/13,TIME-0802 // LOAD JF0021 // SWITCH 00100000 // FILE NAME-XLOADS,LABEL-?WS?XLODRS,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-XMSCS,LABEL-?WS?XMSCSR // FILE NAME-XLOAD,LABEL-?WS?XLOADR // RUN // CEND // COPY LIBRARY-P,NAME-JF0369,RECL-096,DATE-01/03/23,TIME-1222 JF0370 JF0018 // CEND // COPY LIBRARY-P,NAME-JF0370,RECL-096,DATE-01/03/23,TIME-1222 // LOAD JF0150 // FILE NAME-XLOAD,LABEL-?WS?XLOADR // FILE NAME-XLOADP,LABEL-?WS?XLODRP,RECORDS-5000 // FILE NAME-XLMES,LABEL-?WS?XLMES,RECORDS-1 // RUN // CEND // COPY LIBRARY-P,NAME-JF0371,RECL-120,DATE-02/04/11,TIME-0958 // LOAD JF0371 // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-INVEN,LABEL-?L'100,2'?INVEN,DISP-SHR // FILE NAME-PRDREC,LABEL-?L'100,2'?PRDREC,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0372,RECL-096,REF-000002,DATE-06/06/15,TIME-0803 JF0026 // IF DATAF1-?WS?XREGLD DELETE ?WS?XREGLD,F1 JF0020 JF0021 JF1199 JF1201 JF0330 JF0325 JF0324 JF0331 // JOBQ JOFFE,JF0787 // CEND // COPY LIBRARY-P,NAME-JF0373,RECL-096,DATE-01/03/23,TIME-1222 JF0374 JF0132 JF0375 // CEND // COPY LIBRARY-P,NAME-JF0374,RECL-096,REF-000003,DATE-01/03/23,TIME-1222 // LOAD JF0130 // FILE NAME-HOUSE,LABEL-?L'100,2'?HOUEST,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-XHSITM,LABEL-?WS?XHSITM,RECORDS-40000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0375,RECL-096,DATE-01/03/23,TIME-1222 // LOAD JF0131 // SWITCH 01000000 // FILE NAME-XHSITS,LABEL-?WS?XHSITS,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-HOUSE,LABEL-?L'100,2'?HOUEST,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0376,RECL-096,DATE-01/11/06,TIME-1251 // LOAD JF0376 // PRINTER NAME-PRT,FORMSNO-LABL // FILE NAME-VENDOR,LABEL-?L'100,2'?VENDOR,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0377,RECL-096,DATE-01/03/23,TIME-1222 // LOAD JF0377 // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0378,RECL-096,REF-000001,DATE-10/03/11,TIME-0926 // LOAD JF0378 // FILE NAME-XLODRF,LABEL-?WS?XLODRF // FILE NAME-XMSCSR,LABEL-?WS?XMSCSR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-PRCTAB,LABEL-?L'100,2'?PRCTAB,DISP-SHR // FILE NAME-HOUSE,LABEL-?L'100,2'?HOUSE,DISP-SHR // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-ORDER,LABEL-?L'100,2'?ORDER,DISP-SHR // FILE NAME-RELSHT,LABEL-?L'100,2'?RELSHT,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0379,RECL-096,DATE-06/03/31,TIME-0656 // IFF DATAF1-?WS?XREGLD BLDFILE ?WS?XREGLD,S,RECORDS,1,1 // IFF DATAF1-?WS?XLOADR BLDFILE ?WS?XLODRF,I,RECORDS,5000,100,,,1,9 // IFF DATAF1-?WS?XLOADR BLDFILE ?WS?XMSCSR,I,RECORDS,500,97,,,1,7 // IF DATAF1-?WS?XLOADR COPYDATA ?WS?XLOADR,,?WS?XLODRF,,,,,REORG,INCLUDE,7,LE,'000' // IF DATAF1-?WS?XLOADR DELETE ?WS?XLOADR,F1 JF0378 RENAME ?WS?XLODRF,?WS?XXLDRF COPYDATA ?WS?XXLDRF,,?WS?XLODRF,,,,,REORG,OMIT,10,EQ,'D' DELETE ?WS?XXLDRF,F1 JF0019 // CEND // COPY LIBRARY-P,NAME-JF0380,RECL-096,DATE-01/03/23,TIME-1222 JF0381 JF0382 JF0383 // CEND // COPY LIBRARY-P,NAME-JF0381,RECL-096,DATE-01/03/23,TIME-1222 // LOAD JF0381 // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-XOPLOD,LABEL-?WS?XOPLOD,RECORDS-10000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0382,RECL-096,DATE-06/03/27,TIME-1006 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XOPLOD,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XXOPLD,RECORDS-10000 // RUN HSORTR 22A 3X 100 FNC 101 102 FNU 103 108 FNU 109 112 FNU 113 116 FNU 1 6 FDC 1 100 // END // CEND // COPY LIBRARY-P,NAME-JF0383,RECL-096,REF-000001,DATE-01/03/23,TIME-1222 // LOAD JF0021 // SWITCH 00010000 // FILE NAME-XLOADS,LABEL-?WS?XXOPLD,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-XMSCS,LABEL-?L'100,2'?MISCUS,DISP-SHR // FILE NAME-XLOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0384,RECL-096,REF-000001,DATE-01/03/23,TIME-1222 // IFF DATAF1-?WS?XLOADO BLDFILE ?WS?XLOADO,I,R,15000,79,,,1,9 // IFF DATAF1-?WS?XMSCSO BLDFILE ?WS?XMSCSO,I,R,15000,97,,,1,7 // LOAD JF0384 // FILE NAME-XLOADO,LABEL-?WS?XLOADO // FILE NAME-XMSCSO,LABEL-?WS?XMSCSO // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-RELSHT,LABEL-?L'100,2'?RELSHT,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-PRCTAB,LABEL-?L'100,2'?PRCTAB,DISP-SHR // FILE NAME-HOUSE,LABEL-?L'100,2'?HOUSE,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0385,RECL-096,DATE-01/03/23,TIME-1222 // LOAD JF0385 // FILE NAME-XLOADB,LABEL-?WS?XLOADB // FILE NAME-XLODBC,LABEL-?WS?XLODBC,RECORDS-5000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0386,RECL-096,DATE-06/03/27,TIME-1006 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XLODBC,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XLODBS,RECORDS-5000 // RUN HSORTR 15A 3X 100 FNU 101 106 FNU 1 6 FNC 7 9 FDC 1 100 // END // CEND // COPY LIBRARY-P,NAME-JF0387,RECL-096,DATE-01/03/23,TIME-1222 // LOAD JF0387 // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-XLOADB,LABEL-?WS?XLOADB // FILE NAME-XCHGLD,LABEL-?WS?XCHGLD // RUN // CEND // COPY LIBRARY-P,NAME-JF0388,RECL-096,DATE-01/03/23,TIME-1222 // IF DATAF1-?L'100,2'?PROJ GOTO BEGREP // TAG AGN1 // * 'YOU WILL GET A PAUSE HALT BECAUSE THE PROJECTION FILE' // * 'IS CURRENTLY BEING REORGANIZED.' // * ' ' // * 'TAKE A 0 OPTION TO TRY AGAIN.' // * ' ' // * 'IF THE FILE HAS COMPLETED REORGANIZATION THE PROGRAM WILL CONTINUE.' // * 'IF NOT YOU WILL AGAIN GET A PAUSE HALT.' // PAUSE // IFF DATAF1-?L'100,2'?PROJ GOTO AGN1 // TAG BEGREP // LOAD #GSORT // FILE NAME-INPUT,LABEL-?L'100,2'?PROJ,DISP-SHR // FILE NAME-OUTPUT,LABEL-?WS?XMPROJ,RECORDS-8000 // RUN HSORTRS 21A 3X 60 I C 60EQCA IAC 40 41NEC00 FOC 13 18 FNU 7 12 FNU 1 6 FNU 40 41 FNC 58 FDC 1 30 FSU 31 36 FDC 37 43 FSU 44 50 FSU 51 57 FDC 58 60 // END // LOAD JF0388 // FILE NAME-XMPROJ,LABEL-?WS?XMPROJ,RETAIN-S // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-PROJ,LABEL-?L'100,2'?PROJ,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0390,RECL-096,DATE-01/03/23,TIME-1222 // IF DATAF1-?L'100,2'?PROJ GOTO BEGREP // TAG AGN1 // * 'YOU WILL GET A PAUSE HALT BECAUSE THE PROJECTION FILE' // * 'IS CURRENTLY BEING REORGANIZED.' // * ' ' // * 'TAKE A 0 OPTION TO TRY AGAIN.' // * ' ' // * 'IF THE FILE HAS COMPLETED REORGANIZATION THE PROGRAM WILL CONTINUE.' // * 'IF NOT YOU WILL AGAIN GET A PAUSE HALT.' // PAUSE // IFF DATAF1-?L'100,2'?PROJ GOTO AGN1 // TAG BEGREP // LOAD #GSORT // FILE NAME-INPUT,LABEL-?L'100,2'?PROJ,DISP-SHR // FILE NAME-OUTPUT,LABEL-?WS?XMPROJ,RECORDS-8000 // RUN HSORTRS 22A 3X 60 I C 60EQCA IAC 42 43NEC00 FOC 13 18 FNU 7 12 FNU 1 6 FNU 42 43 FNU 37 FNC 58 FDC 1 30 FSU 31 36 FDC 37 43 FSU 44 50 FSU 51 57 FDC 58 60 // END // LOAD JF0390 // FILE NAME-XMPROJ,LABEL-?WS?XMPROJ,RETAIN-S // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-PROJ,LABEL-?L'100,2'?PROJ,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0392,RECL-096,REF-000001,DATE-01/03/23,TIME-1222 // LOAD JF0392 ***** SWITCH #8 TURNS ON (1) OR OFF (0) PRINTED REPORT // SWITCH 10000001 // FILE NAME-XPPRDS,LABEL-?WS?XPPRDS,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0393,RECL-096,REF-000001,DATE-01/03/23,TIME-1222 // LOAD JF0393 ***** SWITCH #8 TURNS ON (1) OR OFF (0) PRINTED REPORT // SWITCH 10000001 // PRINTER NAME-PRT,CPI-15 // PRINTER NAME-PRTTOT,CPI-15 // FILE NAME-XPPRDS,LABEL-?WS?XPPRDS,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0394,RECL-096,DATE-01/03/23,TIME-1222 JF0501 // TAG AGAIN JF0395 // IF ?L'301,1'?='S' GOTO END JF0396 JF0392 // GOTO AGAIN // TAG END DELETE ?WS?XINP,F1 DELETE ?WS?XPPRD,F1 // CEND // COPY LIBRARY-P,NAME-JF0395,RECL-096,DATE-01/03/23,TIME-1222 // IF DATAF1-?L'100,2'?PROJ GOTO BEGREP // TAG AGN1 // * 'YOU WILL GET A PAUSE HALT BECAUSE THE PROJECTION FILE' // * 'IS CURRENTLY BEING REORGANIZED.' // * ' ' // * 'TAKE A 0 OPTION TO TRY AGAIN.' // * ' ' // * 'IF THE FILE HAS COMPLETED REORGANIZATION THE PROGRAM WILL CONTINUE.' // * 'IF NOT YOU WILL AGAIN GET A PAUSE HALT.' // PAUSE // IFF DATAF1-?L'100,2'?PROJ GOTO AGN1 // TAG BEGREP // LOAD JF0395 // SWITCH 10000000 // FILE NAME-PROJ,LABEL-?L'100,2'?PROJ,DISP-SHR // FILE NAME-XINP,LABEL-?WS?XINP // FILE NAME-XPPRD,LABEL-?WS?XPPRD,RECORDS-8000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0396,RECL-096,DATE-01/03/23,TIME-1222 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XPPRD,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XPPRDS,RECORDS-8000 // RUN HSORTRS 23A 3X 69 FNU 61 FOC 13 18 FNU 7 12 FNU 1 6 FNU 40 41 FNU 37 FNC 58 FDC 1 30 FSU 31 36 FDC 37 43 FSU 44 50 FSU 51 57 FDC 58 69 // END // CEND // COPY LIBRARY-P,NAME-JF0397,RECL-096,DATE-01/03/23,TIME-1222 // IF DATAF1-?L'100,2'?PROJ GOTO BEGREP // TAG AGN1 // * 'YOU WILL GET A PAUSE HALT BECAUSE THE PROJECTION FILE' // * 'IS CURRENTLY BEING REORGANIZED.' // * ' ' // * 'TAKE A 0 OPTION TO TRY AGAIN.' // * ' ' // * 'IF THE FILE HAS COMPLETED REORGANIZATION THE PROGRAM WILL CONTINUE.' // * 'IF NOT YOU WILL AGAIN GET A PAUSE HALT.' // PAUSE // IFF DATAF1-?L'100,2'?PROJ GOTO AGN1 // TAG BEGREP // LOAD JF0395 // SWITCH 01000000 // FILE NAME-PROJ,LABEL-?L'100,2'?PROJ,DISP-SHR // FILE NAME-XINP,LABEL-?WS?XINP // FILE NAME-XPPRD,LABEL-?WS?XPPRD,RECORDS-8000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0398,RECL-096,DATE-01/03/23,TIME-1222 JF0501 // TAG AGAIN JF0397 // IF ?L'301,1'?='S' GOTO END JF0399 JF0393 // GOTO AGAIN // TAG END DELETE ?WS?XINP,F1 DELETE ?WS?XPPRD,F1 // CEND // COPY LIBRARY-P,NAME-JF0399,RECL-096,DATE-01/03/23,TIME-1222 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XPPRD,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XPPRDS,RECORDS-8000 // RUN HSORTRS 23A 3X 69 FNU 61 FOC 13 18 FNU 7 12 FNU 1 6 FNU 42 43 FNU 37 FNC 58 FDC 1 30 FSU 31 36 FDC 37 43 FSU 44 50 FSU 51 57 FDC 58 69 // END // CEND // COPY LIBRARY-P,NAME-JF0400,RECL-096,DATE-01/03/23,TIME-1222 BLDFILE ?WS?XBPRJ,S,R,5000,60 // LOAD JF0316 // SWITCH 01000000 // FILE NAME-LOAD,LABEL-?WS?XLOADB // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-PROJ,LABEL-?WS?XBPRJ // RUN // CEND // COPY LIBRARY-P,NAME-JF0401,RECL-096,DATE-01/03/23,TIME-1222 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XBPRJ // FILE NAME-OUTPUT,LABEL-?WS?XBPRJS,RECORDS-5000 // RUN HSORTRS 22A 3X 69 I C 40 41NEC00 FOC 13 18 FNU 7 12 FNU 1 6 FNU 40 41 FNU 37 FNC 58 FDC 1 30 FSU 31 36 FDC 37 43 FSU 44 50 FSU 51 57 FDC 58 60 // END // CEND // COPY LIBRARY-P,NAME-JF0402,RECL-096,REF-000002,DATE-01/03/23,TIME-1222 // LOAD JF0392 ***** SWITCH #8 TURNS ON (1) OR OFF (0) PRINTED REPORT // SWITCH 01000000 // PRINTER NAME-PRT,COPIES-1 // FILE NAME-XPPRDS,LABEL-?WS?XBPRJS,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-LOAD,LABEL-?WS?XLOADB // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0403,RECL-096,DATE-01/03/23,TIME-1222 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XBPRJ,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XBPRJS,RECORDS-8000 // RUN HSORTRS 22A 3X 69 I C 42 43NEC00 FOC 13 18 FNU 7 12 FNU 1 6 FNU 42 43 FNU 37 FNC 58 FDC 1 30 FSU 31 36 FDC 37 43 FSU 44 50 FSU 51 57 FDC 58 60 // END // CEND // COPY LIBRARY-P,NAME-JF0404,RECL-096,REF-000001,DATE-01/03/23,TIME-1222 // LOAD JF0393 ***** SWITCH #8 TURNS ON (1) OR OFF (0) PRINTED REPORT // SWITCH 01000000 // PRINTER NAME-PRT,CPI-15 // PRINTER NAME-PRTTOT,CPI-15 // FILE NAME-XPPRDS,LABEL-?WS?XBPRJS,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-LOAD,LABEL-?WS?XLOADB // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0405,RECL-096,REF-000002,DATE-01/03/23,TIME-1222 // LOAD JF0405 // FILE NAME-OPENAP,LABEL-?L'100,2'?OPENAP // FILE NAME-CHKFLE,LABEL-?L'100,2'?CHKFLE // FILE NAME-GLTRAN,LABEL-?L'100,2'?GLTRAN // FILE NAME-INVACC,LABEL-?L'100,2'?INVACC // RUN RENAME ?L'100,2'?OPENAP,ZOPENAP RENAME ?L'100,2'?CHKFLE,ZCHKFLE RENAME ?L'100,2'?GLTRAN,ZGLTRAN RENAME ?L'100,2'?INVACC,ZINVACC COPYDATA ZOPENAP,,?L'100,2'?OPENAP,,,,,,OMIT,1,EQ,'*' COPYDATA ZCHKFLE,,?L'100,2'?CHKFLE,,,,,,OMIT,50,EQ,'*' COPYDATA ZGLTRAN,,?L'100,2'?GLTRAN,,,,,,OMIT,24,EQ,'*' COPYDATA ZINVACC,,?L'100,2'?INVACC,,,,,,OMIT,35,EQ,'*' DELETE ZOPENAP,F1 DELETE ZCHKFLE,F1 DELETE ZGLTRAN,F1 DELETE ZINVACC,F1 // CEND // COPY LIBRARY-P,NAME-JF0406,RECL-096,DATE-01/03/23,TIME-1222 JF0484 JF0407 JF0408 // CEND // COPY LIBRARY-P,NAME-JF0407,RECL-096,DATE-01/03/23,TIME-1222 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XPRLNM,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XPRLST,RECORDS-18000 // RUN HSORTR 35A 3X 140 FNC 141 155 FNC 156 170 FNU 1 5 FDC 1 140 // END // CEND // COPY LIBRARY-P,NAME-JF0408,RECL-096,DATE-01/03/23,TIME-1222 // LOAD JF0408 // FILE NAME-XPRLST,LABEL-?WS?XPRLST,RETAIN-S // FILE NAME-EMPLYE,LABEL-?L'100,2'?EMPLYE,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0410,RECL-096,DATE-01/03/23,TIME-1222 JF0411 JF0412 JF0413 // CEND // COPY LIBRARY-P,NAME-JF0411,RECL-096,DATE-01/03/23,TIME-1222 // LOAD JF0411 // FILE NAME-HOUSE,LABEL-?L'100,2'?HOUSE,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-XHSE,LABEL-?WS?XHSE,RECORDS-20000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0412,RECL-096,DATE-01/03/23,TIME-1222 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XHSE,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XSHSE,RECORDS-20000 // RUN HSORTR 15A 3X 120 FNC 105 112 FNU 1 6 FNC 10 FDC 1 120 // END // CEND // COPY LIBRARY-P,NAME-JF0413,RECL-096,DATE-01/06/19,TIME-1038 // LOAD JF0413 OVRPRTF FILE(PRT) USRDTA('HOUSE SUMM') // FILE NAME-XSHSE,LABEL-?WS?XSHSE,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0414,RECL-096,DATE-01/03/23,TIME-1222 // LOAD JF0414 // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-RELSHT,LABEL-?L'100,2'?RELSHT,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-MOVLOD,LABEL-?L'100,2'?MOVLOD,DISP-SHR // FILE NAME-XCHGLD,LABEL-?WS?XCHGLD,RECORDS-500 // RUN // CEND // COPY LIBRARY-P,NAME-JF0415,RECL-096,REF-000002,DATE-01/03/23,TIME-1222 JF0414 JF0332 JF0330 JF0328 JF0329 JF0331 // JOBQ JOFFE,JF0787 // CEND // COPY LIBRARY-P,NAME-JF0416,RECL-096,REF-000002,DATE-01/03/23,TIME-1222 // IF DATAF1-?L'100,2'?PROJ GOTO BEGREP // TAG AGN1 // * 'YOU WILL GET A PAUSE HALT BECAUSE THE PROJECTION FILE' // * 'IS CURRENTLY BEING REORGANIZED.' // * ' ' // * 'TAKE A 0 OPTION TO TRY AGAIN.' // * ' ' // * 'IF THE FILE HAS COMPLETED REORGANIZATION THE PROGRAM WILL CONTINUE.' // * 'IF NOT YOU WILL AGAIN GET A PAUSE HALT.' // PAUSE // IFF DATAF1-?L'100,2'?PROJ GOTO AGN1 // TAG BEGREP // * ' ' // * 'THE CUSTOMER OPEN ORDER REPORT IS BEING REGENERATED' // * 'WITH THE DATA AVAILABLE UP TO THIS MOMENT - PLEASE WAIT' // * ' ' // LOAD JF0893 // FILE NAME-PROJ,LABEL-?L'100,2'?PROJ,DISP-SHR // FILE NAME-XPRJY,LABEL-?WS?XPRJY,RECORDS-10000 // RUN // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XPRJY,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XCPROJ,RECORDS-10000 // RUN HSORTRS 20A 3X 24 FNU 7 12 FNU 61 64 FNU 19 22 FNU 1 6 FDC 1 24 // END // LOAD JF0416 // FILE NAME-XCPROJ,LABEL-?WS?XCPROJ,RETAIN-S // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-XOPOR,LABEL-?WS?XOPOR,RECORDS-3000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0417,RECL-096,DATE-01/03/23,TIME-1222 // LOAD JF0417 // FILE NAME-XOPOR,LABEL-?WS?XOPOR // RUN // CEND // COPY LIBRARY-P,NAME-JF0418,RECL-096,DATE-01/03/23,TIME-1222 // TAG BEGIN // * 'PLEASE ENTER: M = MANUFACTURING SUMMARY' // * ' S = SHIPMENT SUMMARY' // * ' O = OPEN ORDER LISTING' // * ' H = HOUSE LISTING' // * ' R = RELEASE SHEET LISTING' // * ' ' // LOCAL OFFSET-301,DATA-'?R?' // IF ?L'301,1'?='M' GOTO MANUF // IF ?L'301,1'?='S' GOTO SHIP // IF ?L'301,1'?='O' GOTO OPNORD // IF ?L'301,1'?='H' GOTO HOUSE // IF ?L'301,1'?='R' GOTO RELSHT // GOTO BEGIN // TAG MANUF // IFF DATAF1-?WS?XMNFSM JF0420 JF0421 // IF ?L'301,1'?='2' GOTO MANUF // IF ?L'301,1'?='3' GOTO SHIP // IF ?L'301,1'?='4' GOTO OPNORD // IF ?L'301,1'?='5' GOTO HOUSE // IF ?L'301,1'?='6' GOTO RELSHT // IF ?L'301,1'?='7' GOTO END // IF ?L'301,1'?='8' DELETE ?WS?XMNFSM,F1 // IF ?L'301,1'?='8' GOTO MANUF // TAG SHIP // IFF DATAF1-?WS?XSHPSM JF0491 JF0492 // IF ?L'301,1'?='2' GOTO MANUF // IF ?L'301,1'?='3' GOTO SHIP // IF ?L'301,1'?='4' GOTO OPNORD // IF ?L'301,1'?='5' GOTO HOUSE // IF ?L'301,1'?='6' GOTO RELSHT // IF ?L'301,1'?='7' GOTO END // IF ?L'301,1'?='8' DELETE ?WS?XSHPSM,F1 // IF ?L'301,1'?='8' GOTO SHIP // TAG OPNORD // IFF DATAF1-?WS?XOPOR JF0416 JF0417 // IF ?L'301,1'?='2' GOTO MANUF // IF ?L'301,1'?='3' GOTO SHIP // IF ?L'301,1'?='4' GOTO OPNORD // IF ?L'301,1'?='5' GOTO HOUSE // IF ?L'301,1'?='6' GOTO RELSHT // IF ?L'301,1'?='7' GOTO END // IF ?L'301,1'?='8' DELETE ?WS?XOPOR,F1 // IF ?L'301,1'?='8' GOTO OPNORD // TAG HOUSE // IFF DATAF1-?WS?XHSDSS JF0448 // IFF DATAF1-?WS?XHSDSS JF0451 JF0449 // IF ?L'301,1'?='2' GOTO MANUF // IF ?L'301,1'?='3' GOTO SHIP // IF ?L'301,1'?='4' GOTO OPNORD // IF ?L'301,1'?='5' GOTO HOUSE // IF ?L'301,1'?='6' GOTO RELSHT // IF ?L'301,1'?='7' GOTO END // IF ?L'301,1'?='8' DELETE ?WS?XHSDSS,F1 // IF ?L'301,1'?='8' DELETE ?WS?XIHSDS,F1 // IF ?L'301,1'?='8' GOTO HOUSE // TAG RELSHT JF0509 // IF ?L'301,1'?='2' GOTO MANUF // IF ?L'301,1'?='3' GOTO SHIP // IF ?L'301,1'?='4' GOTO OPNORD // IF ?L'301,1'?='5' GOTO HOUSE // IF ?L'301,1'?='6' GOTO RELSHT // IF ?L'301,1'?='7' GOTO END // TAG END // CEND // COPY LIBRARY-P,NAME-JF0419,RECL-096,DATE-01/03/23,TIME-1222 // LOAD JF0419 // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-XBOENT,LABEL-?WS?XBOENT,RECORDS-300 // FILE NAME-XILOAD,LABEL-?WS?XILOAD,RECORDS-80000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0420,RECL-096,REF-000001,DATE-01/03/23,TIME-1222 // IF DATAF1-?L'100,2'?PROJ GOTO BEGREP // TAG AGN1 // * 'YOU WILL GET A PAUSE HALT BECAUSE THE PROJECTION FILE' // * 'IS CURRENTLY BEING REORGANIZED.' // * ' ' // * 'TAKE A 0 OPTION TO TRY AGAIN.' // * ' ' // * 'IF THE FILE HAS COMPLETED REORGANIZATION THE PROGRAM WILL CONTINUE.' // * 'IF NOT YOU WILL AGAIN GET A PAUSE HALT.' // PAUSE // IFF DATAF1-?L'100,2'?PROJ GOTO AGN1 // TAG BEGREP // * ' ' // * 'THE MANUFACTURING SUMMARY REPORT IS BEING REGENERATED' // * 'WITH THE DATA AVAILABLE UP TO THIS MOMENT - PLEASE WAIT' // * ' ' // LOAD JF0420 // FILE NAME-PROJ,LABEL-?L'100,2'?PROJ,DISP-SHR // FILE NAME-XMNFSM,LABEL-?WS?XMNFSM,RECORDS-200 // RUN // CEND // COPY LIBRARY-P,NAME-JF0421,RECL-096,DATE-01/03/23,TIME-1222 // LOAD JF0421 // FILE NAME-XMNFSM,LABEL-?WS?XMNFSM // RUN // CEND // COPY LIBRARY-P,NAME-JF0422,RECL-096,DATE-01/03/23,TIME-1222 JF0419 JF0278 JF0424 // IF ?L'1,1'?='C' JF0425 // IF ?L'1,1'?='C' JF0423 // IF ?L'1,1'?='P' JF0426 // IF ?L'1,1'?='P' JF0427 // CEND // COPY LIBRARY-P,NAME-JF0423,RECL-096,REF-000001,DATE-01/03/23,TIME-1222 // LOAD JF0423 // FILE NAME-XCURBS,LABEL-?WS?XCURBS,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-XITHD,LABEL-?WS?XITHD,RETAIN-S // RUN // CEND // COPY LIBRARY-P,NAME-JF0424,RECL-096,DATE-01/03/23,TIME-1222 // LOAD JF0424 // FILE NAME-XITOR,LABEL-?WS?XITOR,RETAIN-S // FILE NAME-XBOENT,LABEL-?WS?XBOENT,RETAIN-S // FILE NAME-XCURBO,LABEL-?WS?XCURBO,RECORDS-80000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0425,RECL-096,DATE-01/03/23,TIME-1222 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XCURBO,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XCURBS,RECORDS-80000 // RUN HSORTR 17A 3X 220 FNU 28 33 FNU 17 22 FNU 23 25 FNU 26 27 FDC 1 220 // END // CEND // COPY LIBRARY-P,NAME-JF0426,RECL-096,DATE-01/03/23,TIME-1222 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XCURBO,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XCURBS,RECORDS-80000 // RUN HSORTR 24A 3X 220 FNC 3 9 FNU 28 33 FNU 17 22 FNU 23 25 FNU 26 27 FDC 1 220 // END // CEND // COPY LIBRARY-P,NAME-JF0427,RECL-096,REF-000001,DATE-01/03/23,TIME-1222 // LOAD JF0427 // FILE NAME-XCURBS,LABEL-?WS?XCURBS,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-XITHD,LABEL-?WS?XITHD,RETAIN-S // RUN // CEND // COPY LIBRARY-P,NAME-JF0428,RECL-096,REF-000002,DATE-02/06/03,TIME-0948 // IF DATAF1-?WS?X428A DELETE ?WS?X428A,F1 // IF DATAF1-?WS?X428B DELETE ?WS?X428B,F1 // IF DATAF1-?WS?X428C DELETE ?WS?X428C,F1 // IF DATAF1-?WS?X428D DELETE ?WS?X428D,F1 // IF DATAF1-?WS?X428E DELETE ?WS?X428E,F1 // IF DATAF1-?WS?X428F DELETE ?WS?X428F,F1 // IF DATAF1-?WS?X428G DELETE ?WS?X428G,F1 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-OUTPUT,LABEL-?WS?X428A,RECORDS-43000 // RUN HSORTR 7A 3X 400 I C 11EQCI FNC 1 7 FDC 1 256 FDC 257 400 // END // LOAD JF0409 // FILE NAME-XPRIN,LABEL-?WS?X428A,RETAIN-S // FILE NAME-XIN532,LABEL-?WS?XIN532,RETAIN-S // FILE NAME-XPRDLS,LABEL-?WS?X428B,RECORDS-45000 // RUN // IFF ?L'3,1'?='Y' GOTO END1 // LOAD JF0429 // SWITCH 10000000 // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-BILMAT,LABEL-?L'100,2'?BILMAT,DISP-SHR // FILE NAME-XUSDT,LABEL-?WS?X428C,RECORDS-1 // FILE NAME-XPRUS,LABEL-?WS?X428D,RECORDS-75000 // RUN // TAG END1 // IFF ?L'3,1'?='Y' GOTO END2 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?X428D,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?X428E,RECORDS-75000 // RUN HSORTRS 7A 3 19 FNC 1 7 FSP 8 10 FSP 11 13 FSP 14 16 FSP 17 19 // END // TAG END2 // IFF ?L'3,1'?='Y' GOTO END3 // LOAD JF0431 // FILE NAME-XPRUSS,LABEL-?WS?X428E,RETAIN-S // FILE NAME-XPRUSG,LABEL-?WS?X428F,RECORDS-10000 // RUN // TAG END3 // IFF ?L'2,1'?='V' GOTO END4 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?X428B,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?X428G,RECORDS-70000 // RUN HSORTR 13A 3X 400 FNU 92 97 FNC 1 7 FDC 1 256 FDC 257 400 // END // TAG END4 // IF ?L'2,1'?='I' RENAME ?WS?X428B,?WS?X428G // IFF ?L'1,1'?='S' GOTO END5 // LOAD JF0432 // IF ?L'3,1'?='N' SWITCH 00000000 // IF ?L'3,1'?='Y' SWITCH 10000000 // FILE NAME-XPRIN,LABEL-?WS?X428G,RETAIN-S // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // IF ?L'3,1'?='Y' FILE NAME-XUSDT,LABEL-?WS?X428C,RETAIN-S // IF ?L'3,1'?='Y' FILE NAME-XPRUSG,LABEL-?WS?X428F,RETAIN-S // RUN // TAG END5 // IFF ?L'1,1'?='P' GOTO END6 // LOAD JF0433 *****// PRINTER NAME-PRT,FONT-DF // PRINTER NAME-PRT,CPI-15,COPIES-1 // IF ?L'3,1'?='N' SWITCH 00000000 // IF ?L'3,1'?='Y' SWITCH 10000000 // FILE NAME-XPRIN,LABEL-?WS?X428G,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // IF ?L'3,1'?='Y' FILE NAME-XUSDT,LABEL-?WS?X428C,RETAIN-S // IF ?L'3,1'?='Y' FILE NAME-XPRUSG,LABEL-?WS?X428F,RETAIN-S // RUN // TAG END6 // CEND // COPY LIBRARY-P,NAME-JF0435,RECL-096,DATE-01/03/23,TIME-1222 JF0471 BLDFILE ?WS?XPRUSG,S,R,200000,36,,,,,,,200000 BLDFILE ?WS?XPRREC,S,R,50000,14,,,,,,,25000 // IF ?L'1,1'?='N' GOTO ENSFIL // TAG AGSFIL // * 'IS ALL THE SALES DATA NOW IN THE COMPUTER ? (Y=YES, N=NO)' // IF ?R?='Y' GOTO ENSFIL // * 'PLEASE PUT THE FIRST DISKETTE OF THE SALES DATA FILE INTO THE COMPUTER' // * ' ' // * 'AND TAKE A 0 OPTION TO THE PAUSE HALT TO CONTINUE' // PAUSE // RESTORE ?L'100,2'?OPRDUS JF0581 // GOTO AGSFIL // TAG ENSFIL JF0582 // IF ?L'1,1'?='Y' JF0445 // IF ?L'1,1'?='N' RENAME ?WS?XPRUSG,?WS?XXPRUS // IF ?L'2,1'?='N' GOTO ENRFIL // TAG AGRFIL // * 'IS ALL THE RECEIVING DATA NOW IN THE COMPUTER ? (Y=YES, N=NO)' // IF ?R?='Y' GOTO ENRFIL // * 'PLEASE PUT THE FIRST DISKETTE OF THE RECEIVING DATA FILE INTO THE COMPUTER' // * ' ' // * 'AND TAKE A 0 OPTION TO THE PAUSE HALT TO CONTINUE' // PAUSE // RESTORE ?L'100,2'?OPRDRC JF0583 // GOTO AGRFIL // TAG ENRFIL // IF ?L'2,1'?='Y' JF0584 // IF ?L'2,1'?='Y' JF0472 // IF ?L'2,1'?='N' RENAME ?WS?XPRREC,?WS?XXPRRE JF0444 // IF ?L'5,1'?='V' JF0436 // IF ?L'5,1'?='I' JF0473 JF0437 // CEND // COPY LIBRARY-P,NAME-JF0436,RECL-096,REF-000002,DATE-01/03/23,TIME-1222 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XPRINV,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XPRINS,RECORDS-600000 // RUN HSORTR 14A 3X 35 FNU 9 14 FNC 2 8 FNC 1 FDC 1 35 // END // CEND // COPY LIBRARY-P,NAME-JF0437,RECL-096,REF-000001,DATE-01/03/23,TIME-1222 // LOAD JF0437 // PRINTER NAME-PRT,FONT-DF // FILE NAME-XPRINS,LABEL-?WS?XPRINS,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0438,RECL-096,REF-000001,DATE-03/12/15,TIME-1120 // LOAD JF0438 // SWITCH 00000000 // FILE NAME-XINVC,LABEL-?WS?XINVC // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-VENDOR,LABEL-?L'100,2'?VENDOR,DISP-SHR // FILE NAME-BILMAT,LABEL-?L'100,2'?BILMAT,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-INVEN,LABEL-?L'100,2'?INVEN,DISP-SHR // FILE NAME-PRCTAB,LABEL-?L'100,2'?PRCTAB,DISP-SHR // FILE NAME-MLOAD,LABEL-?L'100,2'?MLOAD,DISP-SHR,EXTEND-3000 // FILE NAME-PRDUSG,LABEL-?L'100,2'?PRDUSG,DISP-SHR,EXTEND-25000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0440,RECL-096,DATE-09/12/10,TIME-1009 *** TRUCK MILL REPORT FOR DEPARTMENTS ALL R // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XITOR // FILE NAME-OUTPUT,LABEL-?WS?XITORS,RECORDS-10000 // RUN HSORTR 24A 3X 220 I C 1EQCR FNU 116 121 FNC 1 2 FNC 122 123 FNU 124 126 FNU 17 22 FNU 23 25 FNU 26 27 FDC 1 220 // END // CEND // COPY LIBRARY-P,NAME-JF0441,RECL-096,REF-000001,DATE-09/12/10,TIME-1008 *** TRUCK MILL REPORT FOR DEPARTMENTS ALL R // LOAD JF0281 // SWITCH 10000000 // PRINTER NAME-PRT,FORMSNO-8X11,COPIES-1 // FILE NAME-XITORS,LABEL-?WS?XITORS,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-DEPT,LABEL-?L'100,2'?DEPT,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-XITHD,LABEL-?WS?XITHD // RUN // CEND // COPY LIBRARY-P,NAME-JF0442,RECL-096,DATE-01/03/23,TIME-1222 RENAME ?WS?XLOADO,?WS?XLOAD // LOAD JF0442 // FILE NAME-XLOAD,LABEL-?WS?XLOAD,RETAIN-S // FILE NAME-LOAD,LABEL-?WS?XLOADO,RECORDS-20000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0443,RECL-096,DATE-01/03/23,TIME-1222 // IFF DATAF1-?WS?XODDLD BLDFILE ?WS?XODDLD,S,RECORDS,1,1 JF0384 JF0442 // CEND // COPY LIBRARY-P,NAME-JF0444,RECL-096,DATE-01/03/23,TIME-1222 // LOAD JF0444 // FILE NAME-XXPRUS,LABEL-?WS?XXPRUS,RETAIN-S // FILE NAME-XXPRRE,LABEL-?WS?XXPRRE,RETAIN-S // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-XINCH,LABEL-?WS?XINCH,RETAIN-S // FILE NAME-XPRINV,LABEL-?WS?XPRINV,RECORDS-400000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0445,RECL-096,DATE-01/03/23,TIME-1222 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XPRUSG,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XXPRUS,RECORDS-600000 // RUN HSORTR 11A 3X 36 FNC 1 7 FNP 16 19 FDC 1 36 // END // CEND // COPY LIBRARY-P,NAME-JF0446,RECL-096,DATE-01/03/23,TIME-1222 // LOAD JF0446 // PRINTER NAME-PRT,FORMSNO-FLAB // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0447,RECL-096,DATE-01/03/23,TIME-1222 // LOAD JF0447 // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0448,RECL-096,REF-000004,DATE-01/03/23,TIME-1222 // * ' ' // * 'THE CUSTOMER HOUSE SUMMARY SCREEN IS BEING REGENERATED' // * 'WITH THE DATA AVAILABLE UP TO THIS MOMENT - PLEASE WAIT' // * ' ' // LOAD #GSORT // FILE NAME-INPUT,LABEL-?L'100,2'?HOUSE,DISP-SHR // FILE NAME-OUTPUT,LABEL-?WS?XCHSE,RECORDS-40000 // RUN HSORTR 7A 3X 41 I C 10EQCA IOC 10EQCB FNU 1 6 FNC 10 FDC 1 41 // END // LOAD JF0448 // FILE NAME-XCHSE,LABEL-?WS?XCHSE,RETAIN-S // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-XHSDS,LABEL-?WS?XHSDS,RECORDS-30000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0449,RECL-096,DATE-01/03/23,TIME-1222 // LOAD JF0449 // FILE NAME-XHSDSS,LABEL-?WS?XHSDSS // FILE NAME-XIHSDS,LABEL-?WS?XIHSDS // FILE NAME-HOUSE,LABEL-?L'100,2'?HOUSE,DISP-SHR // FILE NAME-BSEHSE,LABEL-?L'100,2'?BSEHSE,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0450,RECL-096,REF-000002,DATE-04/03/31,TIME-1257 // IFF DATAF1-?L'100,2'?LDTRK BLDFILE ?L'100,2'?LDTRK,I,R,3000,130,,,1,6 // IFF DATAF1-?L'100,2'?TRCHLD BLDFILE ?L'100,2'?TRCHLD,S,R,2000,7 JF0279 JF0493 RENAME ?L'100,2'?LDTRK,?L'100,2'?XLDTK JF1150 // CEND // COPY LIBRARY-P,NAME-JF0451,RECL-096,REF-000004,DATE-01/03/23,TIME-1222 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XHSDS,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XHSDSS,RECORDS-25000 // RUN HSORTR 12A 3X 133 FNU 1 6 FNU 7 12 FDC 1 133 // END // LOAD JF0451 // FILE NAME-XHSDSS,LABEL-?WS?XHSDSS // FILE NAME-XIHSDS,LABEL-?WS?XIHSDS,RECORDS-2000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0452,RECL-096,DATE-01/03/23,TIME-1222 // LOAD JF0452 // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-XCUS4,LABEL-?WS?XCUS4,RETAIN-S // FILE NAME-XCUS6,LABEL-?WS?XCUS6,RETAIN-S // FILE NAME-XRECL,LABEL-?WS?XRECL // RUN // CEND // COPY LIBRARY-P,NAME-JF0453,RECL-096,DATE-03/10/26,TIME-2102 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XRECL,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XRECSM,RECORDS-20000 // RUN HSORTR 24A 3X 308 I C 300EQCN FNU 301 304 FNU 8 13 FNU 305 308 FNU 14 17 FNU 2 7 FDC 1 256 FDC 257 308 // END // CEND // COPY LIBRARY-P,NAME-JF0454,RECL-096,REF-000001,DATE-01/03/23,TIME-1222 // * 'IF YOU GET THE FOLLOWING HALT' // * ' ' // * 'SYS-6408 OPTIONS ( 123 )' // * 'FILE/LIBRARY/FOLDER XJOHN CURRENTLY IN USE...' // * ' ' // * 'BE SURE TO TAKE A 3 OPTION.' // * ' ' // * 'THE LOAD MOVE REGISTER WILL BE CANCELLED AND NOT RUN.' // * 'TRY AGAIN LATER.' // * ' ' RENAME ?L'100,2'?MOVLOD,?WS?XMVLOD BLDFILE ?L'100,2'?MOVLOD,S,R,1000,55,,,,,,,1000 JF0455 JF0456 JF0457 // CEND // COPY LIBRARY-P,NAME-JF0455,RECL-096,DATE-01/03/23,TIME-1222 // LOAD JF0455 // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-XMLDBE,LABEL-?WS?XMLDBE,RECORDS-1 // RUN // CEND // COPY LIBRARY-P,NAME-JF0456,RECL-096,DATE-01/03/23,TIME-1222 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XMVLOD,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XMVLDS,RECORDS-4000 // RUN HSORTR 24A 3X 55 FNU 1 6 FNU 7 12 FNU 29 30 FNU 25 28 FNU 31 36 FDC 1 55 // END // CEND // COPY LIBRARY-P,NAME-JF0457,RECL-096,REF-000002,DATE-03/10/02,TIME-1528 // LOAD JF0457 // PRINTER NAME-PRT,COPIES-7 // FILE NAME-XMVLDS,LABEL-?WS?XMVLDS,RETAIN-S // FILE NAME-XMLDBE,LABEL-?WS?XMLDBE,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0458,RECL-096,REF-000002,DATE-01/03/23,TIME-1222 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-OUTPUT,LABEL-?WS?XCUSTM,RECORDS-5000 // RUN HSORTR 6A 3X 600 I C 600EQCA IAC 1 6LTC900000 FNU 1 6 FDC 1 256 FDC 257 512 FDC 513 600 // END // CEND // COPY LIBRARY-P,NAME-JF0459,RECL-096,REF-000001,DATE-01/03/23,TIME-1222 // LOAD JF0355 // SWITCH 00010000 // FILE NAME-XCUSTM,LABEL-?WS?XCUSTM,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0460,RECL-096,DATE-01/03/23,TIME-1222 JF0458 JF0459 // CEND // COPY LIBRARY-P,NAME-JF0461,RECL-096,DATE-08/02/12,TIME-2028 // * 'THIS PROCEDURE WILL COPY TO TAPE OLD PRODUCT SALES DATA' // * 'AND REMOVE THESE FROM THE COMPUTER (FOR COMPANY ?L'100,2'?)' // * ' ' // * 'NO ONE ELSE MAY BE USING THIS FILE WHILE THIS IS BEING DONE' // * ' AND IT WILL TAKE A CONSIDERABLE AMOUNT OF TIME (SEVERAL HOURS).' // * ' ' // * 'IF YOU WISH TO CONTINUE ENTER THE WORD "CONTINUE" AND PRESS THE ENTER KEY' // * 'IF YOU WISH TO CANCEL JUST PRESS THE ENTER KEY' // IFF ?R?='CONTINUE' GOTO END // * ' ' // * 'ENTER THE LAST YEAR (2 DIGITS) FOR WHICH SALES ARE TO BE REMOVED' // * 'FROM THE COMPUTER.' // * ' (ONLY SALES AFTER THE END OF THIS YEAR WILL REMAIN IN THE COMPUTER.)' // LOCAL OFFSET-1,DATA-'?R?' // * ' ' // * 'IT WILL TAKE A LONG TIME TO SEPARATE THE SALES' // * ' INTO THOSE THAT REMAIN AND THOSE THAT WILL BE REMOVED.' // * 'WHEN THIS HAS BEEN DONE YOU WILL BE ASKED TO INSERT TWO TAPES,' // * ' ONE AFTER ANOTHER, TO RECEIVE TWO IDENTICAL COPIES OF THE SALES' // * ' TO BE REMOVED (IN CASE YOU MAY LATER NEED THEM).' // * ' ' // * 'GOOD-BY AND RETURN IN A FEW HOURS. THANK YOU.' // * ' ' ***// IF DATAF1-?WS?XPRDUS DELETE ?WS?XPRDUS,F1 ***// IF DATAF1-?L'100,2'??L'1,2'?PRDU DELETE ?L'100,2'??L'1,2'?PRDU,F1 RENAME ?L'100,2'?PRDUSG,?WS?XPRDUS // LOAD JF0461 // FILE NAME-XPRDUS,LABEL-?WS?XPRDUS // FILE NAME-OPRDUS,LABEL-?L'100,2'??L'1,2'?PRDU,RECORDS-2300000 // FILE NAME-PRDUSG,LABEL-?L'100,2'?PRDUSG,RECORDS-2300000,EXTEND-5000 // RUN // * ' ' // * 'PLEASE PUT A TAPE INTO THE COMPUTER TO COPY PRODUCT SALES' // * 'RECORDS FOR THE LATEST YEAR OF ?L'1,2'?' // * ' ' // * 'THE TAPE MUST HAVE THE VOLUME ID OF JOFFE.' // * 'IT MAY HAVE OTHER FILES ON IT IF YOU WISH TO SAVE TAPES,' // * 'BUT BE CERTAIN THAT ANY FILES YOU WISH TO SAVE HAVE AN EXPIRATION DATE' // * 'OF PROTECT. YOU CAN SEE THIS BY TAKING A CATALOG OF THE TAPE.' // * ' ' // * 'LABEL THE TAPE WITH THE YEAR ?L'1,2'? AND THE DATE YOU' // * 'RAN THIS PROCEDURE (CURRENT DATE)' // * ' ' // * 'TAKE A O OPTION TO THE PAUSE HALT TO CONTINUE WHEN YOU ARE READY' // * ' ' // PAUSE *****TAPEINIT TC,SL,JOFFE,,JOFFE SAVE ?L'100,2'??L'1,2'?PRDU,999,,JOFFE,TC // * ' ' // * 'PLEASE PUT A TAPE INTO THE COMPUTER TO MAKE A SECOND COPY' // * 'OF THE PRODUCT SALES RECORDS FOR THE LATEST YEAR OF ?L'1,2'?' // * ' ' // * 'THE TAPE MUST HAVE THE VOLUME ID OF JOFFE.' // * 'IT MAY HAVE OTHER FILES ON IT IF YOU WISH TO SAVE TAPES,' // * 'BUT BE CERTAIN THAT ANY FILES YOU WISH TO SAVE HAVE AN EXPIRATION DATE' // * 'OF PROTECT. YOU CAN SEE THIS BY TAKING A CATALOG OF THE TAPE.' // * ' ' // * 'LABEL THE TAPE WITH THE YEAR ?L'1,2'? AND THE DATE YOU' // * 'RAN THIS PROCEDURE (CURRENT DATE)' // * ' ' // * 'TAKE A O OPTION TO THE PAUSE HALT TO CONTINUE WHEN YOU ARE READY' // * ' ' // PAUSE *****TAPEINIT TC,SL,JOFFE,,JOFFE SAVE ?L'100,2'??L'1,2'?PRDU,999,,JOFFE,TC *****DELETE ?L'100,2'??L'1,2'?PRDU,F1 *****DELETE ?WS?XPRDUS,F1 // * 'WHEN YOU ARE SATISFIED WITH THIS REMOVAL OF OLD RECORDS' // * 'BE SURE TO DELETE THE FILES ?L'100,2'??L'1,2'?PRDU AND ?WS?XPRDUS' // * ' ' // * 'PRESS ENTER TO RETURN TO THE MENU' // * ' ' // IF ?R?='X' GOTO END // GOTO END // TAG END // CEND // COPY LIBRARY-P,NAME-JF0462,RECL-096,DATE-04/03/31,TIME-1356 // * 'THIS PROCEDURE WILL COPY TO DISKETTE OLD PRODUCT RECEIVING DATA' // * 'AND REMOVE THESE FROM THE COMPUTER (FOR COMPANY ?L'100,2'?)' // * ' ' // * 'NO ONE ELSE MAY BE USING THIS FILE WHILE THIS IS BEING DONE' // * ' AND IT WILL TAKE A CONSIDERABLE AMOUNT OF TIME (SEVERAL HOURS).' // * ' ' // * 'IF YOU WISH TO CONTINUE ENTER THE WORD "CONTINUE" AND PRESS THE ENTER KEY' // * 'IF YOU WISH TO CANCEL JUST PRESS THE ENTER KEY' // IFF ?R?='CONTINUE' GOTO END // * ' ' // * 'ENTER THE LAST YEAR (2 DIGITS) FOR WHICH RECEIVINGS ARE TO REMOVED' // * 'FROM THE COMPUTER.' // * ' (ONLY RECEIVINGS AFTER THE END OF THIS YEAR WILL REMAIN IN THE COMPUTER.) // LOCAL OFFSET-1,DATA-'?R?' // * ' ' // * 'IT WILL TAKE A LONG TIME TO SEPARATE THE RECEIVINGS' // * ' INTO THOSE THAT REMAIN AND THOSE THAT WILL BE REMOVED.' // * 'WHEN THIS HAS BEEN DONE YOU WILL BE ASKED TO INSERT TWO TAPES, // * ' ONE AFTER ANOTHER, TO RECEIVE TWO IDENTICAL COPIES OF THE RECEIVINGS' // * ' TO BE REMOVED (IN CASE YOU MAY LATER NEED THEM).' // * ' ' // * 'GOOD-BY AND RETURN IN A FEW HOURS. THANK YOU.' // * ' ' // IF DATAF1-?WS?XPRDRC DELETE ?WS?XPRDRC,F1 // IF DATAF1-?L'100,2'??L'1,2'?PRDR DELETE ?L'100,2'??L'1,2'?PRDR,F1 RENAME ?L'100,2'?PRDREC,?WS?XPRDRC // LOAD JF0462 // FILE NAME-XPRDRC,LABEL-?WS?XPRDRC // FILE NAME-OPRDRC,LABEL-?L'100,2'??L'1,2'?PRDR,RECORDS-50000 // FILE NAME-PRDREC,LABEL-?L'100,2'?PRDREC,RECORDS-50000,EXTEND-2000 // RUN // * ' ' // * 'PLEASE PUT A TAPE INTO THE COMPUTER TO COPY PRODUCT RECEIVING' // * 'RECORDS FOR THE LATEST YEAR OF ?L'1,2'?' // * ' ' // * 'THE TAPE MUST HAVE THE VOLUME ID OF JOFFE.' // * 'IT MAY HAVE OTHER FILES ON IT IF YOU WISH TO SAVE TAPES,' // * 'BUT BE CERTAIN THAT ANY FILES YOU WISH TO SAVE HAVE AN EXPIRATION DATE' // * 'OF PROTECT. YOU CAN SEE THIS BY TAKING A CATALOG OF THE TAPE.' // * ' ' // * 'LABEL THE TAPE WITH THE YEAR ?L'1,2'? AND THE DATE YOU' // * 'RAN THIS PROCEDURE (CURRENT DATE)' // * ' ' // * 'TAKE A O OPTION TO THE PAUSE HALT TO CONTINUE WHEN YOU ARE READY' // * ' ' // PAUSE *****TAPEINIT TC,SL,JOFFE,,JOFFE SAVE ?L'100,2'??L'1,2'?PRDR,999,,JOFFE,TC // * ' ' // * 'PLEASE PUT A TAPE INTO THE COMPUTER TO MAKE A SECOND COPY' // * 'OF THE PRODUCT RECEIVING RECORDS FOR THE LATEST YEAR OF ?L'1,2'?' // * ' ' // * 'THE TAPE MUST HAVE THE VOLUME ID OF JOFFE.' // * 'IT MAY HAVE OTHER FILES ON IT IF YOU WISH TO SAVE TAPES,' // * 'BUT BE CERTAIN THAT ANY FILES YOU WISH TO SAVE HAVE AN EXPIRATION DATE' // * 'OF PROTECT. YOU CAN SEE THIS BY TAKING A CATALOG OF THE TAPE.' // * ' ' // * 'LABEL THE TAPE WITH THE YEAR ?L'1,2'? AND THE DATE YOU' // * 'RAN THIS PROCEDURE (CURRENT DATE)' // * ' ' // * 'TAKE A O OPTION TO THE PAUSE HALT TO CONTINUE WHEN YOU ARE READY' // * ' ' // PAUSE *****TAPEINIT TC,SL,JOFFE,,JOFFE SAVE ?L'100,2'??L'1,2'?PRDR,999,,JOFFE,TC *****DELETE ?L'100,2'??L'1,2'?PRDR,F1 *****DELETE ?WS?XPRDRC,F1 // * 'WHEN YOU ARE SATISFIED WITH THIS REMOVAL OF OLD RECORDS' // * 'BE SURE TO DELETE THE FILES ?L'100,2'??L'1,2'?PRDR AND ?WS?XPRDRC' // * ' ' // * 'PRESS ENTER TO RETURN TO THE MENU' // * ' ' // IF ?R?='X' GOTO END // GOTO END // TAG END // CEND // COPY LIBRARY-P,NAME-JF0463,RECL-096,DATE-01/03/23,TIME-1222 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?L'100,2'?MLOAD,DISP-SHR // FILE NAME-OUTPUT,LABEL-?WS?XMLOAD,RECORDS-20000 // RUN HSORTR 4A 3X 8 FNP 1 4 FDC 1 8 // END // CEND // COPY LIBRARY-P,NAME-JF0464,RECL-096,REF-000001,DATE-01/03/23,TIME-1222 // LOAD JF0464 // FILE NAME-XMLOAD,LABEL-?WS?XMLOAD,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0465,RECL-096,DATE-01/03/23,TIME-1222 JF0463 JF0464 // CEND // COPY LIBRARY-P,NAME-JF0466,RECL-096,DATE-01/03/23,TIME-1222 // LOAD JF0466 // FILE NAME-BILMAT,LABEL-?L'100,2'?BILMAT,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-ASMTMP,LABEL-?L'100,2'?ASMTMP,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0467,RECL-096,DATE-01/03/23,TIME-1222 // LOAD JF0467 // SWITCH 00000000 // FILE NAME-BILMAT,LABEL-?L'100,2'?BILMAT,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-BILMT2,LABEL-?L'100,2'?BILMAT,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0468,RECL-096,DATE-01/03/23,TIME-1222 JF0469 JF0470 // CEND // COPY LIBRARY-P,NAME-JF0469,RECL-096,DATE-01/03/23,TIME-1222 // LOAD JF0469 // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-XADPR,LABEL-?WS?XADPR,RECORDS-5000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0470,RECL-096,DATE-01/03/23,TIME-1222 // LOAD JF0470 // FILE NAME-XADPR,LABEL-?WS?XADPR,RETAIN-S // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR,EXTEND-1000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0471,RECL-096,DATE-01/03/23,TIME-1222 // LOAD JF0471 // FILE NAME-XINCH,LABEL-?WS?XINCH,RECORDS-100 // RUN // CEND // COPY LIBRARY-P,NAME-JF0472,RECL-096,REF-000001,DATE-01/03/23,TIME-1222 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XPRREC,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XXPRRE,RECORDS-100000 // RUN HSORTRS 11A 3X 14 FNC 1 7 FNP 8 11 FDC 1 14 // END // CEND // COPY LIBRARY-P,NAME-JF0473,RECL-096,REF-000002,DATE-01/03/23,TIME-1222 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XPRINV,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XPRINS,RECORDS-600000 // RUN HSORTR 8A 3X 35 FNC 2 8 FNC 1 FDC 1 35 // END // CEND // COPY LIBRARY-P,NAME-JF0474,RECL-096,DATE-01/03/23,TIME-1222 // LOAD JF0474 // FILE NAME-MLOAD,LABEL-?L'100,2'?MLOAD,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0475,RECL-096,DATE-01/03/23,TIME-1222 // LOAD JF0475 // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0476,RECL-096,DATE-01/03/23,TIME-1222 // LOAD JF0476 // FILE NAME-HOUSE,LABEL-?L'100,2'?HOUSE,DISP-SHR // FILE NAME-XHSSL,LABEL-?WS?XHSSL,RECORDS-1000 // FILE NAME-HSECHG,LABEL-?L'100,2'?HSECHG,DISP-SHR,EXTEND-2000 // FILE NAME-CHGHS,LABEL-?L'100,2'?CHGHS,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0477,RECL-096,DATE-01/03/23,TIME-1222 // * '*****************************************************************' // * '*** ***' // * '*** IF YOU CONTINUE ANY EXISTING BILL OF MATERIAL TEST FILE ***' // * '*** WILL BE ERASED !!!! ***' // * '*** ***' // * '*****************************************************************' // * ' ' // * 'ENTER THE WORD "ERASE" IF YOU WISH TO CONTINUE' // * ' ' // * 'OTHERWISE JUST PRESS THE ENTER KEY AND THE BILL OF MATERIAL TEST FILE' // * 'WILL REMAIN UNCHANGED' // * ' ' // IFF ?R?='ERASE' GOTO END // IF DATAF1-?L'100,2'?BLMTTM DELETE ?L'100,2'?BLMTTM,F1 BLDFILE ?L'100,2'?BLMTTM,I,R,1000,21,,,1,10,,,500 // TAG END // CEND // COPY LIBRARY-P,NAME-JF0478,RECL-096,DATE-01/03/23,TIME-1222 // LOAD JF0466 // FILE NAME-BILMAT,LABEL-?L'100,2'?BLMTTM,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-ASMTMP,LABEL-?L'100,2'?ASMTMP,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0479,RECL-096,DATE-01/03/23,TIME-1222 // LOAD JF0467 // SWITCH 10000000 // FILE NAME-BILMAT,LABEL-?L'100,2'?BLMTTM,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-XBILLMAT,LABEL-?L'100,2'?BLMTTM,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0480,RECL-096,DATE-01/03/23,TIME-1222 // LOAD JF0480 // FILE NAME-BLMTTM,LABEL-?L'100,2'?BLMTTM,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-BILMAT,LABEL-?L'100,2'?BILMAT,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0481,RECL-096,DATE-01/03/23,TIME-1222 // LOAD JF0481 // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-XHSCIT,LABEL-?WS?XHSCIT,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-XHSCT2,LABEL-?WS?XHSCIT,DISP-SHR // FILE NAME-HOUSE,LABEL-?L'100,2'?HOUSE,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0482,RECL-096,DATE-01/03/23,TIME-1222 // LOAD JF0482 // FILE NAME-HOUSE,LABEL-?L'100,2'?HOUSE,DISP-SHR // FILE NAME-XHSCIT,LABEL-?WS?XHSCIT,RECORDS-20000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0483,RECL-096,DATE-01/03/23,TIME-1222 JF0482 JF0481 DELETE ?WS?XHSCIT,F1 // CEND // COPY LIBRARY-P,NAME-JF0484,RECL-096,DATE-01/03/23,TIME-1222 // LOAD JF0484 // FILE NAME-PAYRL,LABEL-?L'100,2'?PAYRL,DISP-SHR // FILE NAME-YPAYRL,LABEL-?L'100,2'?YPAYRL,DISP-SHR // FILE NAME-EMPLYE,LABEL-?L'100,2'?EMPLYE,DISP-SHR // FILE NAME-XPRLNM,LABEL-?WS?XPRLNM,RECORDS-18000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0485,RECL-096,DATE-01/03/23,TIME-1222 // LOAD JF0485 // PRINTER NAME-PRT,FORMSNO-RLDX // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0486,RECL-096,DATE-01/03/23,TIME-1222 // LOAD JF0486 // PRINTER NAME-PRT,FORMSNO-RLDX // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0491,RECL-096,REF-000002,DATE-01/03/23,TIME-1222 // IF DATAF1-?L'100,2'?PROJ GOTO BEGREP // TAG AGN1 // * 'YOU WILL GET A PAUSE HALT BECAUSE THE PROJECTION FILE' // * 'IS CURRENTLY BEING REORGANIZED.' // * ' ' // * 'TAKE A 0 OPTION TO TRY AGAIN.' // * ' ' // * 'IF THE FILE HAS COMPLETED REORGANIZATION THE PROGRAM WILL CONTINUE.' // * 'IF NOT YOU WILL AGAIN GET A PAUSE HALT.' // PAUSE // IFF DATAF1-?L'100,2'?PROJ GOTO AGN1 // TAG BEGREP // * ' ' // * 'THE SHIPMENT SUMMARY REPORT IS BEING REGENERATED' // * 'WITH THE DATA AVAILABLE UP TO THIS MOMENT - PLEASE WAIT' // * ' ' // LOAD JF0491 // FILE NAME-PROJ,LABEL-?L'100,2'?PROJ,DISP-SHR // FILE NAME-XSHPSM,LABEL-?WS?XSHPSM,RECORDS-200 // RUN // CEND // COPY LIBRARY-P,NAME-JF0492,RECL-096,DATE-01/03/23,TIME-1222 // LOAD JF0492 // FILE NAME-XSHPSM,LABEL-?WS?XSHPSM // RUN // CEND // COPY LIBRARY-P,NAME-JF0493,RECL-096,DATE-01/03/23,TIME-1222 // LOAD JF0493 // FILE NAME-LDTRK,LABEL-?L'100,2'?LDTRK,DISP-SHR // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-PRCTAB,LABEL-?L'100,2'?PRCTAB,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0494,RECL-096,REF-000001,DATE-01/03/23,TIME-1222 // LOAD JF0494 // PRINTER NAME-PRT,FORMSNO-8X11 // FILE NAME-XLDTRS,LABEL-?WS?XLDTRS // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0495,RECL-096,REF-000002,DATE-01/03/23,TIME-1222 // LOAD JF0495 // PRINTER NAME-PRT,FORMSNO-8X11,COPIES-2 // FILE NAME-XLDTRS,LABEL-?WS?XLDTRS,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0496,RECL-096,DATE-01/03/23,TIME-1222 // LOAD JF0496 // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-CUSMAP,LABEL-?L'100,2'?CUSMAP,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0497,RECL-096,REF-000001,DATE-01/03/23,TIME-1222 // LOAD JF0497 // PRINTER NAME-PRT,FORMSNO-8X11 // FILE NAME-CUSMAP,LABEL-?L'100,2'?CUSMAP,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0498,RECL-096,REF-000003,DATE-10/01/14,TIME-1417 // LOAD JF0220 // IF ?L'1,1'?='1' SWITCH 01000010 // IF ?L'1,1'?='1' PRINTER NAME-PRT1,FORMSNO-LBL1 // IF ?L'1,1'?='3' SWITCH 01000001 // IF ?L'1,1'?='3' PRINTER NAME-PRT2,FORMSNO-LBL3 // FILE NAME-XLABLS,LABEL-?WS?XLABLS // FILE NAME-XLABL2,LABEL-?WS?XLABLS,RETAIN-S // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-MISCUS,LABEL-?L'100,2'?MISCUS,DISP-SHR // FILE NAME-XITHD,LABEL-?WS?XITHD // FILE NAME-LABNOT,LABEL-?L'100,2'?LABNOT,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0499,RECL-096,DATE-04/03/31,TIME-1257 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?L'100,2'?LDTRK,DISP-SHR // FILE NAME-OUTPUT,LABEL-?WS?XLDTRS,RECORDS-3000 // RUN HSORTR 5A 3X 130 I C 130EQCA FNC 1 2 FOU 3 5 FDC 1 130 // END // CEND // COPY LIBRARY-P,NAME-JF0500,RECL-096,REF-000003,DATE-01/03/23,TIME-1222 // LOAD JF0500 // PRINTER NAME-PRT,FORMSNO-8X11,COPIES-1 // FILE NAME-XLDTRS,LABEL-?WS?XLDTRS,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-CUSMAP,LABEL-?L'100,2'?CUSMAP,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0501,RECL-096,DATE-01/03/23,TIME-1222 // LOAD JF0501 // FILE NAME-XINP,LABEL-?WS?XINP,RECORDS-100 // RUN // CEND // COPY LIBRARY-P,NAME-JF0502,RECL-096,DATE-01/03/23,TIME-1222 // LOAD JF0502 // FILE NAME-MESAGE,LABEL-?L'100,2'?MESAGE,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0503,RECL-096,DATE-01/03/23,TIME-1222 // LOAD JF0503 // FILE NAME-MESAGE,LABEL-?L'100,2'?MESAGE,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0504,RECL-096,DATE-01/03/23,TIME-1222 // LOAD JF0504 // SWITCH 10000000 // FILE NAME-HOUSE,LABEL-?L'100,2'?HOUSE,DISP-SHR // FILE NAME-BSEHSE,LABEL-?L'100,2'?BSEHSE,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0505,RECL-096,REF-000001,DATE-01/03/23,TIME-1222 // LOAD JF0504 // SWITCH 01000000 // FILE NAME-HOUSE,LABEL-?L'100,2'?HOUEST,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0506,RECL-096,REF-000001,DATE-01/03/23,TIME-1222 // LOAD JF0506 // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-RELSHT,LABEL-?L'100,2'?RELSHT,RECORDS-10000,EXTEND-2000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0507,RECL-096,REF-000001,DATE-01/03/23,TIME-1222 // LOAD JF0507 // FILE NAME-MOVLOD,LABEL-?L'100,2'?MOVLOD,DISP-SHR // FILE NAME-RELSHT,LABEL-?L'100,2'?RELSHT,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0508,RECL-096,DATE-01/03/23,TIME-1222 // IFF DATAF1-RELSHT GOTO BEGIN // * 'A RELEASE SHEET FILE ALREADY EXISTS ON DISK' // * 'IF YOU CONTINUE IT WILL BE DESTROYED AND RECREATED' // * 'ANEW WITH THE CURRENT INFO IN THE LOAD FILE' // * ' ' // * 'ENTER THE WORD CONTINUE IF YOU WISH TO CONTINUE' // * ' ' // * 'OTHERWISE JUST PRESS THE ENTER KEY TO CANCEL' // IFF ?R?='CONTINUE' GOTO END // TAG BEGIN // IF DATAF1-RELSHT1 RENAME RELSHT1,XXRELSH1 // IF DATAF1-RELSHT RENAME RELSHT,XXRELSHT JPG506 JPG507 BLDINDEX RELSHT1,1,39,RELSHT // TAG END // CEND // COPY LIBRARY-P,NAME-JF0509,RECL-096,DATE-01/03/23,TIME-1222 // LOAD JF0509 // FILE NAME-RELSH1,LABEL-?L'100,2'?RELSH1,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0510,RECL-096,DATE-01/03/23,TIME-1222 // LOAD JF0510 // FILE NAME-RELSHT,LABEL-?L'100,2'?RELSHT,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0511,RECL-096,DATE-01/03/23,TIME-1222 // LOAD JF0511 // FILE NAME-RELSH1,LABEL-?L'100,2'?RELSH1,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0512,RECL-096,DATE-06/04/13,TIME-0802 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XLOADR // FILE NAME-OUTPUT,LABEL-?WS?XLODRS,RECORDS-5000 // RUN HSORTR 6A 3X 100 I C 10EQCF FNU 1 6 FDC 1 100 // END // CEND // COPY LIBRARY-P,NAME-JF0513,RECL-096,DATE-01/03/23,TIME-1222 // LOAD JF0513 // FILE NAME-XINVC,LABEL-?WS?XINVC // FILE NAME-XDLOAD,LABEL-?WS?XDLOAD // FILE NAME-RELSHT,LABEL-?L'100,2'?RELSHT,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0514,RECL-096,DATE-06/11/17,TIME-0735 // LOAD JF0514 // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-MISCUS,LABEL-?L'100,2'?MISCUS,DISP-SHR // FILE NAME-RELSHT,LABEL-?L'100,2'?RELSHT,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-ORDER,LABEL-?L'100,2'?ORDER,DISP-SHR // FILE NAME-HOUSE,LABEL-?L'100,2'?HOUSE,DISP-SHR // FILE NAME-XCHGLD,LABEL-?WS?XCHGLD,RECORDS-500 // RUN // CEND // COPY LIBRARY-P,NAME-JF0515,RECL-096,REF-000002,DATE-01/03/23,TIME-1222 JF0514 JF0332 JF0330 JF0328 JF0329 JF0331 // JOBQ JOFFE,JF0787 // CEND // COPY LIBRARY-P,NAME-JF0516,RECL-096,DATE-01/03/23,TIME-1223 // LOAD JF0516 // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-XZLOAD,LABEL-?WS?XZLOAD,RECORDS-10000 // FILE NAME-XLMES,LABEL-?WS?XLMES,RECORDS-1 // RUN // CEND // COPY LIBRARY-P,NAME-JF0517,RECL-096,REF-000004,DATE-06/03/27,TIME-1122 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XZLOAD,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XILOAD,RECORDS-10000 // RUN HSORTR 99A 3X 100 FNU 101 108 DELIVERY DATE FNU 207 208 SPECIAL ORDER 1ST 3 ZONE DIGITS FNC 109 112 ZONE-1ST 4 DIGITS FOC 113 114 ZONE-LAST 2 DIGITS FNU 115 120 CUSTOMER# FNC 211 HIGHEST EXTERIOR/INTERIOR/MISC FOC 142 150 BUILDING-ALPHA FOU 151 159 BUILDING-NUMERIC, INTEGER FOU 160 168 BUILDING-NUMERIC, DECIMAL FOC 169 176 LOT-ALPHA FOU 177 184 LOT-NUMERIC, INTEGER FOU 185 192 LOT-NUMERIC, DECIMAL FOC 193 196 SEQ#-ALPHA FOU 197 200 SEQ#-NUMERIC, INTEGER FOU 201 204 SEQ#-NUMERIC, DECIMAL FNC 206 EXTERIOR/INTERIOR/MISE FNC 205 NONZERO=N/ZERO HOUSE#=X FNU 209 210 SPECIAL ORDER 1ST HOUSE DIGIT FNU 1 6 LOAD# FNC 7 9 LOAD LINE# FDC 1 100 // END // CEND // COPY LIBRARY-P,NAME-JF0518,RECL-096,DATE-06/03/27,TIME-1006 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XILOAD,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XLOADS,RECORDS-5000 // RUN HSORTR 12A 3X 100 I C 10EQCF FNC 11 16 FNU 1 6 FDC 1 100 // END // CEND // COPY LIBRARY-P,NAME-JF0519,RECL-096,REF-000001,DATE-01/03/23,TIME-1223 // LOAD JF0021 // SWITCH 00001000 // PRINTER NAME-PRT,COPIES-1 // FILE NAME-XLOADS,LABEL-?WS?XLOADS,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-XMSCS,LABEL-?L'100,2'?MISCUS,DISP-SHR // FILE NAME-XLOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0520,RECL-096,REF-000001,DATE-01/03/23,TIME-1223 // LOAD JF0520 // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-XDPCH,LABEL-?WS?XDPCH,RECORDS-300 // FILE NAME-XILOAD,LABEL-?WS?XILOAD,RECORDS-50000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0521,RECL-096,DATE-01/03/23,TIME-1223 // LOAD JF0521 // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0522,RECL-096,DATE-01/03/23,TIME-1223 // LOAD JF0522 // FILE NAME-XPRLST,LABEL-?WS?XPRLST // FILE NAME-XQRTDT,LABEL-?WS?XQRTDT,RECORDS-1 // RUN // CEND // COPY LIBRARY-P,NAME-JF0523,RECL-096,DATE-01/03/23,TIME-1223 // LOAD JF0523 // FILE NAME-X523A,LABEL-?WS?X523A,RECORDS-100 // FILE NAME-XDPCH,LABEL-?WS?XDPCH,RECORDS-200 // RUN // CEND // COPY LIBRARY-P,NAME-JF0524,RECL-096,DATE-01/03/23,TIME-1223 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XITOR // FILE NAME-OUTPUT,LABEL-?WS?XITORS,RECORDS-20000 // RUN HSORTR 25A 3X 220 FND 151 FNZ 155 FND 149 FNZ 150 FND 150 FNZ 151 FNC 1 2 FNU 28 33 FNU 17 22 FNU 23 25 FNU 26 27 FDC 1 220 // END // CEND // COPY LIBRARY-P,NAME-JF0525,RECL-096,REF-000001,DATE-01/03/23,TIME-1223 // LOAD JF0525 // PRINTER NAME-PRT,FORMSNO-8X11 // FILE NAME-XITORS,LABEL-?WS?XITORS,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-DEPT,LABEL-?L'100,2'?DEPT,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-XITHD,LABEL-?WS?XITHD // RUN // CEND // COPY LIBRARY-P,NAME-JF0526,RECL-096,DATE-01/03/23,TIME-1223 JF0523 // JOBQ JOFFE,JF0527 // CEND // COPY LIBRARY-P,NAME-JF0527,RECL-096,REF-000001,DATE-10/01/14,TIME-0741 // IF DATAF1-?WS?X527A DELETE ?WS?X527A,F1 // IF DATAF1-?WS?X527B DELETE ?WS?X527B,F1 // IF DATAF1-?WS?X527C DELETE ?WS?X527C,F1 // IF DATAF1-?WS?X527D DELETE ?WS?X527D,F1 // IF DATAF1-?WS?X527E DELETE ?WS?X527E,F1 // IF DATAF1-?WS?X527F DELETE ?WS?X527F,F1 // IF DATAF1-?WS?X527G DELETE ?WS?X527G,F1 // LOAD JF0528 // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-X523A,LABEL-?WS?X523A // FILE NAME-XILOAD,LABEL-?WS?X527A,RECORDS-50000 // RUN // LOAD JF0278 // FILE NAME-XILOAD,LABEL-?WS?X527A,RETAIN-S // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-XITOR,LABEL-?WS?X527B,RECORDS-60000 // FILE NAME-XITHD,LABEL-?WS?X527C,RECORDS-8000 // RUN RENAME ?WS?X527B,?WS?X527D // LOAD JF0288 // FILE NAME-XXITOR,LABEL-?WS?X527D,RETAIN-S // FILE NAME-XITOR,LABEL-?WS?X527B,RECORDS-20000 // RUN RENAME ?WS?X527B,?WS?X527D // LOAD JF0302 // FILE NAME-XXITOR,LABEL-?WS?X527D,RETAIN-S // FILE NAME-XDPCH,LABEL-?WS?XDPCH // FILE NAME-XITOR,LABEL-?WS?X527B,RECORDS-25000 // RUN // LOAD JF0816 // FILE NAME-XITOR,LABEL-?WS?X527B,RETAIN-S // FILE NAME-X523A,LABEL-?WS?X523A // FILE NAME-XOORD,LABEL-?WS?X527E,RECORDS-25000 // RUN // IFF ?L'1,1'?='Y' GOTO END1 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?X527E // FILE NAME-OUTPUT,LABEL-?WS?X527F,RECORDS-25000 // RUN HSORTR 25A 3X 226 FNU 225 226 FNU 221 224 FNC 1 2 FNU 28 33 FNU 17 22 FNU 23 25 FNU 26 27 FDC 1 220 // END // LOAD JF0525 // FILE NAME-XOORDS,LABEL-?WS?X527F,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-X523A,LABEL-?WS?X523A // FILE NAME-DEPT,LABEL-?L'100,2'?DEPT,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-XITHD,LABEL-?WS?X527C // RUN // TAG END1 // IFF ?L'2,1'?='Y' GOTO END2 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?X527E // FILE NAME-OUTPUT,LABEL-?WS?X527G,RECORDS-25000 // RUN HSORTR 24A 3X 226 I C 167EQCI IAC 10 16EQC FNU 225 226 FNU 221 224 FNC 1 2 FNC 3 9 FNC 208 FNU 17 22 FNU 26 27 FDC 1 220 // END // LOAD JF0530 // FILE NAME-XOORDS,LABEL-?WS?X527G,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-X523A,LABEL-?WS?X523A // FILE NAME-DEPT,LABEL-?L'100,2'?DEPT,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // RUN // TAG END2 // IFF ?L'2,1'?='Y' GOTO END3 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?X527E // FILE NAME-OUTPUT,LABEL-?WS?X527H,RECORDS-25000 // RUN HSORTR 14A 3X 226 I C 167EQCI *** IAC 10 16EQC FNC 1 2 FNU 225 226 FNU 221 224 FNC 28 33 FDC 1 220 // END // LOAD JF1315 // FILE NAME-XOORDS,LABEL-?WS?X527H,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-X523A,LABEL-?WS?X523A // FILE NAME-DEPT,LABEL-?L'100,2'?DEPT,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // RUN // TAG END3 DELETE ?WS?XDPCH,F1 DELETE ?WS?X527E,F1 DELETE ?WS?X527C,F1 DELETE ?WS?X523A,F1 // CEND // COPY LIBRARY-P,NAME-JF0528,RECL-096,DATE-01/03/23,TIME-1223 // LOAD JF0528 // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-X523A,LABEL-?WS?X523A,RETAIN-S // FILE NAME-XILOAD,LABEL-?WS?XILOAD,RECORDS-50000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0529,RECL-096,DATE-01/03/23,TIME-1223 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XITOR // FILE NAME-OUTPUT,LABEL-?WS?XITORS,RECORDS-20000 // RUN HSORTR 24A 3X 220 I C 167EQCI FND 151 FNZ 155 FND 149 FNZ 150 FND 150 FNZ 151 FNC 1 2 FNC 3 9 FNC 208 FNU 17 22 FNU 26 27 FDC 1 220 // END // CEND // COPY LIBRARY-P,NAME-JF0530,RECL-096,REF-000001,DATE-01/03/23,TIME-1223 // LOAD JF0530 // PRINTER NAME-PRT,FORMSNO-8X11 // FILE NAME-XITORS,LABEL-?WS?XITORS,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-DEPT,LABEL-?L'100,2'?DEPT,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0531,RECL-096,DATE-01/03/23,TIME-1223 JF0532 // JOBQ JOFFE,JF0428 // CEND // COPY LIBRARY-P,NAME-JF0532,RECL-096,DATE-01/03/23,TIME-1223 // LOAD JF0532 // FILE NAME-XIN532,LABEL-?WS?XIN532,RECORDS-200 // RUN // CEND // COPY LIBRARY-P,NAME-JF0533,RECL-096,DATE-01/03/23,TIME-1223 JF0534 // JOBQ JOFFE,JF0539 // CEND // COPY LIBRARY-P,NAME-JF0534,RECL-096,DATE-01/03/23,TIME-1223 // LOAD JF0534 // SWITCH 00000000 // FILE NAME-XIN534,LABEL-?WS?XIN534,RECORDS-300 // RUN // CEND // COPY LIBRARY-P,NAME-JF0535,RECL-096,DATE-01/03/23,TIME-1223 // LOAD JF0535 // PRINTER NAME-PRT,FORMSNO-LABL // RUN // CEND // COPY LIBRARY-P,NAME-JF0536,RECL-096,REF-000003,DATE-01/10/08,TIME-1448 // LOAD JF0536 // SWITCH 10000010 // IFF ?WS?=X8 PRINTER NAME-PRT1,COPIES-2 // FILE NAME-XHSE,LABEL-?WS?XHSE,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-PRCTAB,LABEL-?L'100,2'?PRCTAB,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0537,RECL-096,REF-000001,DATE-01/03/23,TIME-1223 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XCSHS,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XHSE,RECORDS-60000 // RUN HSORTR 15A 3X 41 FNU 42 47 FNU 6 FNU 1 5 FNU 7 9 FDC 1 41 // END // CEND // COPY LIBRARY-P,NAME-JF0538,RECL-096,REF-000003,DATE-01/03/23,TIME-1223 // LOAD JF0536 // SWITCH 00000001 // IFF ?WS?=X8 PRINTER NAME-PRT2,FORMSNO-8X14,COPIES-2 // FILE NAME-XHSE,LABEL-?WS?XHSE,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-PRCTAB,LABEL-?L'100,2'?PRCTAB,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0539,RECL-096,REF-000001,DATE-01/03/23,TIME-1223 JF0541 // IF ?L'1,1'?='1' JF0540 // IF ?L'1,1'?='1' JF0536 // IF ?L'1,1'?='2' JF0537 // IF ?L'1,1'?='2' JF0538 // CEND // COPY LIBRARY-P,NAME-JF0540,RECL-096,REF-000001,DATE-01/03/23,TIME-1223 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XCSHS,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XHSE,RECORDS-60000 // RUN H9ORTR 9A 3X 41 FNU 1 6 FNU 7 9 FDC 1 41 // END // CEND // COPY LIBRARY-P,NAME-JF0541,RECL-096,DATE-01/03/23,TIME-1223 // LOAD JF0541 // FILE NAME-HOUSE,LABEL-?L'100,2'?HOUSE,DISP-SHR // FILE NAME-XIN534,LABEL-?WS?XIN534,RETAIN-S // FILE NAME-XCSHS,LABEL-?WS?XCSHS,RECORDS-60000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0542,RECL-096,DATE-01/03/23,TIME-1223 // * 'THIS REQUEST FOR THE INVENTORY CONTROL REPORT' // * 'WILL NOW BE PLACED IN THE JOG QUEUE TO BE RUN AS TIME ALLOWS' // * ' ' // * 'MEANWHILE YOUR TERMINAL WILL BE FREE TO DO OTHER JOBS' // * ' ' // * 'NOTE THAT YOU CANNOT RUN THIS JOB AGAIN UNTIL THE COMPLETE REPORT' // * 'IS IN THE SPOOL FILE' // * ' ' // * 'PRESS THE ENTER KEY TO RETURN TO THE MENU' // * ' ' // IF ?R?='X' GOTO NEXT // TAG NEXT // JOBQ JOFFE,JF0274 // CEND // COPY LIBRARY-P,NAME-JF0543,RECL-096,DATE-01/03/23,TIME-1223 JF0544 // JOBQ JOFFE,JF0545 // CEND // COPY LIBRARY-P,NAME-JF0544,RECL-096,DATE-01/03/23,TIME-1223 // LOAD JF0544 // FILE NAME-XIN544,LABEL-?WS?XIN544,RECORDS-200 // RUN // CEND // COPY LIBRARY-P,NAME-JF0545,RECL-096,REF-000002,DATE-01/03/23,TIME-1223 // IF DATAF1-?WS?X545A DELETE ?WS?X545A,F1 // IF DATAF1-?WS?X545B DELETE ?WS?X545B,F1 // IF DATAF1-?WS?X545C DELETE ?WS?X545C,F1 // IF DATAF1-?WS?X545D DELETE ?WS?X545D,F1 // LOAD JF0546 // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-XILOAD,LABEL-?WS?X545A,RECORDS-35000 // RUN // LOAD JF0278 // FILE NAME-XILOAD,LABEL-?WS?X545A,RETAIN-S // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-XITOR,LABEL-?WS?X545B,RECORDS-60000 // FILE NAME-XITHD,LABEL-?WS?X545C,RECORDS-8000 // RUN // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?X545B,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?X545D,RECORDS-30000 // RUN HSORTR 36A 3X 220 FNU 153 158 FNC 3 9 FNU 28 33 FNU 120 121 FNU 116 119 FNU 17 22 FNU 23 25 FNU 26 27 FDC 1 220 // END // LOAD JF0548 // FILE NAME-XITORS,LABEL-?WS?X545D,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-XIN544,LABEL-?WS?XIN544,RETAIN-S // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-XITHD,LABEL-?WS?X545C,RETAIN-S // RUN // CEND // COPY LIBRARY-P,NAME-JF0546,RECL-096,DATE-01/03/23,TIME-1223 // LOAD JF0546 // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-XILOAD,LABEL-?WS?XILOAD,RECORDS-35000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0547,RECL-096,DATE-01/03/23,TIME-1223 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XITOR,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XITORS,RECORDS-40000 // RUN HSORTR 36A 3X 220 FNU 153 158 FNC 3 9 FNU 28 33 FNU 120 121 FNU 116 119 FNU 17 22 FNU 23 25 FNU 26 27 FDC 1 220 // END // CEND // COPY LIBRARY-P,NAME-JF0548,RECL-096,DATE-01/03/23,TIME-1223 // LOAD JF0548 // FILE NAME-XITORS,LABEL-?WS?XITORS,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-XIN544,LABEL-?WS?XIN544,RETAIN-S // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-XITHD,LABEL-?WS?XITHD,RETAIN-S // RUN // CEND // COPY LIBRARY-P,NAME-JF0549,RECL-096,DATE-01/03/23,TIME-1223 // IF DATAF1-?WS?XLTINV DELETE ?WS?XLTINV,F1 // LOAD JF0549 // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-XLTINV,LABEL-?WS?XLTINV,RECORDS-10000 // RUN // * 'THE DATA HAS BEEN PLACED INTO A FILE NAMED' // * ' ' // * ' XLTINV' // * ' ' // * 'PRESS ANY KEY TO RETURN TO MENU' // IF ?R?='X' GOTO END // TAG END // CEND // COPY LIBRARY-P,NAME-JF0550,RECL-096,DATE-01/03/23,TIME-1223 // IF DATAF1-?WS?XREPOR DELETE ?WS?XREPOR,F1 // * 'THIS PROCEDURE WILL COPY ANY SPOOL PRINT FILE (SP____)' // * 'INTO A DISK FILE NAMED' // * ' ' // * ' ***** ?WS?XREPOR *****' // * ' ' // * 'THE ?WS?XREPOR FILE MAY BE DOWNLOADED TO A PC' // * ' ' // * 'AFTER THE SPOOL PRINT FILE (SP___) HAS BEEN COPIED IT WILL STILL REMAIN' // * 'IN THE SPOOL IN ORDER TO BE PRINTED' // * ' ' // * 'IF YOU DO NOT WISH IT TO PRINT REMOVE IT FROM THE SPOOL' // * 'AFTER YOU HAVE COPIED IT' // * ' ' // * 'AFTER YOU HAVE DOWNLOADED THE DISK FILE (XREPOR?WS?) INTO A PC' // * 'PLEASE ERASE IT FROM THE SYSTEM/36 DISK IF YOU ARE FINISHED WITH IT' // * ' ' // * 'PLEASE ENTER SPOOL ID (SP____) OF SPOOL ENTRY FOR WHICH' // * 'YOU WISH TO CREATE A DISK FILE TO BE DOWNLOADED TO A PC' // * ' ' // LOCAL OFFSET-1,DATA-'?R?' // * ' ' COPYPRT ?L'1,6'?,?WS?XREPOR // CEND // COPY LIBRARY-P,NAME-JF0551,RECL-096,DATE-01/03/23,TIME-1223 // * 'THIS PROCEDURE WILL SET ALL PREVIOUS PRICES EQUAL TO THE CURRENT PRICES' // * 'FOR ALL PRODUCTS' // * ' ' // * 'IF YOU WISH TO CONTINUE ENTER THE CODE WORD' // * ' ' // * 'OTHERWISE PRESS THE ENTER KEY AND THE PROCEDURE WILL BE CANCELLED' // * 'AND YOU WILL BE RETURNED TO THE MENU' // * ' ' // IFF ?R?='CONTINUEXYZABC' GOTO END // * ' ' // * 'THE PRODUCT FILE IS NOW BEING CHANGED' // LOAD JF0551 // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // RUN // TAG END // CEND // COPY LIBRARY-P,NAME-JF0552,RECL-096,REF-000001,DATE-01/03/23,TIME-1223 // LOAD JF0552 // SWITCH 00000000 // FILE NAME-XXHSSL,LABEL-?WS?XXHSSL,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-HOUSE,LABEL-?L'100,2'?HOUSE,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-PRCTAB,LABEL-?L'100,2'?PRCTAB,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0553,RECL-096,DATE-01/03/23,TIME-1223 // LOAD JF0553 // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-RECEV,LABEL-?L'100,2'?RECEV,DISP-SHR // FILE NAME-RECBD,LABEL-?L'100,2'?RECBD,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0554,RECL-096,REF-000001,DATE-01/03/23,TIME-1223 // TAG AGN // * ' ' // * 'DO YOU WISH TO USE CURRENT OR OLD PRICES TO RECALCULATE SINGLE LINE PRICES?' // * ' ' // * ' C = CURRENT' // * ' O = OLD' // * ' ' // LOCAL OFFSET-1,DATA-'?R?' // IF ?L'1,1'?='C' GOTO CUROLD // IF ?L'1,1'?='O' GOTO CUROLD // GOTO AGN // TAG CUROLD // IF ?L'1,1'?='C' * 'YOU HAVE CHOSEN CURRENT PRICES.' // IF ?L'1,1'?='O' * 'YOU HAVE CHOSEN OLD PRICES.' // * ' PRESS ENTER TO CONTINUE.' // * ' PRESS X TO CANCEL.' // * ' ' // IFF ?R?='X' GOTO END // GOTO AGN // TAG END JF0012 JF0559 JF0552 // CEND // COPY LIBRARY-P,NAME-JF0555,RECL-096,REF-000001,DATE-01/03/23,TIME-1223 // TAG AGN // * ' ' // * 'DO YOU WISH TO USE CURRENT OR OLD PRICES TO RECALCULATE SINGLE LINE PRICES?' // * ' ' // * ' C = CURRENT' // * ' O = OLD' // * ' ' // LOCAL OFFSET-1,DATA-'?R?' // IF ?L'1,1'?='C' GOTO CUROLD // IF ?L'1,1'?='O' GOTO CUROLD // GOTO AGN // TAG CUROLD // IF ?L'1,1'?='C' * 'YOU HAVE CHOSEN CURRENT PRICES.' // IF ?L'1,1'?='O' * 'YOU HAVE CHOSEN OLD PRICES.' // * ' PRESS ENTER TO CONTINUE.' // * ' PRESS X TO CANCEL.' // * ' ' // IFF ?R?='X' GOTO END // GOTO AGN // TAG END JF0013 JF0559 JF0552 // CEND // COPY LIBRARY-P,NAME-JF0556,RECL-096,DATE-01/03/23,TIME-1223 // TAG AGN // * ' ' // * 'DO YOU WISH TO USE CURRENT OR OLD PRICES TO RECALCULATE SINGLE LINE PRICES' // * 'FOR ESTIMATED HOUSES ?' // * ' ' // * ' C = CURRENT' // * ' O = OLD' // * ' ' // LOCAL OFFSET-1,DATA-'?R?' // IF ?L'1,1'?='C' GOTO CUROLD // IF ?L'1,1'?='O' GOTO CUROLD // GOTO AGN // TAG CUROLD // IF ?L'1,1'?='C' * 'YOU HAVE CHOSEN CURRENT PRICES.' // IF ?L'1,1'?='O' * 'YOU HAVE CHOSEN OLD PRICES.' // * ' PRESS ENTER TO CONTINUE.' // * ' PRESS X TO CANCEL.' // * ' ' // IFF ?R?='X' GOTO END // GOTO AGN // TAG END JF0097 JF0559 JF0552 JF0332 JF0330 JF0328 JF0329 JF0331 // CEND // COPY LIBRARY-P,NAME-JF0557,RECL-096,REF-000001,DATE-01/03/23,TIME-1223 // TAG AGN // * ' ' // * 'DO YOU WISH TO USE CURRENT OR OLD PRICES TO RECALCULATE SINGLE LINE PRICES?' // * ' ' // * ' C = CURRENT' // * ' O = OLD' // * ' ' // LOCAL OFFSET-1,DATA-'?R?' // IF ?L'1,1'?='C' GOTO CUROLD // IF ?L'1,1'?='O' GOTO CUROLD // GOTO AGN // TAG CUROLD // IF ?L'1,1'?='C' * 'YOU HAVE CHOSEN CURRENT PRICES.' // IF ?L'1,1'?='O' * 'YOU HAVE CHOSEN OLD PRICES.' // * ' PRESS ENTER TO CONTINUE.' // * ' PRESS X TO CANCEL.' // * ' ' // IFF ?R?='X' GOTO END // GOTO AGN // TAG END JF0476 JF0559 JF0552 // CEND // COPY LIBRARY-P,NAME-JF0558,RECL-096,REF-000001,DATE-01/03/23,TIME-1223 // TAG AGN // * ' ' // * 'DO YOU WISH TO USE CURRENT OR OLD PRICES TO RECALCULATE SINGLE LINE PRICES?' // * ' ' // * ' C = CURRENT' // * ' O = OLD' // * ' ' // LOCAL OFFSET-1,DATA-'?R?' // IF ?L'1,1'?='C' GOTO CUROLD // IF ?L'1,1'?='O' GOTO CUROLD // GOTO AGN // TAG CUROLD // IF ?L'1,1'?='C' * 'YOU HAVE CHOSEN CURRENT PRICES.' // IF ?L'1,1'?='O' * 'YOU HAVE CHOSEN OLD PRICES.' // * ' PRESS ENTER TO CONTINUE.' // * ' PRESS X TO CANCEL.' // * ' ' // IFF ?R?='X' GOTO END // GOTO AGN // TAG END JF0009 JF0559 JF0552 // CEND // COPY LIBRARY-P,NAME-JF0559,RECL-096,DATE-01/03/23,TIME-1223 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XHSSL,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XXHSSL,RECORDS-3000 // RUN HSORTR 6A 3 6 FNU 1 6 // END // CEND // COPY LIBRARY-P,NAME-JF0560,RECL-096,DATE-01/03/23,TIME-1223 JF0561 JF0056 // CEND // COPY LIBRARY-P,NAME-JF0561,RECL-096,DATE-01/03/23,TIME-1223 // LOAD JF0561 // FILE NAME-EMPLYE,LABEL-?L'100,2'?EMPLYE,DISP-SHR // FILE NAME-XPRXX,LABEL-?WS?XPRXX // RUN // CEND // COPY LIBRARY-P,NAME-JF0562,RECL-096,DATE-01/03/23,TIME-1223 // LOAD JF0562 // FILE NAME-BILMAT,LABEL-?L'100,2'?BILMAT,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0563,RECL-096,DATE-01/03/23,TIME-1223 // LOAD JF0562 // FILE NAME-BILMAT,LABEL-?L'100,2'?BLMTTM,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0564,RECL-096,REF-000003,DATE-01/03/23,TIME-1223 // TAG AGNPRT // * ' ' // * 'HOW DO YOU WISH LABELS TO PRINT ?' // * ' ' // * ' 1 - WITH BOLD HEADINGS ON ANY PRINTER WITH A QMS BOARD' // * ' ' // * ' 2 - WITH BOLD HEADINGS ON ANY IPDS PRINTER' // * ' ' // * ' 3 - WITH ONLY NORMAL SIZE WRITING ON ANY PRINTER' // * ' ' // LOCAL OFFSET-1,DATA-'?R?' // IF ?L'1,1'?='1' GOTO ENDPRT // IF ?L'1,1'?='2' GOTO ENDPRT // IF ?L'1,1'?='3' GOTO ENDPRT // GOTO AGNPRT // TAG ENDPRT // * ' ' JF0565 JF0278 JF0341 JF0302 JF0620 JF0269 JF0275 JF0276 // IF ?L'1,1'?='1' JF0572 // IF ?L'1,1'?='2' JF0712 // IF ?L'1,1'?='3' JF0572 JF0300 JF0566 // CEND // COPY LIBRARY-P,NAME-JF0565,RECL-096,DATE-01/03/23,TIME-1223 // LOAD JF0520 // FILE NAME-LOAD,LABEL-?WS?XLOADO // FILE NAME-XDPCH,LABEL-?WS?XDPCH,RECORDS-200 // FILE NAME-XILOAD,LABEL-?WS?XILOAD,RECORDS-10000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0566,RECL-096,REF-000001,DATE-01/03/23,TIME-1223 // LOAD JF0301 // SWITCH 10000000 // FILE NAME-XITRGS,LABEL-?WS?XITRGS,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-XDPCH,LABEL-?WS?XDPCH,RETAIN-S // RUN // CEND // COPY LIBRARY-P,NAME-JF0567,RECL-096,REF-000001,DATE-01/03/23,TIME-1223 // LOAD JF0301 // SWITCH 00100000 // FILE NAME-XITRGS,LABEL-?WS?XITRGS,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-XDPCH,LABEL-?WS?XDPCH,RETAIN-S // RUN // CEND // COPY LIBRARY-P,NAME-JF0568,RECL-096,DATE-01/03/23,TIME-1223 JF0569 JF0570 JF0571 // CEND // COPY LIBRARY-P,NAME-JF0569,RECL-096,DATE-01/03/23,TIME-1223 // LOAD JF0569 // FILE NAME-HOUSE,LABEL-?L'100,2'?HOUSE,DISP-SHR // FILE NAME-XCSITM,LABEL-?WS?XCSITM,RECORDS-150000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0570,RECL-096,DATE-01/03/23,TIME-1223 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XCSITM,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XCSITS,RECORDS-150000 // RUN HSORTR 19A 3X 20 FNU 1 4 FNC 5 6 FNC 8 14 FNU 15 FNP 16 20 FDC 1 20 // END // CEND // COPY LIBRARY-P,NAME-JF0571,RECL-096,DATE-04/02/04,TIME-1038 // LOAD JF0571 // SWITCH 10000000 // FILE NAME-XCSITS,LABEL-?WS?XCSITS,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-PRCTAB,LABEL-?L'100,2'?PRCTAB,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0572,RECL-096,REF-000003,DATE-01/03/23,TIME-1223 // LOAD JF0220 // IF ?L'1,1'?='1' SWITCH 10000010 // IF ?L'1,1'?='1' PRINTER NAME-PRT1,FORMSNO-LBL1 // IF ?L'1,1'?='3' SWITCH 10000001 // IF ?L'1,1'?='3' PRINTER NAME-PRT2,FORMSNO-LBL3 // FILE NAME-XLABLS,LABEL-?WS?XLABLS // FILE NAME-XLABL2,LABEL-?WS?XLABLS,RETAIN-S // FILE NAME-LOAD,LABEL-?WS?XLOADO // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-MISCUS,LABEL-?WS?XMSCSO // FILE NAME-XITHD,LABEL-?WS?XITHD,RETAIN-S // RUN // CEND // COPY LIBRARY-P,NAME-JF0573,RECL-096,DATE-01/03/23,TIME-1223 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XITOR,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XITORS,RECORDS-10000 // RUN HSORTR 20A 3X 220 I C 167EQCI FNC 3 9 FNC 208 FND 151 FNZ 155 FND 149 FNZ 150 FND 150 FNZ 151 FNC 28 33 FDC 1 220 // END // CEND // COPY LIBRARY-P,NAME-JF0574,RECL-096,REF-000001,DATE-01/03/23,TIME-1223 // LOAD JF0574 // PRINTER NAME-PRT,FORMSNO-8X11 // FILE NAME-XITORS,LABEL-?WS?XITORS,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0575,RECL-096,DATE-01/03/23,TIME-1223 // LOAD JF0575 // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0576,RECL-096,DATE-01/03/23,TIME-1223 JF0577 // JOBQ JOFFE,JF0578 // CEND // COPY LIBRARY-P,NAME-JF0577,RECL-096,DATE-01/03/23,TIME-1223 // LOAD JF0577 // FILE NAME-X577A,LABEL-?WS?X577A,RECORDS-100 // RUN // CEND // COPY LIBRARY-P,NAME-JF0578,RECL-096,REF-000002,DATE-01/03/23,TIME-1223 // IF DATAF1-?WS?X578A DELETE ?WS?X578A,F1 // IF DATAF1-?WS?X578B DELETE ?WS?X578B,F1 // IF DATAF1-?WS?X578C DELETE ?WS?X578C,F1 // IF DATAF1-?WS?X578D DELETE ?WS?X578D,F1 // LOAD JF0278 // FILE NAME-XILOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-XITOR,LABEL-?WS?X578A,RECORDS-60000 // FILE NAME-XITHD,LABEL-?WS?X578B,RECORDS-8000,RETAIN-S // RUN RENAME ?WS?X578A,?WS?X578C // LOAD JF0580 // FILE NAME-XXITOR,LABEL-?WS?X578C,RETAIN-S // FILE NAME-X580A,LABEL-?WS?X577A,RETAIN-S // FILE NAME-XITOR,LABEL-?WS?X578A,RECORDS-25000 // RUN // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?X578A,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?X578D,RECORDS-10000 // RUN HSORTR 20A 3X 220 I C 167EQCI FNC 3 9 FNC 208 FND 151 FNZ 155 FND 149 FNZ 150 FND 150 FNZ 151 FNC 28 33 FDC 1 220 // END // LOAD JF0574 // PRINTER NAME-PRT,FORMSNO-8X11 // FILE NAME-XITORS,LABEL-?WS?X578D,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0579,RECL-096,DATE-01/03/23,TIME-1223 // LOAD JF0278 // FILE NAME-XILOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-XITOR,LABEL-?WS?XITOR,RECORDS-60000 // FILE NAME-XITHD,LABEL-?WS?XITHD,RECORDS-8000,RETAIN-S // RUN // CEND // COPY LIBRARY-P,NAME-JF0580,RECL-096,DATE-01/03/23,TIME-1223 RENAME ?WS?XITOR,?WS?XXITOR // LOAD JF0580 // FILE NAME-XXITOR,LABEL-?WS?XXITOR,RETAIN-S // FILE NAME-X580A,LABEL-?WS?X577A,RETAIN-S // FILE NAME-XITOR,LABEL-?WS?XITOR,RECORDS-25000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0581,RECL-096,DATE-01/03/23,TIME-1223 // LOAD JF0581 // FILE NAME-OPRDUS,LABEL-?L'100,2'?OPRDUS,RETAIN-S // FILE NAME-XPRUSG,LABEL-?WS?XPRUSG // RUN // CEND // COPY LIBRARY-P,NAME-JF0582,RECL-096,REF-000001,DATE-01/03/23,TIME-1223 // LOAD JF0581 // FILE NAME-OPRDUS,LABEL-?L'100,2'?PRDUSG,DISP-SHR // FILE NAME-XPRUSG,LABEL-?WS?XPRUSG // RUN // CEND // COPY LIBRARY-P,NAME-JF0583,RECL-096,DATE-01/03/23,TIME-1223 // LOAD JF0583 // FILE NAME-OPRDRC,LABEL-?L'100,2'?OPRDRC,RETAIN-S // FILE NAME-XPRREC,LABEL-?WS?XPRREC // RUN // CEND // COPY LIBRARY-P,NAME-JF0584,RECL-096,DATE-01/03/23,TIME-1223 // LOAD JF0583 // FILE NAME-OPRDRC,LABEL-?L'100,2'?PRDREC,DISP-SHR // FILE NAME-XPRREC,LABEL-?WS?XPRREC // RUN // CEND // COPY LIBRARY-P,NAME-JF0585,RECL-096,DATE-09/12/10,TIME-1017 *** TRUCK MILL REPORT FOR DEPARTMENT WM // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XITOR // FILE NAME-OUTPUT,LABEL-?WS?XITORS,RECORDS-10000 // RUN HSORTR 22A 3X 220 I C 1 2EQCWM FNU 116 121 FNC 122 123 FNU 124 126 FNU 17 22 FNU 23 25 FNU 26 27 FDC 1 220 // END // CEND // COPY LIBRARY-P,NAME-JF0586,RECL-096,REF-000001,DATE-09/12/10,TIME-1018 *** TRUCK MILL REPORT FOR DEPARTMENT WM // LOAD JF0281 // SWITCH 10000000 // PRINTER NAME-PRT,FORMSNO-8X11,COPIES-2 // FILE NAME-XITORS,LABEL-?WS?XITORS,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-DEPT,LABEL-?L'100,2'?DEPT,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-XITHD,LABEL-?WS?XITHD // RUN // CEND // COPY LIBRARY-P,NAME-JF0587,RECL-096,DATE-01/03/23,TIME-1223 JF0588 // JOBQ JOFFE,JF0589 // CEND // COPY LIBRARY-P,NAME-JF0588,RECL-096,DATE-01/03/23,TIME-1223 // LOAD JF0534 // SWITCH 10000000 // FILE NAME-XIN534,LABEL-?WS?XIN534,RECORDS-300 // RUN // CEND // COPY LIBRARY-P,NAME-JF0589,RECL-096,DATE-01/03/23,TIME-1223 JF0590 JF0540 JF0591 // CEND // COPY LIBRARY-P,NAME-JF0590,RECL-096,REF-000001,DATE-01/03/23,TIME-1223 // LOAD JF0541 // FILE NAME-HOUSE,LABEL-?L'100,2'?HOUEST,DISP-SHR // FILE NAME-XIN534,LABEL-?WS?XIN534,RETAIN-S // FILE NAME-XCSHS,LABEL-?WS?XCSHS,RECORDS-20000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0591,RECL-096,REF-000001,DATE-01/10/08,TIME-1448 // LOAD JF0536 // SWITCH 01000010 // PRINTER NAME-PRT1,COPIES-2 // FILE NAME-XHSE,LABEL-?WS?XHSE,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-PRCTAB,LABEL-?L'100,2'?PRCTAB,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0592,RECL-096,REF-000038,DATE-01/04/11,TIME-1838,HIST-NO // * ' ' // * 'PLEASE ENTER YOUR RCW/3X SIGN ON PASSWORD' // LOCAL OFFSET-1,DATA-'?R?' // IF ?L'1,4'?='JOSE' GOTO BEGIN // GOTO END // TAG BEGIN // * ' ' // * 'PLEASE INDICATE YOUR CHOICE:' // * ' P = PRINT AN AS/400 REPORT ON YOUR REMOTE PC PRINTER' // * ' F = COPY A FILE FROM THE AS/400 TO YOUR PC DISK' // * ' T = COPY A FILE TO THE AS/400 FROM YOUR PC DISK' // * ' X = CANCEL REQUEST AND EXIT PROGRAM' ' // * ' ' // LOCAL OFFSET-1,DATA-'?R?' // IF ?L'1,1'?='P' GOTO PRINT // IF ?L'1,1'?='F' GOTO FILEFR // IF ?L'1,1'?='T' GOTO FILETO // IF ?L'1,1'?='X' GOTO END // * 'YOU HAVE GIVEN AN INVALID RESPONSE - PLEASE RE-ENTER' // GOTO BEGIN // TAG PRINT // LIBRARY NAME-RCW ******************************************************************************* * * * JOB STREAM TO COPY SPOOLED OUTPUT TO THE SCREEN FOR PRINTING BY RCWRDL * * PARAM 1 - COPYPRT ID * * PARAM 2 - 'CANCEL,RELEASE' = COPYPRT PARAM * * PARAM 3 - 198 IF GT 132 PRINT LENGTH * * PARAM 4 - 'SAVEPRT' IF TO SAVE TO A PC FILE * * PARAM 5 - PC FILE CREATION OPTION * * PARAM 6,7,8 - PC FILE NAME - FIRST 17 BYTES ARE USED * * * ******************************************************************************* // SWITCH XXXXXXXX ?4'COPYPRT'? ?5'NEW'? // IF ?1?/ PROMPT MEMBER-RCWPROMT,FORMAT-RCW010 // IF ?CD?/2007 RETURN // IF ?CD?/2003 RETURN // * 'RCW010 ?1?,?2?,?3?,?4?,?5?,?6??7??8? ' // IFF DATAF1-?1??WS? COPYPRT ?1?,?1??WS?,?2? // LOAD RCW010 // IF ?3?/198 SWITCH 00000001 // ELSE SWITCH 00000010 // IF ?4?/SAVEPRT SWITCH 1XXXXXXX // LOCAL OFFSET-1,DATA-'?5? ' // LOCAL OFFSET-2,DATA-'?6??7??8? ' // FILE NAME-COPYPRT,LABEL-?1??WS? // FILE NAME-COPYPRT2,LABEL-?1??WS? // RUN // IFF ?L'31,2'?/00 * 'ERROR # ?L'31,2'? ?L'33,25'?' // IFF ?L'31,2'?/00 * 'OCCURED IN SAVE PRINT ' // IFF ?L'31,2'?/00 * 'CORRECT PROBLEM AND RETRY SAVE PRINT' // IFF ?L'31,2'?/00 PAUSE // IF ?L'31,2'?/00 DELETE ?1??WS?,F1 // GOTO END // TAG FILEFR // LIBRARY NAME-RCW ******************************************************************************* * RCW130 - RCW/3X FILE DOWN LOAD TO PC FROM S/3X * * * * PARAM 1 - NAME OF S/3X FILE * * PARAM 2 - FILE LENGTH * * PARAM 3 - FORMAT OF DOWN LOAD * * PARAM 4 - SENT CR/LF AT END OF RECORD * * PARAM 5 - TRUNCATE TRAILING BLANKS * * PARAM 6 - PC FILE CREATION OPTION * * PARAM 7,8,9 - PC FILE NAME - FIRST 17 BYTES ARE USED * * * ******************************************************************************* * * * AS DISTRIBUTED RCW130 WILL ONLY SUPPORT 8, 96 AND 512 BYTE FILE LENGTHS * * COPYDATA IS USED TO COPY ANY OTHER FILE LENGTHS TO A LONGER FILE LENGTH * * THE COPYDATA WORKS ONLY WITH THE S/36 * * * IF OTHER FILE LENGTHS ARE NEEDED, ADDITIONAL FILE DOWN LOAD PROGRAMS MUST * * BE COMPILED. THESE PROGRAMS ARE COPIES OF THE RPG PROGRAM RCW120 * * THE CHANGES TO RCW120 THAT ARE NEEDED TO SUPPORT OTHER FILE LENGTHS * * ARE DOCUMENTED IN THE SOURCE PROGRAM RCW120 * * * ******************************************************************************* // SWITCH XXXXXXXX ?2'96'? ?6'NEW'? ?3'TRANSLAT'? ?4'YES'? ?5'YES'? * // IFF ?1?/ GOTO CHECKL * // TAG PROMPT * // PROMPT MEMBER-RCWPROMT,FORMAT-RCW130 // IF ?CD?/2007 RETURN // IF ?CD?/2003 RETURN * // TAG CHECKL * // * 'RCW130 ?1?,?2?,?3?,?4?,?5?,?6?,?7?,?8?,?9?' * // LOCAL OFFSET-1,DATA-'?1? ' // LOCAL OFFSET-9,DATA-'?2? ' // LOCAL OFFSET-13,DATA-'?3? ' // LOCAL OFFSET-23,DATA-'?4? ' // LOCAL OFFSET-27,DATA-'?5? ' // LOCAL OFFSET-31,DATA-'?6? ' // LOCAL OFFSET-39,DATA-'?7??8??9? ' * * TO SUPPORT OTHER RECORD LENGTHS ADDITIONAL IF STATMENTS MUST BE ADDED HERE * // IF ?2?/4096 GOTO LOAD // IF ?2?/512 GOTO LOAD // IF ?2?/96 GOTO LOAD // IF ?2?/8 GOTO LOAD * * THE FOLLOWING BLOCK OF STATEMENTS ARE ONLY VALID ON THE S/36 * // EVALUATE P2,4=?2? // IF ?2?>0512 IF 4096>?2? EVALUATE P2=4096 // IF ?2?>0096 IF 0512>?2? EVALUATE P2=0512 // IF 0096>?2? EVALUATE P2=0096 // LOAD $COPY // FILE NAME-COPYIN,LABEL-?1?,DBLOCK-50,DISP-SHR // FILE NAME-COPYO,UNIT-F1,LABEL-RCWTEMP,DBLOCK-50,RETAIN-J,RECORDS-?F'A,?1?'? // RUN // COPYFILE OUTPUT-S,RECL-?2? // END // IF 4097>P2 EVALUATE P2,5=?2?+10000 // IF ?2?>10000 GOTO LOAD * * // * 'FILE LENGTH OF ?2? IS CURRENTLY NOT SUPPORTED' // PAUSE // GOTO PROMPT * // TAG LOAD * * TO SUPPORT OTHER RECORD LENGTHS ADDITIONAL IF STATMENTS MUST BE ADDED HERE * // IF ?2?/4096 LOAD RCW140 * 4096 BYTE FILE DOWN LOAD PROGRAM // IF ?2?/14096 LOAD RCW140 * 4096 BYTE FILE DOWN LOAD PROGRAM // IF ?2?/512 LOAD RCW130 * 512 BYTE FILE DOWN LOAD PROGRAM // IF ?2?/10512 LOAD RCW130 * 512 BYTE FILE DOWN LOAD PROGRAM // IF ?2?/96 LOAD RCW120 * 96 BYTE FILE DOWN LOAD PROGRAM // IF ?2?/10096 LOAD RCW120 * 96 BYTE FILE DOWN LOAD PROGRAM // IF ?2?/8 LOAD RCW110 * 8 BYTE FILE DOWN LOAD PROGRAM * // IF ?2?>10000 FILE NAME-FILEIN,LABEL-RCWTEMP,DBLOCK-100,RETAIN-S // ELSE FILE NAME-FILEIN,LABEL-?1?,DBLOCK-100 // RUN // IFF ?L'61,2'?/00 * 'ERROR # ?L'61,2'? ?L'63,25'?' // IFF ?L'61,2'?/00 * 'OCCURED IN FILE ?3?' // IFF ?L'61,2'?/00 * 'CORRECT PROBLEM AND RETRY FILE DOWN LOAD' // IFF ?L'61,2'?/00 PAUSE // GOTO END // TAG FILETO // LIBRARY NAME-RCW ******************************************************************************* * RCW230 - RCW/3X FILE UP LOAD FROM PC TO S/3X * * * * PARAM 1 - NAME OF S/3X FILE * * PARAM 2 - FILE LENGTH * * PARAM 3 - NUMBER OF RECORDS IN OUTPUT FILE * * PARAM 4 - FORMAT OF DOWN LOAD * * PARAM 5,6,7 - PC FILE NAME - FIRST 17 BYTES ARE USED * * * ******************************************************************************* * * * AS DISTRIBUTED RCW230 WILL SUPPORT 8, 96 AND 512 BYTE FILE LENGTHS * * COPYDATA IS USED TO COPY ANY OTHER FILE LENGTHS TO A LONGER FILE LENGTH * * THE COPYDATA WORKS ONLY WITH THE S/36 * * * * IF OTHER FILE LENGTHS ARE NEEDED, ADDITIONAL FILE DOWN LOAD PROGRAMS MUST * * BE COMPILED. THESE PROGRAMS ARE COPIES OF THE RPG PROGRAM RCW220 * * THE CHANGES TO RCW120 THAT ARE NEEDED TO SUPPORT OTHER FILE LENGTHS * * ARE DOCUMENTED IN THE SOURCE PROGRAM RCW120 * * * ******************************************************************************* // SWITCH XXXXXXXX ?2'96'? ?4'TRANSLAT'? * // IFF ?1?/ GOTO CHECKL * // TAG PROMPT * // PROMPT MEMBER-RCWPROMT,FORMAT-RCW230 // IF ?CD?/2007 RETURN // IF ?CD?/2003 RETURN * // TAG CHECKL * // * 'RCW230 ?1?,?2?,?3?,?4?,?5??6??7? ' * // LOCAL OFFSET-9,DATA-'?2? ' // LOCAL OFFSET-13,DATA-'?4? ' // LOCAL OFFSET-39,DATA-'?5??6??7? ' * * TO SUPPORT OTHER RECORD LENGTHS ADDITIONAL IF STATMENTS MUST BE ADDED HERE * // IF ?2?/4096 GOTO LOAD // IF ?2?/512 GOTO LOAD // IF ?2?/96 GOTO LOAD // IF ?2?/8 GOTO LOAD * * THIS STATEMENT IS VALID ONLY ON THE S/36 * // GOTO VARLGTH * // * 'FILE LENGTH OF ?2? IS CURRENTLY NOT SUPPORTED' // PAUSE // GOTO PROMPT * // TAG LOAD * * TO SUPPORT OTHER RECORD LENGTHS ADDITIONAL IF STATMENTS MUST BE ADDED HERE * // IF ?2?/8 LOAD RCW210 * 8 BYTE FILE DOWN LOAD PROGRAM // IF ?2?/96 LOAD RCW220 * 96 BYTE FILE DOWN LOAD PROGRAM // IF ?2?/512 LOAD RCW230 * 512 BYTE FILE DOWN LOAD PROGRAM // IF ?2?/4096 LOAD RCW240 * 4096 BYTE FILE DOWN LOAD PROGRAM // FILE NAME-FILEOUT,DBLOCK-100,LABEL-?1?,RECORDS-?3?,EXTEND-500 // RUN * // GOTO IFERROR * // TAG VARLGTH * // EVALUATE P2,4=?2? // IF 0008>?2? LOAD RCW210 * 1 TO 8 BYTE FILE // ELSE IF 0096>?2? LOAD RCW220 * 9 TO 96 BYTE FILE // ELSE IF 0512>?2? LOAD RCW230 * 97 TO 512 BYTE FILE // ELSE IF 4096>?2? LOAD RCW240 * 512 TO 4096 BYTE FILE // FILE NAME-FILEOUT,DBLOCK-100,LABEL-RCWTEMP,RETAIN-J,RECORDS-?3?,EXTEND-500 // RUN // LOAD $COPY // FILE NAME-COPYIN,LABEL-RCWTEMP,DBLOCK-50,RETAIN-S // FILE NAME-COPYO,LABEL-?1?,DBLOCK-50,RECORDS-?3?,EXTEND-500 // RUN // COPYFILE OUTPUT-S,RECL-?2? // END * // TAG IFERROR * // IFF ?L'61,2'?/00 * 'ERROR # ?L'61,2'? ?L'63,25'?' // IFF ?L'61,2'?/00 * 'OCCURED IN FILE ?4?' // IFF ?L'61,2'?/00 * 'CORRECT PROBLEM AND RETRY FILE ?4?' // IFF ?L'61,2'?/00 PAUSE // TAG END // CEND // COPY LIBRARY-P,NAME-JF0593,RECL-096,DATE-01/03/23,TIME-1223 // LOAD JF0593 // FILE NAME-XPRLST,LABEL-?WS?XPRLST,RETAIN-S // FILE NAME-XESTWG,LABEL-?WS?XESTWG,RECORDS-1000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0594,RECL-096,DATE-01/03/23,TIME-1223 // LOAD #GSORT // FILE NAME-INPUT1,LABEL-?L'100,2'?PAYRL,DISP-SHR // FILE NAME-INPUT2,LABEL-?L'100,2'?YPAYRL,DISP-SHR // FILE NAME-OUTPUT,LABEL-?WS?XPRLST,RECORDS-10000 // RUN HSORTR 5A 3 140 I C 140EQCA FNU 1 5 FDC 6 140 // END // CEND // COPY LIBRARY-P,NAME-JF0595,RECL-096,DATE-01/03/23,TIME-1223 // LOAD JF0595 // PRINTER NAME-PRT,FORMSNO-PYCD // FILE NAME-EMPLYE,LABEL-?L'100,2'?EMPLYE,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0596,RECL-096,DATE-01/03/23,TIME-1223 // LOAD JF0596 // FILE NAME-PRCTAB,LABEL-?L'100,2'?PRCTAB,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0599,RECL-096,DATE-05/06/08,TIME-1038 // TAG AGN // * 'ENTER WHICH FIELD YOU WISH TO CHANGE:' // * ' C = ITEM COST' // * ' V = ITEM VENDOR' // * ' P - ITEM LIST PRICE' // LOCAL OFFSET-1,DATA-'?R?' // IF ?L'1,1'?='C' GOTO COST // IF ?L'1,1'?='V' GOTO VENDOR // IF ?L'1,1'?='P' GOTO PRICE // GOTO AGN // TAG COST // LOAD JF0599 // FILE NAME-PROD2,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // RUN // GOTO END // TAG VENDOR // LOAD JF0600 // FILE NAME-PROD2,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // RUN // GOTO END // TAG PRICE // LOAD JF1190 // FILE NAME-PROD2,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // RUN // GOTO END // TAG END // CEND // COPY LIBRARY-P,NAME-JF0601,RECL-096,DATE-01/03/23,TIME-1223 // LOAD JF0601 // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0602,RECL-096,DATE-01/03/23,TIME-1223 // LOAD JF0602 // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-XITQT,LABEL-?WS?XITQT,RECORDS-20000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0603,RECL-096,DATE-01/03/23,TIME-1223 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XITQT,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XITQTS,RECORDS-20000 // RUN HSORTR 13A 3X 78 FNU 62 67 FNC 1 7 FDC 1 78 // END // CEND // COPY LIBRARY-P,NAME-JF0604,RECL-096,REF-000001,DATE-01/03/23,TIME-1223 // LOAD JF0604 // FILE NAME-XITQTS,LABEL-?WS?XITQTS,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0605,RECL-096,DATE-01/03/23,TIME-1223 // * 'PLEASE ENTER TYPE OF ITEM COST REPORT YOU WISH:' // * ' ' // * ' I = FOR ANY ITEM RANGES, LISTED IN ORDER BY ITEM#' // * ' V = FOR ANY VENDORS, LISTED IN ORDER BY VENDOR#' // IF ?R?='V' GOTO VENDOR JF0601 // GOTO END // TAG VENDOR JF0602 JF0603 JF0604 // TAG END // CEND // COPY LIBRARY-P,NAME-JF0606,RECL-096,REF-000001,DATE-01/03/23,TIME-1223 // LOAD JF0606 // RUN // CEND // COPY LIBRARY-P,NAME-JF0607,RECL-096,DATE-01/03/23,TIME-1223 // LOAD JF0607 // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0608,RECL-096,REF-000007,DATE-02/04/22,TIME-1040 // LOAD JF1028 // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // RUN // IF ?L'1,1'?=' ' GOTO BEGIN // * ' ' // * 'THERE IS AN EXISTING PURCHASE ORDER THAT HAS NOT YET BEEN UPDATED' // * 'FOR YOUR TERMINAL OR ANOTHER TERMINAL.' // * ' ' // * 'YOU CANNOT PROCEED UNTIL THIS PURCHASE ORDER IS EITHER' // * 'UPDATED OR CANCELLED.' // * ' ' // * 'PRESS ENTER TO RETURN TO MENU.' // * ' ' // IF ?R?='X' GOTO END // GOTO END // TAG BEGIN // LOAD JF1029 // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // RUN // * ' ' // * 'PLEASE ENTER THE VENDOR NUMBER (ENTER FULL 6 CHARACTERS INCL. ALL ZEROS)' // * 'FOR WHOM YOU WISH TO CREATE A PURCHASE ORDER' // * ' ' // LOCAL OFFSET-4,DATA-'Y' // LOCAL OFFSET-5,DATA-'?R?',BLANK-6 // * ' ' // * 'PLEASE ENTER THE DATE OF THIS PURCHASE ORDER' // * ' ' // LOCAL OFFSET-11,DATA-'?R?',BLANK-6 // IF ?L'11,6'?=' ' LOCAL OFFSET-11,DATA-'000000' // * ' ' // * 'PLEASE ENTER THE DATE YOU EXPECT TO RECEIVE THIS PO' // * ' ' // LOCAL OFFSET-17,DATA-'?R?',BLANK-6 // IF ?L'17,6'?=' ' LOCAL OFFSET-17,DATA-'000000' // * ' ' // * 'PLEASE ENTER THE CUSTOMER# TO WHOM THIS PURCHASE ORDER IS ASSIGNED' // * '(ENTER FULL SIX CHARACTERS INCL. ALL ZEROS, LEAVE BLANK IF NONE)' // * ' ' // LOCAL OFFSET-23,DATA-'?R?',BLANK-6 // IF ?L'23,6'?=' ' LOCAL OFFSET-23,DATA-'000000' // * ' ' // * 'PLEASE ENTER YOUR BUYER INITIALS (2 CHARACTERS) FOR THIS PO' // * ' ' // LOCAL OFFSET-29,DATA-'?R?',BLANK-2 // * ' ' *** // * 'DO YOU WISH THIS PURCHASE ORDER TO BE ASSIGNED TO THE LOADS' *** // * 'FROM WHICH THE PROJECTED SALES ARE DERIVED ? (Y=YES, N=NO)' *** // * ' ' *** // LOCAL OFFSET-31,DATA-'?R?',BLANK-1 *** // * ' ' // LOAD JF1051 // SWITCH 00000000 // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-BILMAT,LABEL-?L'100,2'?BILMAT,DISP-SHR // FILE NAME-XPRLDT,LABEL-?WS?XPRLDT,RECORDS-30000 // RUN // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XPRLDT,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XPRLDS,RECORDS-10000 // RUN HSORTRS 13A 3 32 FNC 1 7 FNU 8 13 FDC 14 27 FSU 28 32 // END // LOAD JF1052 // FILE NAME-XPRLDS,LABEL-?WS?XPRLDS,RETAIN-S // FILE NAME-XPRLDG,LABEL-?WS?XPRLDG,RECORDS-10000 // RUN // LOAD JF0609 // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-POMST,LABEL-?L'100,2'?POMST,DISP-SHR // FILE NAME-XPRLDG,LABEL-?WS?XPRLDG,RETAIN-S // FILE NAME-XPOITM,LABEL-?WS?XPOITM,RECORDS-3000 // FILE NAME-XPO,LABEL-?WS?XPO,RECORDS-1 // RUN // LOAD JF1073 // FILE NAME-XPOITM,LABEL-?WS?XPOITM // FILE NAME-INVEN,LABEL-?L'100,2'?INVEN,DISP-SHR // RUN // LOAD #GSORT // FILE NAME-INPUT,LABEL-?L'100,2'?POMST,DISP-SHR // FILE NAME-OUTPUT,LABEL-?WS?XPOMST,RECORDS-30000 // RUN HSORTR 19A 3X 150 I C 150NECD FNC 36 42 FOU 89 94 FOU 95 100 FDC 1 150 // END // LOAD JF1055 // FILE NAME-XPOMST,LABEL-?WS?XPOMST,RETAIN-S // FILE NAME-XXPOM,LABEL-?WS?XXPOM,RECORDS-30000 // RUN // LOAD JF1056 // FILE NAME-XPOITM,LABEL-?WS?XPOITM // FILE NAME-XXPOM,LABEL-?WS?XXPOM,RETAIN-S // RUN // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XPOITM,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XPOITS,RECORDS-3000 // RUN HSORTR 25A 3X 100 I C 100EQCA FNC 1 7 FNU 90 91 FNU 86 89 FNC 8 13 FNC 14 19 FDC 1 100 // END **// LOAD JF1075 **// FILE NAME-XPOITS,LABEL-?WS?XPOITS **// FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR **// FILE NAME-XPO,LABEL-?WS?XPO **// FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR **// RUN // LOAD JF1063 // SWITCH 10000000 // PRINTER NAME-PRT,CPI-15 OVRPRTF FILE(PRT) USRDTA('PO-REG') // FILE NAME-XPOITS,LABEL-?WS?XPOITS,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-XPO,LABEL-?WS?XPO // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-XPOITM,LABEL-?WS?XPOITM,RECORDS-3000 // RUN // LOAD JF1077 // SWITCH 10000000 // PRINTER NAME-PRT,CPI-15 OVRPRTF FILE(PRT) USRDTA('PO-SUMM') // FILE NAME-XPOITM,LABEL-?WS?XPOITM // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-XPO,LABEL-?WS?XPO // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // RUN // TAG END // CEND // COPY LIBRARY-P,NAME-JF0610,RECL-096,DATE-02/05/24,TIME-0942 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XPOITM,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XPOITS,RECORDS-3000 // RUN HSORTR 25A 3X 100 I C 100EQCA FNC 1 7 FNU 90 91 FNU 86 89 FNC 8 13 FNC 14 19 FDC 1 100 // END // LOAD JF1063 // SWITCH 10000000 // PRINTER NAME-PRT,CPI-15 OVRPRTF FILE(PRT) USRDTA('PO-REG') // FILE NAME-XPOITS,LABEL-?WS?XPOITS,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-XPO,LABEL-?WS?XPO // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-XPOITM,LABEL-?WS?XPOITM,RECORDS-3000 // RUN // LOAD JF1077 // SWITCH 10000000 // PRINTER NAME-PRT,CPI-15 OVRPRTF FILE(PRT) USRDTA('PO-SUMM') // FILE NAME-XPOITM,LABEL-?WS?XPOITM // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-XPO,LABEL-?WS?XPO // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0611,RECL-096,DATE-02/01/16,TIME-1423 // LOAD JF0611 // FILE NAME-XPO,LABEL-?WS?XPO // FILE NAME-XPOITM,LABEL-?WS?XPOITM // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0613,RECL-096,DATE-01/03/23,TIME-1223 JF0614 JF0615 JF0616 JF0617 JF0618 JF0619 // CEND // COPY LIBRARY-P,NAME-JF0614,RECL-096,DATE-04/09/27,TIME-1338 // LOAD JF0614 // FILE NAME-PYMT,LABEL-?L'100,2'?PYMT,DISP-SHR // FILE NAME-RECEV,LABEL-?L'100,2'?RECEV,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-XMPMT,LABEL-?WS?XMPMT,RECORDS-5000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0615,RECL-096,DATE-01/03/23,TIME-1223 // LOAD JF0615 // FILE NAME-XMPMT,LABEL-?WS?XMPMT,RETAIN-S // FILE NAME-XMMPMT,LABEL-?WS?XMMPMT,RECORDS-5000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0616,RECL-096,DATE-01/03/23,TIME-1223 // LOAD JF0616 // FILE NAME-RECEV,LABEL-?L'100,2'?RECEV,DISP-SHR // FILE NAME-XMMPMT,LABEL-?WS?XMMPMT // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0617,RECL-096,REF-000001,DATE-04/08/26,TIME-1240 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XMMPMT,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XMMPMS,RECORDS-30000 // RUN HSORTR 20A 3X 85 FNC 81 83 FNC 84 85 FNU 10 15 FNU 1 6 FNU 7 9 FDC 1 85 // END // CEND // COPY LIBRARY-P,NAME-JF0618,RECL-096,REF-000002,DATE-01/03/23,TIME-1223 // LOAD JF0618 // PRINTER NAME-PRT,FONT-DF // SWITCH 10000000 // FILE NAME-XMMPMS,LABEL-?WS?XMMPMS // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-SALMEN,LABEL-?L'100,2'?SALMEN,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-PYMT,LABEL-?L'100,2'?PYMT,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0619,RECL-096,REF-000001,DATE-01/03/23,TIME-1223 // LOAD JF0618 // PRINTER NAME-PRT,FONT-DF // SWITCH 00000000 // FILE NAME-XMMPMS,LABEL-?WS?XMMPMS,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-SALMEN,LABEL-?L'100,2'?SALMEN,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-PYMT,LABEL-?L'100,2'?PYMT,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0620,RECL-096,DATE-01/03/23,TIME-1223 // LOAD JF0299 // FILE NAME-XITOR,LABEL-?WS?XITOR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-MISCUS,LABEL-?WS?XMSCSO // FILE NAME-XITRG,LABEL-?WS?XITRG,RECORDS-2000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0621,RECL-096,DATE-01/03/23,TIME-1223 JF0622 JF0623 JF0624 // CEND // COPY LIBRARY-P,NAME-JF0622,RECL-096,REF-000001,DATE-01/03/23,TIME-1223 // LOAD JF0622 // FILE NAME-HOUSE,LABEL-?L'100,2'?HOUSE,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-PRCTAB,LABEL-?L'100,2'?PRCTAB,DISP-SHR // FILE NAME-XIHPC,LABEL-?WS?XIHPC,RECORDS-10000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0623,RECL-096,DATE-01/03/23,TIME-1223 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XIHPC,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XIHPCS,RECORDS-10000 // RUN HSORTR 23A 3X 28 FNC 1 7 FNU 8 13 FNU 14 19 FNU 20 22 FDC 1 28 // END // CEND // COPY LIBRARY-P,NAME-JF0624,RECL-096,DATE-01/03/23,TIME-1223 // LOAD JF0624 // FILE NAME-XIHPCS,LABEL-?WS?XIHPCS,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0625,RECL-096,REF-000001,DATE-01/03/23,TIME-1223 // LOAD JF0625 // FILE NAME-MISCUS,LABEL-?L'100,2'?MISCUS,DISP-SHR // FILE NAME-RECEV,LABEL-?L'100,2'?RECEV,DISP-SHR // FILE NAME-INVCE,LABEL-?L'100,2'?INVCE,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0626,RECL-096,DATE-07/07/31,TIME-1044 // LOAD JF0626 // FILE NAME-RECEV,LABEL-?L'100,2'?RECEV,DISP-SHR // FILE NAME-UNCASH,LABEL-?L'100,2'?UNCASH,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-MISCUS,LABEL-?L'100,2'?MISCUS,DISP-SHR // FILE NAME-XDTRC,LABEL-?WS?XDTRC,RECORDS-100000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0627,RECL-096,DATE-01/03/23,TIME-1223 // LOAD JF0626 // FILE NAME-RECEV,LABEL-?L'100,2'?RECBD,DISP-SHR // FILE NAME-UNCASH,LABEL-?L'100,2'?UNCASH,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-MISCUS,LABEL-?L'100,2'?MISCUS,DISP-SHR // FILE NAME-XDTRC,LABEL-?WS?XDTRC,RECORDS-100000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0628,RECL-096,DATE-01/03/23,TIME-1223 JF0629 JF0630 JF0631 // CEND // COPY LIBRARY-P,NAME-JF0629,RECL-096,DATE-01/03/23,TIME-1223 // LOAD JF0629 // FILE NAME-YPAYRL,LABEL-?L'100,2'?YPAYRL,DISP-SHR // FILE NAME-PAYRL,LABEL-?L'100,2'?PAYRL,DISP-SHR // FILE NAME-XDPSM,LABEL-?WS?XDPSM,RECORDS-20000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0630,RECL-096,DATE-01/03/23,TIME-1223 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XDPSM,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XDPSMS,RECORDS-20000 // RUN HSORTR 5A 3X 56 FNU 1 FNU 3 6 FDC 1 56 // END // CEND // COPY LIBRARY-P,NAME-JF0631,RECL-096,DATE-01/03/23,TIME-1223 // LOAD JF0631 // FILE NAME-XDPSMS,LABEL-?WS?XDPSMS,RETAIN-S // RUN // CEND // COPY LIBRARY-P,NAME-JF0632,RECL-096,DATE-01/03/23,TIME-1223 // LOAD JF0632 // FILE NAME-HOUSE,LABEL-?L'100,2'?HOUSE,DISP-SHR // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-XHSSL,LABEL-?WS?XXHSSL,RECORDS-20000 // FILE NAME-XLDSL,LABEL-?WS?XXLDSL,RECORDS-20000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0633,RECL-096,DATE-01/03/23,TIME-1223 // LOAD JF0633 // FILE NAME-XXLDSL,LABEL-?WS?XXLDSL,RETAIN-S // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-PRCTAB,LABEL-?L'100,2'?PRCTAB,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0634,RECL-096,DATE-01/03/23,TIME-1223 // * 'PLEASE ENTER PASSWORD TO RUN PROGRAM' // IFF ?R?='JOSE' GOTO END // TAG AGN // * ' ' // * 'DO YOU WISH TO USE CURRENT OR OLD PRICES TO RECALCULATE SINGLE LINE PRICES?' // * ' ' // * ' C = CURRENT' // * ' O = OLD' // * ' ' // LOCAL OFFSET-1,DATA-'?R?' // IF ?L'1,1'?='C' GOTO CUROLD // IF ?L'1,1'?='O' GOTO CUROLD // GOTO AGN // TAG CUROLD // IF ?L'1,1'?='C' * 'YOU HAVE CHOSEN CURRENT PRICES.' // IF ?L'1,1'?='O' * 'YOU HAVE CHOSEN OLD PRICES.' // * ' PRESS ENTER TO CONTINUE.' // * ' PRESS X TO CANCEL.' // * ' ' // IFF ?R?='X' GOTO BEGIN // GOTO AGN // TAG BEGIN JF0632 JF0552 JF0633 // TAG END // CEND // COPY LIBRARY-P,NAME-JF0636,RECL-096,DATE-09/12/10,TIME-1041 *** TRUCK MILL REPORT FOR DEPARTMENT H1 CONSOLIDATED // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XITOR // FILE NAME-OUTPUT,LABEL-?WS?XITORS,RECORDS-10000 // RUN HSORTR 26A 3X 220 I C 1 2EQCH1 FNU 116 121 FNC 1 2 FNC 3 9 FNU 17 22 FNU 23 25 FNU 26 27 FDC 1 16 FDC 1 2 FDC 1 2 FDC 1 2 FDC 23 121 FDC 1 2 FDC 124 220 // END // CEND // COPY LIBRARY-P,NAME-JF0637,RECL-096,REF-000001,DATE-09/12/10,TIME-1042 *** TRUCK MILL REPORT FOR DEPARTMENT H1 CONSOLODATED // LOAD JF0637 // SWITCH 01000000 // PRINTER NAME-PRT,FORMSNO-8X11,COPIES-3 // FILE NAME-XITORS,LABEL-?WS?XITORS,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-DEPT,LABEL-?L'100,2'?DEPT,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0638,RECL-096,DATE-01/03/23,TIME-1223 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XITOR // FILE NAME-OUTPUT,LABEL-?WS?XITORS,RECORDS-10000 // RUN HSORTR 26A 3X 220 I C 1 2EQCH2 FNU 116 121 FNC 1 2 FNC 3 9 FNU 17 22 FNU 23 25 FNU 26 27 FDC 1 16 FDC 1 2 FDC 1 2 FDC 1 2 FDC 23 121 FDC 1 2 FDC 124 220 // END // CEND // COPY LIBRARY-P,NAME-JF0639,RECL-096,REF-000001,DATE-09/12/10,TIME-1043 *** TRUCK MILL REPORT FOR DEPARTMENT H2 CONSOLIDATED // LOAD JF0637 // SWITCH 01000000 // PRINTER NAME-PRT,FORMSNO-8X11,COPIES-3 // FILE NAME-XITORS,LABEL-?WS?XITORS,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-DEPT,LABEL-?L'100,2'?DEPT,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0640,RECL-096,REF-000001,DATE-01/03/23,TIME-1223 // LOAD JF0640 // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-XCSOWE,LABEL-?WS?XCSOWE,RETAIN-S // RUN // CEND // COPY LIBRARY-P,NAME-JF0641,RECL-096,DATE-01/03/23,TIME-1223 JF0642 JF0643 JF0640 // CEND // COPY LIBRARY-P,NAME-JF0642,RECL-096,REF-000002,DATE-03/10/26,TIME-2057 // LOAD #GSORT // FILE NAME-INPUT1,LABEL-?L'100,2'?RECEV,DISP-SHR // FILE NAME-INPUT2,LABEL-?L'100,2'?RECBD,DISP-SHR // FILE NAME-OUTPUT,LABEL-?WS?XRECL,RECORDS-20000 // RUN HSORTR 6A 3X 300 I C 300EQCN FNU 8 13 FDC 1 256 FDC 257 300 // END // CEND // COPY LIBRARY-P,NAME-JF0643,RECL-096,DATE-01/03/23,TIME-1223 // LOAD JF0643 // FILE NAME-XRECL,LABEL-?WS?XRECL,RETAIN-S // FILE NAME-XCSOWE,LABEL-?WS?XCSOWE,RECORDS-7000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0645,RECL-096,DATE-01/03/23,TIME-1223 JF0646 JF0047 JF0647 // CEND // COPY LIBRARY-P,NAME-JF0646,RECL-096,DATE-01/03/23,TIME-1223 // LOAD JF0646 // FILE NAME-RECEV,LABEL-?L'100,2'?RECEV,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-MISCUS,LABEL-?L'100,2'?MISCUS,DISP-SHR // FILE NAME-XDTRC,LABEL-?WS?XDTRC,RECORDS-100000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0647,RECL-096,DATE-01/03/23,TIME-1223 // LOAD JF0647 ***** // IF ?WS?='X8' PRINTER NAME-PRT,FONT-DF // FILE NAME-XXDTRC,LABEL-?WS?XXDTRC,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0648,RECL-096,REF-000003,DATE-07/08/27,TIME-0941 // * 'THE BILLING UPDATE FOR THIS TERMINAL WILL START RUNNING' // * 'AT 2:00 AM TOMORROW MORNING.' // * 'BE AWARE THAT THIS WILL ALSO CLEAR OUT THE LOAD FILE OF' // * 'ALL FULLY SHIPPED LOADS; LOAD INFO FOR THESE LOADS WILL' // * 'NO LONGER BE AVAILABLE ON REPORTS (E.G. PO NUMBERS ON' // * 'CUSTOMER STATEMENTS)' // * ' ' // * 'PLEASE TURN SCREEN BRIGHTNESS DOWN BUT LEAVE TERMINAL ON.' // * ' ' // * 'GOOD BYE AND HAVE A PLEASANT EVENING.' // * ' ' // TAG BEGIN // IF ?TIME?=020000 GOTO RUN // IF ?TIME?=020001 GOTO RUN // IF ?TIME?=020002 GOTO RUN // IF ?TIME?=020003 GOTO RUN // IF ?TIME?=020004 GOTO RUN // IF ?TIME?=020005 GOTO RUN // GOTO BEGIN // TAG RUN JF0224 RENAME ?L'100,2'?LOAD,?WS?XXLOAD COPYDATA ?WS?XXLOAD,,?L'100,2'?LOAD,,,,,REORG,OMIT,10,EQ,'D' DELETE ?WS?XXLOAD,F1 // CEND // COPY LIBRARY-P,NAME-JF0649,RECL-096,DATE-01/03/23,TIME-1223 // LOAD JF0649 // FILE NAME-RECEV,LABEL-?L'100,2'?RECEV,DISP-SHR // FILE NAME-XINREG,LABEL-?WS?XINREG,RECORDS-4000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0650,RECL-096,DATE-01/03/23,TIME-1223 // LOAD JF0033 // SWITCH 01000000 // FILE NAME-XREC,LABEL-?WS?XINREG,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-MISCUS,LABEL-?L'100,2'?MISCUS,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0651,RECL-096,DATE-01/03/23,TIME-1223 JF0649 JF0650 // CEND // COPY LIBRARY-P,NAME-JF0652,RECL-096,DATE-01/03/23,TIME-1223 // LOAD JF0652 // FILE NAME-COPYPRT,LABEL-?L'7,8'? // RUN // CEND // COPY LIBRARY-P,NAME-JF0653,RECL-096,REF-000001,DATE-01/03/23,TIME-1223 // LOAD JF0653 // FILE NAME-XHINV,LABEL-?WS?XHINV,RETAIN-S // FILE NAME-INVCE,LABEL-?L'100,2'?INVCE,DISP-SHR,EXTEND-25000 // FILE NAME-INVCB,LABEL-?L'100,2'?INVCB,DISP-SHR,EXTEND-2000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0654,RECL-096,REF-000002,DATE-05/04/28,TIME-0907 // * ' ' // * 'DO YOU WISH REPRINTED INVOICES TO PRINT ON:' // * ' ' // * ' 1 - INVOICE FORMS' // * ' 2 - STOCK PAPER' // * ' ' // * 'PLEASE ENTER 1 OR 2 TO INDICATE YOUR CHOICE. THANK YOU.' // * ' ' // LOCAL OFFSET-1,DATA-'?R?' // * ' ' // * 'PLEASE ENTER HOW YOU WISH TO CHOOSE INVOICES:' // * ' ' // * ' C - ALL INVOICES FOR UP TO 30 CUSTOMERS' // * ' WITH CHOICE OF FROM/THRU INVOICE DATES' // * ' (MAY TAKE 1/2 HOUR OR SO TO SEARCH THE FILES)' // * ' I - BY INVOICE NUMBER' // * ' (WILL PRINT ALMOST IMMEDIATELY)' // * ' ' // * 'PLEASE ENTER C OR I TO INDICATE YOUR CHOICE. THANK YOU.' // * ' ' // LOCAL OFFSET-2,DATA-'?R?' // IF ?L'2,1'?='C' JF0938 // IFF ?L'2,1'?='C' JF0655 // IF ?L'1,1'?='2' GOTO PAP JF0656 // GOTO END // TAG PAP JF0657 // TAG END // CEND // COPY LIBRARY-P,NAME-JF0655,RECL-096,DATE-09/11/13,TIME-1046 // LOAD JF0655 // FILE NAME-XRPINV,LABEL-?WS?XRPINV,RECORDS-25000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0656,RECL-096,DATE-05/04/28,TIME-0907 // LOAD JF0656 // IFF ?USER?='MIKE' PRINTER NAME-PRT,FORMSNO-RINV // FILE NAME-XRPINV,LABEL-?WS?XRPINV,RETAIN-S // FILE NAME-INVCE,LABEL-?L'100,2'?INVCE,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0657,RECL-096,DATE-05/04/28,TIME-0907 // LOAD JF0657 // FILE NAME-XRPINV,LABEL-?WS?XRPINV,RETAIN-S // FILE NAME-INVCE,LABEL-?L'100,2'?INVCE,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0658,RECL-096,DATE-01/03/23,TIME-1223 // LOAD JF0658 // FILE NAME-COPYPRT,LABEL-?L'7,8'? // RUN // CEND // COPY LIBRARY-P,NAME-JF0659,RECL-096,DATE-01/03/23,TIME-1223 // * 'PLEASE ENTER SPOOL ID OF REPORT YOU WISH TO DOWNLOAD' // LOCAL OFFSET-1,DATA-'?R?',BLANK-6 // * 'PLEASE ENTER NAME OF DISK FILE TO CREATE FROM THIS REPORT' // LOCAL OFFSET-7,DATA-'?R?',BLANK-8 // * 'PLEASE ENTER THE CORRECT REPORT SIZE:' // * ' 1 = 132 PRINT POSITIONS' // * ' 2 = 198 PRINT POSITIONS' // LOCAL OFFSET-15,DATA-'?R?',BLANK-1 COPYPRT ?L'1,6'?,?L'7,8'? // IF ?L'15,1'?='1' JF0652 // IF ?L'15,1'?='2' JF0658 // CEND // COPY LIBRARY-P,NAME-JF0660,RECL-096,DATE-01/03/23,TIME-1223 // * 'PLEASE INDICATE WHICH SIZE PAPER YOU WISH FOR DETAILED HOUSE LISTING:' // * ' ' // * ' 1 = 11 X 14 INCH (FULL SIZE COMPUTER PAPER)' // * ' 2 = 8 1/2 X 14 INCH' // * ' ' // LOCAL OFFSET-201,DATA-'?R?',BLANK-1 // * ' ' // * 'DO YOU WISH PRICES TO PRINT FOR SINGLE-LINE PRICED HOUSES' // * 'FOR THOSE CUSTOMERS DESIGNATED AS NOT NORMALLY HAVING PRICES PRINT ?' // * ' (Y=YES, N OR JUST PRESSING ENTER=NO)' // * ' ' // LOCAL OFFSET-1,DATA-'?R?',BLANK-1 // * ' ' JF0661 JF0662 RENAME ?WS?XHSELS,?WS?XHSEL JF0016 // CEND // COPY LIBRARY-P,NAME-JF0661,RECL-096,DATE-01/03/23,TIME-1223 // LOAD JF0661 // FILE NAME-HOUSE,LABEL-?L'100,2'?HOUSE,DISP-SHR // FILE NAME-XHSEL,LABEL-?WS?XHSEL,RECORDS-225000 // FILE NAME-XHSCH,LABEL-?WS?XHSCH,RECORDS-1 // RUN // CEND // COPY LIBRARY-P,NAME-JF0662,RECL-096,DATE-01/03/23,TIME-1223 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XHSEL,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XHSELS,RECORDS-225000 // RUN HSORTR 15A 3X 47 FNU 48 53 FNU 1 6 FNU 7 9 FDC 1 47 // END // CEND // COPY LIBRARY-P,NAME-JF0664,RECL-096,DATE-10/04/21,TIME-0826 // LOAD JF0664 // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-MISCUS,LABEL-?L'100,2'?MISCUS,DISP-SHR // FILE NAME-INVCB,LABEL-?L'100,2'?INVCB,DISP-SHR // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-PRCTAB,LABEL-?L'100,2'?PRCTAB,DISP-SHR // FILE NAME-INVCE,LABEL-?L'100,2'?INVCE,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0665,RECL-096,DATE-01/03/23,TIME-1223 JF0873 JF0666 JF0667 // CEND // COPY LIBRARY-P,NAME-JF0666,RECL-096,REF-000002,DATE-03/10/29,TIME-1358 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XRECY4,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XRECYS,RECORDS-300000 // RUN HSORTR 14A 3X 304 I C 300NECD IAC 300NECV FNU 301 304 FNU 14 17 FNU 2 7 FDC 1 256 FDC 257 304 // END // CEND // COPY LIBRARY-P,NAME-JF0667,RECL-096,REF-000004,DATE-01/03/28,TIME-1032 // LOAD JF0667 // PRINTER NAME-PRT,CPI-15 // FILE NAME-XRECYS,LABEL-?WS?XRECYS,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0668,RECL-096,DATE-01/03/23,TIME-1223 JF0873 JF0666 JF0669 // CEND // COPY LIBRARY-P,NAME-JF0669,RECL-096,REF-000002,DATE-01/03/23,TIME-1223 // LOAD JF0669 // PRINTER NAME-PRT,CPI-15 // FILE NAME-XRECYS,LABEL-?WS?XRECYS,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0670,RECL-096,DATE-01/03/23,TIME-1223 JF0671 JF0672 JF0673 // CEND // COPY LIBRARY-P,NAME-JF0671,RECL-096,REF-000002,DATE-01/03/23,TIME-1223 // LOAD JF0671 // FILE NAME-PYMT,LABEL-?L'100,2'?PYMT,DISP-SHR // FILE NAME-GLPMT,LABEL-?L'100,2'?GLPMT,DISP-SHR // FILE NAME-XDLPY,LABEL-?WS?XDLPY,RECORDS-8000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0672,RECL-096,DATE-06/03/27,TIME-1006 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XDLPY,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XDLPS,RECORDS-8000 // RUN HSORTRS 9A 3X 100 FNC 1 FNU 2 7 FNP 8 9 FDC 1 9 FSP 10 14 FSP 15 19 FSP 20 24 FSP 25 29 FSP 30 34 FSP 35 39 FSP 40 44 FDC 45 100 // END // CEND // COPY LIBRARY-P,NAME-JF0673,RECL-096,DATE-01/03/23,TIME-1223 // LOAD JF0673 // FILE NAME-XDLPS,LABEL-?WS?XDLPS,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-GLFILE,LABEL-?L'100,2'?GLFILE,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0674,RECL-096,DATE-01/03/23,TIME-1223 JF0675 JF0676 JF0677 // CEND // COPY LIBRARY-P,NAME-JF0675,RECL-096,REF-000001,DATE-01/03/23,TIME-1223 // LOAD JF0675 // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-XSITM,LABEL-?WS?XSITM,RECORDS-20000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0676,RECL-096,DATE-01/03/23,TIME-1223 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XSITM,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XXSITM,RECORDS-20000 // RUN HSORTR 15A 3X 81 FNU 1 6 FNU 7 12 FNU 13 15 FDC 1 81 // END // CEND // COPY LIBRARY-P,NAME-JF0677,RECL-096,DATE-01/03/23,TIME-1223 // LOAD JF0677 // FILE NAME-XXSITM,LABEL-?WS?XXSITM,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0678,RECL-096,REF-000001,DATE-01/03/23,TIME-1223 // LOAD JF0678 // FILE NAME-RECEV,LABEL-?L'100,2'?RECEV,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-XCUS4,LABEL-?WS?XCUS4 // FILE NAME-XCUS6,LABEL-?WS?XCUS6 // FILE NAME-XRECL,LABEL-?WS?XRECL,RECORDS-20000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0679,RECL-096,REF-000001,DATE-01/03/23,TIME-1223 // LOAD JF0678 // FILE NAME-RECEV,LABEL-?L'100,2'?RECBD,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-XCUS4,LABEL-?WS?XCUS4,RETAIN-S // FILE NAME-XCUS6,LABEL-?WS?XCUS6,RETAIN-S // FILE NAME-XRECL,LABEL-?WS?XRECL,RECORDS-20000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0680,RECL-096,DATE-01/03/23,TIME-1223 JF0681 // JOBQ JOFFE,JF0682 // CEND // COPY LIBRARY-P,NAME-JF0681,RECL-096,DATE-01/03/23,TIME-1223 // LOAD JF0681 // FILE NAME-X681A,LABEL-?WS?X681A,RECORDS-100 // RUN // CEND // COPY LIBRARY-P,NAME-JF0682,RECL-096,DATE-01/03/23,TIME-1223 JF0683 JF0278 JF0288 JF0636 JF0684 JF0638 JF0684 JF0685 JF0686 // CEND // COPY LIBRARY-P,NAME-JF0683,RECL-096,DATE-01/03/23,TIME-1223 // LOAD JF0683 // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-X681A,LABEL-?WS?X681A,RETAIN-S // FILE NAME-XILOAD,LABEL-?WS?XILOAD,RECORDS-50000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0684,RECL-096,REF-000001,DATE-01/03/23,TIME-1223 // LOAD JF0637 // SWITCH 00100000 // FILE NAME-XITORS,LABEL-?WS?XITORS,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-DEPT,LABEL-?L'100,2'?DEPT,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0685,RECL-096,DATE-01/03/23,TIME-1223 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XITOR,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XITORS,RECORDS-10000 // RUN HSORTR 17A 3X 220 I C 1 2EQCH1 IOC 1 2EQCH2 FNU 116 121 FNU 17 22 FNU 23 25 FNU 26 27 FDC 1 FDC 1 FDC 3 121 FDC 1 FDC 1 FDC 124 220 // END // CEND // COPY LIBRARY-P,NAME-JF0686,RECL-096,REF-000001,DATE-01/03/23,TIME-1223 // LOAD JF0281 // SWITCH 00100000 // FILE NAME-XITORS,LABEL-?WS?XITORS,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-DEPT,LABEL-?L'100,2'?DEPT,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-XITHD,LABEL-?WS?XITHD,RETAIN-S // RUN // CEND // COPY LIBRARY-P,NAME-JF0687,RECL-096,REF-000001,DATE-01/03/23,TIME-1223 // LOAD JF0687 // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-RECEV,LABEL-?L'100,2'?RECEV,DISP-SHR // FILE NAME-INVCE,LABEL-?L'100,2'?INVCE,DISP-SHR // FILE NAME-INVCB,LABEL-?L'100,2'?INVCB,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0688,RECL-096,DATE-01/03/23,TIME-1223 // LOAD JF0687 // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-RECEV,LABEL-?L'100,2'?RECBD,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0689,RECL-096,DATE-01/03/23,TIME-1223 BLDFILE XFTUS?WS?,I,R,8000,10,,,1,7 // LOAD JPG689 // FILE NAME-LOAD,DISP-SHR // FILE NAME-XFTUS,LABEL-XFTUS?WS? // RUN // CEND // COPY LIBRARY-P,NAME-JF0690,RECL-096,REF-000002,DATE-01/03/23,TIME-1223 // LOAD JF0690 // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-RECAL1,LABEL-?L'100,2'?RECAL1,DISP-SHR // FILE NAME-UNCASH,LABEL-?L'100,2'?UNCASH,DISP-SHR // FILE NAME-XGLPM,LABEL-?WS?XGLPM // FILE NAME-XCHEK,LABEL-?WS?XCHEK // FILE NAME-XINPM,LABEL-?WS?XINPM // FILE NAME-XCSDT,LABEL-?WS?XCSDT // RUN // CEND // COPY LIBRARY-P,NAME-JF0691,RECL-096,REF-000004,DATE-06/03/27,TIME-1356 // * 'DO YOU WISH PAID INVOICES TO APPEAR ? (Y=YES, N=NO)' // LOCAL OFFSET-1,DATA-'?R?' // IFF DATAF1-?WS?XGLPM BLDFILE ?WS?XGLPM,I,R,200,48,,,1,6 // IFF DATAF1-?WS?XCHEK BLDFILE ?WS?XCHEK,I,R,200,18,,,1,12 // IFF DATAF1-?WS?XINPM BLDFILE ?WS?XINPM,I,R,1000,50,,,1,18 // IFF DATAF1-?WS?XCSDT BLDFILE ?WS?XCSDT,I,R,1,7,,,1,1 JF0690 // * ' ' // * 'DO YOU WISH TO RUN THE CASH RECEIPTS EDIT ?' // * ' Y = YES' // * ' N = NO' // * ' ' // IFF ?R?='Y' GOTO END // LOCAL OFFSET-1,DATA-' ' JF0692 JF0693 JF0699 JF0881 JF1152 JF0694 // IFF ?L'1,1'?='X' GOTO UPDAT1 // * ' ' // * 'THERE ARE ERRORS IN THE CASH RECEIPTS EDIT AND YOU CANNOT CONTINUE' // * 'WITH THE UPDATE. PLEASE PRESS ENTER TO RETURN TO MENU' // * 'IN ORDER TO MAKE CORRECTIONS.' // * ' ' // IF ?R?='X' GOTO ENDUPD // GOTO ENDUPD // TAG UPDAT1 // * ' ' // * 'DO YOU WISH TO UPDATE THE PERMANENT FILES WITH THIS DATA' // * 'AND FINISH OUT THESE CASH RECEIPTS ?' // * ' Y = YES' // * ' N = NO' // * ' ' // IFF ?R?='Y' GOTO ENDUPD // * ' ' // * 'ARE YOU SURE YOU WANT TO RUN THE UPDATE ?' // * ' Y = YES' // * ' N = NO' // * ' ' // IFF ?R?='Y' GOTO ENDUPD // * ' ' // * 'THE DATE THIS CASH WAS RECEIVED IS ?L'2,2'?/?L'4,2'?/?L'6,2'?' // * ' ' // * 'PLEASE REENTER THIS DATE (WITHOUT SLASHES) TO CONTINUE THE UPDATE.' // * ' ' // IF ?R?=?L'2,6'? GOTO UPDAT2 // * ' ' // * 'THE UPDATE HAS BEEN CANCELLED. PRESS ENTER TO RETURN TO MENU.' // IF ?R?='X' GOTO ENDUPD // GOTO ENDUPD // TAG UPDAT2 // * ' ' // * 'THE UPDATE IS CONTINUING.' // * ' ' JF0695 JF0696 JF0693 JF1153 JF0697 DELETE ?WS?XCHEK,F1 DELETE ?WS?XGLPM,F1 DELETE ?WS?XINPM,F1 DELETE ?WS?XCSDT,F1 // TAG ENDUPD DELETE ?WS?XCSRC,F1 // TAG END // CEND // COPY LIBRARY-P,NAME-JF0692,RECL-096,DATE-01/03/23,TIME-1223 // LOAD JF0692 // FILE NAME-XGLPM,LABEL-?WS?XGLPM // FILE NAME-XCHEK,LABEL-?WS?XCHEK // FILE NAME-XINPM,LABEL-?WS?XINPM // FILE NAME-RECEV,LABEL-?L'100,2'?RECEV,DISP-SHR // FILE NAME-XCSRC,LABEL-?WS?XCSRC,RECORDS-5000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0693,RECL-096,DATE-04/08/26,TIME-1240 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XCSRC // FILE NAME-OUTPUT,LABEL-?WS?XCSRS,RECORDS-5000 // RUN HSORTR 17A 3X 60 FNU 1 4 FNU 7 12 FNU 13 FNU 14 19 FDC 1 60 // END // CEND // COPY LIBRARY-P,NAME-JF0694,RECL-096,DATE-01/03/23,TIME-1223 // LOAD JF0694 // SWITCH 10000000 // FILE NAME-XCSRS,LABEL-?WS?XCSRS,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-XCSDT,LABEL-?WS?XCSDT // FILE NAME-GLFILE,LABEL-?L'100,2'?GLFILE,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-RECEV,LABEL-?WS?XXREC,RETAIN-S // FILE NAME-UNCASH,LABEL-?WS?XXUNCS,RETAIN-S // RUN // CEND // COPY LIBRARY-P,NAME-JF0695,RECL-096,DATE-04/08/26,TIME-1240 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XCSRC // FILE NAME-OUTPUT,LABEL-?WS?XCSRS,RECORDS-5000 // RUN HSORTR 7A 3X 60 I C 13EQC1 IOC 13EQC3 FNU 13 FNU 45 50 FDC 1 60 // END // CEND // COPY LIBRARY-P,NAME-JF0696,RECL-096,DATE-01/03/23,TIME-1223 // LOAD JF0696 // FILE NAME-XCSRS,LABEL-?WS?XCSRS,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-XCSDT,LABEL-?WS?XCSDT // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-GLFILE,LABEL-?L'100,2'?GLFILE,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0697,RECL-096,DATE-01/03/23,TIME-1223 // LOAD JF0694 // SWITCH 01000000 // FILE NAME-XCSRS,LABEL-?WS?XCSRS,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-XCSDT,LABEL-?WS?XCSDT // FILE NAME-GLFILE,LABEL-?L'100,2'?GLFILE,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-RECEV,LABEL-?L'100,2'?RECEV,DISP-SHR // FILE NAME-GLPMT,LABEL-?L'100,2'?GLPMT,DISP-SHR // FILE NAME-PYMT,LABEL-?L'100,2'?PYMT,DISP-SHR // FILE NAME-ARCHK,LABEL-?L'100,2'?ARCHK,DISP-SHR // FILE NAME-UNCASH,LABEL-?L'100,2'?UNCASH,DISP-SHR // FILE NAME-PYUN,LABEL-?L'100,2'?PYUN,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0698,RECL-096,REF-000006,DATE-01/03/23,TIME-1223 // * 'DO YOU WISH PAID INVOICES TO APPEAR ? (Y=YES, N=NO)' // LOCAL OFFSET-1,DATA-'?R?' // IFF DATAF1-?WS?XGLPMB BLDFILE ?WS?XGLPMB,I,R,200,48,,,1,6 // IFF DATAF1-?WS?XCHEKB BLDFILE ?WS?XCHEKB,I,R,200,18,,,1,12 // IFF DATAF1-?WS?XINPMB BLDFILE ?WS?XINPMB,I,R,1000,39,,,1,18 // IFF DATAF1-?WS?XCSDTB BLDFILE ?WS?XCSDTB,I,R,1,7,,,1,1 JF0702 // * ' ' // * 'DO YOU WISH TO RUN THE CASH RECEIPTS EDIT ?' // * ' Y = YES' // * ' N = NO' // * ' ' // IFF ?R?='Y' GOTO END JF0703 JF0693 JF0704 JF0885 JF0694 // IFF ?L'1,1'?='X' GOTO UPDATE // * ' ' // * 'THERE ARE ERRORS IN THE CASH RECEIPTS EDIT AND YOU CANNOT CONTINUE' // * 'WITH THE UPDATE. PLEASE PRESS ENTER TO RETURN TO MENU' // * 'IN ORDER TO MAKE CORRECTIONS.' // * ' ' // IF ?R?='X' GOTO ENDUPD // GOTO ENDUPD // TAG UPDATE // * ' ' // * 'DO YOU WISH TO UPDATE THE PERMANENT FILES WITH THIS DATA' // * 'AND FINISH OUT THESE CASH RECEIPTS ?' // * ' Y = YES' // * ' N = NO' // * ' ' // IFF ?R?='Y' GOTO ENDUPD // * ' ' // * 'ARE YOU SURE YOU WANT TO RUN THE UPDATE ?' // * ' Y = YES' // * ' N = NO' // * ' ' // IFF ?R?='Y' GOTO ENDUPD JF0695 JF0696 JF0693 JF0705 DELETE ?WS?XGLPMB,F1 DELETE ?WS?XCHEKB,F1 DELETE ?WS?XINPMB,F1 DELETE ?WS?XCSDTB,F1 // TAG ENDUPD DELETE ?WS?XCSRC,F1 // TAG END // CEND // COPY LIBRARY-P,NAME-JF0699,RECL-096,DATE-01/03/23,TIME-1224 // LOAD JF0699 // FILE NAME-RECEV,LABEL-?L'100,2'?RECEV,DISP-SHR // FILE NAME-XXREC,LABEL-?WS?XXREC,RECORDS-200000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0700,RECL-096,REF-000004,DATE-04/10/01,TIME-0814 // * 'DO YOU WISH TO COPY ALL SOURCE PROGRAMS AND PROCEDURES' // * 'TO TAPE OR DISK FILE (NAMED JOFPROG) ? (ENTER T OR F)' // IF ?R?='F' GOTO FILE ***** SYSTEM/36 INIT AND SAVE COMMANDS ***** TAPEINIT TC,SL,JOFFE,,JOFFE ***** SAVELIBR JOFFE,1,JOFFE,,,TC,LEAVE INZTAP DEV(TAP01) NEWVOL(JOFFE) NEWOWNID(JOFFE) DENSITY(*CTGTYPE) CHECK(*NO) SAVLIB LIB(JOFFE) DEV(TAP01) EXPDATE(*PERM) // GOTO END // TAG FILE // IF DATAF1-JOFPROG DELETE JOFPROG,F1 ***** SYSTEM/36 RESTORE SOURCE AND PROC COMMANDS ***** FROMLIBR ALL,SOURCE,JOFPROG,F1,,4500,JOFFE,,,,120,SVATTR ***** FROMLIBR ALL,PROC,JOFPROG,F1,ADD,,JOFFE,,,,120,SVATTR SAVS36LIBM FROMMBR(*ALL) FROMLIB(JOFFE) DEV(*PHYFILE) SRCMBRS(*ALL) PHYFILE(QS36F/JOFPROG) MBROPT(*REPLACE) // TAG END // CEND // COPY LIBRARY-P,NAME-JF0701,RECL-096,REF-000009,DATE-01/03/23,TIME-1224 BLDFILE ?L'100,2'?ASMTMP,S,RECORDS,500,190,,,,,,,1000 BLDFILE ?L'100,2'?BGLPM,S,RECORDS,1000,54,,,,,,,1000 BLDFILE ?L'100,2'?BILMAT,I,RECORDS,500,21,,,1,10,,,1000 BLDFILE ?L'100,2'?BLMTTM,I,RECORDS,500,21,,,1,10,,,500 BLDFILE ?L'100,2'?BSEHSE,I,RECORDS,500,13,,,1,6,,,1000 BLDFILE ?L'100,2'?CHGHS,S,RECORDS,500,7,,,,,,,500 BLDFILE ?L'100,2'?CHKFLE,S,RECORDS,500,50,,,,,,,1000 // LOAD JF0701 // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,RECORDS-80 // RUN BLDFILE ?L'100,2'?CUSMAP,I,RECORDS,500,87,,,1,8,,,1000 BLDFILE ?L'100,2'?CUSMAS,I,RECORDS,500,500,,,1,6,,,1000 BLDFILE ?L'100,2'?DEPT,I,RECORDS,50,200,,,1,2,,,50 BLDFILE ?L'100,2'?EMPLYE,I,RECORDS,200,350,,,1,5,,,100 BLDFILE ?L'100,2'?GLFILE,I,RECORDS,300,224,,,1,6,,,300 BLDFILE ?L'100,2'?GLPMT,S,RECORDS,500,54,,,,,,,500 BLDFILE ?L'100,2'?GLTRAN,S,RECORDS,500,24,,,,,,,500 BLDFILE ?L'100,2'?HOUEST,I,RECORDS,1000,41,,,1,9,,,1000 BLDFILE ?L'100,2'?HOUSE,I,RECORDS,1000,41,,,1,9,,,1000 BLDFILE ?L'100,2'?INVACC,I,RECORDS,500,35,,,1,16,,,500 BLDFILE ?L'100,2'?INVCB,I,RECORDS,1000,38,,,1,30,,,1000 BLDFILE ?L'100,2'?INVCE,I,RECORDS,1000,71,,,1,9,,,1000 BLDFILE ?L'100,2'?LOAD,I,RECORDS,2000,79,,,1,9,,,2000 BLDFILE ?L'100,2'?MESAGE,I,RECORDS,500,66,,,1,5,,,500 BLDFILE ?L'100,2'?MISCUS,I,RECORDS,500,97,,,1,7,,,500 BLDFILE ?L'100,2'?MLOAD,S,RECORDS,500,8,,,,,,,500 BLDFILE ?L'100,2'?MOVLOD,S,RECORDS,500,55,,,,,,,1000 BLDFILE ?L'100,2'?NMGLEN,S,RECORDS,500,16,,,,,,,500 BLDFILE ?L'100,2'?OPENAP,I,RECORDS,500,70,,,2,14,,,1000 BLDFILE ?L'100,2'?PAYRL,S,RECORDS,500,140,,,,,,,1000 BLDFILE ?L'100,2'?PRCTAB,I,RECORDS,500,26,,,1,8,,,1000 BLDFILE ?L'100,2'?PRDREC,S,RECORDS,1000,14,,,,,,,1000 BLDFILE ?L'100,2'?PRDUSG,S,RECORDS,1000,35,,,,,,,1000 BLDFILE ?L'100,2'?PROD,I,RECORDS,1000,200,,,1,9,,,1000 BLDFILE ?L'100,2'?PROJ,S,RECORDS,1000,60,,,,,,,1000 BLDFILE ?L'100,2'?PYMT,I,RECORDS,1000,57,,,1,9,,,1000 BLDFILE ?L'100,2'?PYMTBD,I,RECORDS,1000,57,,,1,9,,,1000 BLDFILE ?L'100,2'?RECBD,I,RECORDS,500,102,,,2,6,,,500 BLDFILE ?L'100,2'?RECEV,I,RECORDS,1000,102,,,2,6,,,1000 BLDFILE ?L'100,2'?RELSHT,I,RECORDS,1000,180,,,34,6,,,1000 BLDINDEX ?L'100,2'?RELSH1,1,39,?L'100,2'?RELSHT BLDFILE ?L'100,2'?SALMEN,I,RECORDS,50,32,,,1,2,,,50 BLDFILE ?L'100,2'?VENDOR,I,RECORDS,500,190,,,1,6,,,500 BLDFILE ?L'100,2'?YPAYRL,S,RECORDS,500,140,,,,,,,1000 // CEND // COPY LIBRARY-P,NAME-JF0702,RECL-096,REF-000004,DATE-01/03/23,TIME-1224 // LOAD JF0690 // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-RECAL1,LABEL-?L'100,2'?RCBDA1,DISP-SHR // FILE NAME-UNCASH,LABEL-?L'100,2'?UNCSBD,DISP-SHR // FILE NAME-XGLPM,LABEL-?WS?XGLPMB // FILE NAME-XCHEK,LABEL-?WS?XCHEKB // FILE NAME-XINPM,LABEL-?WS?XINPMB // FILE NAME-XCSDT,LABEL-?WS?XCSDTB // RUN // CEND // COPY LIBRARY-P,NAME-JF0703,RECL-096,REF-000002,DATE-01/03/23,TIME-1224 // LOAD JF0692 // FILE NAME-XGLPM,LABEL-?WS?XGLPMB // FILE NAME-XCHEK,LABEL-?WS?XCHEKB // FILE NAME-XINPM,LABEL-?WS?XINPMB // FILE NAME-RECEV,LABEL-?L'100,2'?RECBD,DISP-SHR // FILE NAME-XCSRC,LABEL-?WS?XCSRC,RECORDS-2000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0704,RECL-096,REF-000001,DATE-01/03/23,TIME-1224 // LOAD JF0699 // FILE NAME-RECEV,LABEL-?L'100,2'?RECBD,DISP-SHR // FILE NAME-XXREC,LABEL-?WS?XXREC,RECORDS-20000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0705,RECL-096,REF-000002,DATE-01/03/23,TIME-1224 // LOAD JF0694 // SWITCH 01000000 // FILE NAME-XCSRS,LABEL-?WS?XCSRS,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-XCSDT,LABEL-?WS?XCSDTB // FILE NAME-GLFILE,LABEL-?L'100,2'?GLFILE,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-RECEV,LABEL-?L'100,2'?RECBD,DISP-SHR // FILE NAME-GLPMT,LABEL-?L'100,2'?GLPMT,DISP-SHR // FILE NAME-PYMT,LABEL-?L'100,2'?PYMTBD // FILE NAME-ARCHK,LABEL-?L'100,2'?ARCHKBD,DISP-SHR // FILE NAME-UNCASH,LABEL-?L'100,2'?UNCSBD,DISP-SHR // FILE NAME-PYUN,LABEL-?L'100,2'?PYUNBD,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0706,RECL-096,REF-000004,DATE-01/04/20,TIME-1053 // * 'THIS PROCEDURE WILL BACKUP ALL YOUR USER FILES ONTO TAPE' // * 'FOR BOTH COMPANIES JF AND SB AT 1:00 AM TOMORROW MORNING' // * ' ' // * 'YOU MUST BE DULY AUTHORIZED TO RUN THIS PROGRAM.' // * ' ' // * 'TO ENSURE THAT YOU ARE PLEASE ENTER THE PASSWORD NOW.' // * ' ' // IF ?R?='BETTYBACKUP' GOTO START // * ' ' // * 'ACCESS TO THIS PROGRAM HAS BEEN DENIED TO YOU.' // * 'PRESS ENTER TO RETURN TO MENU.' // * ' ' // IF ?R?='X' GOTO END // GOTO END // TAG START // * 'BACK UP OF ALL FILES FOR ALL COMPANIES WILL START RUNNING' // * 'AT 1:00 AM TOMORROW MORNING.' // * ' ' // * 'PLEASE TURN SCREEN BRIGHTNESS DOWN BUT LEAVE TERMINAL ON.' // * ' ' // * 'GOOD BYE AND HAVE A PLEASANT EVENING.' // * ' ' // TAG BEGIN // IF ?TIME?=010000 GOTO RUN // IF ?TIME?=010001 GOTO RUN // IF ?TIME?=010002 GOTO RUN // IF ?TIME?=010003 GOTO RUN // IF ?TIME?=010004 GOTO RUN // IF ?TIME?=010005 GOTO RUN // GOTO BEGIN // TAG RUN // * 'ERASING AND INITIALIZING TAPE' ***TAPEINIT TC,SL,JOFFE,CLEAR,JOFFE INZTAP DEV(TAP01) NEWVOL(JOFFE) NEWOWNID(JOFFE) CHECK(*NO) DENSITY(*CTGTYPE) // LOCAL OFFSET-1,DATA-'JF' // * 'BACKING UP ALL FILES FOR COMPANY JF' JF0124 // LOCAL OFFSET-1,DATA-'SB' // * 'BACKING UP ALL FILES FOR COMPANY SB' JF0124 // * ' ' // * '******************************************************' // * '******************************************************' // * '*** ***' // * '*** BACKUP OF ALL FILES IS NOW COMPLETE ***' // * '*** ***' // * '*** PRESS ENTER TO RETURN TO MENU ***' // * '*** ***' // * '******************************************************' // * '******************************************************' // IF ?R?='X' GOTO END // GOTO END // TAG END // CEND // COPY LIBRARY-P,NAME-JF0708,RECL-096,REF-000007,DATE-01/03/23,TIME-1224 // LOAD JF0708 // SWITCH 10000000 // FILE NAME-HOUSE,LABEL-?L'100,2'?HOUSE,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-CHGHS,LABEL-?L'100,2'?CHGHS,DISP-SHR // FILE NAME-XHSSL,LABEL-?WS?XHSSL,RECORDS-1000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0709,RECL-096,DATE-01/03/23,TIME-1224 // LOAD JF0708 // SWITCH 01000000 // FILE NAME-HOUSE,LABEL-?L'100,2'?HOUEST,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-XHSSL,LABEL-?WS?XHSSL,RECORDS-1000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0710,RECL-096,REF-000003,DATE-01/03/23,TIME-1224 // TAG AGN // * ' ' // * 'DO YOU WISH TO USE CURRENT OR OLD PRICES TO RECALCULATE SINGLE LINE PRICES?' // * ' ' // * ' C = CURRENT' // * ' O = OLD' // * ' ' // LOCAL OFFSET-1,DATA-'?R?' // IF ?L'1,1'?='C' GOTO CUROLD // IF ?L'1,1'?='O' GOTO CUROLD // GOTO AGN // TAG CUROLD // IF ?L'1,1'?='C' * 'YOU HAVE CHOSEN CURRENT PRICES.' // IF ?L'1,1'?='O' * 'YOU HAVE CHOSEN OLD PRICES.' // * ' PRESS ENTER TO CONTINUE.' // * ' PRESS X TO CANCEL.' // * ' ' // IFF ?R?='X' GOTO END // GOTO AGN // TAG END JF0708 JF0559 JF0552 // CEND // COPY LIBRARY-P,NAME-JF0711,RECL-096,REF-000006,DATE-06/10/26,TIME-0749 // LOAD JF0711 // SWITCH 10000000 // PRINTER NAME-PRT,FORMSNO-?L'3,1'?LB2 // FILE NAME-XLABLS,LABEL-?WS?XLABLS // FILE NAME-XLABL2,LABEL-?WS?XLABLS,RETAIN-S // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-MISCUS,LABEL-?L'100,2'?MISCUS,DISP-SHR // FILE NAME-XITHD,LABEL-?WS?XITHD // RUN // CEND // COPY LIBRARY-P,NAME-JF0712,RECL-096,REF-000003,DATE-01/03/23,TIME-1224 // LOAD JF0711 // SWITCH 10000000 // PRINTER NAME-PRT,FORMSNO-LBL2 // FILE NAME-XLABLS,LABEL-?WS?XLABLS // FILE NAME-XLABL2,LABEL-?WS?XLABLS,RETAIN-S // FILE NAME-LOAD,LABEL-?WS?XLOADO // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-MISCUS,LABEL-?WS?XMSCSO // FILE NAME-XITHD,LABEL-?WS?XITHD,RETAIN-S // RUN // CEND // COPY LIBRARY-P,NAME-JF0713,RECL-096,REF-000003,DATE-01/03/23,TIME-1224 // LOAD JF0711 // SWITCH 01000000 // PRINTER NAME-PRT,FORMSNO-LBL2 // FILE NAME-XLABLS,LABEL-?WS?XLABLS // FILE NAME-XLABL2,LABEL-?WS?XLABLS,RETAIN-S // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-MISCUS,LABEL-?L'100,2'?MISCUS,DISP-SHR // FILE NAME-XITHD,LABEL-?WS?XITHD,RETAIN-S // RUN // CEND // COPY LIBRARY-P,NAME-JF0714,RECL-096,REF-000004,DATE-01/03/23,TIME-1224 // LOAD JF0714 // FILE NAME-PRCTAB,LABEL-?L'100,2'?PRCTAB,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0715,RECL-096,DATE-01/03/23,TIME-1224 JF0716 JF0717 JF0656 // CEND // COPY LIBRARY-P,NAME-JF0716,RECL-096,REF-000001,DATE-03/10/26,TIME-2057 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?L'100,2'?RECEV,DISP-SHR // FILE NAME-OUTPUT,LABEL-?WS?XRECVS,RECORDS-13000 // RUN HSORTR 12A 3X 300 I C 1NECC IAC 300EQCN FNU 8 13 FNU 2 7 FDC 1 256 FDC 257 300 // END // CEND // COPY LIBRARY-P,NAME-JF0717,RECL-096,REF-000001,DATE-01/03/23,TIME-1224 // LOAD JF0717 // FILE NAME-XRECVS,LABEL-?WS?XRECVS,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-INVCE,LABEL-?L'100,2'?INVCE,DISP-SHR // FILE NAME-XRPINV,LABEL-?WS?XRPINV,RECORDS-5000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0719,RECL-096,DATE-01/03/23,TIME-1224 // LOAD JF0719 // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0721,RECL-096,DATE-02/04/22,TIME-1042 // LOAD JF1028 // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // RUN // IF ?L'1,1'?=' ' GOTO BEGIN // * ' ' // * 'THERE IS AN EXISTING PURCHASE ORDER THAT HAS NOT YET BEEN UPDATED' // * 'FOR YOUR TERMINAL OR ANOTHER TERMINAL.' // * ' ' // * 'YOU CANNOT PROCEED UNTIL THIS PURCHASE ORDER IS EITHER' // * 'UPDATED OR CANCELLED.' // * ' ' // * 'PRESS ENTER TO RETURN TO MENU.' // * ' ' // IF ?R?='X' GOTO END // GOTO END // TAG BEGIN // LOAD JF1029 // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // RUN // * ' ' BLDFILE ?WS?XPOITM,I,RECORDS,10000,100,,,1,19 // LOAD JF0720 // FILE NAME-HOUSE,LABEL-?L'100,2'?HOUSE,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-POMST,LABEL-?L'100,2'?POMST,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-XPOITM,LABEL-?WS?XPOITM // FILE NAME-XPO,LABEL-?WS?XPO,RECORDS-1 // RUN // LOAD JF1073 // FILE NAME-XPOITM,LABEL-?WS?XPOITM // FILE NAME-INVEN,LABEL-?L'100,2'?INVEN,DISP-SHR // RUN // LOAD #GSORT // FILE NAME-INPUT,LABEL-?L'100,2'?POMST,DISP-SHR // FILE NAME-OUTPUT,LABEL-?WS?XPOMST,RECORDS-30000 // RUN HSORTR 19A 3X 150 I C 150NECD FNC 36 42 FOU 89 94 FOU 95 100 FDC 1 150 // END // LOAD JF1055 // FILE NAME-XPOMST,LABEL-?WS?XPOMST,RETAIN-S // FILE NAME-XXPOM,LABEL-?WS?XXPOM,RECORDS-30000 // RUN // LOAD JF1056 // FILE NAME-XPOITM,LABEL-?WS?XPOITM // FILE NAME-XXPOM,LABEL-?WS?XXPOM,RETAIN-S // RUN // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XPOITM,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XPOITS,RECORDS-3000 // RUN HSORTR 25A 3X 100 I C 100EQCA FNC 1 7 FNU 90 91 FNU 86 89 FNC 8 13 FNC 14 19 FDC 1 100 // END // LOAD JF1063 // SWITCH 10000000 // PRINTER NAME-PRT,CPI-15 OVRPRTF FILE(PRT) USRDTA('PO-REG') // FILE NAME-XPOITS,LABEL-?WS?XPOITS,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-XPO,LABEL-?WS?XPO // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-XPOITM,LABEL-?WS?XPOITM,RECORDS-3000 // RUN // LOAD JF1077 // SWITCH 10000000 // PRINTER NAME-PRT,CPI-15 OVRPRTF FILE(PRT) USRDTA('PO-SUMM') // FILE NAME-XPOITM,LABEL-?WS?XPOITM // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-XPO,LABEL-?WS?XPO // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // RUN // TAG END // CEND // COPY LIBRARY-P,NAME-JF0722,RECL-096,DATE-02/01/16,TIME-1423 // * 'ARE YOU SURE YOU WANT TO DELETE THIS PURCHASE ORDER ? (Y=YES, N=NO)' // IFF ?R?='Y' GOTO END // IF DATAF1-?WS?XPO GOTO START // IF DATAF1-?WS?XPOITM GOTO START // * ' ' // * 'THERE ARE NO TEMPORARY PURCHASE ORDER EDIT FILES ASSIGNED' // * 'TO YOUR TERMINAL, WHICH MEANS SOME ONE ELSE MAY HAVE STARTED' // * 'A PURCHASE ORDER AND WILL NOT ALLOW YOU TO START A NEW ONE.' // * ' ' // * 'BE SURE NO ONE ELSE HAS IN FACT STARTED A NEW PO BECAUSE IF' // * 'YOU CONTINUE THE COMPUTER WILL THEN ALLOW BOTH OF YOU TO ENTER' // * 'PURCHASE ORDERS POSSIBLY WITH DUPLICATE PO NUMBERS.' // * ' ' // * 'ARE YOU SURE YOU WANT TO CONTINUE ? (Y=YES, N=NO)' // IFF ?R?='Y' GOTO END // * ' ' // TAG START // IF DATAF1-?WS?XPO DELETE ?WS?XPO,F1 // IF DATAF1-?WS?XPOITM DELETE ?WS?XPOITM,F1 // LOAD JF0722 // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // RUN // * 'PURCHASE ORDER IS DELETED. PRESS ENTER TO RETURN TO MENU.' // IF ?R?='Y' GOTO END // TAG END // CEND // COPY LIBRARY-P,NAME-JF0723,RECL-096,REF-000002,DATE-01/03/23,TIME-1224 // LOAD JF0723 // FILE NAME-RECEV,LABEL-?L'100,2'?RECEV,DISP-SHR // FILE NAME-RELSHT,LABEL-?L'100,2'?RELSHT,DISP-SHR // FILE NAME-XAGE,LABEL-?WS?XAGE,RECORDS-1 // FILE NAME-XINHS,LABEL-?WS?XINHS,RECORDS-80000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0724,RECL-096,REF-000002,DATE-01/09/14,TIME-1232 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XINHS,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XINSS,RECORDS-80000 // RUN HSORTR 20A 3X 26 FNU 1 6 FOU 19 22 FOU 23 26 FNU 7 12 FDC 1 26 // END // CEND // COPY LIBRARY-P,NAME-JF0725,RECL-096,REF-000002,DATE-01/03/23,TIME-1224 // LOAD JF0725 // FILE NAME-XINSS,LABEL-?WS?XINSS,RETAIN-S // FILE NAME-XINHD,LABEL-?WS?XINHD,RECORDS-80000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0726,RECL-096,REF-000001,DATE-01/03/23,TIME-1224 // LOAD JF0726 // FILE NAME-HOUSE,LABEL-?L'100,2'?HOUSE,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-XAGE,LABEL-?WS?XAGE,RETAIN-S // FILE NAME-XINHD,LABEL-?WS?XINHD,RETAIN-S // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0727,RECL-096,DATE-01/03/23,TIME-1224 JF0723 JF0724 JF0725 JF0726 // CEND // COPY LIBRARY-P,NAME-JF0728,RECL-096,REF-000002,DATE-01/03/23,TIME-1224 // LOAD JF0728 // FILE NAME-INVCE,LABEL-?L'100,2'?INVCE,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0729,RECL-096,DATE-01/03/23,TIME-1224 // LOAD JF0729 // FILE NAME-HOUSE,LABEL-?L'100,2'?HOUSE,DISP-SHR // FILE NAME-XXHSSL,LABEL-?WS?XXHSSL,RECORDS-5000 // FILE NAME-CHGHS,LABEL-?L'100,2'?CHGHS,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0730,RECL-096,REF-000001,DATE-01/03/23,TIME-1224 JF0729 JF0750 // CEND // COPY LIBRARY-P,NAME-JF0731,RECL-120,DATE-05/06/28,TIME-1023 // TAG AGN // * ' ' // * 'WHICH LABELS DO YOU WISH TO ENTER:' // * ' W = WARNOCK' // * ' 6 = 60 MINUTE' // * ' 2 = 20 MINUTE' // LOCAL OFFSET-1,DATA-'?R?' // IF ?L'1,1'?='W' GOTO BEGIN // IF ?L'1,1'?='6' GOTO BEGIN // IF ?L'1,1'?='2' GOTO BEGIN // GOTO AGN // TAG BEGIN // LOAD JF0731 // IF ?L'1,1'?='W' SWITCH 10000000 // IF ?L'1,1'?='6' SWITCH 01000000 // IF ?L'1,1'?='2' SWITCH 00100000 // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-LABEL,LABEL-?L'100,2'?LABEL,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0732,RECL-120,DATE-05/06/28,TIME-0957 // TAG AGN // * ' ' // * 'WHICH LABELS DO YOU WISH TO PRINT:' // * ' W = WARNOCK' // * ' 6 = 60 MINUTE' // * ' 2 = 20 MINUTE' // LOCAL OFFSET-1,DATA-'?R?' // IF ?L'1,1'?='W' GOTO BEGIN // IF ?L'1,1'?='6' GOTO BEGIN // IF ?L'1,1'?='2' GOTO BEGIN // GOTO AGN // TAG BEGIN // LOAD JF0732 // IF ?L'1,1'?='W' SWITCH 10000000 // IF ?L'1,1'?='6' SWITCH 01000000 // IF ?L'1,1'?='2' SWITCH 00100000 // FILE NAME-LABEL,LABEL-?L'100,2'?LABEL,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0733,RECL-096,REF-000004,DATE-01/03/23,TIME-1224 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-OUTPUT,LABEL-?WS?XCUSTM,RECORDS-5000 // RUN HSORTR 38A 3X 600 I C 135EQCU IAC 600EQCA IAC 1 6LTC900000 FNC 299 300 FNC 8 37 FNU 1 6 FDC 1 256 FDC 257 512 FDC 513 600 // END // CEND // COPY LIBRARY-P,NAME-JF0734,RECL-096,REF-000004,DATE-01/03/23,TIME-1224 // LOAD JF0734 // PRINTER NAME-PRT,FORMSNO-8X11 // FILE NAME-XCUSTM,LABEL-?WS?XCUSTM,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0735,RECL-096,REF-000001,DATE-01/03/23,TIME-1224 JF0733 JF0734 // CEND // COPY LIBRARY-P,NAME-JF0736,RECL-096,DATE-01/03/23,TIME-1224 JF0874 JF0737 JF0738 // CEND // COPY LIBRARY-P,NAME-JF0737,RECL-096,DATE-03/10/26,TIME-2057 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XARY4,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XARCK,RECORDS-20000 // RUN HSORTR 18A 3X 28 I C 24EQCA FNC 1 4 FNU 25 28 FNU 13 16 FNU 7 12 FDC 1 28 // END // CEND // COPY LIBRARY-P,NAME-JF0738,RECL-096,DATE-01/03/23,TIME-1224 // LOAD JF0738 // SWITCH 10000000 // FILE NAME-XARCK,LABEL-?WS?XARCK,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0739,RECL-096,DATE-01/03/23,TIME-1224 // LOAD JF0739 // FILE NAME-PRCTAB,LABEL-?L'100,2'?PRCTAB,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0740,RECL-096,DATE-01/03/23,TIME-1224 // LOAD JF0740 // FILE NAME-PRCTAB,LABEL-?L'100,2'?PRCTAB,DISP-SHR // FILE NAME-XCOTAB,LABEL-?WS?XCOTAB,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-PRCTABC,LABEL-?L'100,2'?PRCTAB,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0741,RECL-096,REF-000001,DATE-01/03/23,TIME-1224 JF0742 JF0743 JF0744 // CEND // COPY LIBRARY-P,NAME-JF0742,RECL-096,REF-000010,DATE-01/03/23,TIME-1224 // LOAD JF0742 // FILE NAME-HOUSE,LABEL-?L'100,2'?HOUSE,DISP-SHR // FILE NAME-XHITM,LABEL-?WS?XHITM,RECORDS-200000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0743,RECL-096,REF-000004,DATE-01/03/23,TIME-1224 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XHITM,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XHITS,RECORDS-200000 // RUN HSORTR 19A 3X 25 FNU 1 6 FNC 7 13 FNU 15 20 FDC 1 25 // END // CEND // COPY LIBRARY-P,NAME-JF0744,RECL-096,REF-000004,DATE-01/03/23,TIME-1224 // LOAD JF0744 // FILE NAME-XHITS,LABEL-?WS?XHITS,RETAIN-S // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-PRCTAB,LABEL-?L'100,2'?PRCTAB,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0745,RECL-096,REF-000002,DATE-01/03/23,TIME-1224 // LOAD JF0745 // FILE NAME-RELSHT,LABEL-?L'100,2'?RELSHT,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0746,RECL-096,DATE-01/03/23,TIME-1224 JF0747 JF0740 // CEND // COPY LIBRARY-P,NAME-JF0747,RECL-096,DATE-01/03/23,TIME-1224 // LOAD JF0747 // FILE NAME-PRCTAB,LABEL-?L'100,2'?PRCTAB,DISP-SHR // FILE NAME-XCOTAB,LABEL-?WS?XCOTAB,RECORDS-1 // RUN // CEND // COPY LIBRARY-P,NAME-JF0748,RECL-096,REF-000002,DATE-01/03/23,TIME-1224 // LOAD JF0748 // FILE NAME-XINVC,LABEL-?WS?XINVC,RETAIN-S // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-RECEV,LABEL-?L'100,2'?RECEV,DISP-SHR // FILE NAME-XZINV,LABEL-?WS?XZINV,RECORDS-400 // FILE NAME-XXINVC,LABEL-?WS?XXINVC,RECORDS-20000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0749,RECL-096,REF-000001,DATE-01/03/23,TIME-1224 // LOAD JF0749 // FILE NAME-XXINVC,LABEL-?WS?XXINVC,RETAIN-S // FILE NAME-XZINV,LABEL-?WS?XZINV,RETAIN-S // FILE NAME-XINVC,LABEL-?WS?XINVC,RECORDS-20000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0750,RECL-096,REF-000002,DATE-01/03/23,TIME-1224 // LOAD JF0552 // SWITCH 10000000 // FILE NAME-XXHSSL,LABEL-?WS?XXHSSL,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-HOUSE,LABEL-?L'100,2'?HOUSE,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-PRCTAB,LABEL-?L'100,2'?PRCTAB,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0751,RECL-096,REF-000001,DATE-01/03/23,TIME-1224 // LOAD JF0751 // FILE NAME-NJUAF,LABEL-?L'100,2'?NJUAF,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0752,RECL-096,REF-000003,DATE-01/06/19,TIME-1314 // LOAD JF0752 OVRPRTF FILE(PRT) USRDTA('NJ URBAN') // FILE NAME-XREC,LABEL-?WS?XREC // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-MISCUS,LABEL-?L'100,2'?MISCUS,DISP-SHR // FILE NAME-NJUAF,LABEL-?L'100,2'?NJUAF,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0753,RECL-096,REF-000004,DATE-01/06/19,TIME-1315 // LOAD JF0753 OVRPRTF FILE(PRT) USRDTA('NJ TAX AFD') // PRINTER NAME-PRT,FORMSNO-NJTA // FILE NAME-XTAREC,LABEL-?WS?XTAREC,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-MISCUS,LABEL-?L'100,2'?MISCUS,DISP-SHR // FILE NAME-XINDP,LABEL-?WS?XINDP,RETAIN-S // RUN // CEND // COPY LIBRARY-P,NAME-JF0754,RECL-096,DATE-04/12/10,TIME-1046 // LOAD JF0754 // SWITCH 10000000 // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0756,RECL-096,REF-000001,DATE-03/10/26,TIME-2057 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?L'100,2'?RECEV,DISP-SHR // FILE NAME-OUTPUT,LABEL-?WS?XRECEV,RECORDS-200000 // RUN HSORTR 6A 3X 300 I C 300NECD IAC 300NECV FNU 8 13 FDC 1 256 FDC 257 300 // END // CEND // COPY LIBRARY-P,NAME-JF0757,RECL-096,DATE-01/03/23,TIME-1224 // LOAD JF0757 // PRINTER NAME-PRT,FORMSNO-JOHN // FILE NAME-XRECEV,LABEL-?WS?XRECEV,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0758,RECL-096,REF-000001,DATE-01/03/23,TIME-1224 JF0756 JF0757 // CEND // COPY LIBRARY-P,NAME-JF0759,RECL-096,REF-000001,DATE-01/03/23,TIME-1224 JF0760 JF0615 JF0761 JF0617 JF0762 // CEND // COPY LIBRARY-P,NAME-JF0760,RECL-096,DATE-04/09/27,TIME-1338 // LOAD JF0760 // FILE NAME-PYMT,LABEL-?L'100,2'?PYMT,DISP-SHR // FILE NAME-RECEV,LABEL-?L'100,2'?RECEV,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-XMPMT,LABEL-?WS?XMPMT,RECORDS-5000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0761,RECL-096,DATE-01/03/23,TIME-1224 // LOAD JF0761 // FILE NAME-RECEV,LABEL-?L'100,2'?RECEV,DISP-SHR // FILE NAME-XMMPMT,LABEL-?WS?XMMPMT // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0762,RECL-096,REF-000002,DATE-01/03/23,TIME-1224 // LOAD JF0762 // PRINTER NAME-PRT,CPI-15 // FILE NAME-XMMPMS,LABEL-?WS?XMMPMS,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-SALMEN,LABEL-?L'100,2'?SALMEN,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-PYMT,LABEL-?L'100,2'?PYMT,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0763,RECL-096,REF-000001,DATE-01/03/23,TIME-1224 // LOAD JF0763 // FILE NAME-XREC,LABEL-?WS?XINREG,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0764,RECL-096,DATE-01/03/23,TIME-1224 JF0649 JF0763 // CEND // COPY LIBRARY-P,NAME-JF0766,RECL-096,REF-000001,DATE-01/03/23,TIME-1224 // LOAD JF0766 // FILE NAME-INVCE,LABEL-JFINVCE,DISP-SHR // FILE NAME-XXXREC,RECORDS-100000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0767,RECL-096,DATE-01/03/23,TIME-1224 // TAG AGN // * ' ' // * 'DO YOU WISH TO USE CURRENT OR OLD PRICES TO RECALCULATE SINGLE LINE PRICES' // * 'FOR ESTIMATED HOUSES ?' // * ' ' // * ' C = CURRENT' // * ' O = OLD' // * ' ' // LOCAL OFFSET-1,DATA-'?R?' // IF ?L'1,1'?='C' GOTO CUROLD // IF ?L'1,1'?='O' GOTO CUROLD // GOTO AGN // TAG CUROLD // IF ?L'1,1'?='C' * 'YOU HAVE CHOSEN CURRENT PRICES.' // IF ?L'1,1'?='O' * 'YOU HAVE CHOSEN OLD PRICES.' // * ' PRESS ENTER TO CONTINUE.' // * ' PRESS X TO CANCEL.' // * ' ' // IFF ?R?='X' GOTO END // GOTO AGN // TAG END JF0138 JF0559 JF0768 // CEND // COPY LIBRARY-P,NAME-JF0768,RECL-096,DATE-01/03/23,TIME-1224 // LOAD JF0552 // SWITCH 00000000 // FILE NAME-XXHSSL,LABEL-?WS?XXHSSL,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-HOUSE,LABEL-?L'100,2'?HOUEST,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-PRCTAB,LABEL-?L'100,2'?PRCTAB,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0769,RECL-096,DATE-01/03/23,TIME-1224 // TAG AGN // * ' ' // * 'DO YOU WISH TO USE CURRENT OR OLD PRICES TO RECALCULATE SINGLE LINE PRICES' // * 'FOR ESTIMATED HOUSES ?' // * ' ' // * ' C = CURRENT' // * ' O = OLD' // * ' ' // LOCAL OFFSET-1,DATA-'?R?' // IF ?L'1,1'?='C' GOTO CUROLD // IF ?L'1,1'?='O' GOTO CUROLD // GOTO AGN // TAG CUROLD // IF ?L'1,1'?='C' * 'YOU HAVE CHOSEN CURRENT PRICES.' // IF ?L'1,1'?='O' * 'YOU HAVE CHOSEN OLD PRICES.' // * ' PRESS ENTER TO CONTINUE.' // * ' PRESS X TO CANCEL.' // * ' ' // IFF ?R?='X' GOTO END // GOTO AGN // TAG END JF0169 JF0559 JF0768 // CEND // COPY LIBRARY-P,NAME-JF0770,RECL-096,DATE-01/03/23,TIME-1224 // TAG AGN // * ' ' // * 'DO YOU WISH TO USE CURRENT OR OLD PRICES TO RECALCULATE SINGLE LINE PRICES' // * 'FOR ESTIMATED HOUSES ?' // * ' ' // * ' C = CURRENT' // * ' O = OLD' // * ' ' // LOCAL OFFSET-1,DATA-'?R?' // IF ?L'1,1'?='C' GOTO CUROLD // IF ?L'1,1'?='O' GOTO CUROLD // GOTO AGN // TAG CUROLD // IF ?L'1,1'?='C' * 'YOU HAVE CHOSEN CURRENT PRICES.' // IF ?L'1,1'?='O' * 'YOU HAVE CHOSEN OLD PRICES.' // * ' PRESS ENTER TO CONTINUE.' // * ' PRESS X TO CANCEL.' // * ' ' // IFF ?R?='X' GOTO END // GOTO AGN // TAG END JF0176 JF0559 JF0768 // CEND // COPY LIBRARY-P,NAME-JF0771,RECL-096,DATE-01/03/23,TIME-1224 // TAG AGN // * ' ' // * 'DO YOU WISH TO USE CURRENT OR OLD PRICES TO RECALCULATE SINGLE LINE PRICES' // * 'FOR ESTIMATED HOUSES ?' // * ' ' // * ' C = CURRENT' // * ' O = OLD' // * ' ' // LOCAL OFFSET-1,DATA-'?R?' // IF ?L'1,1'?='C' GOTO CUROLD // IF ?L'1,1'?='O' GOTO CUROLD // GOTO AGN // TAG CUROLD // IF ?L'1,1'?='C' * 'YOU HAVE CHOSEN CURRENT PRICES.' // IF ?L'1,1'?='O' * 'YOU HAVE CHOSEN OLD PRICES.' // * ' PRESS ENTER TO CONTINUE.' // * ' PRESS X TO CANCEL.' // * ' ' // IFF ?R?='X' GOTO END // GOTO AGN // TAG END JF0709 JF0559 JF0768 // CEND // COPY LIBRARY-P,NAME-JF0772,RECL-096,DATE-01/03/23,TIME-1224 // TAG AGN // * ' ' // * 'DO YOU WISH TO USE CURRENT OR OLD PRICES TO RECALCULATE SINGLE LINE PRICES' // * 'FOR ESTIMATED HOUSES ?' // * ' ' // * ' C = CURRENT' // * ' O = OLD' // * ' ' // LOCAL OFFSET-1,DATA-'?R?' // IF ?L'1,1'?='C' GOTO CUROLD // IF ?L'1,1'?='O' GOTO CUROLD // GOTO AGN // TAG CUROLD // IF ?L'1,1'?='C' * 'YOU HAVE CHOSEN CURRENT PRICES.' // IF ?L'1,1'?='O' * 'YOU HAVE CHOSEN OLD PRICES.' // * ' PRESS ENTER TO CONTINUE.' // * ' PRESS X TO CANCEL.' // * ' ' // IFF ?R?='X' GOTO END // GOTO AGN // TAG END JF0174 JF0559 JF0768 // CEND // COPY LIBRARY-P,NAME-JF0773,RECL-096,DATE-01/03/23,TIME-1224 // LOAD JF0773 // FILE NAME-NJUAF,LABEL-?L'100,2'?NJUAF,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-MISCUS,LABEL-?L'100,2'?MISCUS,DISP-SHR // FILE NAME-RECEV,LABEL-?L'100,2'?RECEV,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0774,RECL-096,DATE-01/03/23,TIME-1224 // LOAD JF0775 // FILE NAME-RECEV,LABEL-?L'100,2'?RECEV,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-XSLMN,LABEL-?WS?XSLMN,RECORDS-1 // FILE NAME-XCOMM,LABEL-?WS?XCOMM,RECORDS-50000 // RUN // LOAD JF0776 // FILE NAME-PYMT,LABEL-?L'100,2'?PYMT,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-RECEV,LABEL-?L'100,2'?RECEV,DISP-SHR // FILE NAME-XSLMN,LABEL-?WS?XSLMN,RETAIN-S // FILE NAME-XCOMM,LABEL-?WS?XCOMM // RUN // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XCOMM,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XCOMMS,RECORDS-50000 // RUN HSORTR 19A 3X 50 FNC 1 2 FNU 3 8 FNU 9 14 FNC 15 FNU 16 19 FDC 1 50 // END // LOAD JF0777 // FILE NAME-XCOMMS,LABEL-?WS?XCOMMS,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-SALMEN,LABEL-?L'100,2'?SALMEN,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0775,RECL-096,REF-000001,DATE-01/03/23,TIME-1224 // LOAD JF0775 // FILE NAME-RECEV,LABEL-?L'100,2'?RECEV,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-XFREC,LABEL-?WS?XFREC,RECORDS-10000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0777,RECL-096,DATE-01/03/23,TIME-1224 // LOAD JF0777 // FILE NAME-XFRECS,LABEL-?WS?XFRECS,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-SALMEN,LABEL-?L'100,2'?SALMEN,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0778,RECL-096,REF-000003,DATE-07/08/29,TIME-0902 // LOAD JF0778 // PRINTER NAME-PRT,CPI-15 // SWITCH 10100000 // FILE NAME-XRECSM,LABEL-?WS?XRECSM,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-UNCASH,LABEL-?L'100,2'?UNCASH,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0779,RECL-096,DATE-07/08/29,TIME-0902 // LOAD JF0778 // PRINTER NAME-PRT,CPI-15 // SWITCH 11000000 // FILE NAME-XRECSM,LABEL-?WS?XRECSM,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0780,RECL-096,REF-000002,DATE-01/03/23,TIME-1224 JF0429 DELETE ?WS?XUSDT,F1 JF0430 JF0431 // * 'PLEASE ENTER TYPE OF REAL INVENTORY VALUE REPORT YOU WISH:' // * ' ' // * ' I = FOR ANY ITEM RANGES, LISTED IN ORDER BY ITEM#' // * ' V = FOR ANY VENDORS, LISTED IN ORDER BY VENDOR#' // IF ?R?='V' GOTO VENDOR JF0781 // GOTO END // TAG VENDOR JF0602 JF0603 JF0782 // TAG END // CEND // COPY LIBRARY-P,NAME-JF0781,RECL-096,REF-000001,DATE-01/03/23,TIME-1224 // LOAD JF0781 // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-XPRUSG,LABEL-?WS?XPRUSG,RETAIN-S // RUN // CEND // COPY LIBRARY-P,NAME-JF0782,RECL-096,DATE-01/03/23,TIME-1224 // LOAD JF0782 // FILE NAME-XITQTS,LABEL-?WS?XITQTS,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-XPRUSG,LABEL-?WS?XPRUSG,RETAIN-S // RUN // CEND // COPY LIBRARY-P,NAME-JF0784,RECL-096,DATE-01/03/23,TIME-1224 // LOAD JF0784 // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-XCSEDT,LABEL-?WS?XCSEDT,RECORDS-8000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0785,RECL-096,DATE-01/03/23,TIME-1224 // LOAD JF0785 // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-XCSEDT,LABEL-?WS?XCSEDT,RETAIN-S // RUN // CEND // COPY LIBRARY-P,NAME-JF0786,RECL-096,REF-000001,DATE-01/03/23,TIME-1224 // LOAD JF0786 // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0787,RECL-096,REF-000001,DATE-01/03/23,TIME-1224 // IF DATAF1-?WS?XCSEDT DELETE ?WS?XCSEDT,F1 JF0784 JF0785 // CEND // COPY LIBRARY-P,NAME-JF0788,RECL-096,REF-000001,DATE-09/12/10,TIME-1018 *** TRUCK MILL REPORT FOR DEPARTMENT V4 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XITOR // FILE NAME-OUTPUT,LABEL-?WS?XITORS,RECORDS-10000 // RUN HSORTR 22A 3X 220 I C 1 2EQCV4 FNU 116 121 FNC 122 123 FNU 124 126 FNU 17 22 FNU 23 25 FNU 26 27 FDC 1 220 // END // CEND // COPY LIBRARY-P,NAME-JF0789,RECL-096,REF-000002,DATE-09/12/10,TIME-1019 *** TRUCK MILL REPORT FOR DEPARTMENT V4 // LOAD JF0281 // SWITCH 10000000 // PRINTER NAME-PRT,FORMSNO-8X11,COPIES-3 // FILE NAME-XITORS,LABEL-?WS?XITORS,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-DEPT,LABEL-?L'100,2'?DEPT,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-XITHD,LABEL-?WS?XITHD // RUN // CEND // COPY LIBRARY-P,NAME-JF0790,RECL-096,DATE-01/03/23,TIME-1224 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XCUSSM,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XXCUSS,RECORDS-5000 // RUN HSORTR 38A 3X 600 I P 177 181NEC000000000 IOP 182 186NEC000000000 IOP 187 191NEC000000000 IOP 192 196NEC000000000 IOP 197 201NEC000000000 IOP 202 206NEC000000000 IOP 207 211NEC000000000 IOP 212 216NEC000000000 IOP 217 221NEC000000000 IOP 222 226NEC000000000 IOP 227 231NEC000000000 IOP 232 236NEC000000000 IOP 237 241NEC000000000 IOP 242 246NEC000000000 IOP 247 251NEC000000000 IOP 252 256NEC000000000 IOP 257 261NEC000000000 IOP 262 266NEC000000000 IOP 267 271NEC000000000 IOP 272 276NEC000000000 IOP 277 281NEC000000000 IOP 282 286NEC000000000 IOP 287 291NEC000000000 IOP 292 296NEC000000000 FNC 299 300 FNC 8 37 FNU 1 6 FDC 1 256 FDC 257 512 FDC 513 600 // END // CEND // COPY LIBRARY-P,NAME-JF0791,RECL-096,DATE-01/03/23,TIME-1224 // LOAD JF0791 // FILE NAME-INVCE,LABEL-?L'100,2'?INVCE,DISP-SHR // FILE NAME-XRINV,LABEL-?WS?XRINV,RECORDS-40000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0792,RECL-096,DATE-01/03/23,TIME-1224 // LOAD JF0792 // FILE NAME-XRINV,LABEL-?WS?XRINV,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-PRCTAB,LABEL-?L'100,2'?PRCTAB,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0793,RECL-096,DATE-01/03/23,TIME-1224 JF0791 JF0792 // CEND // COPY LIBRARY-P,NAME-JF0794,RECL-096,REF-000005,DATE-08/02/12,TIME-2045 // * 'THIS PROCEDURE WILL COPY TO TAPE OLD INVOICE DATA' // * 'AND REMOVE THESE FROM THE COMPUTER (FOR COMPANY ?L'100,2'?)' // * ' ' // * 'NO ONE ELSE MAY BE USING THIS FILE WHILE THIS IS BEING DONE' // * ' AND IT WILL TAKE A CONSIDERABLE AMOUNT OF TIME (SEVERAL HOURS).' // * ' ' // * 'IF YOU WISH TO CONTINUE ENTER THE WORD "CONTINUE" AND PRESS THE ENTER KEY' // * 'IF YOU WISH TO CANCEL JUST PRESS THE ENTER KEY' // IFF ?R?='CONTINUE' GOTO END // * ' ' // * 'ENTER THE LAST YEAR (2 DIGITS) FOR WHICH INVOICES ARE TO BE REMOVED' // * 'FROM THE COMPUTER.' // * ' (ONLY INVOICES AFTER THE END OF THIS YEAR WILL REMAIN IN THE COMPUTER.)' // LOCAL OFFSET-1,DATA-'?R?' // * ' ' // * 'IT WILL TAKE A LONG TIME TO SEPARATE THE INVOICES' // * ' INTO THOSE THAT REMAIN AND THOSE THAT WILL BE REMOVED.' // * 'WHEN THIS HAS BEEN DONE YOU WILL BE ASKED TO INSERT TWO TAPES,' // * ' ONE AFTER ANOTHER, TO RECEIVE TWO IDENTICAL COPIES OF THE INVOICES' // * ' TO BE REMOVED (IN CASE YOU MAY LATER NEED THEM).' // * ' ' // * 'GOOD-BY AND RETURN IN A FEW HOURS. THANK YOU.' // * ' ' ***// IF DATAF1-?WS?XINVCE DELETE ?WS?XINVCE,F1 ***// IF DATAF1-?WS?XINVCB DELETE ?WS?XINVCB,F1 ***// IF DATAF1-?L'100,2'??L'1,2'?INVE DELETE ?L'100,2'??L'1,2'?INVE,F1 ***// IF DATAF1-?L'100,2'??L'1,2'?INVB DELETE ?L'100,2'??L'1,2'?INVB,F1 RENAME ?L'100,2'?INVCE,?WS?XINVCE RENAME ?L'100,2'?INVCB,?WS?XINVCB // LOAD JF0794 // SWITCH 10000000 // FILE NAME-XINVCB,LABEL-?WS?XINVCB // FILE NAME-XINVCE,LABEL-?WS?XINVCE // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-INVCB,LABEL-?L'100,2'?INVCB,RECORDS-350000,EXTEND-5000 // FILE NAME-OINVCB,LABEL-?L'100,2'??L'1,2'?INVB,RECORDS-350000 // FILE NAME-INVCE,LABEL-?L'100,2'?INVCE,RECORDS-4000000,EXTEND-25000 // FILE NAME-OINVCE,LABEL-?L'100,2'??L'1,2'?INVE,RECORDS-4000000 // RUN // * ' ' // * 'PLEASE PUT A TAPE INTO THE COMPUTER TO COPY INVOICE' // * 'RECORDS FOR THE LATEST YEAR OF ?L'1,2'?' // * ' ' // * 'THE TAPE MUST HAVE THE VOLUME ID OF JOFFE.' // * 'IT MAY HAVE OTHER FILES ON IT IF YOU WISH TO SAVE TAPES,' // * 'BUT BE CERTAIN THAT ANY FILES YOU WISH TO SAVE HAVE AN EXPIRATION DATE' // * 'OF PROTECT. YOU CAN SEE THIS BY TAKING A CATALOG OF THE TAPE.' // * ' ' // * 'LABEL THE TAPE WITH THE LATEST INVOICE YEAR ?L'1,2'?' // * 'AND THE DATE YOU RAN THIS PROCEDURE (CURRENT DATE)' // * ' ' // * 'TAKE A O OPTION TO THE PAUSE HALT TO CONTINUE WHEN YOU ARE READY' // * ' ' // PAUSE *****TAPEINIT TC,SL,JOFFE,,JOFFE SAVE ?L'100,2'??L'1,2'?INVB,999,,JOFFE,TC SAVE ?L'100,2'??L'1,2'?INVE,999,,JOFFE,TC // * ' ' // * 'PLEASE PUT A TAPE INTO THE COMPUTER TO MAKE A SECOND COPY' // * 'OF THE INVOICE RECORDS FOR THE LATEST YEAR OF ?L'1,2'?' // * ' ' // * 'THE TAPE MUST HAVE THE VOLUME ID OF JOFFE.' // * 'IT MAY HAVE OTHER FILES ON IT IF YOU WISH TO SAVE TAPES,' // * 'BUT BE CERTAIN THAT ANY FILES YOU WISH TO SAVE HAVE AN EXPIRATION DATE' // * 'OF PROTECT. YOU CAN SEE THIS BY TAKING A CATALOG OF THE TAPE.' // * ' ' // * 'LABEL THE TAPE WITH THE LATEST INVOICE YEAR ?L'1,2'?' // * 'AND THE DATE YOU RAN THIS PROCEDURE (CURRENT DATE)' // * ' ' // * 'TAKE A O OPTION TO THE PAUSE HALT TO CONTINUE WHEN YOU ARE READY' // * ' ' // PAUSE *****TAPEINIT TC,SL,JOFFE,,JOFFE SAVE ?L'100,2'??L'1,2'?INVB,999,,JOFFE,TC SAVE ?L'100,2'??L'1,2'?INVE,999,,JOFFE,TC // * 'WHEN YOU ARE SATISFIED WITH THIS REMOVAL OF OLD RECORDS' // * 'BE SURE TO DELETE THE FILES ?L'100,2'??L'1,2'?INVB, ?WS?XINVCB,' // * ' ?L'100,2'??L'1,2'?INVE, AND ?WS?XINVCE' // * ' ' // * 'PRESS ENTER TO RETURN TO THE MENU' // * ' ' // IF ?R?='X' GOTO END // GOTO END // TAG END // CEND // COPY LIBRARY-P,NAME-JF0795,RECL-096,DATE-01/03/23,TIME-1224 // LOAD JF0795 // FILE NAME-XINVB,LABEL-?L'100,2'?XINVB,RETAIN-S // FILE NAME-INVCB,LABEL-?L'100,2'?INVCB,RECORDS-150000,EXTEND-5000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0796,RECL-096,DATE-01/03/23,TIME-1224 // LOAD JF0795 // FILE NAME-XINVB,LABEL-?L'100,2'?XOINVB,RETAIN-S // FILE NAME-OINVCB,LABEL-?L'100,2'?OINVCB,RECORDS-150000,EXTEND-5000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0797,RECL-096,DATE-01/03/23,TIME-1224 // * 'PLEASE ENTER PASSWORD' // IFF ?R?='JOFFEROONY' GOTO END JF0794 JF0795 JF0796 // * 'THE TWO FILES ' // * ' ?L'100,2'?OINVCB' // * ' ?L'100,2'?OINVCE' // * ' ' // * 'SHOULD BE COPIED TO TAPE (AND ALSO A BACKUP TAPE)' // * 'TO BE USED LATER FOR HISTORICAL PURPOSES' // * 'AND THE ERASED FROM THE COMPUTER.' // * ' ' // * 'AFTER YOU HAVE READ THIS PRESS ENTER TO RETURN TO MENU.' // IF ?R?='X' GOTO END // TAG END // CEND // COPY LIBRARY-P,NAME-JF0798,RECL-096,DATE-01/03/23,TIME-1224 JF0799 JF0800 JF0801 JF0802 // CEND // COPY LIBRARY-P,NAME-JF0799,RECL-096,REF-000001,DATE-01/03/23,TIME-1224 // LOAD JF0799 // FILE NAME-PRDUSG,LABEL-?L'100,2'?PRDUSG,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-XSLCT,LABEL-?WS?XSLCT,RECORDS-1000000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0800,RECL-096,DATE-01/03/23,TIME-1224 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XSLCT,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XSLCS,RECORDS-1000000 // RUN HSORTR 27A 3X 56 FNC 37 38 FNC 39 40 FNU 41 46 FNU 47 52 FNU 53 56 FNC 1 7 FDC 1 56 // END // CEND // COPY LIBRARY-P,NAME-JF0801,RECL-096,DATE-01/03/23,TIME-1224 // LOAD JF0801 // FILE NAME-XSLCS,LABEL-?WS?XSLCS // FILE NAME-XSLTS,LABEL-?WS?XSLTS,RECORDS-500 // RUN // CEND // COPY LIBRARY-P,NAME-JF0802,RECL-096,DATE-01/03/23,TIME-1224 // LOAD JF0802 // FILE NAME-XSLCS,LABEL-?WS?XSLCS,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-SALMEN,LABEL-?L'100,2'?SALMEN,DISP-SHR // FILE NAME-DEPT,LABEL-?L'100,2'?DEPT,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-XSLTS,LABEL-?WS?XSLTS,RETAIN-S // RUN // CEND // COPY LIBRARY-P,NAME-JF0803,RECL-096,DATE-01/03/23,TIME-1224 JF0804 JF0805 JF0806 // CEND // COPY LIBRARY-P,NAME-JF0804,RECL-096,REF-000001,DATE-01/03/23,TIME-1224 // LOAD JF0804 // FILE NAME-PRDUSG,LABEL-?L'100,2'?PRDUSG,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-XSLDT,LABEL-?WS?XSLDT,RECORDS-100000 // FILE NAME-XDTVN,LABEL-?WS?XDTVN,RECORDS-1 // RUN // CEND // COPY LIBRARY-P,NAME-JF0805,RECL-096,DATE-03/10/26,TIME-2057 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XSLDT,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XSLDS,RECORDS-100000 // RUN HSORTR 15A 3X 21 FNC 1 7 FOU 14 21 FDC 1 21 // END // CEND // COPY LIBRARY-P,NAME-JF0806,RECL-096,REF-000001,DATE-01/03/23,TIME-1224 // LOAD JF0806 // FILE NAME-XSLDS,LABEL-?WS?XSLDS,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-XDTVN,LABEL-?WS?XDTVN,RETAIN-S // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0807,RECL-096,DATE-01/03/23,TIME-1224 JF0808 JF0809 // IF ?L'1,1'?='M' JF0810 // IF ?L'1,1'?='W' JF0811 // CEND // COPY LIBRARY-P,NAME-JF0808,RECL-096,DATE-01/03/23,TIME-1224 // LOAD JF0808 // FILE NAME-INVCE,LABEL-?L'100,2'?INVCE,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-XZNSL,LABEL-?WS?XZNSL,RECORDS-100000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0809,RECL-096,DATE-01/03/23,TIME-1224 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XZNSL,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XZNSS,RECORDS-100000 // RUN HSORTR 24A 3X 40 FNC 1 2 FNC 3 6 FNU 23 24 FNU 19 20 FNU 21 22 FNU 7 12 FNU 13 18 FDC 1 40 // END // CEND // COPY LIBRARY-P,NAME-JF0810,RECL-096,DATE-01/03/23,TIME-1224 // LOAD JF0810 // FILE NAME-XZNSS,LABEL-?WS?XZNSS,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0811,RECL-096,REF-000001,DATE-01/03/23,TIME-1224 // LOAD JF0811 // FILE NAME-XZNSS,LABEL-?WS?XZNSS,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0812,RECL-096,DATE-01/03/23,TIME-1224 // IFF DATAF1-?WS?XAPIN BLDFILE ?WS?XAPIN,I,R,1000,262,,,1,14 // IFF DATAF1-?WS?XAPTL BLDFILE ?WS?XAPTL,I,R,1,13,,,1,1 JF0813 JF0814 JF0239 // CEND // COPY LIBRARY-P,NAME-JF0813,RECL-096,DATE-01/03/23,TIME-1224 // LOAD JF0813 // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-VENDOR,LABEL-?L'100,2'?VENDOR,DISP-SHR // FILE NAME-OPENAP,LABEL-?L'100,2'?OPENAP,DISP-SHR // FILE NAME-GLFILE,LABEL-?L'100,2'?GLFILE,DISP-SHR // FILE NAME-XAPIN,LABEL-?WS?XAPIN,DISP-SHR // FILE NAME-XAPTL,LABEL-?WS?XAPTL,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0814,RECL-096,DATE-01/03/23,TIME-1224 // IF DATAF1-?WS?XAPWK DELETE ?WS?XAPWK,F1 // LOAD JF0814 // FILE NAME-XAPIN,LABEL-?WS?XAPIN,DISP-SHR // FILE NAME-XAPTL,LABEL-?WS?XAPTL,DISP-SHR // FILE NAME-XAPWK,LABEL-?WS?XAPWK,RECORDS-5000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0815,RECL-096,REF-000001,DATE-01/03/23,TIME-1224 // LOAD JF0815 // FILE NAME-INVCE,LABEL-?L'100,2'?INVCE,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0817,RECL-096,REF-000002,DATE-01/03/23,TIME-1224 // * ' ' // * 'DO YOU WISH REPRINTED INVOICES TO PRINT ON:' // * ' ' // * ' 1 - INVOICE FORMS' // * ' 2 - STOCK PAPER' // * ' ' // * 'PLEASE ENTER 1 OR 2 TO INDICATE YOUR CHOICE. THANK YOU.' // * ' ' // LOCAL OFFSET-1,DATA-'?R?' // LOAD JF0655 // FILE NAME-INVCE,LABEL-?L'100,2'?OINVCE,DISP-SHR // FILE NAME-XRINV,LABEL-?WS?XRINV,RECORDS-200000 // RUN // IF ?L'1,1'?='2' GOTO PAP // LOAD JF0656 // SWITCH 01000000 // PRINTER NAME-PRT,FORMSNO-RINV // FILE NAME-XRINV,LABEL-?WS?XRINV,RETAIN-S // RUN // GOTO END // TAG PAP // LOAD JF0657 // FILE NAME-XRINV,LABEL-?WS?XRINV,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // RUN // TAG END // CEND // COPY LIBRARY-P,NAME-JF0818,RECL-096,DATE-01/03/23,TIME-1224 // LOAD JF0818 // FILE NAME-INVCE,LABEL-?L'100,2'?INVCE,DISP-SHR // FILE NAME-XSALE,LABEL-?WS?XSALE,RECORDS-50000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0819,RECL-096,DATE-01/03/23,TIME-1224 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XSALE // FILE NAME-OUTPUT,LABEL-?WS?XSALS,RECORDS-50000 // RUN HSORTR 15A 3X 79 FNU 78 79 FNC 20 26 FNU 1 6 FDC 1 79 // END // CEND // COPY LIBRARY-P,NAME-JF0820,RECL-096,DATE-01/03/23,TIME-1224 // LOAD JF0820 // FILE NAME-XSALS,LABEL-?WS?XSALS // RUN // CEND // COPY LIBRARY-P,NAME-JF0821,RECL-096,DATE-01/03/23,TIME-1224 JF0818 JF0819 JF0820 // CEND // COPY LIBRARY-P,NAME-JF0822,RECL-096,DATE-01/03/23,TIME-1224 // LOAD JF0822 // FILE NAME-XITOR,LABEL-?WS?XITOR // FILE NAME-XDPCH,LABEL-?WS?XDPCH // FILE NAME-XLDDP,LABEL-?WS?XLDDP,RECORDS-5000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0823,RECL-096,REF-000001,DATE-01/03/23,TIME-1224 RENAME ?WS?XITOR,?WS?XXITOR // LOAD JF0823 // FILE NAME-XXITOR,LABEL-?WS?XXITOR,RETAIN-S // FILE NAME-XDPCH,LABEL-?WS?XDPCH // FILE NAME-XLDDP,LABEL-?WS?XLDDP,RETAIN-S // FILE NAME-XITOR,LABEL-?WS?XITOR,RECORDS-25000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0824,RECL-096,REF-000002,DATE-01/03/23,TIME-1224 // LOAD JF0824 // FILE NAME-XININ,LABEL-?WS?XININ // FILE NAME-INVCE,LABEL-?L'100,2'?INVCE,DISP-SHR // FILE NAME-XRINV,LABEL-?WS?XRINV,RECORDS-200000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0825,RECL-096,DATE-08/02/26,TIME-0752 // * 'ENTER REPORT MONTH YOU WISH FOR CONTROL ACCOUNT REGISTER:' // * ' 2 = TWO MONTHS AHEAD' // * ' 1 = ONE MONTH AHEAD' // * ' ANYTHING ELSE = CURRENT MONTH' // LOCAL OFFSET-1,DATA-'?R?',BLANK-1 JF0826 JF0827 JF0828 JF0829 JF0830 JF0831 // CEND // COPY LIBRARY-P,NAME-JF0826,RECL-096,DATE-01/03/23,TIME-1224 // LOAD JF0826 // FILE NAME-OPENAP,LABEL-?L'100,2'?OPENAP,DISP-SHR // FILE NAME-CHKFLE,LABEL-?L'100,2'?CHKFLE,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-INVACC,LABEL-?L'100,2'?INVACC,DISP-SHR // FILE NAME-XINCK,LABEL-?WS?XINCK,RECORDS-50000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0827,RECL-096,REF-000001,DATE-01/03/23,TIME-1224 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?L'100,2'?GLTRAN,DISP-SHR // FILE NAME-OUTPUT,LABEL-?WS?XGLTR,RECORDS-25000 // RUN HSORTR 15A 3X 24 I C 24EQCA FNU 1 6 FNU 20 21 FNU 16 19 FNP 13 15 FDC 1 24 // END // CEND // COPY LIBRARY-P,NAME-JF0828,RECL-096,DATE-01/03/23,TIME-1224 // LOAD JF0828 // FILE NAME-XGLTR,LABEL-?WS?XGLTR // FILE NAME-XGLTI,LABEL-?WS?XGLTI,RECORDS-25000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0829,RECL-096,REF-000001,DATE-01/03/23,TIME-1224 // LOAD JF0829 // FILE NAME-XGLTR,LABEL-?WS?XGLTR,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-XINCK,LABEL-?WS?XINCK // RUN // CEND // COPY LIBRARY-P,NAME-JF0830,RECL-096,REF-000002,DATE-01/03/23,TIME-1224 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XINCK,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XINCS,RECORDS-50000 // RUN HSORTR 25A 3X 64 FNC 1 6 FNU 56 57 FNU 50 51 FNU 23 28 FNC 15 22 FNC 29 FDC 1 64 // END // CEND // COPY LIBRARY-P,NAME-JF0831,RECL-096,DATE-01/03/23,TIME-1224 // LOAD JF0831 // FILE NAME-XINCS,LABEL-?WS?XINCS,RETAIN-S // FILE NAME-XGLTI,LABEL-?WS?XGLTI,RETAIN-S // FILE NAME-JRDESC,LABEL-?L'100,2'?JRDESC,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-VENDOR,LABEL-?L'100,2'?VENDOR,DISP-SHR // FILE NAME-GLFILE,LABEL-?L'100,2'?GLFILE,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0832,RECL-096,REF-000005,DATE-01/04/20,TIME-0819 // LOAD JF0832 // PRINTER NAME-PRT,ROTATE-0,DEVICE-P6,DRAWER-2 // FILE NAME-APPAY,LABEL-?L'100,2'?APPAY // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0833,RECL-096,REF-000008,DATE-01/03/23,TIME-1224 // * 'THIS PROCEDURE WILL ERASE ANY PREVIOUS TEMPORARY PRICING FILES.' // * 'IF YOU WISH TO CONTINUE PLEASE ENTER THE PASSWORD.' // IFF ?R?='JOSENEWPRICE' GOTO NOCOPY // IF DATAF1-?L'100,2'?NHOUS DELETE ?L'100,2'?NHOUS,F1 // IF DATAF1-?L'100,2'?NPRCTA DELETE ?L'100,2'?NPRCTA,F1 COPYDATA ?L'100,2'?HOUSE,,?L'100,2'?NHOUS COPYDATA ?L'100,2'?PRCTAB,,?L'100,2'?NPRCTA // GOTO COPY // TAG NOCOPY // * ' ' // * 'INCORRECT PASSWORD. THE PROCEDURE HAS BEEN CANCELLED.' // * ' ' // GOTO MESAGE // TAG COPY // * ' ' // * 'COPIES OF THE CURRENT HOUSE AND CUSTOMER PRICING FILES HAVE BEEN MADE' // * 'TO CONTAIN THE NEW PRICING. CURRENT PRICING WILL NOT BE AFFECTED.' // TAG MESAGE // * ' ' // * 'PRESS ENTER AFTER YOU HAVE READ THIS MESSAGE.' // * ' ' // IF ?R?='X' GOTO END // TAG END // CEND // COPY LIBRARY-P,NAME-JF0834,RECL-096,DATE-01/03/23,TIME-1224 // LOAD JF0596 // FILE NAME-PRCTAB,LABEL-?L'100,2'?NPRCTA,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0835,RECL-096,DATE-01/03/23,TIME-1224 JF0836 JF0837 // CEND // COPY LIBRARY-P,NAME-JF0836,RECL-096,DATE-01/03/23,TIME-1224 // LOAD JF0015 // FILE NAME-HOUSE,LABEL-?L'100,2'?NHOUS,DISP-SHR // FILE NAME-XHSEL,LABEL-?WS?XHSEL,RECORDS-30000 // FILE NAME-XHSCH,LABEL-?WS?XHSCH,RECORDS-1 // RUN // CEND // COPY LIBRARY-P,NAME-JF0837,RECL-096,DATE-01/03/23,TIME-1224 // LOAD JF0016 // IF ?L'201,1'?='2' SWITCH 10000001 // IFF ?L'201,1'?='2' SWITCH 10000010 ***** // IF ?L'201,1'?='2' PRINTER NAME-PRT2,FORMSNO-8X14 ***** // IFF ?L'201,1'?='2' PRINTER NAME-PRT1 // IF ?L'201,1'?='2' GOTO PRINT2 // IF ?WS?='X8' PRINTER NAME-PRT1,FONT-DF // IFF ?WS?='X8' PRINTER NAME-PRT1 // GOTO BEGIN // TAG PRINT2 // IF ?WS?='X8' PRINTER NAME-PRT2,FORMSNO-8X14,FONT-DF // IFF ?WS?='X8' PRINTER NAME-PRT2,FORMSNO-8X14 // TAG BEGIN // FILE NAME-XHSEL,LABEL-?WS?XHSEL,RETAIN-S // FILE NAME-XHSCH,LABEL-?WS?XHSCH,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-BSEHSE,LABEL-?L'100,2'?BSEHSE,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-PRCTAB,LABEL-?L'100,2'?NPRCTA,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0838,RECL-096,DATE-01/03/23,TIME-1224 JF0839 JF0840 // CEND // COPY LIBRARY-P,NAME-JF0839,RECL-096,REF-000002,DATE-01/03/23,TIME-1224 // LOAD JF0747 // FILE NAME-PRCTAB,LABEL-?L'100,2'?NPRCTA,DISP-SHR // FILE NAME-XCOTAB,LABEL-?WS?XCOTAB,RECORDS-1 // RUN // CEND // COPY LIBRARY-P,NAME-JF0840,RECL-096,REF-000002,DATE-01/03/23,TIME-1224 // LOAD JF0740 // FILE NAME-PRCTAB,LABEL-?L'100,2'?NPRCTA,DISP-SHR // FILE NAME-XCOTAB,LABEL-?WS?XCOTAB,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-PRCTABC,LABEL-?L'100,2'?NPRCTA,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0841,RECL-096,REF-000002,DATE-01/03/23,TIME-1224 // LOAD JF0714 // FILE NAME-PRCTAB,LABEL-?L'100,2'?NPRCTA,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0842,RECL-096,REF-000001,DATE-01/03/23,TIME-1224 JF0843 JF0844 // CEND // COPY LIBRARY-P,NAME-JF0843,RECL-096,REF-000004,DATE-01/03/23,TIME-1224 // LOAD JF0729 // FILE NAME-HOUSE,LABEL-?L'100,2'?NHOUS,DISP-SHR // FILE NAME-XXHSSL,LABEL-?WS?XXHSSL,RECORDS-5000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0844,RECL-096,REF-000003,DATE-01/03/23,TIME-1224 // LOAD JF0552 // SWITCH 00000000 // FILE NAME-XXHSSL,LABEL-?WS?XXHSSL,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-HOUSE,LABEL-?L'100,2'?NHOUS,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-PRCTAB,LABEL-?L'100,2'?NPRCTA,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0845,RECL-096,REF-000001,DATE-01/03/23,TIME-1224 JF0534 // JOBQ JOFFE,JF0846 // CEND // COPY LIBRARY-P,NAME-JF0846,RECL-096,REF-000002,DATE-01/03/23,TIME-1224 JF0847 // IF ?L'1,1'?='1' JF0540 // IF ?L'1,1'?='1' JF0848 // IF ?L'1,1'?='2' JF0537 // IF ?L'1,1'?='2' JF0849 // CEND // COPY LIBRARY-P,NAME-JF0847,RECL-096,REF-000001,DATE-01/03/23,TIME-1224 // LOAD JF0541 // FILE NAME-HOUSE,LABEL-?L'100,2'?NHOUS,DISP-SHR // FILE NAME-XIN534,LABEL-?WS?XIN534,RETAIN-S // FILE NAME-XCSHS,LABEL-?WS?XCSHS,RECORDS-60000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0848,RECL-096,REF-000004,DATE-01/03/23,TIME-1224 // LOAD JF0536 // SWITCH 00000010 // IFF ?WS?=X8 PRINTER NAME-PRT1,COPIES-2 // FILE NAME-XHSE,LABEL-?WS?XHSE,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-PRCTAB,LABEL-?L'100,2'?NPRCTA,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0849,RECL-096,REF-000004,DATE-01/03/23,TIME-1224 // LOAD JF0536 // SWITCH 00000001 // IFF ?WS?=X8 PRINTER NAME-PRT2,FORMSNO-8X14,COPIES-2 // FILE NAME-XHSE,LABEL-?WS?XHSE,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-PRCTAB,LABEL-?L'100,2'?NPRCTA,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0850,RECL-096,REF-000001,DATE-01/03/23,TIME-1224 // * 'PLEASE INDICATE WHICH SIZE PAPER YOU WISH FOR DETAILED HOUSE LISTING:' // * ' ' // * ' 1 = 11 X 14 INCH (FULL SIZE COMPUTER PAPER)' // * ' 2 = 8 1/2 X 14 INCH' // * ' ' // LOCAL OFFSET-201,DATA-'?R?',BLANK-1 // * ' ' // * 'DO YOU WISH PRICES TO PRINT FOR SINGLE-LINE PRICED HOUSES' // * 'FOR THOSE CUSTOMERS DESIGNATED AS NOT NORMALLY HAVING PRICES PRINT ?' // * ' (Y=YES, N OR JUST PRESSING ENTER=NO)' // * ' ' // LOCAL OFFSET-1,DATA-'?R?',BLANK-1 // * ' ' JF0851 JF0662 RENAME ?WS?XHSELS,?WS?XHSEL JF0837 // CEND // COPY LIBRARY-P,NAME-JF0851,RECL-096,REF-000001,DATE-01/03/23,TIME-1224 // LOAD JF0661 // FILE NAME-HOUSE,LABEL-?L'100,2'?NHOUS,DISP-SHR // FILE NAME-XHSEL,LABEL-?WS?XHSEL,RECORDS-225000 // FILE NAME-XHSCH,LABEL-?WS?XHSCH,RECORDS-1 // RUN // CEND // COPY LIBRARY-P,NAME-JF0852,RECL-096,REF-000001,DATE-01/03/23,TIME-1224 // LOAD JF0852 // FILE NAME-XLDTRS,LABEL-?WS?XLDTRS,RETAIN-S // FILE NAME-XTRKL,LABEL-?WS?XTRKL,RECORDS-3000 // FILE NAME-XTRDT,LABEL-?WS?XTRDT,RECORDS-1 // RUN // CEND // COPY LIBRARY-P,NAME-JF0853,RECL-096,REF-000001,DATE-06/03/27,TIME-1421 // LOAD JF0853 // PRINTER NAME-PRT,FORMSNO-8X11 // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-XTRDT,LABEL-?WS?XTRDT,RETAIN-S // FILE NAME-XTRKL,LABEL-?WS?XTRKL,RETAIN-S // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0854,RECL-096,DATE-04/03/31,TIME-1257 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?L'100,2'?LDTRK,DISP-SHR // FILE NAME-OUTPUT,LABEL-?WS?XLDTRS,RECORDS-3000 // RUN HSORTR 6A 3X 130 I C 130EQCA FNC 8 13 FDC 1 130 // END // CEND // COPY LIBRARY-P,NAME-JF0855,RECL-096,REF-000002,DATE-09/12/10,TIME-1021 *** TRUCK MILL REPORT FOR DEPARTMENTS ALL L EXCEPT L1 AND L2 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XITOR // FILE NAME-OUTPUT,LABEL-?WS?XITORS,RECORDS-10000 // RUN HSORTR 24A 3X 220 I C 1EQCL IAC 2NEC1 IAC 2NEC2 FNU 116 121 FNC 1 2 FNC 122 123 FNU 124 126 FNU 17 22 FNU 23 25 FNU 26 27 FDC 1 220 // END // CEND // COPY LIBRARY-P,NAME-JF0856,RECL-096,REF-000001,DATE-09/12/10,TIME-1022 *** TRUCK MILL REPORT FOR DEPARTMENTS ALL L EXCEPT L1 AND L2 // LOAD JF0281 // SWITCH 10000000 // PRINTER NAME-PRT,FORMSNO-8X11,COPIES-4 // FILE NAME-XITORS,LABEL-?WS?XITORS,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-DEPT,LABEL-?L'100,2'?DEPT,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-XITHD,LABEL-?WS?XITHD // RUN // CEND // COPY LIBRARY-P,NAME-JF0857,RECL-096,DATE-01/03/23,TIME-1224 // LOAD JF0857 // FILE NAME-XJDES,LABEL-?L'100,2'?XJDES // RUN // CEND // COPY LIBRARY-P,NAME-JF0858,RECL-096,DATE-01/03/23,TIME-1224 JF0859 JF0860 JF0861 // CEND // COPY LIBRARY-P,NAME-JF0859,RECL-096,DATE-01/03/23,TIME-1224 // LOAD JF0859 // FILE NAME-PYMT,LABEL-?L'100,2'?PYMT,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-XTPAD,LABEL-?WS?XTPAD,RECORDS-10000 // FILE NAME-XNPAD,LABEL-?WS?XNPAD,RECORDS-1 // RUN // CEND // COPY LIBRARY-P,NAME-JF0860,RECL-096,DATE-04/08/26,TIME-1240 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XTPAD,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XTPADS,RECORDS-10000 // RUN HSORTR 17A 3X 139 FNC 136 137 FNC 139 FNU 10 15 FNU 1 6 FNU 18 19 FDC 1 139 // END // CEND // COPY LIBRARY-P,NAME-JF0861,RECL-096,DATE-01/03/23,TIME-1224 // LOAD JF0861 // FILE NAME-XTPADS,LABEL-?WS?XTPADS,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-XNPAD,LABEL-?WS?XNPAD,RETAIN-S // RUN // CEND // COPY LIBRARY-P,NAME-JF0862,RECL-096,DATE-01/03/23,TIME-1224 // LOAD JF0862 // FILE NAME-PRCTAB,LABEL-?L'100,2'?PRCTAB,DISP-SHR // FILE NAME-XCSNP,LABEL-?WS?XCSNP,RECORDS-10000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0863,RECL-096,REF-000001,DATE-01/03/23,TIME-1224 // LOAD JF0863 // FILE NAME-NPRCTA,LABEL-?L'100,2'?NPRCTA,DISP-SHR // FILE NAME-XCSNP,LABEL-?WS?XCSNP,RETAIN-S // FILE NAME-PRCTAB,LABEL-?L'100,2'?PRCTAB,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0864,RECL-096,DATE-01/03/23,TIME-1224 JF0862 JF0863 // CEND // COPY LIBRARY-P,NAME-JF0865,RECL-096,REF-000001,DATE-01/03/23,TIME-1224 JF0866 JF0559 JF0867 // CEND // COPY LIBRARY-P,NAME-JF0866,RECL-096,REF-000008,DATE-01/03/23,TIME-1224 // LOAD JF0708 // SWITCH 10000000 // FILE NAME-HOUSE,LABEL-?L'100,2'?NHOUS,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-CHGHS,LABEL-?L'100,2'?CHGHS,DISP-SHR // FILE NAME-XHSSL,LABEL-?WS?XHSSL,RECORDS-1000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0867,RECL-096,REF-000002,DATE-01/03/23,TIME-1224 // LOAD JF0552 // SWITCH 00000000 // FILE NAME-XXHSSL,LABEL-?WS?XXHSSL,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-HOUSE,LABEL-?L'100,2'?NHOUS,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-PRCTAB,LABEL-?L'100,2'?NPRCTA,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0868,RECL-096,DATE-06/03/27,TIME-1006 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XZLOAD // FILE NAME-OUTPUT,LABEL-?WS?XZZLOD,RECORDS-10000 // RUN HSORTR 42A 3X 220 *****I C 10EQCF FNU 101 108 DELIVERY DATE FNC 109 114 ZONE FNU 115 120 CUSTOMER# FNC 121 129 BUILDING FNC 130 137 LOG/BLOCK FNC 138 141 SEQ# FNC 206 E=EXT,I=INT,M=MISC FDC 1 220 // END // CEND // COPY LIBRARY-P,NAME-JF0869,RECL-096,DATE-01/03/23,TIME-1224 // LOAD JF0869 // FILE NAME-XZZLOD,LABEL-?WS?XZZLOD,RETAIN-S // FILE NAME-XZILOD,LABEL-?WS?XZILOD,RECORDS-10000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0870,RECL-096,DATE-01/03/23,TIME-1224 // LOAD JF0870 // FILE NAME-XZLOAD,LABEL-?WS?XZLOAD // FILE NAME-XZILOD,LABEL-?WS?XZILOD,RETAIN-S // RUN // CEND // COPY LIBRARY-P,NAME-JF0871,RECL-096,REF-000001,DATE-02/02/13,TIME-1024 JF0872 // * ' ' // * 'PLEASE SCRUTINIZE THE CHECK REGISTER THAT JUST PRINTED' // * 'TO ENSURE THAT YOU WANT TO UPDATE THESE CHECKS' // * ' ' // * 'THE CHECKS WILL BE DATED ?DATE? AND GO INTO COMPANY ?L'100,2'?.' // * ' ' // * 'DO YOU WISH TO CONTINUE WITH THE UPDATE ?' // * ' Y = YES' // * ' ANYTHING ELSE = NO' // * ' ' // IF ?R?='Y' GOTO UPDATE // * ' ' // * 'THE UPDATE HAS BEEN CANCELLED. PRESS ENTER TO RETURN TO MENU.' // IF ?R?='X' GOTO END // GOTO END // TAG UPDATE JF0252 // * ' ' // * 'THE CHECKS HAVE BEEN UPDATED INTO COMPANY ?L'100,2'?.' // * 'PRESS ENTER TO RETURN TO MENU.' // IF ?R?='X' GOTO END // GOTO END // TAG END // CEND // COPY LIBRARY-P,NAME-JF0872,RECL-096,REF-000003,DATE-01/03/23,TIME-1224 // LOAD JF0250 // SWITCH 01000000 // FILE NAME-APPAY,LABEL-?L'100,2'?APPAY // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0873,RECL-096,REF-000001,DATE-01/03/23,TIME-1224 // LOAD JF0873 // FILE NAME-RECEV,LABEL-?L'100,2'?RECEV,DISP-SHR // FILE NAME-XRECY4,LABEL-?WS?XRECY4,RECORDS-300000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0874,RECL-096,REF-000001,DATE-01/03/23,TIME-1224 // LOAD JF0874 // FILE NAME-ARCHK,LABEL-?L'100,2'?ARCHK,DISP-SHR // FILE NAME-XARY4,LABEL-?WS?XARY4,RECORDS-50000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0877,RECL-096,REF-000007,DATE-01/06/19,TIME-1108 // LOAD JF0220 OVRPRTF FILE(PRT1) USRDTA('LABELS') OVRPRTF FILE(PRT2) USRDTA('LABELS') // IF ?L'1,1'?='1' SWITCH 10000010 // IF ?L'1,1'?='1' PRINTER NAME-PRT1,FORMSNO-YLB1 // IF ?L'1,1'?='3' SWITCH 10000001 // IF ?L'1,1'?='3' PRINTER NAME-PRT2,FORMSNO-YLB3 // FILE NAME-XLABLS,LABEL-?WS?XLABLS // FILE NAME-XLABL2,LABEL-?WS?XLABLS,RETAIN-S // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-MISCUS,LABEL-?L'100,2'?MISCUS,DISP-SHR // FILE NAME-XITHD,LABEL-?WS?XITHD // RUN // CEND // COPY LIBRARY-P,NAME-JF0878,RECL-096,REF-000007,DATE-01/03/23,TIME-1224 // LOAD JF0711 // SWITCH 10000000 // PRINTER NAME-PRT,FORMSNO-YLB2 // FILE NAME-XLABLS,LABEL-?WS?XLABLS // FILE NAME-XLABL2,LABEL-?WS?XLABLS,RETAIN-S // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-MISCUS,LABEL-?L'100,2'?MISCUS,DISP-SHR // FILE NAME-XITHD,LABEL-?WS?XITHD // RUN // CEND // COPY LIBRARY-P,NAME-JF0880,RECL-096,DATE-01/03/23,TIME-1224 // LOAD JF0880 // FILE NAME-OPENAP,LABEL-?L'100,2'?OPENAP,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0881,RECL-096,DATE-01/03/23,TIME-1224 // LOAD JF0881 // FILE NAME-UNCASH,LABEL-?L'100,2'?UNCASH,DISP-SHR // FILE NAME-XXUNCS,LABEL-?WS?XXUNCS,RECORDS-10000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0884,RECL-096,REF-000001,DATE-01/03/23,TIME-1225 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XSTMT,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XXSTMT,RECORDS-50000 // RUN HSORTR 50A 3X 269 FNC 8 13 FNC 151 180 FNU 266 269 FNU 14 17 FNU 2 7 FDC 1 256 FDC 257 269 // END // CEND // COPY LIBRARY-P,NAME-JF0885,RECL-096,REF-000001,DATE-01/03/23,TIME-1225 // LOAD JF0881 // FILE NAME-UNCASH,LABEL-?L'100,2'?UNCSBD,DISP-SHR // FILE NAME-XXUNCS,LABEL-?WS?XXUNCS,RECORDS-10000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0888,RECL-096,DATE-01/03/23,TIME-1225 BLDFILE ?WS?XCUS4,I,RECORDS,500,4,,,1,4 BLDFILE ?WS?XCUS6,I,RECORDS,500,6,,,1,6 JF0678 JF0889 JF0452 JF0453 JF0891 // CEND // COPY LIBRARY-P,NAME-JF0889,RECL-096,DATE-01/09/14,TIME-1349 // LOAD JF0889 // FILE NAME-UNCASH,LABEL-?L'100,2'?UNCASH,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-XCUS4,LABEL-?WS?XCUS4 // FILE NAME-XCUS6,LABEL-?WS?XCUS6 // FILE NAME-XRECL,LABEL-?WS?XRECL // RUN // CEND // COPY LIBRARY-P,NAME-JF0892,RECL-096,REF-000001,DATE-01/03/23,TIME-1225 // * 'PLEASE ENTER PASSWORD TO ALLOW A/P INVOICE DELETIONS' // IFF ?R?='XOUT' GOTO END // LOAD JF0892 // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-OPENAP,LABEL-?L'100,2'?OPENAP,DISP-SHR // FILE NAME-INVACC,LABEL-?L'100,2'?INVACC,DISP-SHR // FILE NAME-GLFILE,LABEL-?L'100,2'?GLFILE,DISP-SHR // FILE NAME-GLTRAN,LABEL-?L'100,2'?GLTRAN,DISP-SHR // FILE NAME-NMGLEN,LABEL-?L'100,2'?NMGLEN,DISP-SHR // FILE NAME-VENDOR,LABEL-?L'100,2'?VENDOR,DISP-SHR // RUN // TAG END // CEND // COPY LIBRARY-P,NAME-JF0894,RECL-096,DATE-01/03/23,TIME-1225 // LOAD JF0894 // FILE NAME-XCRED,LABEL-?WS?XCRED // FILE NAME-RECEV,LABEL-?L'100,2'?RECEV,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0895,RECL-096,DATE-01/03/23,TIME-1225 // LOAD JF0895 // SWITCH 10000000 // FILE NAME-XCRED,LABEL-?WS?XCRED // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-RECEV,LABEL-?L'100,2'?RECEV,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-MISCUS,LABEL-?L'100,2'?MISCUS,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0896,RECL-096,DATE-01/03/23,TIME-1225 // LOAD JF0896 // SWITCH 10000000 // FILE NAME-XCRED,LABEL-?WS?XCRED // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-RECEV,LABEL-?L'100,2'?RECEV,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-MISCUS,LABEL-?L'100,2'?MISCUS,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0897,RECL-096,DATE-07/01/29,TIME-0805 // LOAD JF0895 // SWITCH 01000000 // FILE NAME-XCRED,LABEL-?WS?XCRED // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-RECEV,LABEL-?L'100,2'?RECEV,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-MISCUS,LABEL-?L'100,2'?MISCUS,DISP-SHR // FILE NAME-XXREC,LABEL-?WS?XXREC,RECORDS-3000 // FILE NAME-HCRED,LABEL-?L'100,2'?HCRED,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0898,RECL-096,REF-000001,DATE-07/10/02,TIME-0903 // LOAD JF0896 // IFF DATAF1-?L'100,2'?RECVNC SWITCH 01000000 // IF DATAF1-?L'100,2'?RECVNC SWITCH 01100000 // FILE NAME-XCRED,LABEL-?WS?XCRED // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-RECEV,LABEL-?L'100,2'?RECEV,DISP-SHR // IF DATAF1-?L'100,2'?RECVNC FILE NAME-RECVNC,LABEL-?L'100,2'?RECVNC,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-MISCUS,LABEL-?L'100,2'?MISCUS,DISP-SHR // FILE NAME-PYMT,LABEL-?L'100,2'?PYMT,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0899,RECL-096,REF-000001,DATE-07/02/26,TIME-0933 // IFF DATAF1-?WS?XCRED BLDFILE ?WS?XCRED,I,R,1000,120,,,1,6 JF0894 // * ' ' // * 'DO YOU WISH TO RUN THE INVOICE AND CASH RECEIPTS EDITS ?' // * ' Y = YES' // * ' N = NO' // * ' ' // LOCAL OFFSET-1,DATA-'?R?' // IFF ?L'1,1'?='Y' GOTO END // * ' ' // * 'DO YOU WISH TO PRINT THE CREDITS ?' // * ' Y = YES' // * ' N = NO' // * ' ' // LOCAL OFFSET-2,DATA-'?R?' JF0895 JF0896 // IFF ?L'2,1'?='Y' GOTO UPDATE // IF DATAF1-?WS?XHINV DELETE ?WS?XHINV,F1 JF1119 JF1120 // TAG UPDATE // * ' ' // * 'BE SURE TO CHECK YOUR PRINTOUTS' // * 'DO YOU WISH TO UPDATE THE PERMANENT FILES WITH THIS DATA' // * ' Y = YES' // * ' N = NO' // * ' ' // IFF ?R?='Y' GOTO END // * ' ' // * 'ARE YOU SURE YOU WANT TO RUN THE UPDATE ?' // * ' Y = YES' // * ' N = NO' // * ' ' // IFF ?R?='Y' GOTO END JF0900 JF0897 // IF DATAF1-?L'100,2'?RECVNC JF1220 DELETE ?WS?XXREC,F1 JF0898 // IF DATAF1-?WS?XHINV DELETE ?WS?XHINV,F1 JF1119 JF1121 JF0653 DELETE ?WS?XCRED,F1 // TAG END // CEND // COPY LIBRARY-P,NAME-JF0900,RECL-096,REF-000002,DATE-01/03/23,TIME-1225 // LOAD JF0900 // FILE NAME-XCRED,LABEL-?WS?XCRED // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-RECEV,LABEL-?L'100,2'?RECEV,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-MISCUS,LABEL-?L'100,2'?MISCUS,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0901,RECL-096,DATE-01/10/08,TIME-1113 // * 'THIS PROCEDURE WILL ALLOW YOU TO CHANGE CUSTOMER NUMBERS' // * 'FOR COMPANY ?L'100,2'?' // * ' ' // * 'YOU MUST BE DULY AUTHORIZED TO RUN THIS PROGRAM.' // * ' ' // * 'TO ENSURE THAT YOU ARE PLEASE ENTER THE PASSWORD NOW.' // * ' ' // IF ?R?='ABCJOFFE' GOTO BEGIN // * ' ' // * 'ACCESS TO THIS PROGRAM HAS BEEN DENIED TO YOU.' // * 'PRESS ENTER TO RETURN TO MENU.' // * ' ' // IF ?R?='X' GOTO END // GOTO END // TAG BEGIN // IFF DATAF1-?WS?XCNCHG BLDFILE ?WS?XCNCHG,I,RECORDS,500,13,,,1,6 ***// IFF DATAF1-?WS?XCGCHG BLDFILE ?WS?XCGCHG,I,RECORDS,200,10,,,1,4 // LOAD JF0902 // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-XCNCHG,LABEL-?WS?XCNCHG // RUN ***// LOAD JF0903 ***// FILE NAME-XCGCHG,LABEL-?WS?XCGCHG ***// RUN // * ' ' // * 'DO YOU WISH TO RUN THE EDIT ?' // * ' Y = YES' // * ' N = NO' // * ' ' // IFF ?R?='Y' GOTO END // LOAD JF0978 // FILE NAME-XCNCHG,LABEL-?WS?XCNCHG // FILE NAME-XCGCHG,LABEL-?WS?XCGCHG,RECORDS-1000 // RUN // LOAD JF0929 // FILE NAME-XCNCHG,LABEL-?WS?XCNCHG // FILE NAME-XCGCHG,LABEL-?WS?XCGCHG // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // RUN // * ' ' // * 'DO YOU WISH TO UPDATE THE PERMANENT FILES OF COMPANY ?L'100,2'?' // * 'WITH THESE CUSTOMER NUMBER CHANGES ?' // * ' Y = YES' // * ' N = NO' // * ' ' // * 'BE SURE TO HAVE A GOOD CURRENT BACKUP OF ALL FILES.' // * ' ' // * 'THIS UPDATE MAY TAKE SEVERAL HOURS.' // * 'NO OTHER JOBS MAY BE RUNNING WHILE THIS IS BEING DONE.' // * ' ' // * 'NO TEMPORARY FILES THAT HAVE NOT YET BEEN UPDATED MAY EXIST' // * 'SUCH AS LOADS, INVOICES, TRUCKS, ETC.' // * ' (IF THEY DO STOP THIS PROCEDURE, UPDATE THEM, AND THEN' // * ' YOU MAY START THIS UPDATE.)' // * ' ' // * 'IF YOU ARE CHANGING MULTIPLE CUSTOMERS INTO ONE CUSTOMER ALL THE' // * 'ORIGINAL CUSTOMERS MUST HAVE THE SAME PRICES IN THE PRICE TABLE.' // * 'IF THE NEW CUSTOMER ALREADY EXISTS HIS PRICES MUST ALSO BE THE SAME.' // * 'THIS IS BECAUSE ONLY ONE OF THESE PRICES WILL BE PICKED AT RANDOM.' // * ' ' // IF ?R?='Y' GOTO UPDAT1 DELETE ?WS?XCGCHG,F1 // GOTO END // TAG UPDAT1 // * ' ' // * 'ARE YOU SURE YOU WANT TO RUN THE UPDATE FOR COMPANY ?L'100,2'? ?' // * ' Y = YES' // * ' N = NO' // * ' ' // IF ?R?='Y' GOTO UPDATE DELETE ?WS?XCGCHG,F1 // GOTO END // TAG UPDATE ********** // * 'CHANGING FILE ARCHK WITH PROGRAM JF0928' // LOAD JF0928 // FILE NAME-ARCHK,LABEL-?L'100,2'?ARCHK,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-XCGCHG,LABEL-?WS?XCGCHG // RUN ********** // * 'CHANGING FILE ARCKBD WITH PROGRAM JF0939' // LOAD JF0939 // FILE NAME-ARCKBD,LABEL-?L'100,2'?ARCKBD,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-XCGCHG,LABEL-?WS?XCGCHG // RUN ********** // * 'CHANGING FILE CUSMAP WITH PROGRAM JF0904' // LOAD JF0904 // FILE NAME-XCNCHG,LABEL-?WS?XCNCHG // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-CUSMAP,LABEL-?L'100,2'?CUSMAP,DISP-SHR // RUN ********** // * 'CHANGING FILE CUSMAS WITH PROGRAM JF0905' // LOAD JF0905 // FILE NAME-XCNCHG,LABEL-?WS?XCNCHG // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // RUN ********** // * 'CHANGING FILE DPINV WITH PROGRAM JF1019' // LOAD JF1019 // FILE NAME-DPINV,LABEL-?L'100,2'?DPINV,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-XCNCHG,LABEL-?WS?XCNCHG // RUN ********** // * 'CHANGING FILE HOUEST WITH PROGRAM JF0906' // LOAD JF0906 // FILE NAME-HOUEST,LABEL-?L'100,2'?HOUEST,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-XCNCHG,LABEL-?WS?XCNCHG // RUN ********** // * 'CHANGING FILE HOUOLD WITH PROGRAM JF1035' // LOAD JF1035 // FILE NAME-HOUOLD,LABEL-?L'100,2'?HOUOLD,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-XCNCHG,LABEL-?WS?XCNCHG // RUN ********** // * 'CHANGING FILE HOUSE WITH PROGRAM JF0907' // LOAD JF0907 // FILE NAME-HOUSE,LABEL-?L'100,2'?HOUSE,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-XCNCHG,LABEL-?WS?XCNCHG // RUN ********** // * 'CHANGING FILE HSECHG WITH PROGRAM JF0980' // LOAD JF0980 // FILE NAME-HSECHG,LABEL-?L'100,2'?HSECHG,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-XCNCHG,LABEL-?WS?XCNCHG // RUN ********** // * 'CHANGING FILE INVCB WITH PROGRAM JF0908 JF1011' // IF DATAF1-?WS?XINVCB DELETE ?WS?XINVCB,F1 // IF DATAF1-?WS?XXIMVB DELETE ?WS?XXINVB,F1 *****RENAME ?L'100,2'?INVCB,?WS?XINVCB *****BLDFILE ?L'100,2'?INVCB,I,RECORDS,300000,38,,,1,30,,,25000 // LOAD JF0908 // FILE NAME-INVCB,LABEL-?L'100,2'?INVCB,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-XCNCHG,LABEL-?WS?XCNCHG // FILE NAME-XINVCB,LABEL-?WS?XINVCB,RECORDS-200000 // RUN // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XINVCB,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XXINVB,RECORDS-200000 // RUN HSORTR 36A 3X 54 FNC 1 27 FNU 51 54 FNU 38 41 FNC 31 FDC 1 54 // END // LOAD JF1011 // FILE NAME-XXINVB,LABEL-?WS?XXINVB,RETAIN-S // FILE NAME-INVCB,LABEL-?L'100,2'?INVCB,RECORDS-200000,EXTEND-5000 // RUN *****DELETE ?WS?XINVCB,F1 ********** // * 'CHANGING FILE INVCE WITH PROGRAM JF0909' // LOAD JF0909 // FILE NAME-INVCE,LABEL-?L'100,2'?INVCE,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-XCNCHG,LABEL-?WS?XCNCHG // RUN ********** // * 'CHANGING FILE LABEL WITH PROGRAM JF0927' // LOAD JF0927 // FILE NAME-LABEL,LABEL-?L'100,2'?LABEL,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-XCNCHG,LABEL-?WS?XCNCHG // RUN ********** // * 'CHANGING FILE LOAD WITH PROGRAM JF0910' // LOAD JF0910 // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-XCNCHG,LABEL-?WS?XCNCHG // RUN ********** // * 'CHANGING FILE MOVLOD WITH PROGRAM JF0911' // LOAD JF0911 // FILE NAME-MOVLOD,LABEL-?L'100,2'?MOVLOD,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-XCNCHG,LABEL-?WS?XCNCHG // RUN ********** // * 'CHANGING FILE NHOUS WITH PROGRAM JF0912' // LOAD JF0912 // FILE NAME-NHOUS,LABEL-?L'100,2'?NHOUS,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-XCNCHG,LABEL-?WS?XCNCHG // RUN ********** // * 'CHANGING FILE NJUAF WITH PROGRAM JF0913 JF0977' // IF DATAF1-?WS?XNJUAF DELETE ?WS?XNJUAF,F1 // IF DATAF1-?WS?XXNJUA DELETE ?WS?XXNJUA,F1 // LOAD JF0913 // FILE NAME-NJUAF,LABEL-?L'100,2'?NJUAF,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-XCNCHG,LABEL-?WS?XCNCHG // FILE NAME-XNJUAF,LABEL-?WS?XNJUAF,RECORDS-50000 // RUN // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XNJUAF,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XXNJUA,RECORDS-50000 // RUN HSORTR 27A 3X 50 FNC 1 27 FDC 1 50 // END // LOAD JF0977 // FILE NAME-XXNJUA,LABEL-?WS?XXNJUA,RETAIN-S // FILE NAME-NJUAF,LABEL-?L'100,2'?NJUAF,RECORDS-50000,EXTEND-5000 // RUN ********** // * 'CHANGING FILE NPRCTA WITH PROGRAM JF0926 JF0976' // IF DATAF1-?WS?XNPRCT DELETE ?WS?XNPRCT,F1 // IF DATAF1-?WS?XXNPRC DELETE ?WS?XXNPRC,F1 // LOAD JF0926 // FILE NAME-NPRCTA,LABEL-?L'100,2'?NPRCTA,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-XCNCHG,LABEL-?WS?XCNCHG // FILE NAME-XNPRCT,LABEL-?WS?XNPRCT,RECORDS-100000 // RUN // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XNPRCT,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XXNPRC,RECORDS-100000 // RUN HSORTR 14A 3X 24 FNC 1 14 FDC 1 24 // END // LOAD JF0976 // FILE NAME-XXPRCT,LABEL-?WS?XXNPRC,RETAIN-S // FILE NAME-PRCTAB,LABEL-?L'100,2'?NPRCTA,RECORDS-100000,EXTEND-5000 // RUN ********** // * 'CHANGING FILE PODOL WITH PROGRAM JF0975' // LOAD JF0975 // FILE NAME-PODOL,LABEL-?L'100,2'?PODOL,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-XCNCHG,LABEL-?WS?XCNCHG // RUN ********** // * 'CHANGING FILE POMST WITH PROGRAM JF0994' // LOAD JF0994 // FILE NAME-POMST,LABEL-?L'100,2'?POMST,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-XCNCHG,LABEL-?WS?XCNCHG // RUN ********** // * 'CHANGING FILE POREC WITH PROGRAM JF0995' // LOAD JF0995 // FILE NAME-POREC,LABEL-?L'100,2'?POREC,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-XCNCHG,LABEL-?WS?XCNCHG // RUN ********** // * 'CHANGING FILE PRCTAB WITH PROGRAM JF0914 JF0976' // IF DATAF1-?WS?XPRCTA DELETE ?WS?XPRCTA,F1 // IF DATAF1-?WS?XXPRCT DELETE ?WS?XXPRCT,F1 // LOAD JF0914 // FILE NAME-PRCTAB,LABEL-?L'100,2'?PRCTAB,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-XCNCHG,LABEL-?WS?XCNCHG // FILE NAME-XPRCTA,LABEL-?WS?XPRCTA,RECORDS-100000 // RUN // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XPRCTA,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XXPRCT,RECORDS-100000 // RUN HSORTR 14A 3X 24 FNC 1 14 FDC 1 24 // END // LOAD JF0976 // FILE NAME-XXPRCT,LABEL-?WS?XXPRCT,RETAIN-S // FILE NAME-PRCTAB,LABEL-?L'100,2'?PRCTAB,RECORDS-100000,EXTEND-5000 // RUN ********** // * 'CHANGING FILE PRDUSG WITH PROGRAM JF0915' // LOAD JF0915 // FILE NAME-PRDUSG,LABEL-?L'100,2'?PRDUSG,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-XCNCHG,LABEL-?WS?XCNCHG // RUN ********** // * 'CHANGING FILE PROJ WITH PROGRAM JF0916' // LOAD JF0916 // FILE NAME-PROJ,LABEL-?L'100,2'?PROJ,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-XCNCHG,LABEL-?WS?XCNCHG // RUN ********** // * 'CHANGING FILE PYMT WITH PROGRAM JF0917' // LOAD JF0917 // FILE NAME-PYMT,LABEL-?L'100,2'?PYMT,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-XCNCHG,LABEL-?WS?XCNCHG // RUN ********** // * 'CHANGING FILE PYMTBD WITH PROGRAM JF0918' // LOAD JF0918 // FILE NAME-PYMTBD,LABEL-?L'100,2'?PYMTBD,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-XCNCHG,LABEL-?WS?XCNCHG // RUN ********** // * 'CHANGING FILE PYUN WITH PROGRAM JF0919' // LOAD JF0919 // FILE NAME-PYUN,LABEL-?L'100,2'?PYUN,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-XCGCHG,LABEL-?WS?XCGCHG // RUN ********** // * 'CHANGING FILE PYUNBD WITH PROGRAM JF0920' // LOAD JF0920 // FILE NAME-PYUNBD,LABEL-?L'100,2'?PYUNBD,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-XCGCHG,LABEL-?WS?XCGCHG // RUN ********** // * 'CHANGING FILE RECBD WITH PROGRAM JF0921' // LOAD JF0921 // FILE NAME-RECBD,LABEL-?L'100,2'?RECBD,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-XCNCHG,LABEL-?WS?XCNCHG // RUN ********** // * 'CHANGING FILE RECEV WITH PROGRAM JF0922' // LOAD JF0922 // FILE NAME-RECEV,LABEL-?L'100,2'?RECEV,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-XCNCHG,LABEL-?WS?XCNCHG // RUN ********** // * 'CHANGING FILE RELSHT WITH PROGRAM JF0923' // LOAD JF0923 // FILE NAME-RELSHT,LABEL-?L'100,2'?RELSHT,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-XCNCHG,LABEL-?WS?XCNCHG // RUN ********** // * 'CHANGING FILE UNCASH WITH PROGRAM JF0924' // IF DATAF1-?WS?XUNCAS DELETE ?WS?XUNCAS,F1 RENAME ?L'100,2'?UNCASH,?WS?XUNCAS BLDFILE ?L'100,2'?UNCASH,I,RECORDS,5000,32,,,1,4,,,1000 // LOAD JF0924 // FILE NAME-XUNCAS,LABEL-?WS?XUNCAS // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-XCGCHG,LABEL-?WS?XCGCHG // FILE NAME-UNCASH,LABEL-?L'100,2'?UNCASH // RUN DELETE ?WS?XUNCAS,F1 ********** // * 'CHANGING FILE UNCSBD WITH PROGRAM JF0925' // IF DATAF1-?WS?XUNCSB DELETE ?WS?XUNCSB,F1 RENAME ?L'100,2'?UNCSBD,?WS?XUNCSB BLDFILE ?L'100,2'?UNCSBD,I,RECORDS,3000,32,,,1,4,,,1000 // LOAD JF0925 // FILE NAME-XUNCSB,LABEL-?WS?XUNCSB // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-XCGCHG,LABEL-?WS?XCGCHG // FILE NAME-UNCSBD,LABEL-?L'100,2'?UNCSBD // RUN DELETE ?WS?XUNCSB,F1 ********** // * 'UPDATING PERMANENT CUSTOMER CHANGES HISTORY FILE WITH PROGRAM JF0933' // LOAD JF0933 // FILE NAME-XCNCHG,LABEL-?WS?XCNCHG // FILE NAME-XCGCHG,LABEL-?WS?XCGCHG // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-CHGCS,LABEL-?L'100,2'?CHGCS,DISP-SHR // RUN DELETE ?WS?XCNCHG,F1 DELETE ?WS?XCGCHG,F1 // * ' ' // * 'THE CUSTOMER NUMBER CHANGES HAVE BEEN COMPLETED SUCCESSFULLY.' // * 'FOR COMPANY ?L'100,2'?' // * ' ' // * 'THANK YOU FOR YOUR PATIENCE.' // * ' ' // * 'PLEASE PRESS ENTER TO RETURN TO THE MENU.' // IF ?R?='X' GOTO END // TAG END // CEND // COPY LIBRARY-P,NAME-JF0930,RECL-096,REF-000012,DATE-01/05/09,TIME-1439 // * 'THIS PROCEDURE WILL FOR ALL PERMANENT FILES OF COMPANY ?L'100,2'?' // * 'RENAME THEM TO ?L'100,2'?. AND' // * 'COPY THEM TO TAPE AS A SET NAMED ?L'100,2'?' // * 'THEN RENAME THEM BACK TO ?L'100,2'? WITHOUT THE PERIOD' // * ' ' // * 'PLEASE ENTER PASSWORD' // IFF ?R?='ABCJOFFE' GOTO END *****TAPEINIT TC,SL,JOFFE,,JOFFE RENAME ?L'100,2'?ARCHK,?L'100,2'?.ARCHK RENAME ?L'100,2'?ARCKBD,?L'100,2'?.ARCKB RENAME ?L'100,2'?ASMTMP,?L'100,2'?.ASMTM RENAME ?L'100,2'?BILMAT,?L'100,2'?.BILMA RENAME ?L'100,2'?BLMTTM,?L'100,2'?.BLMTT RENAME ?L'100,2'?BSEHSE,?L'100,2'?.BSEHS RENAME ?L'100,2'?CHGCS,?L'100,2'?.CHGCS RENAME ?L'100,2'?CHGHS,?L'100,2'?.CHGHS RENAME ?L'100,2'?CHKFLE,?L'100,2'?.CHKFL RENAME ?L'100,2'?CNTRL,?L'100,2'?.CNTRL RENAME ?L'100,2'?CUSMAP,?L'100,2'?.CUSMP RENAME ?L'100,2'?CUSMAS,?L'100,2'?.CUSMS RENAME ?L'100,2'?DEPT,?L'100,2'?.DEPT RENAME ?L'100,2'?DPINV,?L'100,2'?.DPINV RENAME ?L'100,2'?EMPLYE,?L'100,2'?.EMPLY RENAME ?L'100,2'?GLFILE,?L'100,2'?.GLFIL RENAME ?L'100,2'?GLPMT,?L'100,2'?.GLPMT RENAME ?L'100,2'?GLTRAN,?L'100,2'?.GLTRA RENAME ?L'100,2'?HCRED,?L'100,2'?.HCRED RENAME ?L'100,2'?HOUEST,?L'100,2'?.HOUES RENAME ?L'100,2'?HOUSE,?L'100,2'?.HOUSE RENAME ?L'100,2'?HSECHG,?L'100,2'?.HSECH RENAME ?L'100,2'?INVACC,?L'100,2'?.INVAC RENAME ?L'100,2'?INVCB,?L'100,2'?.INVCB RENAME ?L'100,2'?INVCE,?L'100,2'?.INVCE RENAME ?L'100,2'?JRDESC,?L'100,2'?.JRDES RENAME ?L'100,2'?LABEL,?L'100,2'?.LABEL RENAME ?L'100,2'?LOAD,?L'100,2'?.LOAD RENAME ?L'100,2'?MESAGE,?L'100,2'?.MESAG RENAME ?L'100,2'?MISCUS,?L'100,2'?.MISCU RENAME ?L'100,2'?MLOAD,?L'100,2'?.MLOAD RENAME ?L'100,2'?MOVLOD,?L'100,2'?.MOVLO RENAME ?L'100,2'?NHOUS,?L'100,2'?.NHOUS RENAME ?L'100,2'?NJUAF,?L'100,2'?.NJUAF RENAME ?L'100,2'?NMGLEN,?L'100,2'?.NMGLE RENAME ?L'100,2'?NPRCTA,?L'100,2'?.NPRCT RENAME ?L'100,2'?OPENAP,?L'100,2'?.OPENA RENAME ?L'100,2'?PAYRL,?L'100,2'?.PAYRL RENAME ?L'100,2'?PODOL,?L'100,2'?.PODOL RENAME ?L'100,2'?POMST,?L'100,2'?.POMST RENAME ?L'100,2'?POREC,?L'100,2'?.POREC RENAME ?L'100,2'?PRCTAB,?L'100,2'?.PRCTA RENAME ?L'100,2'?PRDREC,?L'100,2'?.PRDRE RENAME ?L'100,2'?PRDUSG,?L'100,2'?.PRDUS RENAME ?L'100,2'?PROD,?L'100,2'?.PROD RENAME ?L'100,2'?PROJ,?L'100,2'?.PROJ RENAME ?L'100,2'?PYMT,?L'100,2'?.PYMT RENAME ?L'100,2'?PYMTBD,?L'100,2'?.PYMTB RENAME ?L'100,2'?PYUN,?L'100,2'?.PYUN RENAME ?L'100,2'?PYUNBD,?L'100,2'?.PYUNB RENAME ?L'100,2'?RCBDA1,?L'100,2'?.RCBD1 RENAME ?L'100,2'?RECAL1,?L'100,2'?.RECA1 RENAME ?L'100,2'?RECBD,?L'100,2'?.RECBD RENAME ?L'100,2'?RECEV,?L'100,2'?.RECEV RENAME ?L'100,2'?RELSHT,?L'100,2'?.RELSH RENAME ?L'100,2'?RELSH1,?L'100,2'?.RELS1 RENAME ?L'100,2'?SALMEN,?L'100,2'?.SALME RENAME ?L'100,2'?UNCASH,?L'100,2'?.UNCAS RENAME ?L'100,2'?UNCSBD,?L'100,2'?.UNCSB RENAME ?L'100,2'?VENDOR,?L'100,2'?.VENDO RENAME ?L'100,2'?YPAYRL,?L'100,2'?.YPAYR SAVE ALL,,?L'100,2'?,JOFFE,?L'100,2'?,TC RENAME ?L'100,2'?.ARCHK,?L'100,2'?ARCHK RENAME ?L'100,2'?.ARCKB,?L'100,2'?ARCKBD RENAME ?L'100,2'?.ASMTM,?L'100,2'?ASMTMP RENAME ?L'100,2'?.BILMA,?L'100,2'?BILMAT RENAME ?L'100,2'?.BLMTT,?L'100,2'?BLMTTM RENAME ?L'100,2'?.BSEHS,?L'100,2'?BSEHSE RENAME ?L'100,2'?.CHGCS,?L'100,2'?CHGCS RENAME ?L'100,2'?.CHGHS,?L'100,2'?CHGHS RENAME ?L'100,2'?.CHKFL,?L'100,2'?CHKFLE RENAME ?L'100,2'?.CNTRL,?L'100,2'?CNTRL RENAME ?L'100,2'?.CUSMP,?L'100,2'?CUSMAP RENAME ?L'100,2'?.CUSMS,?L'100,2'?CUSMAS RENAME ?L'100,2'?.DEPT,?L'100,2'?DEPT RENAME ?L'100,2'?.DPINV,?L'100,2'?DPINV RENAME ?L'100,2'?.EMPLY,?L'100,2'?EMPLYE RENAME ?L'100,2'?.GLFIL,?L'100,2'?GLFILE RENAME ?L'100,2'?.GLPMT,?L'100,2'?GLPMT RENAME ?L'100,2'?.GLTRA,?L'100,2'?GLTRAN RENAME ?L'100,2'?.HCRED,?L'100,2'?HCRED RENAME ?L'100,2'?.HOUES,?L'100,2'?HOUEST RENAME ?L'100,2'?.HOUSE,?L'100,2'?HOUSE RENAME ?L'100,2'?.INVAC,?L'100,2'?INVACC RENAME ?L'100,2'?.INVCB,?L'100,2'?INVCB RENAME ?L'100,2'?.INVCE,?L'100,2'?INVCE RENAME ?L'100,2'?.JRDES,?L'100,2'?JRDESC RENAME ?L'100,2'?.LABEL,?L'100,2'?LABEL RENAME ?L'100,2'?.LOAD,?L'100,2'?LOAD RENAME ?L'100,2'?.MESAG,?L'100,2'?MESAGE RENAME ?L'100,2'?.MISCU,?L'100,2'?MISCUS RENAME ?L'100,2'?.MLOAD,?L'100,2'?MLOAD RENAME ?L'100,2'?.MOVLO,?L'100,2'?MOVLOD RENAME ?L'100,2'?.NHOUS,?L'100,2'?NHOUS RENAME ?L'100,2'?.NJUAF,?L'100,2'?NJUAF RENAME ?L'100,2'?.NMGLE,?L'100,2'?NMGLEN RENAME ?L'100,2'?.NPRCT,?L'100,2'?NPRCTA RENAME ?L'100,2'?.OPENA,?L'100,2'?OPENAP RENAME ?L'100,2'?.PAYRL,?L'100,2'?PAYRL RENAME ?L'100,2'?.PODOL,?L'100,2'?PODOL RENAME ?L'100,2'?.PRCTA,?L'100,2'?PRCTAB RENAME ?L'100,2'?.PRDRE,?L'100,2'?PRDREC RENAME ?L'100,2'?.PRDUS,?L'100,2'?PRDUSG RENAME ?L'100,2'?.PROD,?L'100,2'?PROD RENAME ?L'100,2'?.PROJ,?L'100,2'?PROJ RENAME ?L'100,2'?.PYMT,?L'100,2'?PYMT RENAME ?L'100,2'?.PYMTB,?L'100,2'?PYMTBD RENAME ?L'100,2'?.PYUN,?L'100,2'?PYUN RENAME ?L'100,2'?.PYUNB,?L'100,2'?PYUNBD RENAME ?L'100,2'?.RCBD1,?L'100,2'?RCBDA1 RENAME ?L'100,2'?.RECA1,?L'100,2'?RECAL1 RENAME ?L'100,2'?.RECBD,?L'100,2'?RECBD RENAME ?L'100,2'?.RECEV,?L'100,2'?RECEV RENAME ?L'100,2'?.RELSH,?L'100,2'?RELSHT RENAME ?L'100,2'?.RELS1,?L'100,2'?RELSH1 RENAME ?L'100,2'?.SALME,?L'100,2'?SALMEN RENAME ?L'100,2'?.UNCAS,?L'100,2'?UNCASH RENAME ?L'100,2'?.UNCSB,?L'100,2'?UNCSBD RENAME ?L'100,2'?.VENDO,?L'100,2'?VENDOR RENAME ?L'100,2'?.YPAYR,?L'100,2'?YPAYRL // TAG END // CEND // COPY LIBRARY-P,NAME-JF0931,RECL-096,REF-000003,DATE-01/03/23,TIME-1225 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-OUTPUT,LABEL-?WS?XCUSMS,RECORDS-20000 // RUN HSORTR 8A 3X 600 I C 600EQCA FNC 496 497 FNU 1 6 FDC 1 256 FDC 257 512 FDC 513 600 // END // LOAD JF0931 // FILE NAME-XCUSMS,LABEL-?WS?XCUSMS,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-SALMEN,LABEL-?L'100,2'?SALMEN,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0932,RECL-096,REF-000009,DATE-01/05/09,TIME-1440 // * 'THIS PROCEDURE WILL RESTORE FROM TAPE ALL FILES' // * 'FROM A SET NAMED ?L'100,2'?' // * 'THESE FILES WILL BEGIN WITH A ?L'100,2'?.' // * ' ' // * 'THE FILES WILL THEN BE RENAMED BACK TO THEIR ORIGINAL NAMES' // * 'WITHOUT A PERIOD FOR COMPANY ?L'100,2'?' // * ' ' // * 'PLEASE ENTER PASSWORD' // IFF ?R?='ABCJOFFE' GOTO END *****RESTORE ALL,?L'100,2'?,,TC RENAME ?L'100,2'?.ARCHK,?L'100,2'?ARCHK RENAME ?L'100,2'?.ARCKB,?L'100,2'?ARCKBD RENAME ?L'100,2'?.ASMTM,?L'100,2'?ASMTMP RENAME ?L'100,2'?.BILMA,?L'100,2'?BILMAT RENAME ?L'100,2'?.BLMTT,?L'100,2'?BLMTTM RENAME ?L'100,2'?.BSEHS,?L'100,2'?BSEHSE RENAME ?L'100,2'?.CHGCS,?L'100,2'?CHGCS RENAME ?L'100,2'?.CHGHS,?L'100,2'?CHGHS RENAME ?L'100,2'?.CHKFL,?L'100,2'?CHKFLE RENAME ?L'100,2'?.CNTRL,?L'100,2'?CNTRL RENAME ?L'100,2'?.CUSMP,?L'100,2'?CUSMAP RENAME ?L'100,2'?.CUSMS,?L'100,2'?CUSMAS RENAME ?L'100,2'?.DEPT,?L'100,2'?DEPT RENAME ?L'100,2'?.DPINV,?L'100,2'?DPINV RENAME ?L'100,2'?.EMPLY,?L'100,2'?EMPLYE RENAME ?L'100,2'?.GLFIL,?L'100,2'?GLFILE RENAME ?L'100,2'?.GLPMT,?L'100,2'?GLPMT RENAME ?L'100,2'?.GLTRA,?L'100,2'?GLTRAN RENAME ?L'100,2'?.HCRED,?L'100,2'?HCRED RENAME ?L'100,2'?.HOUES,?L'100,2'?HOUEST RENAME ?L'100,2'?.HOUSE,?L'100,2'?HOUSE RENAME ?L'100,2'?.HSECH,?L'100,2'?HSECHG RENAME ?L'100,2'?.INVAC,?L'100,2'?INVACC RENAME ?L'100,2'?.INVCB,?L'100,2'?INVCB RENAME ?L'100,2'?.INVCE,?L'100,2'?INVCE RENAME ?L'100,2'?.JRDES,?L'100,2'?JRDESC RENAME ?L'100,2'?.LABEL,?L'100,2'?LABEL RENAME ?L'100,2'?.LOAD,?L'100,2'?LOAD RENAME ?L'100,2'?.MESAG,?L'100,2'?MESAGE RENAME ?L'100,2'?.MISCU,?L'100,2'?MISCUS RENAME ?L'100,2'?.MLOAD,?L'100,2'?MLOAD RENAME ?L'100,2'?.MOVLO,?L'100,2'?MOVLOD RENAME ?L'100,2'?.NHOUS,?L'100,2'?NHOUS RENAME ?L'100,2'?.NJUAF,?L'100,2'?NJUAF RENAME ?L'100,2'?.NMGLE,?L'100,2'?NMGLEN RENAME ?L'100,2'?.NPRCT,?L'100,2'?NPRCTA RENAME ?L'100,2'?.OPENA,?L'100,2'?OPENAP RENAME ?L'100,2'?.PAYRL,?L'100,2'?PAYRL RENAME ?L'100,2'?.PODOL,?L'100,2'?PODOL RENAME ?L'100,2'?.POMST,?L'100,2'?POMST RENAME ?L'100,2'?.POREC,?L'100,2'?POREC RENAME ?L'100,2'?.PRCTA,?L'100,2'?PRCTAB RENAME ?L'100,2'?.PRDRE,?L'100,2'?PRDREC RENAME ?L'100,2'?.PRDUS,?L'100,2'?PRDUSG RENAME ?L'100,2'?.PROD,?L'100,2'?PROD RENAME ?L'100,2'?.PROJ,?L'100,2'?PROJ RENAME ?L'100,2'?.PYMT,?L'100,2'?PYMT RENAME ?L'100,2'?.PYMTB,?L'100,2'?PYMTBD RENAME ?L'100,2'?.PYUN,?L'100,2'?PYUN RENAME ?L'100,2'?.PYUNB,?L'100,2'?PYUNBD RENAME ?L'100,2'?.RCBD1,?L'100,2'?RCBDA1 RENAME ?L'100,2'?.RECA1,?L'100,2'?RECAL1 RENAME ?L'100,2'?.RECBD,?L'100,2'?RECBD RENAME ?L'100,2'?.RECEV,?L'100,2'?RECEV RENAME ?L'100,2'?.RELSH,?L'100,2'?RELSHT RENAME ?L'100,2'?.RELS1,?L'100,2'?RELSH1 RENAME ?L'100,2'?.SALME,?L'100,2'?SALMEN RENAME ?L'100,2'?.UNCAS,?L'100,2'?UNCASH RENAME ?L'100,2'?.UNCSB,?L'100,2'?UNCSBD RENAME ?L'100,2'?.VENDO,?L'100,2'?VENDOR RENAME ?L'100,2'?.YPAYR,?L'100,2'?YPAYRL // TAG END // CEND // COPY LIBRARY-P,NAME-JF0934,RECL-096,REF-000001,DATE-01/03/23,TIME-1225 JF0935 JF0936 // CEND // COPY LIBRARY-P,NAME-JF0935,RECL-096,REF-000003,DATE-01/03/23,TIME-1225 // LOAD JF0935 // FILE NAME-HOUSE,LABEL-?L'100,2'?HOUSE,DISP-SHR // FILE NAME-XHSEL,LABEL-?WS?XHSEL,RECORDS-30000 // FILE NAME-XHSCH,LABEL-?WS?XHSCH,RECORDS-1 // RUN // CEND // COPY LIBRARY-P,NAME-JF0936,RECL-096,REF-000003,DATE-01/03/23,TIME-1225 // LOAD JF0936 // IF ?L'201,1'?='2' SWITCH 10000001 // IFF ?L'201,1'?='2' SWITCH 10000010 ***** // IF ?L'201,1'?='2' PRINTER NAME-PRT2,FORMSNO-8X14 ***** // IFF ?L'201,1'?='2' PRINTER NAME-PRT1 // IF ?L'201,1'?='2' GOTO PRINT2 // IF ?WS?='X8' PRINTER NAME-PRT1,FONT-DF // IFF ?WS?='X8' PRINTER NAME-PRT1 // GOTO BEGIN // TAG PRINT2 // IF ?WS?='X8' PRINTER NAME-PRT2,FORMSNO-8X14,FONT-DF // IFF ?WS?='X8' PRINTER NAME-PRT2,FORMSNO-8X14 // TAG BEGIN // FILE NAME-XHSEL,LABEL-?WS?XHSEL,RETAIN-S // FILE NAME-XHSCH,LABEL-?WS?XHSCH,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-BSEHSE,LABEL-?L'100,2'?BSEHSE,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-PRCTAB,LABEL-?L'100,2'?PRCTAB,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0937,RECL-096,REF-000012,DATE-01/03/23,TIME-1225 TAPEINIT TC,SL,JOFFE,,JOFFE // * ' ' // * 'COPYING SOURCE MEMBERS TO FILE JOFSOURC' // * ' ' // IF DATAF1-JOFSOURC DELETE JOFSOURC,F1 FROMLIBR JF0655,SOURCE,JOFSOURC,F1,T,500,SOURCE,,,,96,SVATTR FROMLIBR JF0938,SOURCE,JOFSOURC,F1,ADD,,SOURCE,,,,96,SVATTR FROMLIBR JF0656,SOURCE,JOFSOURC,F1,ADD,,SOURCE,,,,96,SVATTR FROMLIBR JF0657,SOURCE,JOFSOURC,F1,ADD,,SOURCE,,,,96,SVATTR FROMLIBR JF0928,SOURCE,JOFSOURC,F1,ADD,,SOURCE,,,,96,SVATTR FROMLIBR JF0939,SOURCE,JOFSOURC,F1,ADD,,SOURCE,,,,96,SVATTR FROMLIBR JF0941,SOURCE,JOFSOURC,F1,ADD,,SOURCE,,,,96,SVATTR FROMLIBR JF0942,SOURCE,JOFSOURC,F1,ADD,,SOURCE,,,,96,SVATTR FROMLIBR JFMAIN##,SOURCE,JOFSOURC,F1,ADD,,SOURCE,,,,96,SVATTR FROMLIBR JFMAINDT,SOURCE,JOFSOURC,F1,ADD,,SOURCE,,,,96,SVATTR // * ' ' // * 'COPYING FILE JOFSOURC TO TAPE' // * ' ' SAVE JOFSOURC,,,JOFFE,TC // GOTO PROC // TAG PROC // * ' ' // * 'COPYING PROCDURE MEMBERS TO FILE JOFPROC' // * ' ' // IF DATAF1-JOFPROC DELETE JOFPROC,F1 FROMLIBR JF0941,PROC,JOFPROC,F1,T,500,JOFFE,,,,96,SVATTR FROMLIBR JF0942,PROC,JOFPROC,F1,ADD,,JOFFE,,,,96,SVATTR FROMLIBR JF0901,PROC,JOFPROC,F1,ADD,,JOFFE,,,,96,SVATTR FROMLIBR JF0124,PROC,JOFPROC,F1,ADD,,JOFFE,,,,96,SVATTR FROMLIBR JF0930,PROC,JOFPROC,F1,ADD,,JOFFE,,,,96,SVATTR FROMLIBR JF0932,PROC,JOFPROC,F1,ADD,,JOFFE,,,,96,SVATTR FROMLIBR XTST01,PROC,JOFPROC,F1,ADD,,JOFFE,,,,96,SVATTR // * ' ' // * 'COPYING FILE JOFPROC TO TAPE' // * ' ' SAVE JOFPROC,,,JOFFE,TC // GOTO END // TAG END // CEND // COPY LIBRARY-P,NAME-JF0938,RECL-096,REF-000001,DATE-05/04/28,TIME-0907 // LOAD JF0938 // FILE NAME-INVCE,LABEL-?L'100,2'?INVCE,DISP-SHR // FILE NAME-XRPINV,LABEL-?WS?XRPINV,RECORDS-5000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0940,RECL-096,REF-000002,DATE-01/03/28,TIME-0711 // IF ?L'100,2'?=' ' JF0941 // TAG BEGIN // LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='BETTY ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='DALE ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='JOE ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='JOFFE ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='JOHN ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='JOSE ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='SBS ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // LOAD JF0942 // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // RUN // IF ?L'181,1'?='P' ?L'182,6'? // IF ?L'181,1'?='M' MENU ?L'182,6'? // IF ?L'181,1'?='M' GOTO END // IF ?L'181,1'?=' ' GOTO BEGIN // GOTO BEGIN // TAG END // CEND // COPY LIBRARY-P,NAME-JF0941,RECL-096,REF-000004,DATE-11/09/13,TIME-0821 // LOCAL OFFSET-1,DATA-' ' // IF ?USER?='ANGEL ' LOCAL OFFSET-1,DATA-'XX ' // IF ?USER?='ANN ' LOCAL OFFSET-1,DATA-'XX ' // IF ?USER?='AUDREY ' LOCAL OFFSET-1,DATA-'XX ' // IF ?USER?='BETTY ' LOCAL OFFSET-1,DATA-'XX ' // IF ?USER?='BILL ' LOCAL OFFSET-1,DATA-'XX ' // IF ?USER?='BP ' LOCAL OFFSET-1,DATA-'XX ' // IF ?USER?='MARCUS ' LOCAL OFFSET-1,DATA-'XX ' // IF ?USER?='CONNIE ' LOCAL OFFSET-1,DATA-'XX ' // IF ?USER?='CRAIG ' LOCAL OFFSET-1,DATA-'XX ' // IF ?USER?='DALE ' LOCAL OFFSET-1,DATA-'XX ' // IF ?USER?='DONNA ' LOCAL OFFSET-1,DATA-'XX ' // IF ?USER?='DOT ' LOCAL OFFSET-1,DATA-'XX ' // IF ?USER?='BRIAN ' LOCAL OFFSET-1,DATA-'XX ' // IF ?USER?='AROD ' LOCAL OFFSET-1,DATA-'XX ' // IF ?USER?='GLENN ' LOCAL OFFSET-1,DATA-'XX ' // IF ?USER?='GEORGE ' LOCAL OFFSET-1,DATA-'XX ' // IF ?USER?='JD ' LOCAL OFFSET-1,DATA-'XX ' // IF ?USER?='JERRY ' LOCAL OFFSET-1,DATA-'XX ' // IF ?USER?='JESSICA ' LOCAL OFFSET-1,DATA-'XX ' // IF ?USER?='JOE ' LOCAL OFFSET-1,DATA-'XX ' // IF ?USER?='JOEM ' LOCAL OFFSET-1,DATA-'XX ' // IF ?USER?='JOEP ' LOCAL OFFSET-1,DATA-'XX ' // IF ?USER?='JOFFE ' LOCAL OFFSET-1,DATA-'X ' // IF ?USER?='JOHN ' LOCAL OFFSET-1,DATA-'XXX' // IF ?USER?='JOSE ' LOCAL OFFSET-1,DATA-'XXX' // IF ?USER?='KRISTY ' LOCAL OFFSET-1,DATA-'XX ' // IF ?USER?='LEW ' LOCAL OFFSET-1,DATA-'XX ' // IF ?USER?='LISA ' LOCAL OFFSET-1,DATA-'XX ' // IF ?USER?='MICHELLE' LOCAL OFFSET-1,DATA-'XX ' // IF ?USER?='NATALIE ' LOCAL OFFSET-1,DATA-'XX ' // IF ?USER?='MIKE ' LOCAL OFFSET-1,DATA-'XXX' // IF ?USER?='PAUL ' LOCAL OFFSET-1,DATA-'XX ' // IF ?USER?='SBS ' LOCAL OFFSET-1,DATA-' X ' // IF ?USER?='SM ' LOCAL OFFSET-1,DATA-'XX ' // IF ?USER?='STEVE ' LOCAL OFFSET-1,DATA-'XX ' // IF ?USER?='THOM ' LOCAL OFFSET-1,DATA-'XX ' // IF ?USER?='TOM ' LOCAL OFFSET-1,DATA-'XX ' // LOAD JF0941 // RUN // LOCAL OFFSET-131,DATA-' ' // LOCAL OFFSET-131,DATA-'?WS?' // LOCAL OFFSET-133,DATA-' ' // LOCAL OFFSET-133,DATA-'?USER?' // CEND // COPY LIBRARY-P,NAME-JF0942,RECL-096,REF-000005,DATE-11/11/21,TIME-1447 // IF ?L'100,2'?=' ' JF0941 // TAG BEGIN // LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='ALVERA ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='ANGEL ' LOCAL OFFSET-141,DATA-' X XX X' // IF ?L'133,8'?='ANN ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='AUDREY ' LOCAL OFFSET-141,DATA-'XXXX XX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='BETTY ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='BILL ' LOCAL OFFSET-141,DATA-' X X X' // IF ?L'133,8'?='BP ' LOCAL OFFSET-141,DATA-' X X X' // IF ?L'133,8'?='MARCUS ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='CONNIE ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='CRAIG ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='DALE ' LOCAL OFFSET-141,DATA-' XX X XXXX X' // IF ?L'133,8'?='DONNA ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='DOT ' LOCAL OFFSET-141,DATA-' X X XX X ' // IF ?L'133,8'?='AROD ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='BRIAN ' LOCAL OFFSET-141,DATA-' XX X' // IF ?L'133,8'?='EMOW ' LOCAL OFFSET-141,DATA-' X X X' // IF ?L'133,8'?='GLENN ' LOCAL OFFSET-141,DATA-' X X X' // IF ?L'133,8'?='GEORGE ' LOCAL OFFSET-141,DATA-' X X X' // IF ?L'133,8'?='JD ' LOCAL OFFSET-141,DATA-' X X X' // IF ?L'133,8'?='JERRY ' LOCAL OFFSET-141,DATA-'XXXX XX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='JESSICA ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='JOE ' LOCAL OFFSET-141,DATA-' X XXXXXXXXXXXX XXXXXXXXXXXX' // IF ?L'133,8'?='JOEM ' LOCAL OFFSET-141,DATA-' X X X' // IF ?L'133,8'?='JOEP ' LOCAL OFFSET-141,DATA-' X X X' // IF ?L'133,8'?='JOFFE ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='JOHN ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='JOSE ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='KRISTY ' LOCAL OFFSET-141,DATA-' X X X' // IF ?L'133,8'?='LEW ' LOCAL OFFSET-141,DATA-' X X X' // IF ?L'133,8'?='LISA ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='MICHELLE' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='NATALIE ' LOCAL OFFSET-141,DATA-' XX X X' // IF ?L'133,8'?='MIKE ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='PAUL ' LOCAL OFFSET-141,DATA-' X X X' // IF ?L'133,8'?='SBS ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='SM ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='STEVE ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='THOM ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='TOM ' LOCAL OFFSET-141,DATA-' XX X XXXX X' // LOAD JF0942 // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // RUN // IF ?L'181,1'?='P' ?L'182,6'? // IF ?L'181,1'?='M' MENU ?L'182,6'? // IF ?L'181,1'?='M' GOTO END // IF ?L'181,1'?=' ' GOTO BEGIN // GOTO BEGIN // TAG END // CEND // COPY LIBRARY-P,NAME-JF0943,RECL-096,REF-000003,DATE-11/09/13,TIME-0821 // IF ?L'100,2'?=' ' JF0941 // TAG BEGIN // LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='ALVERA ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='ANGEL ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='ANN ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='AUDREY ' LOCAL OFFSET-141,DATA-' X XX XX XX X' // IF ?L'133,8'?='BETTY ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='BILL ' LOCAL OFFSET-141,DATA-' X X' // IF ?L'133,8'?='BP ' LOCAL OFFSET-141,DATA-' X X' // IF ?L'133,8'?='MARCUS ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='CONNIE ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='CRAIG ' LOCAL OFFSET-141,DATA-' X X' // IF ?L'133,8'?='DALE ' LOCAL OFFSET-141,DATA-' X X' // IF ?L'133,8'?='DONNA ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='DOT ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='AROD ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='BRAIN ' LOCAL OFFSET-141,DATA-' X X' // IF ?L'133,8'?='EMOW ' LOCAL OFFSET-141,DATA-' X X' // IF ?L'133,8'?='GLENN ' LOCAL OFFSET-141,DATA-' X X' // IF ?L'133,8'?='GEORGE ' LOCAL OFFSET-141,DATA-' X X' // IF ?L'133,8'?='JD ' LOCAL OFFSET-141,DATA-' X X' // IF ?L'133,8'?='JERRY ' LOCAL OFFSET-141,DATA-' X XX XX XX X' // IF ?L'133,8'?='JESSICA ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='JOE ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='JOEM ' LOCAL OFFSET-141,DATA-' X X' // IF ?L'133,8'?='JOEP ' LOCAL OFFSET-141,DATA-' X X' // IF ?L'133,8'?='JOFFE ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='JOHN ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='JOSE ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='KRISTY ' LOCAL OFFSET-141,DATA-' X X' // IF ?L'133,8'?='LEW ' LOCAL OFFSET-141,DATA-' X X' // IF ?L'133,8'?='LISA ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='MICHELLE' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='NATALIE ' LOCAL OFFSET-141,DATA-' X X' // IF ?L'133,8'?='MIKE ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='PAUL ' LOCAL OFFSET-141,DATA-' X X' // IF ?L'133,8'?='SBS ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='SM ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='STEVE ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='THOM ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='TOM ' LOCAL OFFSET-141,DATA-' X X' // LOAD JF0943 // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // RUN // IF ?L'181,1'?='P' ?L'182,6'? // IF ?L'181,1'?='M' MENU ?L'182,6'? // IF ?L'181,1'?='M' GOTO END // IF ?L'181,1'?=' ' GOTO BEGIN // GOTO BEGIN // TAG END // CEND // COPY LIBRARY-P,NAME-JF0944,RECL-096,REF-000002,DATE-11/09/13,TIME-0822 // IF ?L'100,2'?=' ' JF0941 // TAG BEGIN // LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='ALVERA ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='ANGEL ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='ANN ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='AUDREY ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='BETTY ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='BILL ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='BP ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='MARCUS ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='CONNIE ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='CRAIG ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='DALE ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='DONNA ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='DOT ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='BRIAN ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='AROD ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='EMOW ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='GLENN ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='GEORGE ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='JD ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='JERRY ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='JESSICA ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='JOE ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='JOEM ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='JOEP ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='JOFFE ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='JOHN ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='JOSE ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='KRISTY ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='LEW ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='LISA ' LOCAL OFFSET-141,DATA-' XXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='MICHELLE' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='NATALIE ' LOCAL OFFSET-141,DATA-' XXXX X X X XXXXXXX X' // IF ?L'133,8'?='MIKE ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='PAUL ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='SBS ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='SM ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='STEVE ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='THOM ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='TOM ' LOCAL OFFSET-141,DATA-' X' // LOAD JF0944 // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // RUN // IF ?L'181,1'?='P' ?L'182,6'? // IF ?L'181,1'?='M' MENU ?L'182,6'? // IF ?L'181,1'?='M' GOTO END // IF ?L'181,1'?=' ' GOTO BEGIN // GOTO BEGIN // TAG END // CEND // COPY LIBRARY-P,NAME-JF0945,RECL-096,REF-000002,DATE-11/09/13,TIME-0822 // IF ?L'100,2'?=' ' JF0941 // TAG BEGIN // LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='ALVERA ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='ANGEL ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='ANN ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='AUDREY ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='BETTY ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='BILL ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='BP ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='MARCUS ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='CONNIE ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='CRAIG ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='DALE ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='DONNA ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='DOT ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='BRIAN ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='AROD ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='EMOW ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='GLENN ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='GEORGE ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='JD ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='JERRY ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='JESSICA ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='JOE ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='JOEM ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='JOEP ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='JOFFE ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='JOHN ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='JOSE ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='KRISTY ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='LEW ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='LISA ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='MICHELLE' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='NATALIE ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXX X' // IF ?L'133,8'?='MIKE ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='PAUL ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='SBS ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='SM ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='STEVE ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='THOM ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='TOM ' LOCAL OFFSET-141,DATA-' X' // LOAD JF0945 // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // RUN // IF ?L'181,1'?='P' ?L'182,6'? // IF ?L'181,1'?='M' MENU ?L'182,6'? // IF ?L'181,1'?='M' GOTO END // IF ?L'181,1'?=' ' GOTO BEGIN // GOTO BEGIN // TAG END // CEND // COPY LIBRARY-P,NAME-JF0946,RECL-096,REF-000002,DATE-11/09/13,TIME-0822 // IF ?L'100,2'?=' ' JF0941 // TAG BEGIN // LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='ALVERA ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='ANGEL ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='ANN ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='AUDREY ' LOCAL OFFSET-141,DATA-' XX X' // IF ?L'133,8'?='BETTY ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='BILL ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='BP ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='MARCUS ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='CONNIE ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='CRAIG ' LOCAL OFFSET-141,DATA-' X X' // IF ?L'133,8'?='DALE ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='DONNA ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='DOT ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='BRAIN ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='AROD ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='EMOW ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='GLENN ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='GEORGE ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='JD ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='JERRY ' LOCAL OFFSET-141,DATA-' XX X' // IF ?L'133,8'?='JESSICA ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='JOE ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXXXXXXXX' // IF ?L'133,8'?='JOEM ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='JOEP ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='JOFFE ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='JOHN ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='JOSE ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='KRISTY ' LOCAL OFFSET-141,DATA-' XX X' // IF ?L'133,8'?='LEW ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='LISA ' LOCAL OFFSET-141,DATA-' XX X' // IF ?L'133,8'?='MICHELLE' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='NATALIE ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='MIKE ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='PAUL ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='SBS ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='SM ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='STEVE ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='THOM ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='TOM ' LOCAL OFFSET-141,DATA-' XX X' // LOAD JF0946 // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // RUN // IF ?L'181,1'?='P' ?L'182,6'? // IF ?L'181,1'?='M' MENU ?L'182,6'? // IF ?L'181,1'?='M' GOTO END // IF ?L'181,1'?=' ' GOTO BEGIN // GOTO BEGIN // TAG END // CEND // COPY LIBRARY-P,NAME-JF0947,RECL-096,REF-000002,DATE-11/09/13,TIME-0822 // IF ?L'100,2'?=' ' JF0941 // TAG BEGIN // LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='ALVERA ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='ANGEL ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='ANN ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='AUDREY ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='BETTY ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='BILL ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='BP ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='MARCUS ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='CONNIE ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='CRAIG ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='DALE ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='DONNA ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='DOT ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='BRAIN ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='AROD ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='EMOW ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='GLENN ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='GEORGE ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='JD ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='JERRY ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='JESSICA ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='JOE ' LOCAL OFFSET-141,DATA-' X X' // IF ?L'133,8'?='JOEM ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='JOEP ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='JOFFE ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='JOHN ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='JOSE ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='KRISTY ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='LEW ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='LISA ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='MICHELLE' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='NATALIE ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='MIKE ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='PAUL ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='SBS ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='SM ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='STEVE ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='THOM ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='TOM ' LOCAL OFFSET-141,DATA-' X' // LOAD JF0947 // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // RUN // IF ?L'181,1'?='P' ?L'182,6'? // IF ?L'181,1'?='M' MENU ?L'182,6'? // IF ?L'181,1'?='M' GOTO END // IF ?L'181,1'?=' ' GOTO BEGIN // GOTO BEGIN // TAG END // CEND // COPY LIBRARY-P,NAME-JF0948,RECL-096,REF-000002,DATE-11/09/13,TIME-0822 // IF ?L'100,2'?=' ' JF0941 // TAG BEGIN // LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='ALVERA ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='ANGEL ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='ANN ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='AUDREY ' LOCAL OFFSET-141,DATA-' X X' // IF ?L'133,8'?='BETTY ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='BILL ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='BP ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='MARCUS ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='CONNIE ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='CRAIG ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='DALE ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='DONNA ' LOCAL OFFSET-141,DATA-' XXXXXXXX ' // IF ?L'133,8'?='DOT ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='BRAIN ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='AROD ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='EMOW ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='GLENN ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='GEORGE ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='JD ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='JERRY ' LOCAL OFFSET-141,DATA-' X X' // IF ?L'133,8'?='JESSICA ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='JOE ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXXXXXXXX' // IF ?L'133,8'?='JOEM ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='JOEP ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='JOFFE ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='JOHN ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='JOSE ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='KRISTY ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='LEW ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='LISA ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='MICHELLE' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='NATALIE ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='MIKE ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='PAUL ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='SBS ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='SM ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='STEVE ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='THOM ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='TOM ' LOCAL OFFSET-141,DATA-' X' // LOAD JF0948 // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // RUN // IF ?L'181,1'?='P' ?L'182,6'? // IF ?L'181,1'?='M' MENU ?L'182,6'? // IF ?L'181,1'?='M' GOTO END // IF ?L'181,1'?=' ' GOTO BEGIN // GOTO BEGIN // TAG END // CEND // COPY LIBRARY-P,NAME-JF0949,RECL-096,REF-000002,DATE-11/09/13,TIME-0823 // IF ?L'100,2'?=' ' JF0941 // TAG BEGIN // LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='ALVERA ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='ANGEL ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='ANN ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='AUDREY ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='BETTY ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='BILL ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='BP ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='MARCUS ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='CONNIE ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='CRAIG ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='DALE ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='DONNA ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='DOT ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='BRAIN ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='AROD ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='EMOW ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='GLENN ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='GEORGE ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='JD ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='JERRY ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='JESSICA ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='JOE ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXXXXXXXX' // IF ?L'133,8'?='JOEM ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='JOEP ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='JOFFE ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='JOHN ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='JOSE ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='KRISTY ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='LEW ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='LISA ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='MICHELLE' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='NATALIE ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='MIKE ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='PAUL ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='SBS ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='SM ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='STEVE ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='THOM ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='TOM ' LOCAL OFFSET-141,DATA-' X' // LOAD JF0949 // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // RUN // IF ?L'181,1'?='P' ?L'182,6'? // IF ?L'181,1'?='M' MENU ?L'182,6'? // IF ?L'181,1'?='M' GOTO END // IF ?L'181,1'?=' ' GOTO BEGIN // GOTO BEGIN // TAG END // CEND // COPY LIBRARY-P,NAME-JF0950,RECL-096,REF-000002,DATE-11/09/13,TIME-0917 // IF ?L'100,2'?=' ' JF0941 // TAG BEGIN // LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='ALVERA ' LOCAL OFFSET-141,DATA-' X X X' // IF ?L'133,8'?='ANGEL ' LOCAL OFFSET-141,DATA-' XXXXXXXXX XXXXX X X' // IF ?L'133,8'?='ANN ' LOCAL OFFSET-141,DATA-' X X X' // IF ?L'133,8'?='AUDREY ' LOCAL OFFSET-141,DATA-' X XXX X X' // IF ?L'133,8'?='BETTY ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='BILL ' LOCAL OFFSET-141,DATA-' X XX X X X' // IF ?L'133,8'?='BP ' LOCAL OFFSET-141,DATA-' XXXXXXX XXXX X X X' // IF ?L'133,8'?='MARCUS ' LOCAL OFFSET-141,DATA-' XXXXXXX X XX XXXX XXXXXXXX' // IF ?L'133,8'?='CONNIE ' LOCAL OFFSET-141,DATA-' X X' // IF ?L'133,8'?='CRAIG ' LOCAL OFFSET-141,DATA-' X X X X' // IF ?L'133,8'?='DALE ' LOCAL OFFSET-141,DATA-' XXXXXXXX X XXXX X' // IF ?L'133,8'?='DONNA ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='DOT ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='BRIAN ' LOCAL OFFSET-141,DATA-' XXXXXXX XXXX XX X' // IF ?L'133,8'?='AROD ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='EMOW ' LOCAL OFFSET-141,DATA-' X XX X X X' // IF ?L'133,8'?='GLENN ' LOCAL OFFSET-141,DATA-' X XX X X X' // IF ?L'133,8'?='GEORGE ' LOCAL OFFSET-141,DATA-' X XX X X X' // IF ?L'133,8'?='JD ' LOCAL OFFSET-141,DATA-' XXXXXXX XXXX X X' // IF ?L'133,8'?='JERRY ' LOCAL OFFSET-141,DATA-' X XXX X X' // IF ?L'133,8'?='JESSICA ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='JOE ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='JOEM ' LOCAL OFFSET-141,DATA-' X XX X X X' // IF ?L'133,8'?='JOEP ' LOCAL OFFSET-141,DATA-' X XX X X X' // IF ?L'133,8'?='JOFFE ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='JOHN ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='JOSE ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='KRISTY ' LOCAL OFFSET-141,DATA-' X XX X X X' // IF ?L'133,8'?='LEW ' LOCAL OFFSET-141,DATA-' X XX X X X' // IF ?L'133,8'?='LISA ' LOCAL OFFSET-141,DATA-' X XX X X' // IF ?L'133,8'?='MICHELLE' LOCAL OFFSET-141,DATA-' X X X' // IF ?L'133,8'?='NATALIE ' LOCAL OFFSET-141,DATA-'X X XXXX X X' // IF ?L'133,8'?='MIKE ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='PAUL ' LOCAL OFFSET-141,DATA-' X XX X X X' // IF ?L'133,8'?='SBS ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='SM ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='STEVE ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='THOM ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='TOM ' LOCAL OFFSET-141,DATA-' XXXXXXXX X XXXX X' // LOAD JF0950 // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // RUN // IF ?L'181,1'?='P' ?L'182,6'? // IF ?L'181,1'?='M' MENU ?L'182,6'? // IF ?L'181,1'?='M' GOTO END // IF ?L'181,1'?=' ' GOTO BEGIN // GOTO BEGIN // TAG END // CEND // COPY LIBRARY-P,NAME-JF0951,RECL-096,REF-000003,DATE-11/09/13,TIME-0823 // IF ?L'100,2'?=' ' JF0941 // TAG BEGIN // LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='ALVERA ' LOCAL OFFSET-141,DATA-' X X X XXXXXXX XXXX X X X X' // IF ?L'133,8'?='ANGEL ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='ANN ' LOCAL OFFSET-141,DATA-' XXX X XXXXXXXXXXX X XXXX XXX XX ' // IF ?L'133,8'?='AUDREY ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='BETTY ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='BILL ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='BP ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='MARCUS ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='CONNIE ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='CRAIG ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='DALE ' LOCAL OFFSET-141,DATA-' X X' // IF ?L'133,8'?='DONNA ' LOCAL OFFSET-141,DATA-' X XXX XXX X' // IF ?L'133,8'?='DOT ' LOCAL OFFSET-141,DATA-' XX X X' // IF ?L'133,8'?='BRAIN ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='AROD ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='EMOW ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='GLENN ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='GEORGE ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='JD ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='JERRY ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='JESSICA ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='JOE ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='JOEM ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='JOEP ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='JOFFE ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='JOHN ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='JOSE ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='KRISTY ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='LEW ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='LISA ' LOCAL OFFSET-141,DATA-' X X X X X' // IF ?L'133,8'?='MICHELLE' LOCAL OFFSET-141,DATA-' XXX X XXXXX XXXXX X XXXX XXX XX ' // IF ?L'133,8'?='NATALIE ' LOCAL OFFSET-141,DATA-' X X X' // IF ?L'133,8'?='MIKE ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='PAUL ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='SBS ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='SM ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='STEVE ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='THOM ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='TOM ' LOCAL OFFSET-141,DATA-' X X' // LOAD JF0951 // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // RUN // IF ?L'181,1'?='P' ?L'182,6'? // IF ?L'181,1'?='M' MENU ?L'182,6'? // IF ?L'181,1'?='M' GOTO END // IF ?L'181,1'?=' ' GOTO BEGIN // GOTO BEGIN // TAG END // CEND // COPY LIBRARY-P,NAME-JF0952,RECL-096,REF-000003,DATE-11/09/13,TIME-0823 // IF ?L'100,2'?=' ' JF0941 // TAG BEGIN // LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='ALVERA ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='ANGEL ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='ANN ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='AUDREY ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='BETTY ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='BILL ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='BP ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='MARCUS ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='CONNIE ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='CRAIG ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='DALE ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='DONNA ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='DOT ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='BRAIN ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='AROD ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='EMOW ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='GLENN ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='GEORGE ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='JD ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='JERRY ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='JESSICA ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='JOE ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='JOEM ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='JOEP ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='JOFFE ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='JOHN ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='JOSE ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='KRISTY ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='LEW ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='LISA ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='MICHELLE' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='NATALIE ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='MIKE ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='PAUL ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='SBS ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='SM ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='STEVE ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='THOM ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='TOM ' LOCAL OFFSET-141,DATA-' X' // LOAD JF0952 // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // RUN // IF ?L'181,1'?='P' ?L'182,6'? // IF ?L'181,1'?='M' MENU ?L'182,6'? // IF ?L'181,1'?='M' GOTO END // IF ?L'181,1'?=' ' GOTO BEGIN // GOTO BEGIN // TAG END // CEND // COPY LIBRARY-P,NAME-JF0953,RECL-096,REF-000003,DATE-11/09/13,TIME-0824 // IF ?L'100,2'?=' ' JF0941 // TAG BEGIN // LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='ALVERA ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='ANGEL ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='ANN ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='AUDREY ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='BETTY ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='BILL ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='BP ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='MARCUS ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='CONNIE ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='CRAIG ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='DALE ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='DONNA ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='DOT ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='BRAIN ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='AROD ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='EMOW ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='GLENN ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='GEORGE ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='JD ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='JERRY ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='JESSICA ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='JOE ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='JOEM ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='JOEP ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='JOFFE ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='JOHN ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='JOSE ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='KRISTY ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='LEW ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='LISA ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='MICHELLE' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='NATALIE ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='MIKE ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='PAUL ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='SBS ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='SM ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='STEVE ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='THOM ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='TOM ' LOCAL OFFSET-141,DATA-' X' // LOAD JF0953 // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // RUN // IF ?L'181,1'?='P' ?L'182,6'? // IF ?L'181,1'?='M' MENU ?L'182,6'? // IF ?L'181,1'?='M' GOTO END // IF ?L'181,1'?=' ' GOTO BEGIN // GOTO BEGIN // TAG END // CEND // COPY LIBRARY-P,NAME-JF0954,RECL-096,REF-000003,DATE-11/09/13,TIME-0824 // IF ?L'100,2'?=' ' JF0941 // TAG BEGIN // LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='ALVERA ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXX XXXXXXXXXX' // IF ?L'133,8'?='ANGEL ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='ANN ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXX XXXXXXXXXX' // IF ?L'133,8'?='AUDREY ' LOCAL OFFSET-141,DATA-' X X' // IF ?L'133,8'?='BETTY ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='BILL ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='BP ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='MARCUS ' LOCAL OFFSET-141,DATA-' X ' // IF ?L'133,8'?='CONNIE ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='CRAIG ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='DALE ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='DONNA ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='DOT ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='BRAIN ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='AROD ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='EMOW ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='GLENN ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='GEORGE ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='JD ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='JERRY ' LOCAL OFFSET-141,DATA-' X X' // IF ?L'133,8'?='JESSICA ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='JOE ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='JOEM ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='JOEP ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='JOFFE ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='JOHN ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='JOSE ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='KRISTY ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='LEW ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='LISA ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='MICHELLE' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXX XXXXXXXXXX' // IF ?L'133,8'?='NATALIE ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='MIKE ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='PAUL ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='SBS ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='SM ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='STEVE ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='THOM ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='TOM ' LOCAL OFFSET-141,DATA-' X' // LOAD JF0954 // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // RUN // IF ?L'181,1'?='P' ?L'182,6'? // IF ?L'181,1'?='M' MENU ?L'182,6'? // IF ?L'181,1'?='M' GOTO END // IF ?L'181,1'?=' ' GOTO BEGIN // GOTO BEGIN // TAG END // CEND // COPY LIBRARY-P,NAME-JF0955,RECL-096,REF-000004,DATE-11/09/13,TIME-0824 // IF ?L'100,2'?=' ' JF0941 // TAG BEGIN // LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='ALVERA ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='ANGEL ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='ANN ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='AUDREY ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='BETTY ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='BILL ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='BP ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='MARCUS ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='CONNIE ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='CRAIG ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='DALE ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='DONNA ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='DOT ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='BRAIN ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='AROD ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='EMOW ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='GLENN ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='GEORGE ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='JD ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='JERRY ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='JESSICA ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='JOE ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='JOEM ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='JOEP ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='JOFFE ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='JOHN ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='JOSE ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='KRISTY ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='LEW ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='LISA ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='MICHELLE' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='NATALIE ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='MIKE ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='PAUL ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='SBS ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='SM ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='STEVE ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='THOM ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='TOM ' LOCAL OFFSET-141,DATA-' X' // LOAD JF0955 // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // RUN // IF ?L'181,1'?='P' ?L'182,6'? // IF ?L'181,1'?='M' MENU ?L'182,6'? // IF ?L'181,1'?='M' GOTO END // IF ?L'181,1'?=' ' GOTO BEGIN // GOTO BEGIN // TAG END // CEND // COPY LIBRARY-P,NAME-JF0956,RECL-096,REF-000004,DATE-11/09/13,TIME-0824 // IF ?L'100,2'?=' ' JF0941 // TAG BEGIN // LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='ALVERA ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='ANGEL ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='ANN ' LOCAL OFFSET-141,DATA-' XX X' // IF ?L'133,8'?='AUDREY ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='BETTY ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='BILL ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='BP ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='MARCUS ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='CONNIE ' LOCAL OFFSET-141,DATA-' XX X' // IF ?L'133,8'?='CRAIG ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='DALE ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='DONNA ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='DOT ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='BRAIN ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='AROD ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='EMOW ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='GLENN ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='GEORGE ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='JD ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='JERRY ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='JESSICA ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='JOE ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='JOEM ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='JOEP ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='JOFFE ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='JOHN ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='JOSE ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='KRISTY ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='LEW ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='LISA ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='MICHELLE' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='NATALIE ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='MIKE ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='PAUL ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='SBS ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='SM ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='STEVE ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='THOM ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='TOM ' LOCAL OFFSET-141,DATA-' X' // LOAD JF0956 // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // RUN // IF ?L'181,1'?='P' ?L'182,6'? // IF ?L'181,1'?='M' MENU ?L'182,6'? // IF ?L'181,1'?='M' GOTO END // IF ?L'181,1'?=' ' GOTO BEGIN // GOTO BEGIN // TAG END // CEND // COPY LIBRARY-P,NAME-JF0957,RECL-096,REF-000004,DATE-11/09/13,TIME-0825 // IF ?L'100,2'?=' ' JF0941 // TAG BEGIN // LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='ALVERA ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='ANGEL ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='ANN ' LOCAL OFFSET-141,DATA-' X XX X' // IF ?L'133,8'?='AUDREY ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='BETTY ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='BILL ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='BP ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='CONNIE ' LOCAL OFFSET-141,DATA-' X XX X' // IF ?L'133,8'?='CRAIG ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='DALE ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='DONNA ' LOCAL OFFSET-141,DATA-' X X' // IF ?L'133,8'?='DOT ' LOCAL OFFSET-141,DATA-' X X' // IF ?L'133,8'?='BRAIN ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='AROD ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='EMOW ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='GLENN ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='GEORGE ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='JD ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='JERRY ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='JESSICA ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='JOE ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='JOEM ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='JOEP ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='JOFFE ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='JOHN ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='JOSE ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='KRISTY ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='LEW ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='LISA ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='MICHELLE' LOCAL OFFSET-141,DATA-' X XX X' // IF ?L'133,8'?='MARCUS ' LOCAL OFFSET-141,DATA-' X X' // IF ?L'133,8'?='NATALIE ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='MIKE ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='PAUL ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='SBS ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='SM ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='STEVE ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='THOM ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='TOM ' LOCAL OFFSET-141,DATA-' X' // LOAD JF0957 // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // RUN // IF ?L'181,1'?='P' ?L'182,6'? // IF ?L'181,1'?='M' MENU ?L'182,6'? // IF ?L'181,1'?='M' GOTO END // IF ?L'181,1'?=' ' GOTO BEGIN // GOTO BEGIN // TAG END // CEND // COPY LIBRARY-P,NAME-JF0958,RECL-096,DATE-11/09/13,TIME-0825 // IF ?L'100,2'?=' ' JF0941 // TAG BEGIN // LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='ALVERA ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='ANGEL ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='ANN ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='AUDREY ' LOCAL OFFSET-141,DATA-'XXXX XX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='BETTY ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='BILL ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='BP ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='CONNIE ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='CRAIG ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='DALE ' LOCAL OFFSET-141,DATA-' X X XXXX X' // IF ?L'133,8'?='DONNA ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='DOT ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='BRAIN ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='AROD ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='EMOW ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='GLENN ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='GEORGE ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='JD ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='JERRY ' LOCAL OFFSET-141,DATA-'XXXX XX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='JESSICA ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='JOE ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='JOEM ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='JOEP ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='JOFFE ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='JOHN ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='JOSE ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='KRISTY ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='LEW ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='LISA ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='MICHELLE' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='MARCUS ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='NATALIE ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='MIKE ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='PAUL ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='SBS ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='SM ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='STEVE ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='THOM ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='TOM ' LOCAL OFFSET-141,DATA-' X X XXXX X' // LOAD JF0958 // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // RUN // IF ?L'181,1'?='P' ?L'182,6'? // IF ?L'181,1'?='M' MENU ?L'182,6'? // IF ?L'181,1'?='M' GOTO END // IF ?L'181,1'?=' ' GOTO BEGIN // GOTO BEGIN // TAG END // CEND // COPY LIBRARY-P,NAME-JF0959,RECL-096,REF-000003,DATE-11/09/13,TIME-0825 // IF ?L'100,2'?=' ' JF0941 // TAG BEGIN // LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='ALVERA ' LOCAL OFFSET-141,DATA-' X X X XXXXXXX XXXX X X X X' // IF ?L'133,8'?='ANGEL ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='ANN ' LOCAL OFFSET-141,DATA-' XXX X XXXXXXXXXXX X XXXX XXX XX ' // IF ?L'133,8'?='AUDREY ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='BETTY ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='BILL ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='BP ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='MARCUS ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='CONNIE ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='CRAIG ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='DALE ' LOCAL OFFSET-141,DATA-' X X' // IF ?L'133,8'?='DONNA ' LOCAL OFFSET-141,DATA-' X XXX XXX X' // IF ?L'133,8'?='DOT ' LOCAL OFFSET-141,DATA-' XX X X' // IF ?L'133,8'?='BRAIN ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='AROD ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='EMOW ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='GLENN ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='GEORGE ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='JD ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='JERRY ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='JESSICA ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='JOE ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='JOEM ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='JOEP ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='JOFFE ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='JOHN ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='JOSE ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='KRISTY ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='LEW ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='LISA ' LOCAL OFFSET-141,DATA-' X X X X X' // IF ?L'133,8'?='MICHELLE' LOCAL OFFSET-141,DATA-' XXX X XXXXX XXXXX X XXXX XXX XX ' // IF ?L'133,8'?='NATALIE ' LOCAL OFFSET-141,DATA-' X X X' // IF ?L'133,8'?='MIKE ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='PAUL ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='SBS ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='SM ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='STEVE ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='THOM ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='TOM ' LOCAL OFFSET-141,DATA-' X X' // LOAD JF0959 // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // RUN // IF ?L'181,1'?='P' ?L'182,6'? // IF ?L'181,1'?='M' MENU ?L'182,6'? // IF ?L'181,1'?='M' GOTO END // IF ?L'181,1'?=' ' GOTO BEGIN // GOTO BEGIN // TAG END // CEND // COPY LIBRARY-P,NAME-JF0961,RECL-096,REF-000006,DATE-07/08/29,TIME-0915 // LOAD JF0961 // PRINTER NAME-PRT,CPI-15,FORMSNO-8X11 // SWITCH 10100000 // FILE NAME-XRECSM,LABEL-?WS?XRECSM,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-UNCASH,LABEL-?L'100,2'?UNCASH,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0962,RECL-096,REF-000007,DATE-07/08/29,TIME-0902 // LOAD JF0961 // PRINTER NAME-PRT,CPI-15,FORMSNO-8X11 // SWITCH 11000000 // FILE NAME-XRECSM,LABEL-?WS?XRECSM,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0963,RECL-096,DATE-09/12/10,TIME-1044 *** TRUCK MILL REPORT FOR PRICE GROUP 53 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XITOR // FILE NAME-OUTPUT,LABEL-?WS?XITORS,RECORDS-10000 // RUN HSORTR 22A 3X 220 I C 159 161EQC053 FNU 116 121 FNC 122 123 FNU 124 126 FNU 17 22 FNU 23 25 FNU 26 27 FDC 159 FDC 159 FDC 3 220 // END // CEND // COPY LIBRARY-P,NAME-JF0964,RECL-096,DATE-09/12/10,TIME-1044 *** TRUCK MILL REPORT FOR PRICE GROUP 53 // LOAD JF0964 // SWITCH 10000000 // PRINTER NAME-PRT,FORMSNO-8X11,COPIES-1 // FILE NAME-XITORS,LABEL-?WS?XITORS,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-XITHD,LABEL-?WS?XITHD // RUN // CEND // COPY LIBRARY-P,NAME-JF0965,RECL-096,DATE-09/12/10,TIME-1045 *** TRUCK MILL REPORT FOR PRICE GROUP 53 CONSOLIDATED // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XITOR // FILE NAME-OUTPUT,LABEL-?WS?XITORS,RECORDS-10000 // RUN HSORTR 27A 3X 220 I C 159 161EQC053 FNU 116 121 FNU 159 161 FNC 3 9 FNU 17 22 FNU 23 25 FNU 26 27 FDC 1 16 FDC 1 2 FDC 1 2 FDC 1 2 FDC 23 121 FDC 1 2 FDC 124 220 // END // CEND // COPY LIBRARY-P,NAME-JF0966,RECL-096,DATE-09/12/10,TIME-1045 *** TRUCK MILL REPORT FOR PRICE GROUP 53 CONSOLIDATED // LOAD JF0966 // SWITCH 01000000 // PRINTER NAME-PRT,FORMSNO-8X11,COPIES-1 // FILE NAME-XITORS,LABEL-?WS?XITORS,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0967,RECL-096,DATE-01/03/23,TIME-1225 // LOAD JF0967 // FILE NAME-RECEV,LABEL-?L'100,2'?RECEV,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-MISCUS,LABEL-?L'100,2'?MISCUS,DISP-SHR // FILE NAME-NJUAF,LABEL-?L'100,2'?NJUAF,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0968,RECL-096,REF-000001,DATE-01/03/23,TIME-1225 // LOAD JF0968 // PRINTER NAME-PRT,FORMSNO-NJTA // FILE NAME-RECEV,LABEL-?L'100,2'?RECEV,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-MISCUS,LABEL-?L'100,2'?MISCUS,DISP-SHR // FILE NAME-NJUAF,LABEL-?L'100,2'?NJUAF,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0969,RECL-096,REF-000007,DATE-01/03/23,TIME-1225 // IFF DATAF1-?WS?XPODOL BLDFILE ?WS?XPODOL,I,RECORDS,1000,80,,,1,10 // LOAD JF0970 // FILE NAME-XPODOL,LABEL-?WS?XPODOL // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // RUN // * ' ' // * 'DO YOU WISH TO RUN THE EDIT ?' // * ' Y = YES' // * ' N = NO' // * ' ' // IFF ?R?='Y' GOTO END // LOAD JF0971 // FILE NAME-HOUSE,LABEL-?L'100,2'?HOUSE,DISP-SHR // FILE NAME-XHSE,LABEL-?WS?XHSE,RECORDS-30000 // RUN // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XHSE,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XHSES,RECORDS-30000 // RUN HSORTR 6A 3X 81 FNU 1 6 FDC 1 81 // END // LOAD JF0972 // FILE NAME-XHSES,LABEL-?WS?XHSES,RETAIN-S // FILE NAME-XHSDS,LABEL-?WS?XHSDS,RECORDS-30000 // RUN // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XPODOL // FILE NAME-OUTPUT,LABEL-?WS?XXPODL,RECORDS-1000 // RUN HSORTR 16A 3X 80 FNU 11 16 FNC 1 10 FDC 1 80 // END // LOAD JF0973 // FILE NAME-XXPODL,LABEL-?WS?XXPODL,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-HOUSE,LABEL-?L'100,2'?HOUSE,DISP-SHR // FILE NAME-XHSDS,LABEL-?WS?XHSDS,RETAIN-S // FILE NAME-XPOHS,LABEL-?WS?XPOHS,RECORDS-1000 // RUN // * ' ' // * 'DO YOU WISH TO UPDATE THE PERMANENT FILES OF COMPANY ?L'100,2'?' // * 'WITH THESE PURCHASE ORDERS ?' // * ' Y = YES' // * ' N = NO' // * ' ' // IF ?R?='Y' GOTO UPDATE DELETE ?WS?XPOHS,F1 // GOTO END // TAG UPDATE // LOAD JF0974 // FILE NAME-XPOHS,LABEL-?WS?XPOHS,RETAIN-S // FILE NAME-PODOL,LABEL-?L'100,2'?PODOL,DISP-SHR // RUN // TAG END // CEND // COPY LIBRARY-P,NAME-JF0979,RECL-096,DATE-01/03/23,TIME-1225 // LOAD JF0979 // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-HOUSE,LABEL-?L'100,2'?HOUSE,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-HSECHG,LABEL-?L'100,2'?HSECHG,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0980,RECL-096,DATE-01/03/23,TIME-1225 // * 'CHANGING FILE HSECHG WITH PROGRAM JF0980' // LOAD JF0980 // FILE NAME-HSECHG,LABEL-?L'100,2'?HSECHG,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-XCNCHG,LABEL-?WS?XCNCHG // RUN // CEND // COPY LIBRARY-P,NAME-JF0982,RECL-096,REF-000004,DATE-03/10/26,TIME-2057 // LOAD JF0626 // FILE NAME-RECEV,LABEL-?L'100,2'?RECEV,DISP-SHR // FILE NAME-UNCASH,LABEL-?L'100,2'?UNCASH,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-MISCUS,LABEL-?L'100,2'?MISCUS,DISP-SHR // FILE NAME-XDTRC,LABEL-?WS?XDTRC,RECORDS-100000 // RUN // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XDTRC,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XXDTRC,RECORDS-100000 // RUN HSORTR 11A 3X 420 FNC 8 11 FNU 420 FNU 2 7 FDC 1 256 FDC 257 420 // END // LOAD JF0981 // SWITCH 10000000 // FILE NAME-XXDTRC,LABEL-?WS?XXDTRC,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-RELSHT,LABEL-?L'100,2'?RELSHT,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0983,RECL-096,DATE-02/04/22,TIME-1026 // LOAD JF0983 OVRPRTF FILE(PRT) USRDTA('PO-DETAIL') // FILE NAME-POMST,LABEL-?L'100,2'?POMST,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0984,RECL-096,REF-000001,DATE-01/03/23,TIME-1225 // * ' ' // * 'PUT TAPE CONTAINING INVOICE FILES (OINVCE AND OINVCB)' // * 'FOR PERIOD DESIRED INTO TAPE DRIVE AND' // * 'PRESS ANY KEY TO COPY FILES INTO COMPUTER.' // * ' ' // IF ?R?='X' GOTO START // TAG START RESTORE ?L'100,2'?OINVCE,,,,,,TC RESTORE ?L'100,2'?OINVCB,,,,,,TC // CEND // COPY LIBRARY-P,NAME-JF0985,RECL-096,DATE-01/03/23,TIME-1225 // * ' ' // * 'DO YOU WISH REPRINTED INVOICES TO PRINT ON:' // * ' ' // * ' 1 - INVOICE FORMS' // * ' 2 - STOCK PAPER' // * ' ' // * 'PLEASE ENTER 1 OR 2 TO INDICATE YOUR CHOICE. THANK YOU.' // * ' ' // LOCAL OFFSET-1,DATA-'?R?' // * ' ' // * 'PLEASE ENTER HOW YOU WISH TO CHOOSE INVOICES:' // * ' ' // * ' C - ALL INVOICES FOR ONE CUSTOMER' // * ' (MAY TAKE 1/2 HOUR OR SO TO SEARCH THE FILES)' // * ' I - BY INVOICE NUMBER' // * ' (WILL PRINT ALMOST IMMEDIATELY)' // * ' ' // * 'PLEASE ENTER C OR I TO INDICATE YOUR CHOICE. THANK YOU.' // * ' ' // LOCAL OFFSET-2,DATA-'?R?' // IF ?L'2,1'?='C' JF0986 // IFF ?L'2,1'?='C' JF0655 // IF ?L'1,1'?='2' GOTO PAP JF0987 // GOTO END // TAG PAP JF0988 // TAG END // CEND // COPY LIBRARY-P,NAME-JF0986,RECL-096,DATE-01/03/23,TIME-1225 // LOAD JF0938 // FILE NAME-INVCE,LABEL-?L'100,2'?OINVCE,DISP-SHR // FILE NAME-XRPINV,LABEL-?WS?XRPINV,RECORDS-5000 // RUN // CEND // COPY LIBRARY-P,NAME-JF0987,RECL-096,DATE-01/03/23,TIME-1225 // LOAD JF0656 // PRINTER NAME-PRT,FORMSNO-RINV // FILE NAME-XRPINV,LABEL-?WS?XRPINV,RETAIN-S // FILE NAME-INVCE,LABEL-?L'100,2'?OINVCE,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0988,RECL-096,DATE-01/03/23,TIME-1225 // LOAD JF0657 // FILE NAME-XRPINV,LABEL-?WS?XRPINV,RETAIN-S // FILE NAME-INVCE,LABEL-?L'100,2'?OINVCE,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0989,RECL-096,REF-000002,DATE-01/03/23,TIME-1225 // * ' ' // * 'THIS PROCEDURE WILL DELETE THE IINVOICE FILES (OINVCE AND OINVCB)' // * 'FOR AN OLDER TIME PERIOD. THESE HAD BEEN PREVIOUSLY BEEN' // * 'COPIED INTO THE COMPUTER FROM TAPE AND ARE TAKING UP A LOT OF SPACE.' // * 'PRESS ANY KEY TO DELETE THESE FILES.' // * ' ' // IF ?R?='X' GOTO START // TAG START DELETE ?L'100,2'?OINVCE,F1 DELETE ?L'100,2'?OINVCB,F1 // CEND // COPY LIBRARY-P,NAME-JF0990,RECL-096,REF-000001,DATE-01/03/23,TIME-1225 // LOAD JF0664 // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-INVCB,LABEL-?L'100,2'?OINVCB,DISP-SHR // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-PRCTAB,LABEL-?L'100,2'?PRCTAB,DISP-SHR // FILE NAME-INVCE,LABEL-?L'100,2'?OINVCE,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0991,RECL-096,DATE-02/01/22,TIME-1455 // LOAD JF0992 // FILE NAME-POMST,LABEL-?L'100,2'?POMST,DISP-SHR // FILE NAME-XPOMS,LABEL-?WS?XPOMS,RECORDS-50000 // RUN // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XPOMS,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XPOSS,RECORDS-50000 // RUN HSORTR 25A 3X 152 FNU 89 94 FNC 36 42 FNU 1 6 FNU 95 100 FDC 1 152 // END // LOAD JF0993 // PRINTER NAME-PRT,CPI-15 // FILE NAME-XPOSS,LABEL-?WS?XPOSS,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF0996,RECL-096,DATE-02/02/21,TIME-0836 // IFF DATAF1-?WS?XRCDT BLDFILE ?WS?XRCDT,I,R,1,7,,,1,1 // IFF DATAF1-?WS?XPORC BLDFILE ?WS?XPORC,I,R,5000,120,,,1,11 // LOAD JF0997 // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-XRCDT,LABEL-?WS?XRCDT // FILE NAME-POMST,LABEL-?L'100,2'?POMST,DISP-SHR // FILE NAME-XPORC,LABEL-?WS?XPORC // RUN // * ' ' // * 'DO YOU WISH TO RUN THE PO RECEIVING EDIT ?' // * ' Y = YES' // * ' ANYTHING ELSE = NO' // * ' ' // IFF ?R?='Y' GOTO END // LOAD JF0998 // SWITCH 10000000 // PRINTER NAME-PRT,DEVICE-?L'94,4'?,CPI-10 // FILE NAME-XPORC,LABEL-?WS?XPORC // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-XRCDT,LABEL-?WS?XRCDT // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-POMST,LABEL-?L'100,2'?POMST,DISP-SHR // RUN // IFF ?L'1,1'?='X' GOTO UPDATE // * ' ' // * 'THERE ARE ERRORS IN THE PO RECEIVING EDIT AND YOU CANNOT CONTINUE' // * 'WITH THE UPDATE. PLEASE PRESS ENTER TO RETURN TO MENU' // * 'IN ORDER TO MAKE CORRECTIONS.' // * ' ' // GOTO END // TAG UPDATE // * ' ' // * 'DO YOU WISH TO UPDATE THE PERMANENT FILES WITH THIS DATA' // * 'AND FINISH OUT THESE RECEIVINGS ?' // * ' Y = YES' // * ' ANYTHING ELSE = NO' // * ' ' // IFF ?R?='Y' GOTO END // * ' ' // * 'ARE YOU SURE YOU WANT TO RUN THE UPDATE ?' // * ' Y = YES' // * ' N = NO' // * ' ' // IFF ?R?='Y' GOTO END // LOAD JF0998 // SWITCH 01000000 // PRINTER NAME-PRT,DEVICE-?L'94,4'?,CPI-10 // FILE NAME-XPORC,LABEL-?WS?XPORC // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-XRCDT,LABEL-?WS?XRCDT // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-INVEN,LABEL-?L'100,2'?INVEN,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-POMST,LABEL-?L'100,2'?POMST,DISP-SHR // FILE NAME-POREC,LABEL-?L'100,2'?POREC,DISP-SHR // FILE NAME-PRDREC,LABEL-?L'100,2'?PRDREC,DISP-SHR // RUN DELETE ?WS?XPORC,F1 DELETE ?WS?XRCDT,F1 // LOAD JF0999 // FILE NAME-POMST,LABEL-?L'100,2'?POMST,DISP-SHR // FILE NAME-XPOCL,LABEL-?WS?XPOCL,RECORDS-10000 // RUN // LOAD JF1000 // FILE NAME-XPOCL,LABEL-?WS?XPOCL,RETAIN-S // FILE NAME-POMST,LABEL-?L'100,2'?POMST,DISP-SHR // RUN // TAG END // CEND // COPY LIBRARY-P,NAME-JF1001,RECL-096,REF-000001,DATE-01/03/23,TIME-1225 // LOAD JF1001 // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-POREC,LABEL-?L'100,2'?POREC,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF1002,RECL-096,DATE-01/03/23,TIME-1225 // * ' ' // * 'THIS PROCEDURE WILL REMOVE FROM THE COMPUTER OLD LOADS DATA' // * 'FOR THE LOAD AND RELEASE SHEET FILES (NAMED LOAD AND RELSHT)' // * 'FOR CUSTOMER ?L'100,2'?' // * 'RECORDS REMOVED FROM THE RELEASE SHEET FILE WILL BE COPIED TO TAPE.' // * ' ' // * 'ENSURE THAT NO ONE WILL DO ANYTHING WITH LOADS' // * 'UNTIL THIS PROGRAM IS FINISHED' // * ' ' // * 'THE ORIGINAL FILES WILL BE SAVED WITH NAMES ?L'100,2'?ZLOAD' // * ' AND ?L'100,2'?ZRELSH' // * ' ' // * 'ENTER PASSWORD TO CONTINUE' // IFF ?R?='JOFFEBUILDSBETTERHOUSES' GOTO END // * ' ' // * 'ENTER THE LAST YEAR (2 DIGITS) FOR WHICH LOADS ARE TO BE REMOVED' // * 'FROM THE COMPUTER.' // LOCAL OFFSET-1,DATA-'?R?' // * ' ' // * ' ' // IF DATAF1-?L'100,2'?ZLOAD DELETE ?L'100,2'?ZLOAD,F1 // IF DATAF1-?L'100,2'?ZRELSH DELETE ?L'100,2'?ZRELSH,F1 RENAME ?L'100,2'?LOAD,?L'100,2'?ZLOAD DELETE ?L'100,2'?RELSH1,F1 RENAME ?L'100,2'?RELSHT,?L'100,2'?ZRELSH // LOAD JF1002 // FILE NAME-ZLOAD,LABEL-?L'100,2'?ZLOAD // FILE NAME-ZRELSHT,LABEL-?L'100,2'?ZRELSH // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,RECORDS-60000,EXTEND-5000 // FILE NAME-ORELSH,LABEL-?L'100,2'??L'1,2'?RELS,RECORDS-100000 // FILE NAME-RELSHT,LABEL-?L'100,2'?RELSHT,RECORDS-200000,EXTEND-5000 // RUN BLDINDEX ?L'100,2'?RELSH1,1,39,?L'100,2'?RELSHT // * ' ' // * 'PLEASE PUT A TAPE INTO THE COMPUTER TO COPY RELEASE SHEET' // * 'RECORDS FOR THE LATEST YEAR OF ?L'1,2'?' // * ' ' // * 'THE TAPE MUST HAVE THE VOLUME ID OF JOFFE.' // * 'IT MAY HAVE OTHER FILES ON IT IF YOU WISH TO SAVE TAPES,' // * 'BUT BE CERTAIN THAT ANY FILES YOU WISH TO SAVE HAVE AN EXPIRATION DATE' // * 'OF PROTECT. YOU CAN SEE THIS BY TAKING A CATALOG OF THE TAPE.' // * ' ' // * 'LABEL THE TAPE WITH THE YEAR ?L'1,2'? AND THE DATE YOU' // * 'RAN THIS PROCEDURE (CURRENT DATE)' // * ' ' // * 'TAKE A O OPTION TO THE PAUSE HALT TO CONTINUE WHEN YOU ARE READY' // * ' ' // PAUSE *****TAPEINIT TC,SL,JOFFE,,JOFFE SAVE ?L'100,2'??L'1,2'?RELS,999,,JOFFE,TC // * ' ' // * 'PLEASE PUT A TAPE INTO THE COMPUTER TO MAKE A SECOND COPY' // * 'OF THE RELEASE SHEET RECORDS FOR THE LATEST YEAR OF ?L'1,2'?' // * ' ' // * 'THE TAPE MUST HAVE THE VOLUME ID OF JOFFE.' // * 'IT MAY HAVE OTHER FILES ON IT IF YOU WISH TO SAVE TAPES,' // * 'BUT BE CERTAIN THAT ANY FILES YOU WISH TO SAVE HAVE AN EXPIRATION DATE' // * 'OF PROTECT. YOU CAN SEE THIS BY TAKING A CATALOG OF THE TAPE.' // * ' ' // * 'LABEL THE TAPE WITH THE YEAR ?L'1,2'? AND THE DATE YOU' // * 'RAN THIS PROCEDURE (CURRENT DATE)' // * ' ' // * 'TAKE A O OPTION TO THE PAUSE HALT TO CONTINUE WHEN YOU ARE READY' // * ' ' // PAUSE *****TAPEINIT TC,SL,JOFFE,,JOFFE SAVE ?L'100,2'??L'1,2'?RELS,999,,JOFFE,TC *****DELETE ?L'100,2'??L'1,2'?PRDU,F1 *****DELETE ?WS?XPRDUS,F1 // * 'WHEN YOU ARE SATISFIED WITH THIS REMOVAL OF OLD RECORDS' // * 'BE SURE TO DELETE THE FILES ?L'100,2'??L'1,2'?RELS,' // * '?L'100,2'?ZLOAD, AND ?L'100,2'?ZRELSH' // * ' ' // * 'PRESS ENTER TO RETURN TO THE MENU' // * ' ' // IF ?R?='X' GOTO END // GOTO END // TAG END // CEND // COPY LIBRARY-P,NAME-JF1003,RECL-096,DATE-01/03/23,TIME-1225 JF1004 JF1005 JF1006 JF1007 // CEND // COPY LIBRARY-P,NAME-JF1004,RECL-096,DATE-01/03/23,TIME-1225 // LOAD JF1004 // FILE NAME-OPENAP,LABEL-?L'100,2'?OPENAP,DISP-SHR // FILE NAME-CHKFLE,LABEL-?L'100,2'?CHKFLE,DISP-SHR // FILE NAME-XOPNAP,LABEL-?WS?XOPNAP,RECORDS-40000 // FILE NAME-XCHK,LABEL-?WS?XCHK,RECORDS-40000 // FILE NAME-XVNDT,LABEL-?WS?XVNDT,RECORDS-1 // RUN // CEND // COPY LIBRARY-P,NAME-JF1005,RECL-096,DATE-04/12/07,TIME-1200 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XCHK,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XCHKS,RECORDS-50000 // RUN HSORTR 29A 3X 68 FNU 21 26 FNC 13 20 FNU 61 68 FNU 33 38 FNC 60 FDC 1 68 // END // CEND // COPY LIBRARY-P,NAME-JF1006,RECL-096,DATE-01/03/23,TIME-1225 // LOAD JF1006 // FILE NAME-XCHKS,LABEL-?WS?XCHKS,RETAIN-S // FILE NAME-XCHKI,LABEL-?WS?XCHKI,RECORDS-40000 // RUN // CEND // COPY LIBRARY-P,NAME-JF1007,RECL-096,REF-000001,DATE-01/03/23,TIME-1225 // LOAD JF1007 // FILE NAME-XOPNAP,LABEL-?WS?XOPNAP,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-XVNDT,LABEL-?WS?XVNDT,RETAIN-S // FILE NAME-VENDOR,LABEL-?L'100,2'?VENDOR,DISP-SHR // FILE NAME-XCHKI,LABEL-?WS?XCHKI,RETAIN-S // RUN // CEND // COPY LIBRARY-P,NAME-JF1008,RECL-096,DATE-01/03/23,TIME-1225 // * ' ' // * 'PUT TAPE CONTAINING OLD RELEASE SHEET FILE INTO TAPE DRIVE.' // * 'ENTER LATEST YEAR (2 DIGITS) DESIGNATION FOR RELEASE SHEET FILE ON TAPE.' // * ' ' // * 'IF NOT SURE YOU CAN DETERMINE THIS FROM THE FILE NAME WHICH CONSISTS OF:' // * ' POSITION 1-2 ?L'100,2'? = COMPANY CODE' // * ' POSITION 3-4 LATEST YEAR OF RECORDS IN FILE' // * ' POSITION 5-8 RELS = NAME OF FILE' // * ' ' // LOCAL OFFSET-1,DATA-'?R?' RESTORE ?L'100,2'??L'1,2'?RELS,,,,,,TC RENAME ?L'100,2'??L'1,2'?RELS,?L'100,2'?ORELSH BLDINDEX ?L'100,2'?ORELS1,1,39,?L'100,2'?ORELSH // * ' ' // * 'THE OLD RELEASE SHEET FILE NAMED ?L'100,2'??L'1,2'? HAS BEEN COPIED.' // * 'AND RENAMED TO ?L'100,2'?ORELSH.' // * 'AND AN ALTERNATE INDEX FILE NAMED ?L'100,2'??L'1,2'?ORELS1 CREATED.' // * ' ' // * 'WHEN YOU ARE FINISHED PLEASE REMOVE BOTH FROM THE COMPUTER' //* '(?L'100,2'??L'1,2'?ORELS1 FIRST).' // * ' ' // * 'PRESS ENTER TO RETURN TO MENU.' // IF ?R?='X' GOTO END // GOTO END // TAG END // CEND // COPY LIBRARY-P,NAME-JF1009,RECL-096,DATE-01/03/23,TIME-1225 // LOAD JF0511 // FILE NAME-RELSH1,LABEL-?L'100,2'?ORELS1,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF1010,RECL-096,DATE-01/03/23,TIME-1225 // * ' ' // * 'THIS PROCEDURE WILL DELETE THE RELEASE SHEET FILES' // * 'FOR AN OLDER TIME PERIOD. THESE HAD BEEN PREVIOUSLY BEEN' // * 'COPIED INTO THE COMPUTER FROM TAPE AND ARE TAKING UP A LOT OF SPACE.' // * 'PRESS ANY KEY TO DELETE THESE FILES.' // * ' ' // IF ?R?='X' GOTO START // TAG START DELETE ?L'100,2'?ORELS1,F1 DELETE ?L'100,2'?ORELSH,F1 // CEND // COPY LIBRARY-P,NAME-JF1012,RECL-096,REF-000003,DATE-01/04/18,TIME-0955 **BLDINDEX ?L'100,2'?RECAL2,8,6,?L'100,2'?RECEV,,,,2,6 // LOAD JF1012 // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-RECAL2,LABEL-?L'100,2'?RECAL2,DISP-SHR // FILE NAME-INVCE,LABEL-?L'100,2'?INVCE,DISP-SHR // RUN **DELETE ?L'100,2'?RECAL2,F1 // CEND // COPY LIBRARY-P,NAME-JF1013,RECL-096,REF-000001,DATE-03/12/04,TIME-1259 // LOAD JF1013 // FILE NAME-XINVC,LABEL-?WS?XINVC // FILE NAME-XREC,LABEL-?WS?XREC // FILE NAME-NJUAF,LABEL-?L'100,2'?NJUAF,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-DEPT,LABEL-?L'100,2'?DEPT,DISP-SHR // FILE NAME-XTAREC,LABEL-?WS?XTAREC,RECORDS-3000 // FILE NAME-XINDP,LABEL-?WS?XINDP,RECORDS-6000 // RUN // CEND // COPY LIBRARY-P,NAME-JF1014,DATE-09/11/21,TIME-1901 // TAG AGN1 // * 'ENTER I FOR AFFIDAVITS BY INVOICE#. C BY CUSTOMER/INVOICE DATE' // LOCAL OFFSET-1,DATA-'?R?' // IF ?L'1,1'?='I' JF1015 // IF ?L'1,1'?='I' GOTO REPORT // IF ?L'1,1'?='C' JF1290 // IF ?L'1,1'?='C' GOTO REPORT // GOTO AGN1 // TAG REPORT JF1016 // CEND // COPY LIBRARY-P,NAME-JF1015,RECL-096,REF-000001,DATE-01/04/30,TIME-1140 // LOAD JF1015 // FILE NAME-RECEV,LABEL-?L'100,2'?RECEV,DISP-SHR // FILE NAME-NJUAF,LABEL-?L'100,2'?NJUAF,DISP-SHR // FILE NAME-INVCE,LABEL-?L'100,2'?INVCE,DISP-SHR // FILE NAME-DEPT,LABEL-?L'100,2'?DEPT,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-XTAREC,LABEL-?WS?XTAREC,RECORDS-2000 // FILE NAME-XINDP,LABEL-?WS?XINDP,RECORDS-3000 // RUN // CEND // COPY LIBRARY-P,NAME-JF1016,RECL-096,REF-000004,DATE-01/05/02,TIME-0756 // LOAD JF0753 // PRINTER NAME-PRT,FORMSNO-NJTA // FILE NAME-XTAREC,LABEL-?WS?XTAREC,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-MISCUS,LABEL-?L'100,2'?MISCUS,DISP-SHR // FILE NAME-XINDP,LABEL-?WS?XINDP,RETAIN-S // RUN // CEND // COPY LIBRARY-P,NAME-JF1017,RECL-096,REF-000001,DATE-01/05/23,TIME-1013 // LOAD JF1017 // FILE NAME-XREC,LABEL-?WS?XREC // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-INVCB,LABEL-?L'100,2'?INVCB,DISP-SHR // FILE NAME-INVCE,LABEL-?L'100,2'?INVCE,DISP-SHR // FILE NAME-DPINV,LABEL-?L'100,2'?DPINV,DISP-SHR,EXTEND-5000 ***** // FILE NAME-XDPIN,LABEL-?WS?XDPIN,RECORDS-1000 // RUN // CEND // COPY LIBRARY-P,NAME-JF1018,RECL-096,REF-000001,DATE-01/05/09,TIME-1114 // LOAD JF1018 // FILE NAME-INVCB,LABEL-?L'100,2'?INVCB,DISP-SHR // FILE NAME-XDPIN,LABEL-?WS?XDPIN,RETAIN-S // RUN // CEND // COPY LIBRARY-P,NAME-JF1020,DATE-01/06/06,TIME-1057 // LOAD JF1021 // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-CUSMS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-XCUS,LABEL-?WS?XCUS,RECORDS-20000 // RUN // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XCUS,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XCUSS,RECORDS-20000 // RUN HSORTR 6A 3X 634 FNC 601 604 FNC 5 6 FDC 1 256 FDC 257 512 FDC 513 634 // END // LOAD JF1022 // FILE NAME-XCUSS,LABEL-?WS?XCUSS,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF1023,DATE-01/06/06,TIME-1143 // LOAD JF1021 // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-CUSMS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-XCUS,LABEL-?WS?XCUS,RECORDS-20000 // RUN // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XCUS,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XCUSS,RECORDS-20000 // RUN HSORTR 10A 3X 634 FNC 601 604 FNC 1 6 FDC 1 256 FDC 257 512 FDC 513 634 // END // LOAD JF1024 // FILE NAME-XCUSS,LABEL-?WS?XCUSS,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF1025,RECL-096,REF-000001,DATE-03/10/26,TIME-2057 // LOAD JF1026 // FILE NAME-RECEV,LABEL-?L'100,2'?RECEV,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-XRECL,LABEL-?WS?XRECL,RECORDS-20000 // RUN // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XRECL,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XRECS,RECORDS-20000 // RUN HSORTR 12A 3X 400 FNC 362 363 FNC 301 304 FNU 8 13 FDC 1 256 FDC 257 400 // END // LOAD JF1027 // FILE NAME-XRECS,LABEL-?WS?XRECS,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF1030,RECL-096,DATE-01/08/01,TIME-1048 // LOAD JF1031 // FILE NAME-HOUSE,LABEL-?L'100,2'?HOUSE,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-PRCTAB,LABEL-?L'100,2'?PRCTAB,DISP-SHR // FILE NAME-XITPRF,LABEL-?WS?XITPRF,RECORDS-50000 // RUN // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XITPRF,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XITPRS,RECORDS-50000 // RUN HSORTR 17A 3X 74 FNC 1 7 FOU 41 44 FNU 8 13 FDC 1 74 // END // LOAD JF1032 OVRPRTF FILE(PRT) USRDTA('ITEM PROF') // FILE NAME-XITPRS,LABEL-?WS?XITPRS,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF1034,RECL-096,DATE-01/09/24,TIME-1019 // LOAD JF1034 // FILE NAME-RECEV,LABEL-?L'100,2'?RECEV,DISP-SHR // FILE NAME-INVNOT,LABEL-?L'100,2'?INVNOT,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF1036,RECL-096,DATE-01/10/11,TIME-1154 // LOAD JF1036 // PRINTER NAME-PRT,COPIES-2 // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-HOUSE,LABEL-?L'100,2'?HOUSE,DISP-SHR // FILE NAME-HOUOLD,LABEL-?L'100,2'?HOUOLD,DISP-SHR // FILE NAME-XNHNO,LABEL-?WS?XNHNO,RECORDS-1 // RUN // CEND // COPY LIBRARY-P,NAME-JF1037,RECL-096,DATE-01/10/18,TIME-0815 // LOAD JF1037 // PRINTER NAME-PRT,COPIES-2 // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-HOUOLD,LABEL-?L'100,2'?HOUOLD,DISP-SHR // FILE NAME-HOUSE,LABEL-?L'100,2'?HOUSE,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF1038,RECL-096,DATE-01/10/08,TIME-1514 // * 'PLEASE INDICATE WHICH SIZE PAPER YOU WISH FOR DETAILED HOUSE LISTING:' // * ' ' // * ' 1 = 11 X 14 INCH (FULL SIZE COMPUTER PAPER)' // * ' 2 = 8 1/2 X 14 INCH' // * ' ' // LOCAL OFFSET-201,DATA-'?R?',BLANK-1 // * ' ' // * 'DO YOU WISH PRICES TO PRINT FOR SINGLE-LINE PRICED HOUSES' // * 'FOR THOSE CUSTOMERS DESIGNATED AS NOT NORMALLY HAVING PRICES PRINT ?' // * ' (Y=YES, N OR JUST PRESSING ENTER=NO)' // * ' ' // LOCAL OFFSET-1,DATA-'?R?',BLANK-1 // * ' ' JF1039 JF1040 // CEND // COPY LIBRARY-P,NAME-JF1039,RECL-096,REF-000002,DATE-01/10/08,TIME-1510 // LOAD JF0015 // FILE NAME-HOUSE,LABEL-?L'100,2'?HOUOLD,DISP-SHR // FILE NAME-XHSEL,LABEL-?WS?XHSEL,RECORDS-30000 // FILE NAME-XHSCH,LABEL-?WS?XHSCH,RECORDS-1 // RUN // CEND // COPY LIBRARY-P,NAME-JF1040,RECL-096,REF-000002,DATE-01/10/08,TIME-1513 // LOAD JF0016 // IF ?L'201,1'?='2' SWITCH 00100001 // IFF ?L'201,1'?='2' SWITCH 00100010 ***** // IF ?L'201,1'?='2' PRINTER NAME-PRT2,FORMSNO-8X14 ***** // IFF ?L'201,1'?='2' PRINTER NAME-PRT1 // IF ?L'201,1'?='2' GOTO PRINT2 // IF ?WS?='X8' PRINTER NAME-PRT1,FONT-DF // IFF ?WS?='X8' PRINTER NAME-PRT1 // GOTO BEGIN // TAG PRINT2 // IF ?WS?='X8' PRINTER NAME-PRT2,FORMSNO-8X14,FONT-DF // IFF ?WS?='X8' PRINTER NAME-PRT2,FORMSNO-8X14 // TAG BEGIN // FILE NAME-XHSEL,LABEL-?WS?XHSEL,RETAIN-S // FILE NAME-XHSCH,LABEL-?WS?XHSCH,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-PRCTAB,LABEL-?L'100,2'?PRCTAB,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF1041,RECL-096,DATE-01/10/11,TIME-1123 // LOAD JF1041 // FILE NAME-XNHNO,LABEL-?WS?XNHNO,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF1042,DATE-01/10/11,TIME-1021 JF1036 JF1041 // CEND // COPY LIBRARY-P,NAME-JF1043,RECL-096,REF-000003,DATE-03/10/26,TIME-2057 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?L'100,2'?RECEV,DISP-SHR // FILE NAME-OUTPUT,LABEL-?WS?XREC,RECORDS-300000 // RUN HSORTR 12A 3X 300 I C 300NECD IAC 300NECV FNU 8 13 FNU 18 19 FNU 14 17 FDC 1 256 FDC 257 300 // END // LOAD JF1043 // PRINTER NAME-PRT,CPI-15 // FILE NAME-XREC,LABEL-?WS?XREC,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF1044,RECL-096,DATE-08/03/12,TIME-1011 // * 'DO YOU WISH MONTHLY SALES ANALYSIS IN ORDER BY:' // * ' C = CUSTOMER NAME, CUSTOMER#' // * ' S = SALESMAN CODE, CUSTOMER NAME, CUSTOMER#' // LOCAL OFFSET-1,DATA-'?R?' ****// IF ?L'1,1'?='S' GOTO SALMAN // LOAD #GSORT // FILE NAME-INPUT,LABEL-?L'100,2'?RECEV,DISP-SHR // FILE NAME-OUTPUT,LABEL-?WS?XREC,RECORDS-600000 // RUN HSORTR 12A 3X 300 I C 181NECR IAC 300NECD IAC 300NECV FNU 8 13 FNU 18 19 FNU 14 17 FDC 1 256 FDC 257 300 // END // LOAD JF1049 // FILE NAME-XREC,LABEL-?WS?XREC,RETAIN-S // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-XRECSM,LABEL-?WS?XRECSM,RECORDS-600000 // RUN // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XRECSM,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XRECSS,RECORDS-300000 // RUN HSORTR 20A 3X 361 FNC 305 306 * FNC 307 336 FNU 8 13 FNU 301 304 FNU 14 17 FDC 1 256 FDC 257 361 // END // LOAD JF1050 // FILE NAME-XRECSS,LABEL-?WS?XRECSS,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-SALMEN,LABEL-?L'100,2'?SALMEN,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF1045,RECL-096,DATE-03/10/26,TIME-2057 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?L'100,2'?RECEV,DISP-SHR // FILE NAME-OUTPUT,LABEL-?WS?XREC,RECORDS-300000 // RUN HSORTR 12A 3X 300 I C 300NECD IAC 300NECV FNU 8 13 FNU 18 19 FNU 14 17 FDC 1 256 FDC 257 300 // END // LOAD JF1046 // FILE NAME-XREC,LABEL-?WS?XREC,RETAIN-S // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-XRECZN,LABEL-?WS?XRECZN,RECORDS-300000 // RUN // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XRECZN,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XRECZS,RECORDS-300000 // RUN HSORTR 20A 3X 310 FNC 305 310 FNU 8 13 FNU 301 304 FNU 14 17 FDC 1 310 // END // LOAD JF1047 // PRINTER NAME-PRT,CPI-15 // FILE NAME-XRECZS,LABEL-?WS?XRECZS // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // RUN // LOAD JF1048 // PRINTER NAME-PRT,CPI-15 // FILE NAME-XRECZS,LABEL-?WS?XRECZS,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF1053,RECL-096,DATE-03/07/08,TIME-1313 // LOAD JF1028 // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // RUN // IF ?L'1,1'?=' ' GOTO BEGIN // * ' ' // * 'THERE IS AN EXISTING PURCHASE ORDER THAT HAS NOT YET BEEN UPDATED' // * 'FOR YOUR TERMINAL OR ANOTHER TERMINAL.' // * ' ' // * 'YOU CANNOT PROCEED UNTIL THIS PURCHASE ORDER IS EITHER' // * 'UPDATED OR CANCELLED.' // * ' ' // * 'PRESS ENTER TO RETURN TO MENU.' // * ' ' // IF ?R?='X' GOTO END // GOTO END // TAG BEGIN // LOAD JF1029 // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // RUN // IF DATAF1-?WS?X608A DELETE ?WS?X608A,F1 // IF DATAF1-?WS?X608B DELETE ?WS?X608B,F1 // IF DATAF1-?WS?X608C DELETE ?WS?X608C,F1 // IF DATAF1-?WS?X608D DELETE ?WS?X608D,F1 // LOCAL OFFSET-4,DATA-'Y' // LOAD JF1054 // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-XORLOD,LABEL-?WS?XORLOD,RECORDS-40000 // RUN // LOAD JF1051 // SWITCH 10000000 // FILE NAME-LOAD,LABEL-?WS?XORLOD,RETAIN-S // FILE NAME-BILMAT,LABEL-?L'100,2'?BILMAT,DISP-SHR // FILE NAME-XPRLDT,LABEL-?WS?XPRLDT,RECORDS-30000 // RUN // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XPRLDT,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XPRLDS,RECORDS-10000 // RUN HSORTRS 21A 3X 32 FNC 1 7 FNU 18 21 FNU 14 17 FNU 8 13 FDC 1 27 FSU 28 32 // END // LOAD JF1057 // FILE NAME-XPRLDS,LABEL-?WS?XPRLDS,RETAIN-S // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-POMST,LABEL-?L'100,2'?POMST,DISP-SHR // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-XPOITM,LABEL-?WS?XPOITM,RECORDS-3000 // FILE NAME-XPO,LABEL-?WS?XPO,RECORDS-1 // RUN // LOAD JF1073 // FILE NAME-XPOITM,LABEL-?WS?XPOITM // FILE NAME-INVEN,LABEL-?L'100,2'?INVEN,DISP-SHR // RUN // LOAD #GSORT // FILE NAME-INPUT,LABEL-?L'100,2'?POMST,DISP-SHR // FILE NAME-OUTPUT,LABEL-?WS?XPOMST,RECORDS-30000 // RUN HSORTR 19A 3X 150 I C 150NECD FNC 36 42 FOU 89 94 FOU 95 100 FDC 1 150 // END // LOAD JF1055 // FILE NAME-XPOMST,LABEL-?WS?XPOMST,RETAIN-S // FILE NAME-XXPOM,LABEL-?WS?XXPOM,RECORDS-30000 // RUN // LOAD JF1056 // FILE NAME-XPOITM,LABEL-?WS?XPOITM // FILE NAME-XXPOM,LABEL-?WS?XXPOM,RETAIN-S // RUN // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XPOITM,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XPOITS,RECORDS-5000 // RUN HSORTR 25A 3X 100 I C 100EQCA FNC 1 7 FNU 73 74 FNU 69 72 FNC 8 13 FNC 14 19 FDC 1 100 // END // LOAD JF1075 // SWITCH 00000000 // PRINTER NAME-PRT,CPI-15 OVRPRTF FILE(PRT) USRDTA('PO-ASSIGN') // FILE NAME-XPOITS,LABEL-?WS?XPOITS,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-XPO,LABEL-?WS?XPO // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-XPOCAL,LABEL-?WS?XPOCAL,RECORDS-5000 // RUN // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XPOCAL,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XPOITS,RECORDS-3000 // RUN HSORTR 25A 3X 100 I C 100EQCA FNC 1 7 FNU 73 74 FNU 69 72 FNC 8 13 FNC 14 19 FDC 1 100 // END // LOAD JF1063 // SWITCH 10000000 // PRINTER NAME-PRT,CPI-15 OVRPRTF FILE(PRT) USRDTA('PO-REG') // FILE NAME-XPOITS,LABEL-?WS?XPOITS,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-XPO,LABEL-?WS?XPO // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-XPOITM,LABEL-?WS?XPOITM,RECORDS-3000 // RUN // LOAD JF1077 // SWITCH 10000000 // PRINTER NAME-PRT,CPI-15 OVRPRTF FILE(PRT) USRDTA('PO-SUMM') // FILE NAME-XPOITM,LABEL-?WS?XPOITM // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-XPO,LABEL-?WS?XPO // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // RUN // TAG END // CEND // COPY LIBRARY-P,NAME-JF1058,DATE-02/01/11,TIME-0932 // * 'DO YOU WISH TO START A NEW FILE OF BAR CODE INVENTORY ?' // * ' Y = YES' // * ' N = NO (YOU WILL ADD TO THE ALREADY EXISTING FILE)' // IFF ?R?='Y' GOTO BEGIN // IF DATAF1-'XBARFL' DELETE XBARFL,F1 // TAG BEGIN // IFF DATAF1-'XBARFL' BLDFILE XBARFL,S,R,20000,31 // LOAD JF1058 // FILE NAME-XBARFL,LABEL-XBARFL,RECORDS-10000 // RUN // CEND // COPY LIBRARY-P,NAME-JF1059,DATE-02/03/27,TIME-1423 // LOAD JF1084 // FILE NAME-INVEN,LABEL-?L'100,2'?INVEN,DISP-SHR // FILE NAME-XINV,LABEL-?WS?XINV,RECORDS-5000 // RUN // LOAD #GSORT // FILE NAME-INPUT,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-OUTPUT,LABEL-?WS?XPROD,RECORDS-50000 // RUN HSORTR 17A 3X 400 I C 11EQCI IAC 201 210NEC FNC 201 210 FNC 1 7 FDC 1 256 FDC 257 400 // END // LOAD JF1060 // FILE NAME-XPROD,LABEL-?WS?XPROD,RETAIN-S // FILE NAME-XINV,LABEL-?WS?XINV,RETAIN-S // FILE NAME-XPRDBR,LABEL-?WS?XPRDBR,RECORDS-20000 // RUN // LOAD JF1061 // FILE NAME-XBARFL,LABEL-XBARFL // FILE NAME-XBARCD,LABEL-?WS?XBARCD,RECORDS-5000 // RUN // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XBARCD,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XBARCS,RECORDS-5000 // RUN HSORTRS 21A 3X 150 FNU 26 31 FNC 1 10 FNU 32 36 FDC 1 150 // END // LOAD JF1090 // FILE NAME-XBARCS,LABEL-?WS?XBARCS,RETAIN-S // FILE NAME-XPRDBR,LABEL-?WS?XPRDBR,RETAIN-S // FILE NAME-XBARCD,LABEL-?WS?XBARCD,RECORDS-5000 // RUN **// LOAD #GSORT **// FILE NAME-INPUT,LABEL-?WS?XBARCD,RETAIN-S **// FILE NAME-OUTPUT,LABEL-?WS?XBARFS,RECORDS-5000 **// RUN ** HSORTRS 10A 3X 150 ** FNC 1 10 ** FDC 1 20 ** FSU 21 25 ** FDC 26 150 **// END **// LOAD JF1061 **// FILE NAME-XBARCD,LABEL-?WS?XBARCD **// FILE NAME-XPRDBR,LABEL-?WS?XPRDBR,RETAIN-S ** RUN // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XBARCD // FILE NAME-OUTPUT,LABEL-?WS?XBARCS,RECORDS-5000 // RUN HSORTR 7A 3X 150 FNC 37 43 FDC 1 150 // END // LOAD JF1062 // SWITCH 10000000 // FILE NAME-XBARCS,LABEL-?WS?XBARCS,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // RUN // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XBARCD // FILE NAME-OUTPUT,LABEL-?WS?XBARCS,RECORDS-5000 // RUN HSORTR 10A 3X 150 FNC 1 10 FDC 1 150 // END // LOAD JF1062 // SWITCH 01000000 // FILE NAME-XBARCS,LABEL-?WS?XBARCS,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // RUN // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XBARCD // FILE NAME-OUTPUT,LABEL-?WS?XBARCS,RECORDS-5000 // RUN HSORTR 5A 3X 150 FNU 32 36 FDC 1 150 // END // LOAD JF1062 // SWITCH 00100000 // FILE NAME-XBARCS,LABEL-?WS?XBARCS,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // RUN // * 'DO YOU WISH TO UPDATE THE COMPUTER FILES WITH THIS DATA ?' // * ' UPDATEINVENTORY = YES' // * ' ANYTHING ELSE = NO' // IF ?R?='UPDATEINVENTORY' GOTO UPDATE // * ' ' // * 'THE INVENTORY WILL NOT BE UPDATED.' // * 'PRESS ENTER TO RETURN TO MENU.' // IF ?R?='X' GOTO END // GOTO END // TAG UPDATE // LOAD JF1085 // FILE NAME-XBARCD,LABEL-?WS?XBARCD // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // RUN // LOAD JF1086 // FILE NAME-XBARCD,LABEL-?WS?XBARCD // FILE NAME-INVEN2,LABEL-?L'100,2'?INVEN,DISP-SHR // FILE NAME-INVEN,LABEL-?L'100,2'?INVEN,DISP-SHR // RUN // * ' ' // * 'THE INVENTORY HAS BEEN UPDATED.' // * 'PRESS ENTER TO RETURN TO MENU.' // IF ?R?='X' GOTO END // TAG END DELETE ?WS?XBARCD,F1 // CEND // COPY LIBRARY-P,NAME-JF1063,RECL-120,DATE-02/01/16,TIME-1423 // LOAD JF1063 // SWITCH 10000000 // PRINTER NAME-PRT,CPI-15 // FILE NAME-XPOITM,LABEL-?WS?XPOITM // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-XPO,LABEL-?WS?XPO // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF1064,RECL-096,DATE-02/04/22,TIME-1044 // LOAD JF1028 // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // RUN // IF ?L'1,1'?=' ' GOTO BEGIN // * ' ' // * 'THERE IS AN EXISTING PURCHASE ORDER THAT HAS NOT YET BEEN UPDATED' // * 'FOR YOUR TERMINAL OR ANOTHER TERMINAL.' // * ' ' // * 'YOU CANNOT PROCEED UNTIL THIS PURCHASE ORDER IS EITHER' // * 'UPDATED OR CANCELLED.' // * ' ' // * 'PRESS ENTER TO RETURN TO MENU.' // * ' ' // IF ?R?='X' GOTO END // GOTO END // TAG BEGIN // LOAD JF1029 // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // RUN // * ' ' *****BLDFILE ?WS?XPOITM,I,RECORDS,10000,100,,,1,19 *****BLDFILE ?WS?XPO,S,RECORDS,1,24 // LOAD JF1065 // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-POMST,LABEL-?L'100,2'?POMST,DISP-SHR // FILE NAME-XPO,LABEL-?WS?XPO,RECORDS-1 // FILE NAME-XPOITM,LABEL-?WS?XPOITM,RECORDS-10000 // RUN // LOAD JF0611 // FILE NAME-XPO,LABEL-?WS?XPO // FILE NAME-XPOITM,LABEL-?WS?XPOITM // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // RUN // LOAD JF1073 // FILE NAME-XPOITM,LABEL-?WS?XPOITM // FILE NAME-INVEN,LABEL-?L'100,2'?INVEN,DISP-SHR // RUN // LOAD #GSORT // FILE NAME-INPUT,LABEL-?L'100,2'?POMST,DISP-SHR // FILE NAME-OUTPUT,LABEL-?WS?XPOMST,RECORDS-30000 // RUN HSORTR 19A 3X 150 I C 150NECD FNC 36 42 FOU 89 94 FOU 95 100 FDC 1 150 // END // LOAD JF1055 // FILE NAME-XPOMST,LABEL-?WS?XPOMST,RETAIN-S // FILE NAME-XXPOM,LABEL-?WS?XXPOM,RECORDS-30000 // RUN // LOAD JF1056 // FILE NAME-XPOITM,LABEL-?WS?XPOITM // FILE NAME-XXPOM,LABEL-?WS?XXPOM,RETAIN-S // RUN // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XPOITM,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XPOITS,RECORDS-3000 // RUN HSORTR 25A 3X 100 I C 100EQCA FNC 1 7 FNU 90 91 FNU 86 89 FNC 8 13 FNC 14 19 FDC 1 100 // END // LOAD JF1063 // SWITCH 10000000 // PRINTER NAME-PRT,CPI-15 OVRPRTF FILE(PRT) USRDTA('PO-REG') // FILE NAME-XPOITS,LABEL-?WS?XPOITS,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-XPO,LABEL-?WS?XPO // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-XPOITM,LABEL-?WS?XPOITM,RECORDS-3000 // RUN // LOAD JF1077 // SWITCH 10000000 // PRINTER NAME-PRT,CPI-15 OVRPRTF FILE(PRT) USRDTA('PO-SUMM') // FILE NAME-XPOITM,LABEL-?WS?XPOITM // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-XPO,LABEL-?WS?XPO // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // RUN // TAG END // CEND // COPY LIBRARY-P,NAME-JF1066,RECL-120,DATE-02/04/25,TIME-0905 // LOAD JF1067 // FILE NAME-INVEN,LABEL-?L'100,2'?INVEN,DISP-SHR // FILE NAME-POMST,LABEL-?L'100,2'?POMST,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-XINV,LABEL-?WS?XINV,RECORDS-50000 // RUN // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XINV,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XINVS,RECORDS-50000 // RUN HSORTR 38A 3X 70 FNC 1 7 FNC 8 FNU 25 26 FNU 21 24 FNU 15 20 FNU 58 59 FNU 54 57 FNU 48 53 FNU 9 14 FDC 1 70 // END // LOAD JF1068 OVRPRTF FILE(PRT) USRDTA('INVSTATS') // PRINTER NAME-PRT,CPI-15 // FILE NAME-XINVS,LABEL-?WS?XINVS,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF1071,DATE-02/02/21,TIME-0836 // LOAD JF1071 // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-INVEN2,LABEL-?L'100,2'?INVEN,DISP-SHR // FILE NAME-INVEN,LABEL-?L'100,2'?INVEN,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF1074,RECL-120,DATE-03/07/08,TIME-1314 // LOAD JF0611 // FILE NAME-XPO,LABEL-?WS?XPO // FILE NAME-XPOITM,LABEL-?WS?XPOITM // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // RUN // LOAD JF1073 // FILE NAME-XPOITM,LABEL-?WS?XPOITM // FILE NAME-INVEN,LABEL-?L'100,2'?INVEN,DISP-SHR // RUN // LOAD #GSORT // FILE NAME-INPUT,LABEL-?L'100,2'?POMST,DISP-SHR // FILE NAME-OUTPUT,LABEL-?WS?XPOMST,RECORDS-30000 // RUN HSORTR 19A 3X 150 I C 150NECD FNC 36 42 FOU 89 94 FOU 95 100 FDC 1 150 // END // LOAD JF1055 // FILE NAME-XPOMST,LABEL-?WS?XPOMST,RETAIN-S // FILE NAME-XXPOM,LABEL-?WS?XXPOM,RECORDS-30000 // RUN // LOAD JF1056 // FILE NAME-XPOITM,LABEL-?WS?XPOITM // FILE NAME-XXPOM,LABEL-?WS?XXPOM,RETAIN-S // RUN // IFF ?L'1,1'?='3' GOTO END // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XPOITM,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XPOITS,RECORDS-5000 // RUN HSORTR 25A 3X 100 I C 100EQCA FNC 1 7 FNU 73 74 FNU 69 72 FNC 8 13 FNC 14 19 FDC 1 100 // END // LOAD JF1075 // SWITCH 00000000 // PRINTER NAME-PRT,CPI-15 OVRPRTF FILE(PRT) USRDTA('PO-ASSIGN') // FILE NAME-XPOITS,LABEL-?WS?XPOITS,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-XPO,LABEL-?WS?XPO // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-XPOCAL,LABEL-?WS?XPOCAL,RECORDS-5000 // RUN // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XPOCAL,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XPOITS,RECORDS-5000 // RUN HSORTR 25A 3X 100 I C 100EQCA FNC 1 7 FNU 73 74 FNU 69 72 FNC 8 13 FNC 14 19 FDC 1 100 // END // LOAD JF1063 // SWITCH 10000000 // PRINTER NAME-PRT,CPI-15 OVRPRTF FILE(PRT) USRDTA('PO-REG') // FILE NAME-XPOITS,LABEL-?WS?XPOITS,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-XPO,LABEL-?WS?XPO // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-XPOITM,LABEL-?WS?XPOITM,RECORDS-3000 // RUN // TAG END // CEND // COPY LIBRARY-P,NAME-JF1082,RECL-120,DATE-03/07/29,TIME-1249 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XPOITM,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XPOITS,RECORDS-3000 // RUN HSORTR 25A 3X 100 I C 100EQCA FNC 1 7 FNU 73 74 FNU 69 72 FNC 8 13 FNC 14 19 FDC 1 100 // END // LOAD JF1076 // FILE NAME-XPOITS,LABEL-?WS?XPOITS // FILE NAME-XPO,LABEL-?WS?XPO // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-POMST,LABEL-?L'100,2'?POMST,DISP-SHR // RUN // LOAD JF1079 // PRINTER NAME-PRT,CPI-15 OVRPRTF FILE(PRT) USRDTA('PO-INVASSN') // FILE NAME-XPOITS,LABEL-?WS?XPOITS // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-XPO,LABEL-?WS?XPO // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-INVEN,LABEL-?L'100,2'?INVEN,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // RUN // LOAD #GSORT // FILE NAME-INPUT,LABEL-?L'100,2'?POMST,DISP-SHR // FILE NAME-OUTPUT,LABEL-?WS?XPOMST,RECORDS-30000 // RUN HSORTR 19A 3X 150 I C 150NECD FNC 36 42 FOU 89 94 FOU 95 100 FDC 1 150 // END // LOAD JF1080 // FILE NAME-XPOMST,LABEL-?WS?XPOMST,RETAIN-S // FILE NAME-XPOCS,LABEL-?WS?XPOCS,RECORDS-20000 // RUN // LOAD JF1081 OVRPRTF FILE(PRT) USRDTA('PO-POASSN') // FILE NAME-XPOITS,LABEL-?WS?XPOITS // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-XPO,LABEL-?WS?XPO // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-XPOCS,LABEL-?WS?XPOCS,RETAIN-S // FILE NAME-POMST,LABEL-?L'100,2'?POMST,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-XOLDPO,LABEL-?WS?XOLDPO,RECORDS-2000 // RUN // LOAD JF1063 // SWITCH 01000000 // PRINTER NAME-PRT,CPI-15 OVRPRTF FILE(PRT) USRDTA('PO-REG') // FILE NAME-XPOITS,LABEL-?WS?XPOITS // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-XPO,LABEL-?WS?XPO // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-XPOITM,LABEL-?WS?XPOITM,RECORDS-3000 // RUN // LOAD JF1077 // SWITCH 01000000 // PRINTER NAME-PRT,CPI-15 OVRPRTF FILE(PRT) USRDTA('PO-SUMM') // FILE NAME-XPOITM,LABEL-?WS?XPOITM // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-XPO,LABEL-?WS?XPO // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // RUN // LOAD JF1078 // SWITCH 01000000 OVRPRTF FILE(PRT) USRDTA('PO-VEND') // FILE NAME-XPOITM,LABEL-?WS?XPOITM // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-XPO,LABEL-?WS?XPO // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // RUN // LOAD JF1093 // SWITCH 10000000 // FILE NAME-XPOITS,LABEL-?WS?XPOITS // FILE NAME-XPO,LABEL-?WS?XPO // FILE NAME-XPOLAB,LABEL-?WS?XPOLAB,RECORDS-3000 // RUN // LOAD JF1092 // SWITCH 10000000 OVRPRTF FILE(PRT) USRDTA('POLABELS') // PRINTER NAME-PRT,FORMSNO-WOLF,HOLD-YES // FILE NAME-XPOLAB,LABEL-?WS?XPOLAB,RETAIN-S // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // RUN // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XOLDPO,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XPOLAB,RECORDS-3000 // RUN HSORTR 25A 3X 60 FNU 23 28 FNC 1 7 FNC 8 13 FNC 14 19 FDC 1 60 // END // LOAD JF1092 // SWITCH 01000000 OVRPRTF FILE(PRT) USRDTA('POLABELS') // PRINTER NAME-PRT,FORMSNO-WOLF,HOLD-YES // FILE NAME-XPOLAB,LABEL-?WS?XPOLAB,RETAIN-S // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // RUN // LOAD JF1093 // SWITCH 00100000 // FILE NAME-XPOITS,LABEL-?WS?XPOITS,RETAIN-S // FILE NAME-XPO,LABEL-?WS?XPO // FILE NAME-XPOLAB,LABEL-?WS?XPOLAB,RECORDS-3000 // RUN // LOAD JF1092 // SWITCH 00100000 OVRPRTF FILE(PRT) USRDTA('POLABELS') // PRINTER NAME-PRT,FORMSNO-WOLF,HOLD-YES // FILE NAME-XPOLAB,LABEL-?WS?XPOLAB,RETAIN-S // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // RUN // LOAD JF1083 // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-XPO,LABEL-?WS?XPO // RUN DELETE ?WS?XPOITM,F1 DELETE ?WS?XPO,F1 // CEND // COPY LIBRARY-P,NAME-JF1088,RECL-120,DATE-02/04/22,TIME-1045 // LOAD JF1028 // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // RUN // IF ?L'1,1'?=' ' GOTO BEGIN // * ' ' // * 'THERE IS AN EXISTING PURCHASE ORDER THAT HAS NOT YET BEEN UPDATED' // * 'FOR YOUR TERMINAL OR ANOTHER TERMINAL.' // * ' ' // * 'YOU CANNOT PROCEED UNTIL THIS PURCHASE ORDER IS EITHER' // * 'UPDATED OR CANCELLED.' // * ' ' // * 'PRESS ENTER TO RETURN TO MENU.' // * ' ' // IF ?R?='X' GOTO END // GOTO END // TAG BEGIN // LOAD JF1029 // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // RUN // * ' ' // * 'PLEASE ENTER THE VENDOR NUMBER (ENTER FULL 6 CHARACTERS INCL. ALL ZEROS)' // * 'FOR WHOM YOU WISH TO CREATE A PURCHASE ORDER' // * ' ' // LOCAL OFFSET-4,DATA-'Y' // LOCAL OFFSET-5,DATA-'?R?',BLANK-6 // * ' ' // * 'PLEASE ENTER THE DATE OF THIS PURCHASE ORDER' // * ' ' // LOCAL OFFSET-11,DATA-'?R?',BLANK-6 // IF ?L'11,6'?=' ' LOCAL OFFSET-11,DATA-'000000' // * ' ' // * 'PLEASE ENTER THE DATE YOU EXPECT TO RECEIVE THIS PO' // * ' ' // LOCAL OFFSET-17,DATA-'?R?',BLANK-6 // IF ?L'17,6'?=' ' LOCAL OFFSET-17,DATA-'000000' // * ' ' // * 'PLEASE ENTER THE CUSTOMER# TO WHOM THIS PURCHASE ORDER IS ASSIGNED' // * '(ENTER FULL SIX CHARACTERS INCL. ALL ZEROS, LEAVE BLANK IF NONE)' // * ' ' // LOCAL OFFSET-23,DATA-'?R?',BLANK-6 // IF ?L'23,6'?=' ' LOCAL OFFSET-23,DATA-'000000' // * ' ' // * 'PLEASE ENTER YOUR BUYER INITIALS (2 CHARACTERS) FOR THIS PO' // * ' ' // LOCAL OFFSET-29,DATA-'?R?',BLANK-2 // * ' ' // LOAD JF1089 // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-POMST,LABEL-?L'100,2'?POMST,DISP-SHR // FILE NAME-PROD2,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-XPOITM,LABEL-?WS?XPOITM,RECORDS-3000 // FILE NAME-XPO,LABEL-?WS?XPO,RECORDS-1 // RUN // LOAD JF1073 // FILE NAME-XPOITM,LABEL-?WS?XPOITM // FILE NAME-INVEN,LABEL-?L'100,2'?INVEN,DISP-SHR // RUN // LOAD #GSORT // FILE NAME-INPUT,LABEL-?L'100,2'?POMST,DISP-SHR // FILE NAME-OUTPUT,LABEL-?WS?XPOMST,RECORDS-30000 // RUN HSORTR 19A 3X 150 I C 150NECD FNC 36 42 FOU 89 94 FOU 95 100 FDC 1 150 // END // LOAD JF1055 // FILE NAME-XPOMST,LABEL-?WS?XPOMST,RETAIN-S // FILE NAME-XXPOM,LABEL-?WS?XXPOM,RECORDS-30000 // RUN // LOAD JF1056 // FILE NAME-XPOITM,LABEL-?WS?XPOITM // FILE NAME-XXPOM,LABEL-?WS?XXPOM,RETAIN-S // RUN // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XPOITM,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XPOITS,RECORDS-3000 // RUN HSORTR 25A 3X 100 I C 100EQCA FNC 1 7 FNU 90 91 FNU 86 89 FNC 8 13 FNC 14 19 FDC 1 100 // END // LOAD JF1063 // SWITCH 10000000 // PRINTER NAME-PRT,CPI-15 OVRPRTF FILE(PRT) USRDTA('PO-REG') // FILE NAME-XPOITS,LABEL-?WS?XPOITS,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-XPO,LABEL-?WS?XPO // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-XPOITM,LABEL-?WS?XPOITM,RECORDS-3000 // RUN // LOAD JF1077 // SWITCH 10000000 // PRINTER NAME-PRT,CPI-15 OVRPRTF FILE(PRT) USRDTA('PO-SUMM') // FILE NAME-XPOITM,LABEL-?WS?XPOITM // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-XPO,LABEL-?WS?XPO // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // RUN // TAG END // CEND // COPY LIBRARY-P,NAME-JF1094,RECL-120,DATE-02/05/08,TIME-1255 // IF DATAF1-XXXXPROD DELETE XXXXPROD,F1 // LOAD TST007 // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-XXXXPROD,RECORDS-100000 // RUN // CEND // COPY LIBRARY-P,NAME-JF1095,RECL-120,DATE-03/08/05,TIME-1122 // * 'REMOVED ARE ALL LOADS WITH DELIVERY DATE OF TODAY (?DATE?) AND' // * 'BACK OFDERS WITH 12/29/50 (RBOS MUST BE DONE MANUALLY)' // * ' ' // * 'BACK ORDERS MUST HAVE BEEN ENTERED BEFORE REMOVING INVENTORY' // * ' (OR THE ENTIRE LOAD WILL BE REMOVED, INCLUDING BACK ORDERS)' // * ' ' // * 'ORDER DATE MUST BE WITHIN 1 YR BEFORE AND 4 YRS AFTER TODAY' // * 'QUANTITY REMOVED IS QUANTITY ORDERED - INVOICED - BACK ORDERED' // * ' ' // * 'BACK ORDERED LOADS MUST HAVE THEIR NEW DELIVERY DATES ENTERED' // * 'ONLY AT THE CORRECT TIME:' // * ' NOT BEFORE TODAYS INVENTORY REMOVAL' // * ' (OR THE ENTIRE LOAD WILL BE REMOVED)' // * ' BEFORE TOMORROWS INVENTORY REMOVAL' // * ' (OR THE LOAD WILL BE REMOVED AGAIN TOMORROW)' // * ' ' // * 'PLEASE ENTER THE PASSWORD TO RUN THIS PROGRAM NOW.' // * ' ' // IF ?R?='LUMBER' GOTO START // * ' ' // * 'ACCESS TO THIS PROGRAM HAS BEEN DENIED TO YOU.' // * 'PRESS ENTER TO RETURN TO MENU.' // * ' ' // IF ?R?='X' GOTO END // GOTO END // TAG START // LOAD JF1094 // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-INVEN,LABEL-?L'100,2'?INVEN,DISP-SHR // FILE NAME-VENDOR,LABEL-?L'100,2'?VENDOR,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-XVEN,LABEL-?WS?XVEN,RECORDS-200 // FILE NAME-XPROD,LABEL-?WS?XPROD,RECORDS-50000 // FILE NAME-XINVEN,LABEL-?WS?XINVEN,RECORDS-30000 // RUN ******// LOCAL OFFSET-1,DATA-' ' // LOAD JF1091 // SWITCH 00000000 // PRINTER NAME-PRT,CPI-15 // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-XVEN,LABEL-?WS?XVEN // FILE NAME-VENDOR,LABEL-?L'100,2'?VENDOR,DISP-SHR ***// FILE NAME-XPROD,LABEL-?WS?XPROD // FILE NAME-BILMAT,LABEL-?L'100,2'?BILMAT,DISP-SHR // FILE NAME-PROD,LABEL-?WS?XPROD,RETAIN-S // FILE NAME-INVEN,LABEL-?WS?XINVEN,RETAIN-S // RUN // IFF ?L'1,1'?='X' GOTO ENDEDT // * ' ' // * 'THE LOADS FOR TODAY HAVE ALREADY BEEN TAKEN OUT OF INVENTORY' // * 'ON ?L'2,2'?/?L'4,2'?/?L'6,2'? AT ?L'8,2'?:?L'10,2'? OCLOCK' // * 'AND THIS SHOULD NOT BE DONE AGAIN.' // * ' ' // * 'DO YOU WISH TO CONTINUE WITH THE UPDATE ANYWAY ?' // * ' Y = YES' // * ' ANYTHING ELSE = NO' // * ' ' // IFF ?R?='Y' GOTO END // TAG ENDEDT // * ' ' // * 'PLEASE CHECK THE EDIT BEFORE DECIDING TO RUN THE UPDATE.' // * ' ' // * 'DO YOU WISH TO RUN THE UPDATE ?' // * ' Y = YES' // * ' ANYTHING ELSE = NO' // * ' ' // IFF ?R?='Y' GOTO END *****// LOCAL OFFSET-1,DATA-' ' // LOAD JF1091 // SWITCH 10000000 // PRINTER NAME-PRT,CPI-15 // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-XVEN,LABEL-?WS?XVEN // FILE NAME-VENDOR,LABEL-?L'100,2'?VENDOR,DISP-SHR ****// FILE NAME-XPROD,LABEL-?WS?XPROD // FILE NAME-BILMAT,LABEL-?L'100,2'?BILMAT,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-INVEN,LABEL-?L'100,2'?INVEN,DISP-SHR // RUN // TAG END // IF DATAF1-?WS?XVEN DELETE ?WS?XVEN,F1 // CEND // COPY LIBRARY-P,NAME-JF1096,RECL-120,DATE-02/05/29,TIME-1041 // LOAD JF1097 // FILE NAME-INVCE,LABEL-?L'100,2'?INVCE,DISP-SHR // FILE NAME-POREC,LABEL-?L'100,2'?POREC,DISP-SHR // FILE NAME-XRCIN,LABEL-?WS?XRCIN,RECORDS-40000 // RUN // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XRCIN,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XRCIS,RECORDS-40000 // RUN HSORTR 22A 3X 50 FNC 1 7 FNU 8 11 FNU 12 15 FNC 16 FNU 17 22 FDC 1 50 // END // LOAD JF1098 // FILE NAME-XRCIS,LABEL-?WS?XRCIS,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF1099,RECL-120,DATE-03/07/08,TIME-1250 // LOAD JF1100 // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-POMST,LABEL-?L'100,2'?POMST,DISP-SHR // FILE NAME-XPOLAB,LABEL-?WS?XPOLAB,RECORDS-5000 // RUN // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XPOLAB,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XPOLBS,RECORDS-5000 // RUN HSORTR 25A 3X 60 FNC 1 7 FNU 41 46 FNU 47 52 FNU 23 28 FDC 1 60 // END // LOAD JF1092 // SWITCH 01000000 OVRPRTF FILE(PRT) USRDTA('POLABELS') // PRINTER NAME-PRT,FORMSNO-WOLF,HOLD-YES // FILE NAME-XPOLAB,LABEL-?WS?XPOLBS,RETAIN-S // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // RUN RENAME ?L'100,2'?POMST,?WS?XPOMST // LOAD JF1103 // FILE NAME-XPOMST,LABEL-?WS?XPOMST,RETAIN-S // FILE NAME-POMST,LABEL-?L'100,2'?POMST,RECORDS-10000,EXTEND-2000 // RUN // CEND // COPY LIBRARY-P,NAME-JF1101,RECL-120,DATE-02/06/03,TIME-0731 // LOAD JF1102 // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-INVEN,LABEL-?L'100,2'?INVEN,DISP-SHR // FILE NAME-XPOLAB,LABEL-?WS?XPOLAB,RECORDS-5000 // RUN // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XPOLAB,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XPOLBS,RECORDS-5000 // RUN HSORTR 25A 3X 60 FNC 1 7 FNU 41 46 FNU 47 52 FNU 23 28 FDC 1 60 // END // LOAD JF1092 // SWITCH 10000000 OVRPRTF FILE(PRT) USRDTA('POLABELS') // PRINTER NAME-PRT,FORMSNO-WOLF,HOLD-YES // FILE NAME-XPOLAB,LABEL-?WS?XPOLBS,RETAIN-S // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF1104,DATE-03/04/30,TIME-0724 JF1105 JF1106 JF1107 JF1108 JF1109 // CEND // COPY LIBRARY-P,NAME-JF1105,DATE-03/04/30,TIME-0724 // LOAD JF1105 // FILE NAME-RECEV,LABEL-?L'100,2'?RECEV,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-XINP,LABEL-?WS?XINP,RECORDS-500 // FILE NAME-XILDOL,LABEL-?WS?XILDOL,RECORDS-30000 // RUN // CEND // COPY LIBRARY-P,NAME-JF1106,DATE-03/04/30,TIME-0724 // LOAD JF1106 // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-PRCTAB,LABEL-?L'100,2'?PRCTAB,DISP-SHR // FILE NAME-XILDOL,LABEL-?WS?XILDOL // RUN // CEND // COPY LIBRARY-P,NAME-JF1107,RECL-096,DATE-03/04/30,TIME-0724 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XILDOL,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XILDLS,RECORDS-30000 // RUN HSORTR 21A 3X 100 FNU 1 6 FNC 7 FNU 20 23 FNU 14 17 FNU 8 13 FDC 1 100 // END // CEND // COPY LIBRARY-P,NAME-JF1108,DATE-03/04/30,TIME-0856 // LOAD JF1108 // FILE NAME-XILDLS,LABEL-?WS?XILDLS // FILE NAME-XINP,LABEL-?WS?XINP,RETAIN-S // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-XCUS,LABEL-?WS?XCUS,RECORDS-2000 // RUN // CEND // COPY LIBRARY-P,NAME-JF1109,RECL-120,DATE-03/04/30,TIME-0724 // LOAD JF1109 // FILE NAME-XILDLS,LABEL-?WS?XILDLS,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-XCUS,LABEL-?WS?XCUS,RETAIN-S // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF1110,RECL-120,DATE-03/05/15,TIME-1158 // LOAD JF1111 // FILE NAME-RECEV,LABEL-?L'100,2'?RECEV,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-XSLMN,LABEL-?WS?XSLMN,RECORDS-1 // FILE NAME-XCOMM,LABEL-?WS?XCOMM,RECORDS-50000 // RUN // LOAD JF1112 // FILE NAME-PYMT,LABEL-?L'100,2'?PYMT,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-RECEV,LABEL-?L'100,2'?RECEV,DISP-SHR // FILE NAME-XSLMN,LABEL-?WS?XSLMN,RETAIN-S // FILE NAME-XCOMM,LABEL-?WS?XCOMM // RUN // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XCOMM,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XCOMMS,RECORDS-50000 // RUN HSORTR 19A 3X 50 FNC 1 2 FNU 3 8 FNU 9 14 FNC 15 FNU 16 19 FDC 1 50 // END // LOAD JF1113 // FILE NAME-XCOMMS,LABEL-?WS?XCOMMS,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-SALMEN,LABEL-?L'100,2'?SALMEN,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF1111,RECL-120,DATE-03/05/15,TIME-1158 // LOAD JF0775 // FILE NAME-RECEV,LABEL-?L'100,2'?RECEV,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-XFREC,LABEL-?WS?XFREC,RECORDS-10000 // RUN // CEND // COPY LIBRARY-P,NAME-JF1113,RECL-120,DATE-03/05/15,TIME-1158 // LOAD JF0777 // FILE NAME-XFRECS,LABEL-?WS?XFRECS,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-SALMEN,LABEL-?L'100,2'?SALMEN,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF1114,RECL-120,DATE-03/08/22,TIME-0909 // LOAD JF1115 // FILE NAME-PROD,LABEL-JFPROD,DISP-SHR // FILE NAME-INVEN,LABEL-JFINVEN,DISP-SHR // FILE NAME-VENDOR,LABEL-JFVENDOR,DISP-SHR // FILE NAME-CNTRL,LABEL-JFCNTRL,DISP-SHR // FILE NAME-XVEN,LABEL-?WS?XVEN,RECORDS-200 // FILE NAME-XPROD,LABEL-?WS?XPROD,RECORDS-50000 // FILE NAME-XINVEN,LABEL-?WS?XINVEN,RECORDS-30000 // RUN // IFF ?L'1,1'?='X' GOTO UPDATE // LOAD JF1091 // SWITCH 00000000 // PRINTER NAME-PRT,DEVICE-P0,CPI-15,HOLD-YES // FILE NAME-LOAD,LABEL-JFLOAD,DISP-SHR // FILE NAME-CNTRL,LABEL-JFCNTRL,DISP-SHR // FILE NAME-XVEN,LABEL-?WS?XVEN // FILE NAME-VENDOR,LABEL-JFVENDOR,DISP-SHR // FILE NAME-BILMAT,LABEL-JFBILMAT,DISP-SHR // FILE NAME-PROD,LABEL-?WS?XPROD,RETAIN-S // FILE NAME-INVEN,LABEL-?WS?XINVEN,RETAIN-S // RUN // GOTO END // TAG UPDATE // LOAD JF1091 // SWITCH 10000000 // PRINTER NAME-PRT,DEVICE-P0,CPI-15,HOLD-YES // FILE NAME-LOAD,LABEL-JFLOAD,DISP-SHR // FILE NAME-CNTRL,LABEL-JFCNTRL,DISP-SHR // FILE NAME-XVEN,LABEL-?WS?XVEN // FILE NAME-VENDOR,LABEL-JFVENDOR,DISP-SHR // FILE NAME-BILMAT,LABEL-JFBILMAT,DISP-SHR // FILE NAME-PROD,LABEL-JFPROD,DISP-SHR // FILE NAME-INVEN,LABEL-JFINVEN,DISP-SHR // RUN // TAG END // IF DATAF1-?WS?XPROD DELETE ?WS?XPROD,F1 // IF DATAF1-?WS?XINVEN DELETE ?WS?XINVEN,F1 // IF DATAF1-?WS?XVEN DELETE ?WS?XVEN,F1 // CEND // COPY LIBRARY-P,NAME-JF1116,RECL-120,DATE-03/11/18,TIME-1634 // TAG BEGIN // * 'DO YOU WISH TO:' // * ' 1.) COPY RECEIVABLES INVOICES FROM JOFFE LUMBER TO MULTI FAMILY' // * ' 2.) RETURN RECEIVABLES INVOICES TO JOFFE LUMBER FROM MULTI FAMILY' // * 'PLEASE ENTER 1 OR 2' // LOCAL OFFSET-1,DATA-'?R?' // IF ?L'1,1'?='1' GOTO ONE // IF ?L'1,1'?='2' GOTO TWO GOTO BEGIN // TAG ONE // LOAD JF1117 // FILE NAME-LCNTRL,LABEL-JFCNTRL,DISP-SHR // FILE NAME-MCNTRL,LABEL-JMCNTRL,DISP-SHR // FILE NAME-LRECEV,LABEL-JFRECEV,DISP-SHR // FILE NAME-MRECEV,LABEL-JMRECEV,DISP-SHR // FILE NAME-LCUSMAS,LABEL-JFCUSMAS,DISP-SHR // FILE NAME-MCUSMAS,LABEL-JMCUSMAS,DISP-SHR // RUN GOTO END // TAG TWO // LOAD JF1118 // FILE NAME-LCNTRL,LABEL-JFCNTRL,DISP-SHR // FILE NAME-MCNTRL,LABEL-JMCNTRL,DISP-SHR // FILE NAME-LRECEV,LABEL-JFRECEV,DISP-SHR // FILE NAME-MRECEV,LABEL-JMRECEV,DISP-SHR // FILE NAME-LCUSMAS,LABEL-JFCUSMAS,DISP-SHR // FILE NAME-MCUSMAS,LABEL-JMCUSMAS,DISP-SHR // RUN // TAG END // CEND // COPY LIBRARY-P,NAME-JF1119,RECL-120,DATE-03/11/27,TIME-0829 // IF DATAF1-?WS?XHINV DELETE ?WS?XHINV,F1 // LOAD JF1119 // FILE NAME-XCRED,LABEL-?WS?XCRED // FILE NAME-INVCE,LABEL-?L'100,2'?INVCE,DISP-SHR // FILE NAME-XHINV,LABEL-?WS?XHINV,RECORDS-10000 // RUN // CEND // COPY LIBRARY-P,NAME-JF1120,RECL-120,DATE-03/12/04,TIME-1210 // LOAD JF1120 // IFF ?USER?='MIKE' PRINTER NAME-PRT,FORMSNO-HCRD // FILE NAME-XCRED,LABEL-?WS?XCRED // FILE NAME-XHINV,LABEL-?WS?XHINV,RETAIN-S // RUN // CEND // COPY LIBRARY-P,NAME-JF1121,RECL-120,DATE-04/10/01,TIME-1201 // LOAD JF1121 // SWITCH 00000000 // FILE NAME-XHINV,LABEL-?WS?XHINV // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-BILMAT,LABEL-?L'100,2'?BILMAT,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-MLOAD,LABEL-?L'100,2'?MLOAD,DISP-SHR,EXTEND-3000 // FILE NAME-PRDUSG,LABEL-?L'100,2'?PRDUSG,DISP-SHR,EXTEND-25000 // RUN // CEND // COPY LIBRARY-P,NAME-JF1122,RECL-096,DATE-03/12/03,TIME-1408 // LOAD JF1122 // FILE NAME-XINVC,LABEL-?WS?XINVC,RETAIN-S // FILE NAME-XCHGLD,LABEL-?WS?XCHGLD,RECORDS-5000 // RUN // CEND // COPY LIBRARY-P,NAME-JF1123,RECL-096,DATE-04/01/08,TIME-1610 // TAG AGAIN // * ' ' // * 'THIS PROCEDURE WILL CHANGE THE PENDING CUSTOMER PRICING TABLE' // * 'ENTER OK WHEN YOU HAVE READ THIS MESSAGE' // IFF ?R?='OK' GOTO AGAIN // LOAD JF0596 // FILE NAME-PRCTAB,LABEL-?L'100,2'?NPRCTA,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF1124,RECL-096,DATE-04/01/08,TIME-1638 JF0534 // JOBQ JOFFE,JF1125 // CEND // COPY LIBRARY-P,NAME-JF1125,RECL-096,REF-000001,DATE-04/01/08,TIME-1638 JF0541 // IF ?L'1,1'?='1' JF0540 // IF ?L'1,1'?='1' JF1126 // IF ?L'1,1'?='2' JF0537 // IF ?L'1,1'?='2' JF1127 // CEND // COPY LIBRARY-P,NAME-JF1126,RECL-096,REF-000003,DATE-04/01/08,TIME-1639 // LOAD JF0536 // SWITCH 10000010 // IFF ?WS?=X8 PRINTER NAME-PRT1,COPIES-2 // FILE NAME-XHSE,LABEL-?WS?XHSE,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-PRCTAB,LABEL-?L'100,2'?NPRCTA,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF1127,RECL-096,REF-000003,DATE-04/01/08,TIME-1640 // LOAD JF0536 // SWITCH 00000001 // IFF ?WS?=X8 PRINTER NAME-PRT2,FORMSNO-8X14,COPIES-2 // FILE NAME-XHSE,LABEL-?WS?XHSE,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-PRCTAB,LABEL-?L'100,2'?NPRCTA,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF1128,DATE-04/01/12,TIME-1204 JF1129 JF1130 // CEND // COPY LIBRARY-P,NAME-JF1129,RECL-096,DATE-04/01/12,TIME-1206 // LOAD JF0747 // FILE NAME-PRCTAB,LABEL-?L'100,2'?NPRCTA,DISP-SHR // FILE NAME-XCOTAB,LABEL-?WS?XCOTAB,RECORDS-1 // RUN // CEND // COPY LIBRARY-P,NAME-JF1130,RECL-096,DATE-04/01/12,TIME-1206 // LOAD JF0740 // FILE NAME-PRCTAB,LABEL-?L'100,2'?NPRCTA,DISP-SHR // FILE NAME-XCOTAB,LABEL-?WS?XCOTAB,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-PRCTABC,LABEL-?L'100,2'?NPRCTA,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF1131,RECL-096,REF-000004,DATE-04/01/12,TIME-1212 // LOAD JF0714 // FILE NAME-PRCTAB,LABEL-?L'100,2'?NPRCTA,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF1132,RECL-096,DATE-04/01/12,TIME-1242 // * 'PLEASE INDICATE WHICH SIZE PAPER YOU WISH FOR DETAILED HOUSE LISTING' // * 'USING THE PENDING CUSTOMER PRICING TABLE:' // * ' ' // * ' 1 = 11 X 14 INCH (FULL SIZE COMPUTER PAPER)' // * ' 2 = 8 1/2 X 14 INCH' // * ' ' // LOCAL OFFSET-201,DATA-'?R?',BLANK-1 // * ' ' // * 'DO YOU WISH PRICES TO PRINT FOR SINGLE-LINE PRICED HOUSES' // * 'FOR THOSE CUSTOMERS DESIGNATED AS NOT NORMALLY HAVING PRICES PRINT ?' // * ' (Y=YES, N OR JUST PRESSING ENTER=NO)' // * ' ' // LOCAL OFFSET-1,DATA-'?R?',BLANK-1 // * ' ' JF0015 JF1133 // CEND // COPY LIBRARY-P,NAME-JF1133,RECL-096,REF-000002,DATE-04/01/12,TIME-1242 // LOAD JF0016 OVRPRTF FILE(PRT1) USRDTA('HOUSE DET') OVRPRTF FILE(PRT2) USRDTA('HOUSE DET') // IF ?L'201,1'?='2' SWITCH 10000001 // IFF ?L'201,1'?='2' SWITCH 10000010 ***** // IF ?L'201,1'?='2' PRINTER NAME-PRT2,FORMSNO-8X14 ***** // IFF ?L'201,1'?='2' PRINTER NAME-PRT1 // IF ?L'201,1'?='2' GOTO PRINT2 // IF ?WS?='X8' PRINTER NAME-PRT1,FONT-DF // IFF ?WS?='X8' PRINTER NAME-PRT1 // GOTO BEGIN // TAG PRINT2 // IF ?WS?='X8' PRINTER NAME-PRT2,FORMSNO-8X14,FONT-DF // IFF ?WS?='X8' PRINTER NAME-PRT2,FORMSNO-8X14 // TAG BEGIN // FILE NAME-XHSEL,LABEL-?WS?XHSEL,RETAIN-S // FILE NAME-XHSCH,LABEL-?WS?XHSCH,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-BSEHSE,LABEL-?L'100,2'?BSEHSE,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-PRCTAB,LABEL-?L'100,2'?NPRCTA,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF1134,RECL-096,REF-000001,DATE-04/01/13,TIME-1313 JF0729 JF1135 // CEND // COPY LIBRARY-P,NAME-JF1135,RECL-096,REF-000002,DATE-04/01/13,TIME-1314 // LOAD JF0552 // SWITCH 10000000 // FILE NAME-XXHSSL,LABEL-?WS?XXHSSL,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-HOUSE,LABEL-?L'100,2'?HOUSE,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-PRCTAB,LABEL-?L'100,2'?NPRCTA,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF1136,RECL-120,DATE-04/01/14,TIME-0846 JF0541 // IF ?L'1,1'?='1' JF0540 // IF ?L'1,1'?='1' JF1137 // IF ?L'1,1'?='2' JF0537 // IF ?L'1,1'?='2' JF1138 // CEND // COPY LIBRARY-P,NAME-JF1137,RECL-120,DATE-04/01/14,TIME-0846 // LOAD JF1137 // SWITCH 10000010 // IFF ?WS?=X8 PRINTER NAME-PRT1,COPIES-2 // FILE NAME-XHSE,LABEL-?WS?XHSE,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-PRCTAB,LABEL-?L'100,2'?PRCTAB,DISP-SHR // FILE NAME-NPRCTA,LABEL-?L'100,2'?NPRCTA,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF1138,RECL-120,DATE-04/01/14,TIME-0846 // LOAD JF1137 // SWITCH 00000001 // IFF ?WS?=X8 PRINTER NAME-PRT2,FORMSNO-8X14,COPIES-2 // FILE NAME-XHSE,LABEL-?WS?XHSE,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-PRCTAB,LABEL-?L'100,2'?PRCTAB,DISP-SHR // FILE NAME-NPRCTA,LABEL-?L'100,2'?NPRCTA,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF1139,RECL-120,DATE-04/01/14,TIME-0846 JF0534 // JOBQ JOFFE,JF1136 // CEND // COPY LIBRARY-P,NAME-JF1140,RECL-120,DATE-04/02/03,TIME-1115 JF1141 JF1142 // CEND // COPY LIBRARY-P,NAME-JF1141,RECL-120,DATE-04/02/03,TIME-1213 // LOAD JF1141 // FILE NAME-PRCTAB,LABEL-?L'100,2'?PRCTAB,DISP-SHR // FILE NAME-XCPRTB,LABEL-?WS?XCPRTB,RECORDS-1 // RUN // CEND // COPY LIBRARY-P,NAME-JF1142,RECL-120,DATE-04/02/03,TIME-1213 // LOAD JF1142 // FILE NAME-NPRCTA,LABEL-?L'100,2'?NPRCTA,DISP-SHR // FILE NAME-XCPRTB,LABEL-?WS?XCPRTB,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-PRCTAB,LABEL-?L'100,2'?PRCTAB,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF1143,DATE-04/02/04,TIME-1038 JF1144 JF0570 JF1145 // CEND // COPY LIBRARY-P,NAME-JF1144,RECL-096,DATE-04/02/04,TIME-1028 // LOAD JF0569 // FILE NAME-HOUSE,LABEL-?L'100,2'?HOUEST,DISP-SHR // FILE NAME-XCSITM,LABEL-?WS?XCSITM,RECORDS-150000 // RUN // CEND // COPY LIBRARY-P,NAME-JF1145,RECL-096,DATE-04/02/04,TIME-1039 // LOAD JF0571 // SWITCH 01000000 // FILE NAME-XCSITS,LABEL-?WS?XCSITS,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-PRCTAB,LABEL-?L'100,2'?PRCTAB,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF1147,RECL-120,DATE-04/03/03,TIME-0925 // LOAD JF0220 OVRPRTF FILE(PRT1) USRDTA('LABELS') OVRPRTF FILE(PRT2) USRDTA('LABELS') // IF ?L'1,1'?='1' SWITCH 10000010 // IF ?L'1,1'?='1' PRINTER NAME-PRT1,FORMSNO-RLB1 // IF ?L'1,1'?='3' SWITCH 10000001 // IF ?L'1,1'?='3' PRINTER NAME-PRT2,FORMSNO-RLB3 // FILE NAME-XLABLS,LABEL-?WS?XLABLS // FILE NAME-XLABL2,LABEL-?WS?XLABLS,RETAIN-S // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-MISCUS,LABEL-?L'100,2'?MISCUS,DISP-SHR // FILE NAME-XITHD,LABEL-?WS?XITHD // RUN // CEND // COPY LIBRARY-P,NAME-JF1148,RECL-120,DATE-04/03/03,TIME-0925 // LOAD JF0711 // SWITCH 10000000 // PRINTER NAME-PRT,FORMSNO-RLB2 // FILE NAME-XLABLS,LABEL-?WS?XLABLS // FILE NAME-XLABL2,LABEL-?WS?XLABLS,RETAIN-S // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-MISCUS,LABEL-?L'100,2'?MISCUS,DISP-SHR // FILE NAME-XITHD,LABEL-?WS?XITHD // RUN // CEND // COPY LIBRARY-P,NAME-JF1150,RECL-120,DATE-04/03/31,TIME-1257 // LOAD JF1150 // FILE NAME-XLDTK,LABEL-?L'100,2'?XLDTK,RETAIN-S // FILE NAME-LDTRK,LABEL-?L'100,2'?LDTRK,RECORDS-3000 // RUN // CEND // COPY LIBRARY-P,NAME-JF1151,RECL-096,DATE-04/05/06,TIME-1410 // LOAD JF0664 // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-INVCB,LABEL-?L'100,2'?PINVCB,DISP-SHR // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-PRCTAB,LABEL-?L'100,2'?PRCTAB,DISP-SHR // FILE NAME-INVCE,LABEL-?L'100,2'?PINVCE,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF1152,RECL-120,DATE-04/09/09,TIME-1215 // LOAD JF1152 // SWITCH 10000000 // FILE NAME-XCSRS,LABEL-?WS?XCSRS // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-XCSDT,LABEL-?WS?XCSDT // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-INVCB,LABEL-?L'100,2'?INVCB,DISP-SHR // FILE NAME-INVCE,LABEL-?L'100,2'?INVCE,DISP-SHR // FILE NAME-RECEV,LABEL-?L'100,2'?RECEV,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF1153,RECL-120,DATE-04/09/21,TIME-1028 // LOAD JF1152 // SWITCH 01000000 // FILE NAME-XCSRS,LABEL-?WS?XCSRS // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-XCSDT,LABEL-?WS?XCSDT // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-INVCB,LABEL-?L'100,2'?INVCB,DISP-SHR // FILE NAME-INVCE,LABEL-?L'100,2'?INVCE,DISP-SHR // FILE NAME-RECEV,LABEL-?L'100,2'?RECEV,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF1154,RECL-120,DATE-04/09/10,TIME-1240 JF1155 JF1156 JF1157 // CEND // COPY LIBRARY-P,NAME-JF1155,RECL-120,DATE-04/09/16,TIME-1136 // LOAD JF1155 // FILE NAME-RECEV,LABEL-?L'100,2'?RECEV,DISP-SHR // FILE NAME-XMWEN,LABEL-?WS?XMWEN,RECORDS-1 // FILE NAME-XDTRC,LABEL-?WS?XDTRC,RECORDS-100000 // RUN // CEND // COPY LIBRARY-P,NAME-JF1156,RECL-120,DATE-04/09/15,TIME-1158 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XDTRC,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XXDTRC,RECORDS-100000 ***// FILE NAME-INPUT,LABEL-?WS?XDTRC,RETAIN-S,RECL-330,RECFM-F ***// FILE NAME-OUTPUT,LABEL-?WS?XXDTRC,RECORDS-100000,RECL-330,RECFM-F // RUN HSORTR 15A 3X 330 FNU 8 13 FOU 309 311 FNU 2 7 FDC 1 256 FDC 257 330 // END // CEND // COPY LIBRARY-P,NAME-JF1157,RECL-120,DATE-04/09/16,TIME-1136 // LOAD JF1157 // FILE NAME-XXDTRC,LABEL-?WS?XXDTRC,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-XMWEN,LABEL-?WS?XMWEN,RETAIN-S // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF1158,RECL-120,DATE-09/12/10,TIME-1036 *** TRUCK MILL REPORT FOR DEPARTMENT C1 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XITOR // FILE NAME-OUTPUT,LABEL-?WS?XITORS,RECORDS-10000 // RUN HSORTR 22A 3X 220 I C 1 2EQCC1 FNU 116 121 FNC 122 123 FNU 124 126 FNU 17 22 FNU 23 25 FNU 26 27 FDC 1 220 // END // CEND // COPY LIBRARY-P,NAME-JF1159,RECL-120,DATE-04/10/26,TIME-0958 *** TRUCK MILL REPORT FOR DEPARTMENT C1 // LOAD JF0281 // SWITCH 10000000 // PRINTER NAME-PRT,FORMSNO-8X11,COPIES-4 // FILE NAME-XITORS,LABEL-?WS?XITORS,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-DEPT,LABEL-?L'100,2'?DEPT,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-XITHD,LABEL-?WS?XITHD // RUN // CEND // COPY LIBRARY-P,NAME-JF1160,RECL-120,DATE-09/12/10,TIME-1037 *** TRUCK MILL REPORT FOR DEPARTMENT CS // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XITOR // FILE NAME-OUTPUT,LABEL-?WS?XITORS,RECORDS-10000 // RUN HSORTR 22A 3X 220 I C 1 2EQCCS FNU 116 121 FNC 122 123 FNU 124 126 FNU 17 22 FNU 23 25 FNU 26 27 FDC 1 220 // END // CEND // COPY LIBRARY-P,NAME-JF1161,RECL-120,DATE-04/10/26,TIME-0959 *** TRUCK MILL REPORT FOR DEPARTMENT CS // LOAD JF0281 // SWITCH 10000000 // PRINTER NAME-PRT,FORMSNO-8X11,COPIES-4 // FILE NAME-XITORS,LABEL-?WS?XITORS,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-DEPT,LABEL-?L'100,2'?DEPT,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-XITHD,LABEL-?WS?XITHD // RUN // CEND // COPY LIBRARY-P,NAME-JF1162,RECL-120,DATE-09/12/10,TIME-1038 *** TRUCK MILL REPORT FOR DEPARTMENT C3 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XITOR // FILE NAME-OUTPUT,LABEL-?WS?XITORS,RECORDS-10000 // RUN HSORTR 22A 3X 220 I C 1 2EQCC3 FNU 116 121 FNC 122 123 FNU 124 126 FNU 17 22 FNU 23 25 FNU 26 27 FDC 1 220 // END // CEND // COPY LIBRARY-P,NAME-JF1163,RECL-120,DATE-04/10/26,TIME-0959 *** TRUCK MILL REPORT FOR DEPARTMENT C3 // LOAD JF0281 // SWITCH 10000000 // PRINTER NAME-PRT,FORMSNO-8X11,COPIES-4 // FILE NAME-XITORS,LABEL-?WS?XITORS,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-DEPT,LABEL-?L'100,2'?DEPT,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-XITHD,LABEL-?WS?XITHD // RUN // CEND // COPY LIBRARY-P,NAME-JF1164,RECL-120,DATE-09/12/10,TIME-1039 *** TRUCK MILL REPORT FOR DEPARTMENT C4 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XITOR // FILE NAME-OUTPUT,LABEL-?WS?XITORS,RECORDS-10000 // RUN HSORTR 22A 3X 220 I C 1 2EQCC4 FNU 116 121 FNC 122 123 FNU 124 126 FNU 17 22 FNU 23 25 FNU 26 27 FDC 1 220 // END // CEND // COPY LIBRARY-P,NAME-JF1165,RECL-120,DATE-04/10/26,TIME-0959 *** TRUCK MILL REPORT FOR DEPARTMENT C4 // LOAD JF0281 // SWITCH 10000000 // PRINTER NAME-PRT,FORMSNO-8X11,COPIES-4 // FILE NAME-XITORS,LABEL-?WS?XITORS,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-DEPT,LABEL-?L'100,2'?DEPT,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-XITHD,LABEL-?WS?XITHD // RUN // CEND // COPY LIBRARY-P,NAME-JF1166,RECL-120,DATE-04/12/02,TIME-1430 // * 'THIS PROGRAM WILL RECALCULATE ITEM COSTS/CURRENT PRICES' // * 'FROM THE ITEM LIST PRICE AND VENDOR MULTIPLIERS' // * 'FOR COMPANY ?L'100,2'?' // * ' ' // * 'PLEASE ENTER THE PASSWORD.' // IF ?R?='WOLFMAN' GOTO BEGIN // * 'PROGRAM HAS BEEN CANCELLED. PRESS ENTER TO RETURN TO MENU' // IF ?R?='X' GOTO END // GOTO END // TAG BEGIN // LOAD JF1166 // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-VENDOR,LABEL-?L'100,2'?VENDOR,DISP-SHR // RUN // TAG END // CEND // COPY LIBRARY-P,NAME-JF1167,RECL-120,DATE-04/10/22,TIME-1021 // LOAD JF1167 // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-VENDOR,LABEL-?L'100,2'?VENDOR,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF1168,RECL-120,DATE-04/10/22,TIME-1021 JF1169 JF1170 JF1171 // CEND // COPY LIBRARY-P,NAME-JF1169,RECL-120,DATE-04/10/22,TIME-1021 // LOAD JF1169 // FILE NAME-HOUSE,LABEL-?L'100,2'?HOUSE,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-PRCTAB,LABEL-?L'100,2'?PRCTAB,DISP-SHR // FILE NAME-XHOUS,LABEL-?WS?XHOUS,RECORDS-10000 // FILE NAME-XITEM,LABEL-?WS?XITEM,RECORDS-50000 // RUN // CEND // COPY LIBRARY-P,NAME-JF1170,RECL-120,DATE-04/10/22,TIME-1021 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XITEM,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XITMS,RECORDS-50000 // RUN HSORTR 13A 3X 106 FNC 101 106 FNC 1 7 FDC 1 106 // END // CEND // COPY LIBRARY-P,NAME-JF1171,RECL-120,DATE-04/11/02,TIME-1414 // LOAD JF1171 // SWITCH 10000000 // FILE NAME-XITMS,LABEL-?WS?XITMS,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-VENDOR,LABEL-?L'100,2'?VENDOR,DISP-SHR // FILE NAME-DEPT,LABEL-?L'100,2'?DEPT,DISP-SHR // FILE NAME-XHOUS,LABEL-?WS?XHOUS,RETAIN-S // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF1174,RECL-120,DATE-04/10/29,TIME-0952 // LOAD JF1174 // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF1175,DATE-04/11/02,TIME-1416 JF1176 JF1170 JF1177 // CEND // COPY LIBRARY-P,NAME-JF1176,RECL-120,DATE-04/11/02,TIME-1418 // LOAD JF1169 // FILE NAME-HOUSE,LABEL-?L'100,2'?HOUEST,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-PRCTAB,LABEL-?L'100,2'?PRCTAB,DISP-SHR // FILE NAME-XHOUS,LABEL-?WS?XHOUS,RECORDS-10000 // FILE NAME-XITEM,LABEL-?WS?XITEM,RECORDS-50000 // RUN // CEND // COPY LIBRARY-P,NAME-JF1177,RECL-120,DATE-04/11/02,TIME-1418 // LOAD JF1171 // SWITCH 01000000 // FILE NAME-XITMS,LABEL-?WS?XITMS,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-VENDOR,LABEL-?L'100,2'?VENDOR,DISP-SHR // FILE NAME-DEPT,LABEL-?L'100,2'?DEPT,DISP-SHR // FILE NAME-XHOUS,LABEL-?WS?XHOUS,RETAIN-S // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF1178,DATE-05/04/12,TIME-0926 // IFF DATAF1-?L'100,2'?ITEMEX BLDFILE ?L'100,2'?ITEMEX,S,R,20000,350 // * 'COMPANY ?L'100,2'? EXCEL FILE MUST HAVE 1ST ROW OF COLUMN HEADINGS,' // * 'ALL OTHER ROWS MUST HAVE THE FOLLOWING COLUMNS:' // * ' A: ITEM# MAX SIZE - 7' // * ' B-K: DESCRIPTION 27 EACH' // * ' L: DEPARTMENT 2' // * ' M: LABEL TYPE 1' // * ' N: VENDOR# 6 NUMBERS ONLY' // * ' O: LIST PRICE 9 NUMBERS ONLY, 4 DECIMALS-XXXXX.XXXX' // * ' P: S=SPECIAL 1' // * ' O: PRICE GROUP 3 NUMBERS ONLY' // * 'NO COMMA CAN BE ANYWHERE IN ANY CELL' // * 'SAVE EXCEL WORKSHEET AS A COMMA-DELIMITED (.CSV) FILE' // * 'TRANSFER .CSV FILE TO AS/400 INTO THE AS/400 FILE ITEMEX' // * ' PRECEDED BY COMPANY CODE, E.G. JFITEMEX, SBITEMEX, ETC.' // * ' MAKING SURE TO CLICK DETAILS AND CHOOSE REPLACE MEMBER ONLY' // * 'AFTER YOU HAVE CAREFULLY READ THIS ENTER:' // * ' OK = CONVERT EXCEL PRODUCT FILE & PRINT EDIT' // * ' ANYTHING ELSE = CANCEL AND RETURN TO MENU' // IF ?R?='OK' GOTO EDIT // * 'PROGRAM HAS BEEN CANCELLED. PRESS ENTER TO RETURN TO MENU' // IF ?R?='X' GOTO END // GOTO END // TAG EDIT // * 'CONVERTING EXCEL FILE AND PRINTING EDIT' // IF DATAF1-?L'100,2'?XITEM DELETE ?L'100,2'?XITEM,F1 // LOAD JF1172 // FILE NAME-ITEMEX,LABEL-?L'100,2'?ITEMEX // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-XITEM,LABEL-?L'100,2'?XITEM,RECORDS-10000 // RUN // * ' ' // * 'DO YOU WISH TO UPDATE THE PRODUCT FILE WITH THIS DATA' // * ' Y = YES' // * ' ANYTHING ELSE = NO' // * ' ' // IFF ?R?='Y' GOTO END // * 'YOU ARE ABOUT TO ADD YOUR EXCEL FILE TO THE PRODUCT FILE' // * 'FOR COMPANY ?L'100,2'?' // * ' ' // * 'PLEASE ENTER THE PASSWORD.' // IF ?R?='GUTIERREZ' GOTO UPDATE // * 'UPDATE HAS BEEN CANCELLED. PRESS ENTER TO RETURN TO MENU' // IF ?R?='X' GOTO END // GOTO END // * ' ' // TAG UPDATE // * 'EXCEL FILE IS BEING ADDED TO COMPANY ?L'100,2'? PRODUCT FILE' // LOAD JF1173 // FILE NAME-XITEM,LABEL-?L'100,2'?XITEM,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // RUN // TAG END // CEND // COPY LIBRARY-P,NAME-JF1179,RECL-120,DATE-04/11/23,TIME-1156 // LOAD JF1179 // FILE NAME-EMPLYE,LABEL-?L'100,2'?EMPLYE,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF1180,RECL-120,DATE-05/01/12,TIME-1145 *// * 'ENTER LATEST MONTH/YEAR (MMYY) FROM WHICH TO DISPLAY CHECKS' *// LOCAL OFFSET-1,DATA-?R?,BLANK-4 *// * 'ALL OPEN CHECKS WILL BE DISPLAYED' *// * ' ' *// * 'DO YOU WISH ALSO CANCELLED CHECKS (Y=YES, N=NO)' *// LOCAL OFFSET-5,DATA-?R?,BLANK-1 // LOAD JF1181 // FILE NAME-CHKFLE,LABEL-?L'100,2'?CHKFLE,DISP-SHR // FILE NAME-XCHK,LABEL-?WS?XCHK,RECORDS-5000 // RUN // LOAD JF1182 // FILE NAME-XCHK,LABEL-?WS?XCHK // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // RUN // LOAD JF1183 // FILE NAME-XCHK,LABEL-?WS?XCHK,RETAIN-S // FILE NAME-XCHKI,LABEL-?WS?XCHKI,RECORDS-5000 // RUN // LOAD JF1184 // FILE NAME-CHKFLE,LABEL-?L'100,2'?CHKFLE,DISP-SHR // FILE NAME-XCHKI,LABEL-?WS?XCHKI,RETAIN-S // RUN // CEND // COPY LIBRARY-P,NAME-JF1185,RECL-120,DATE-04/12/09,TIME-1302 // LOAD JF1185 // FILE NAME-CHKFLE,LABEL-?L'100,2'?CHKFLE,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-VENDOR,LABEL-?L'100,2'?VENDOR,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF1186,RECL-120,DATE-04/12/10,TIME-1046 // LOAD JF0754 // SWITCH 01000000 // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF1187,RECL-120,DATE-04/12/20,TIME-1136 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-OUTPUT,LABEL-?WS?XCUSSM,RECORDS-5000 // RUN HSORTR 36A 3X 600 I C 600EQCA IAC 1 6LTC900000 FNC 8 37 FNU 1 6 FDC 1 256 FDC 257 512 FDC 513 600 // END // CEND // COPY LIBRARY-P,NAME-JF1188,RECL-120,DATE-04/12/20,TIME-1136 // LOAD JF1188 // FILE NAME-XXCUSS,LABEL-?WS?XXCUSS,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-SALMEN,LABEL-?L'100,2'?SALMEN,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF1189,RECL-096,DATE-04/12/21,TIME-0924 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XCUSSM,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XXCUSS,RECORDS-5000 // RUN HSORTR 36A 3X 600 I P 177 181NEC000000000 IOP 182 186NEC000000000 IOP 187 191NEC000000000 IOP 192 196NEC000000000 IOP 197 201NEC000000000 IOP 202 206NEC000000000 IOP 207 211NEC000000000 IOP 212 216NEC000000000 IOP 217 221NEC000000000 IOP 222 226NEC000000000 IOP 227 231NEC000000000 IOP 232 236NEC000000000 IOP 237 241NEC000000000 IOP 242 246NEC000000000 IOP 247 251NEC000000000 IOP 252 256NEC000000000 IOP 257 261NEC000000000 IOP 262 266NEC000000000 IOP 267 271NEC000000000 IOP 272 276NEC000000000 IOP 277 281NEC000000000 IOP 282 286NEC000000000 IOP 287 291NEC000000000 IOP 292 296NEC000000000 FNC 8 37 FNU 1 6 FDC 1 256 FDC 257 512 FDC 513 600 // END // CEND // COPY LIBRARY-P,NAME-JF1191,RECL-120,DATE-05/06/08,TIME-1038 // LOAD JF1191 // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF1192,RECL-096,DATE-11/11/01,TIME-1237 BLDFILE ?WS?XNINVC,I,RECORDS,20000,150,,,1,9 // LOAD JF1192 // FILE NAME-XINVC,LABEL-?WS?XINVC // FILE NAME-XNINVC,LABEL-?WS?XNINVC // RUN // CEND // COPY LIBRARY-P,NAME-JF1193,RECL-096,DATE-05/08/31,TIME-1005 // LOAD JF0032 // SWITCH 00000010 // FILE NAME-XINVC,LABEL-?WS?XNINVC // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-MISCUS,LABEL-?L'100,2'?MISCUS,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-PRCTAB,LABEL-?L'100,2'?PRCTAB,DISP-SHR // FILE NAME-BSEHSE,LABEL-?L'100,2'?BSEHSE,DISP-SHR // FILE NAME-HOUSE,LABEL-?L'100,2'?HOUSE,DISP-SHR // FILE NAME-MESAGE,LABEL-?L'100,2'?MESAGE,DISP-SHR // FILE NAME-XFLITM,LABEL-?WS?XFLITM,RECORDS-5000 // RUN // CEND // COPY LIBRARY-P,NAME-JF1194,RECL-096,DATE-05/08/31,TIME-1136 DELETE ?WS?XINVC,F1 // LOAD JF1194 // FILE NAME-XNINVC,LABEL-?WS?XNINVC,RETAIN-S // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-XFLITM,LABEL-?WS?XFLITM,RETAIN-S // FILE NAME-XINVC,LABEL-?WS?XINVC,RECORDS-20000 // RUN // CEND // COPY LIBRARY-P,NAME-JF1195,RECL-096,DATE-11/11/02,TIME-1320 BLDFILE ?WS?XNINVC,I,RECORDS,20000,150,,,1,9 // LOAD JF1192 // FILE NAME-XINVC,LABEL-?WS?XXINV // FILE NAME-XNINVC,LABEL-?WS?XNINVC // RUN // CEND // COPY LIBRARY-P,NAME-JF1196,RECL-096,DATE-05/08/31,TIME-1257 DELETE ?WS?XXINV,F1 // LOAD JF1194 // FILE NAME-XNINVC,LABEL-?WS?XNINVC,RETAIN-S // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-XFLITM,LABEL-?WS?XFLITM,RETAIN-S // FILE NAME-XINVC,LABEL-?WS?XXINV,RECORDS-20000 // RUN // CEND // COPY LIBRARY-P,NAME-JF1197,RECL-120,DATE-05/12/19,TIME-1041 // TAG AGAIN // * ' ' // * 'THIS PROCEDURE WILL DELETE ANY EXISTING PENDING CUSTOMER PRICING TABLE' // * 'AND CREATE A NEW ONE AS OF THE CURRENT MOMENT' // * 'ENTER OK WHEN YOU HAVE READ THIS MESSAGE' // IFF ?R?='OK' GOTO AGAIN // * ' ' // * 'ARY YOU SURE ?' // * ' Y = YES' // * ' ANYTHING ELSE = NO' // IFF ?R?='Y' GOTO END // IF DATAF1-?L'100,2'?NPRCTA DELETE ?L'100,2'?NPRCTA,F1 // LOAD JF1197 // FILE NAME-PRCTAB,LABEL-?L'100,2'?PRCTAB,DISP-SHR // FILE NAME-NPRCTA,LABEL-?L'100,2'?NPRCTA,RECORDS-300000 // RUN // * 'A NEW PENDING CUSTOMER PRICING TABLE HAS BEEN CREATED' // * 'PRESS ENTER TO RETURN TO MENU' // IF ?R?='X' GOTO END // TAG END // CEND // COPY LIBRARY-P,NAME-JF1198,DATE-06/06/14,TIME-1235 // LOAD JF1198 // FILE NAME-XBRLAB,LABEL-?WS?XBRLAB,RECORDS-5000 // RUN // CEND // COPY LIBRARY-P,NAME-JF1199,RECL-096,DATE-06/11/10,TIME-1225 // LOAD JF1199 // FILE NAME-XLOAD,LABEL-?WS?XLOADR // FILE NAME-ORDER,LABEL-?L'100,2'?ORDER,DISP-SHR // FILE NAME-XBRLAB,LABEL-?WS?XBRLAB,RECORDS-5000 // RUN // CEND // COPY LIBRARY-P,NAME-JF1200,RECL-096,DATE-06/11/10,TIME-1225 // LOAD JF1199 // FILE NAME-XLOAD,LABEL-?WS?XLOADO // FILE NAME-ORDER,LABEL-?L'100,2'?ORDER,DISP-SHR // FILE NAME-XBRLAB,LABEL-?WS?XBRLAB,RECORDS-5000 // RUN // CEND // COPY LIBRARY-P,NAME-JF1201,DATE-06/06/14,TIME-1238 // LOAD JF1201 // PRINTER NAME-PRT,DEVICE-PI // FILE NAME-XBRLAB,LABEL-?WS?XBRLAB,RETAIN-S // RUN // CEND // COPY LIBRARY-P,NAME-JF1202,DATE-08/01/21,TIME-1109 JF1198 JF1243 // CEND // COPY LIBRARY-P,NAME-JF1203,RECL-096,DATE-06/08/14,TIME-0756 // LOAD JF1203 // SWITCH 00000001 OVRPRTF FILE(PRT) USRDTA('INVOICES') // PRINTER NAME-PRT,FORMSNO-INVC // FILE NAME-XINVC,LABEL-?WS?XINVC // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-MISCUS,LABEL-?L'100,2'?MISCUS,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-PRCTAB,LABEL-?L'100,2'?PRCTAB,DISP-SHR // FILE NAME-BSEHSE,LABEL-?L'100,2'?BSEHSE,DISP-SHR // FILE NAME-HOUSE,LABEL-?L'100,2'?HOUSE,DISP-SHR // FILE NAME-MESAGE,LABEL-?L'100,2'?MESAGE,DISP-SHR // FILE NAME-XHINV,LABEL-?WS?XHINV // FILE NAME-XREC,LABEL-?WS?XREC // RUN // CEND // COPY LIBRARY-P,NAME-JF1204,RECL-096,DATE-06/08/14,TIME-0755 // LOAD JF1203 // SWITCH 00000010 // FILE NAME-XINVC,LABEL-?WS?XNINVC // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-MISCUS,LABEL-?L'100,2'?MISCUS,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-PRCTAB,LABEL-?L'100,2'?PRCTAB,DISP-SHR // FILE NAME-BSEHSE,LABEL-?L'100,2'?BSEHSE,DISP-SHR // FILE NAME-HOUSE,LABEL-?L'100,2'?HOUSE,DISP-SHR // FILE NAME-MESAGE,LABEL-?L'100,2'?MESAGE,DISP-SHR // FILE NAME-XFLITM,LABEL-?WS?XFLITM,RECORDS-5000 // RUN // CEND // COPY LIBRARY-P,NAME-JF1205,RECL-096,DATE-06/08/14,TIME-0757 // LOAD JF1203 // SWITCH 00000001 OVRPRTF FILE(PRT) USRDTA('INVOICES') // PRINTER NAME-PRT,FORMSNO-INVC // FILE NAME-XINVC,LABEL-?WS?XXINV,RETAIN-S // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-MISCUS,LABEL-?L'100,2'?MISCUS,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-PRCTAB,LABEL-?L'100,2'?PRCTAB,DISP-SHR // FILE NAME-BSEHSE,LABEL-?L'100,2'?BSEHSE,DISP-SHR // FILE NAME-HOUSE,LABEL-?L'100,2'?HOUSE,DISP-SHR // FILE NAME-MESAGE,LABEL-?L'100,2'?MESAGE,DISP-SHR // FILE NAME-XHINV,LABEL-?WS?XHINV // FILE NAME-XREC,LABEL-?WS?XREC // RUN // CEND // COPY LIBRARY-P,NAME-JF1206,RECL-096,REF-000003,DATE-06/08/14,TIME-0754 JF0031 JF0748 JF0749 JF1192 JF1204 JF1194 JF1203 // CEND // COPY LIBRARY-P,NAME-JF1207,RECL-096,DATE-06/08/14,TIME-0756 JF0099 JF0164 JF1192 JF1204 JF1194 JF1195 JF1204 JF1196 JF1205 // CEND // COPY LIBRARY-P,NAME-JF1208,RECL-096,REF-000003,DATE-06/08/14,TIME-0801 JF0162 JF1192 JF1204 JF1194 JF1203 JF1017 JF0653 JF0438 JF0752 JF1013 DELETE ?WS?XINVC,F1 JF0753 JF0033 // CEND // COPY LIBRARY-P,NAME-JF1209,RECL-120,DATE-06/11/10,TIME-1222 // LOAD JF1209 // FILE NAME-XINVC,LABEL-?WS?XINVC // FILE NAME-ORDER,LABEL-?L'100,2'?ORDER,DISP-SHR // FILE NAME-XBRLAB,LABEL-?WS?XBRLAB,RECORDS-5000 // RUN // CEND // COPY LIBRARY-P,NAME-JF1210,RECL-120,DATE-06/10/26,TIME-0749 BLDFILE ?WS?XLBCOL,I,R,200,2,,,1,1 // LOAD JF1210 // FILE NAME-XITOR,LABEL-?WS?XITOR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-XLBCOL,LABEL-?WS?XLBCOL // RUN // CEND // COPY LIBRARY-P,NAME-JF1211,RECL-120,DATE-06/10/26,TIME-0749 RENAME ?WS?XLBCOL,?WS?XXLBCL // LOAD JF1211 // SWITCH 10000000 // FILE NAME-XXLBCL,LABEL-?WS?XXLBCL,RETAIN-S // FILE NAME-XLBCOL,LABEL-?WS?XLBCOL,RECORDS-200 // RUN // CEND // COPY LIBRARY-P,NAME-JF1212,RECL-120,DATE-06/10/26,TIME-0749 // LOAD JF1212 // FILE NAME-XXITOR,LABEL-?WS?XXITOR // FILE NAME-XLBCOL,LABEL-?WS?XLBCOL // FILE NAME-XITOR,LABEL-?WS?XITOR,RECORDS-25000 // RUN // CEND // COPY LIBRARY-P,NAME-JF1213,RECL-096,DATE-07/01/08,TIME-1207 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?L'100,2'?RECEV,DISP-SHR // FILE NAME-OUTPUT,LABEL-?WS?XXRECS,RECORDS-10000 // RUN HSORTR 6A 3X 300 I C 300EQCN FNU 8 13 FDC 1 256 FDC 257 300 // END // CEND // COPY LIBRARY-P,NAME-JF1214,RECL-096,DATE-07/01/08,TIME-1159 // LOAD JF1214 // FILE NAME-XXRECS,LABEL-?WS?XXRECS,RETAIN-S // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-XCSCRL,LABEL-?WS?XCSCRL,RECORDS-10000 // RUN // CEND // COPY LIBRARY-P,NAME-JF1215,RECL-096,DATE-07/01/08,TIME-1159 // LOAD JF1215 // FILE NAME-UNCASH,LABEL-?L'100,2'?UNCASH,DISP-SHR // FILE NAME-XCSCRL,LABEL-?WS?XCSCRL // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF1216,RECL-120,DATE-07/01/08,TIME-1159 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-OUTPUT,LABEL-?WS?XXLODS,RECORDS-10000 // RUN HSORTR 12A 3X 100 I C 10EQCF FNU 11 16 FNU 1 6 FDC 1 100 // END // CEND // COPY LIBRARY-P,NAME-JF1217,RECL-120,DATE-07/01/08,TIME-1159 // LOAD JF1217 // FILE NAME-XXLODS,LABEL-?WS?XXLODS,RETAIN-S // FILE NAME-XCSCRL,LABEL-?WS?XCSCRL // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-PRCTAB,LABEL-?L'100,2'?PRCTAB,DISP-SHR // FILE NAME-XOLOD,LABEL-?WS?XOLOD,RECORDS-10000 // RUN // CEND // COPY LIBRARY-P,NAME-JF1218,RECL-120,DATE-07/01/08,TIME-1159 // LOAD JF1218 // FILE NAME-XCSCRL,LABEL-?WS?XCSCRL,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-XOLOD,LABEL-?WS?XOLOD,RETAIN-S // RUN // CEND // COPY LIBRARY-P,NAME-JF1219,RECL-120,DATE-07/01/29,TIME-0805 // LOAD JF1219 // FILE NAME-XREC,LABEL-?WS?XREC // FILE NAME-RECVNC,LABEL-?L'100,2'?RECVNC,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF1220,RECL-120,DATE-07/01/29,TIME-0805 // LOAD JF1219 // FILE NAME-XREC,LABEL-?WS?XXREC // FILE NAME-RECVNC,LABEL-?L'100,2'?RECVNC,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF1221,RECL-120,DATE-10/08/12,TIME-0945 // * 'THIS PROGRAM WILL CREATE NEW END OF MONTH (25TH) RECEIVABLES FILES' // * 'FOR COMPANY ?L'100,2'?' // * ' 1.) AFTER ALL INVOICING FOR THE MONTH IS COMPLETED' // * ' (IT IS ALLOWABLE TO DO INVOICING FOR THE NEXT MONTH)' // * ' 2.) AFTER ALL CASH HAS BEEN POSTED FOR THE MONTH' // * ' 3.) BEFORE ANY CASH HAS BEEN POSTED FOR THE NEXT MONTH' // * ' ' // * 'PLEASE ENTER THE PASSWORD.' // IFF ?R?='CONNIEAR' GOTO END // * ' ' // IF DATAF1-?L'100,2'?ORECVN DELETE ?L'100,2'?ORECVN,F1 // IF DATAF1-?L'100,2'?OUNCSN DELETE ?L'100,2'?OUNCSN,F1 // IF DATAF1-?L'100,2'?RECVNC DELETE ?L'100,2'?RECVNC,F1 // IF DATAF1-?L'100,2'?UNCSNC DELETE ?L'100,2'?UNCSNC,F1 ***COPYDATA ?L'100,2'?RECEV,,?L'100,2'?RECVNC ***COPYDATA ?L'100,2'?UNCASH,,?L'100,2'?UNCSNC // LOAD JF1221 // FILE NAME-RECEV,LABEL-?L'100,2'?RECEV,DISP-SHR // FILE NAME-UNCASH,LABEL-?L'100,2'?UNCASH,DISP-SHR // FILE NAME-RECVNC,LABEL-?L'100,2'?RECVNC,RECORDS-500000,EXTEND-2000 // FILE NAME-UNCSNC,LABEL-?L'100,2'?UNCSNC,RECORDS-5000,EXTEND-1000 // RUN // * ' ' // * 'NEW END OF MONTH FILES HAVE BEEN SET UP' // * 'PRESS ENTER TO RETURN TO MENU' // IF ?R?='X' GOTO END // TAG END // CEND // COPY LIBRARY-P,NAME-JF1223,RECL-120,DATE-07/01/29,TIME-0805 // LOAD JF0678 // FILE NAME-RECEV,LABEL-?L'100,2'?RECVNC,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-XCUS4,LABEL-?WS?XCUS4 // FILE NAME-XCUS6,LABEL-?WS?XCUS6 // FILE NAME-XRECL,LABEL-?WS?XRECL,RECORDS-20000 // RUN // CEND // COPY LIBRARY-P,NAME-JF1225,RECL-120,DATE-07/01/29,TIME-0805 // LOAD JF0889 // FILE NAME-UNCASH,LABEL-?L'100,2'?UNCSNC,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-XCUS4,LABEL-?WS?XCUS4 // FILE NAME-XCUS6,LABEL-?WS?XCUS6 // FILE NAME-XRECL,LABEL-?WS?XRECL // RUN // CEND // COPY LIBRARY-P,NAME-JF1226,RECL-120,DATE-07/02/16,TIME-1129 JF1227 // IF ?L'1,1'?='S' JF1228 // IF ?L'1,1'?='S' JF1229 // IF ?L'1,1'?='S' GOTO END JF1230 JF1231 // TAG END // CEND // COPY LIBRARY-P,NAME-JF1227,RECL-120,DATE-07/02/16,TIME-1129 // LOAD JF1227 // FILE NAME-RECEV,LABEL-?L'100,2'?RECEV,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-XSMRC,LABEL-?WS?XSMRC,RECORDS-20000 // RUN // CEND // COPY LIBRARY-P,NAME-JF1228,RECL-120,DATE-07/02/16,TIME-1129 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XSMRC,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XSMRCS,RECORDS-20000 // RUN HSORTR 12A 3X 30 FNC 1 2 FNU 3 6 FNC 7 12 FDC 1 30 // END // CEND // COPY LIBRARY-P,NAME-JF1229,RECL-120,DATE-07/02/16,TIME-1129 // LOAD JF1229 // PRINTER NAME-PRT,CPI-15 // FILE NAME-XSMRCS,LABEL-?WS?XSMRCS,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-SALMEN,LABEL-?L'100,2'?SALMEN,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF1230,RECL-120,DATE-07/02/16,TIME-1129 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XSMRC,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XSMRCS,RECORDS-20000 // RUN HSORTR 10A 3X 30 FNU 3 6 FNC 7 12 FDC 1 30 // END // CEND // COPY LIBRARY-P,NAME-JF1231,RECL-120,DATE-07/02/16,TIME-1129 // LOAD JF1231 // PRINTER NAME-PRT,CPI-15 // FILE NAME-XSMRCS,LABEL-?WS?XSMRCS,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-SALMEN,LABEL-?L'100,2'?SALMEN,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF1232,DATE-07/02/28,TIME-1401 JF1213 JF1214 JF1215 JF1216 JF1217 JF1218 // CEND // COPY LIBRARY-P,NAME-JF1233,RECL-120,DATE-10/08/12,TIME-0950 // * 'THIS PROGRAM WILL ERASE THE END OF MONTH (25TH) RECEIVABLES FILE S' // * 'FOR COMPANY ?L'100,2'?' // * ' ' // * 'PLEASE ENTER THE PASSWORD.' // IFF ?R?='CONNIEAR' GOTO END // * ' ' // IF DATAF1-?L'100,2'?ORECVN DELETE ?L'100,2'?ORECVN,F1 // IF DATAF1-?L'100,2'?OUNCSN DELETE ?L'100,2'?OUNCSN,F1 // IF DATAF1-?L'100,2'?RECVNC RENAME ?L'100,2'?RECVNC,?L'100,2'?ORECVN // IF DATAF1-?L'100,2'?UNCSNC RENAME ?L'100,2'?UNCSNC,?L'100,2'?OUNCSN // * ' ' // * 'THE END OF MONTH FILES HAVE BEEN ERASED' // * 'PRESS ENTER TO RETURN TO MENU' // IF ?R?='X' GOTO END // TAG END // CEND // COPY LIBRARY-P,NAME-JF1234,RECL-096,REF-000003,DATE-07/08/29,TIME-0927 // LOAD JF0042 // SWITCH 00100000 *****// IF ?WS?='X8' PRINTER NAME-PRT,FONT-DF // FILE NAME-XRECSM,LABEL-?WS?XRECSM,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-UNCASH,LABEL-?L'100,2'?UNCSNC,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF1235,RECL-096,REF-000003,DATE-07/08/29,TIME-0902 // LOAD JF0778 // PRINTER NAME-PRT,CPI-15 // SWITCH 00100000 // FILE NAME-XRECSM,LABEL-?WS?XRECSM,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-UNCASH,LABEL-?L'100,2'?UNCSNC,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF1236,RECL-096,REF-000006,DATE-07/08/29,TIME-0927 // LOAD JF0961 // PRINTER NAME-PRT,CPI-15,FORMSNO-8X11 // SWITCH 00100000 // FILE NAME-XRECSM,LABEL-?WS?XRECSM,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-UNCASH,LABEL-?L'100,2'?UNCSNC,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF1237,RECL-096,DATE-07/06/08,TIME-0814 // LOAD JF1237 // FILE NAME-LABNOT,LABEL-?L'100,2'?LABNOT,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF1238,RECL-120,DATE-07/10/16,TIME-0834 // LOAD JF1239 // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-XPROD,LABEL-?WS?XPROD,RECORDS-50000 // RUN // LOAD JF1240 // FILE NAME-XPROD,LABEL-?WS?XPROD // FILE NAME-HOUSE,LABEL-?L'100,2'?HOUSE,DISP-SHR // FILE NAME-XITHSE,LABEL-?WS?XITHSE,RECORDS-50000 // RUN // LOAD JF1241 // FILE NAME-XPROD,LABEL-?WS?XPROD,RETAIN-S // FILE NAME-XITHSE,LABEL-?WS?XITHSE,RECORDS-50000 // RUN // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XITHSE,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XITHSS,RECORDS-50000 // RUN HSORTR 14A 3X 120 FNC 1 7 FNU 53 FNU 54 59 FDC 1 120 // END // LOAD JF1242 // FILE NAME-XITHSS,LABEL-?WS?XITHSS,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-VENDOR,LABEL-?L'100,2'?VENDOR,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF1243,DATE-08/01/21,TIME-1109 // LOAD JF1243 // PRINTER NAME-PRT,DEVICE-PI // FILE NAME-XBRLAB,LABEL-?WS?XBRLAB,RETAIN-S // RUN // CEND // COPY LIBRARY-P,NAME-JF1244,RECL-120,DATE-08/02/29,TIME-0842 // LOAD JF1245 // FILE NAME-PRDUSG,LABEL-?L'100,2'?PRDUSG,DISP-SHR // FILE NAME-XPRDCS,LABEL-?WS?XPRDCS,RECORDS-10000 // RUN // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XPRDCS,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XPRCSS,RECORDS-10000 // RUN HSORTR 4A 3X 36 FNP 12 15 FDC 1 36 // END // LOAD JF1246 // FILE NAME-XPRCSS,LABEL-?WS?XPRCSS,RETAIN-S // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF1247,RECL-120,DATE-08/03/02,TIME-1054 // LOAD JF1248 // FILE NAME-INVCE,LABEL-?L'100,2'?INVCE,DISP-SHR // FILE NAME-XPRDCS,LABEL-?WS?XPRDCS,RECORDS-10000 // RUN // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XPRDCS,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XPRCSS,RECORDS-10000 // RUN HSORTR 6A 3X 29 FNC 3 8 FDC 1 29 // END // LOAD JF1249 // FILE NAME-XPRCSS,LABEL-?WS?XPRCSS,RETAIN-S // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF1250,RECL-120,DATE-08/03/26,TIME-1018 // * ' ' // * 'ENTER FROM INVOICE DATE FROM WHICH TO INCLUDE INVOICES (MMDDYY)' // * ' ' // LOCAL OFFSET-1,DATA-'?R?',BLANK-6 // * ' ' // * 'ENTER THRU INVOICE DATE FROM WHICH TO INCLUDE INVOICES (MMDDYY)' // * ' ' // LOCAL OFFSET-7,DATA-'?R?',BLANK-6 // TAG AGN1 // * ' ' // * 'ENTER TYPE OF REPORT YOU WISH:' // * ' ' // * ' O - ALL OPEN INVOICES ONLY' // * ' C - CLOSED INVOICES ONLY' // * ' A - ALL INVOICES WHETHER OPEN OR CLOSED' // * ' ' // * 'PLEASE ENTER O, C OR A TO INDICATE YOUR CHOICE. THANK YOU.' // * ' ' // LOCAL OFFSET-13,DATA-'?R?',BLANK-1 // IF ?L'13,1'?='O' GOTO AGN2 // IF ?L'13,1'?='C' GOTO AGN2 // IF ?L'13,1'?='A' GOTO AGN2 // GOTO AGN1 // TAG AGN2 // * ' ' // * 'DO YOU WISH A SITE LISTING BY CUSTOMER OR CORPORTATION ?' // * ' ' // * ' CS - CUSTOMER' // * ' CR - CORPORATON' // * ' ' // * 'PLEASE ENTER CS OR CR TO INDICATE YOUR CHOICE. THANK YOU.' // * ' ' // LOCAL OFFSET-14,DATA-'?R?',BLANK-2 // IF ?L'14,2'?='CS' GOTO BEGIN // IF ?L'14,2'?='CR' GOTO BEGIN // GOTO AGN2 // TAG BEGIN // LOAD JF1251 // FILE NAME-RECEV,LABEL-?L'100,2'?RECEV,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-XRECV,LABEL-?WS?XRECV,RECORDS-400000 // RUN // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XRECV,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XRECVS,RECORDS-400000 // RUN HSORTR 43A 3X 304 * I C 300NECV * IAC 300NECD FNC 301 304 FNC 8 13 FNC 107 127 FNU 18 19 FNU 14 17 FNU 2 7 FDC 1 256 FDC 257 304 // END // LOAD JF1252 // FILE NAME-XRECVS,LABEL-?WS?XRECVS,RETAIN-S // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF1253,RECL-120,DATE-08/05/30,TIME-1304 */ * 'PLEASE ENTER DATE (MMDDYY) FOR HISTORICAL CASH RECEIPTS REPORT' */ LOCAL OFFSET-1,DATA-'?R?' // LOAD JF1254 // FILE NAME-GLPMT,LABEL-?L'100,2'?GLPMT,DISP-SHR // FILE NAME-PYMT,LABEL-?L'100,2'?PYMT,DISP-SHR // FILE NAME-PYUN,LABEL-?L'100,2'?PYUN,DISP-SHR // FILE NAME-XHCSRC,LABEL-?WS?XHCSRC,RECORDS-5000 // RUN // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XHCSRC,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XHCSRS,RECORDS-5000 // RUN HSORTR 17A 3X 80 FNU 1 4 FNU 7 12 FNU 13 FNU 14 19 FDC 1 80 * HSORTR 19A 3X 80 * FNU 20 21 * FNU 16 19 * FNU 10 15 * FNC 62 * FNU 63 68 * FDC 1 80 // END // LOAD JF1255 // FILE NAME-XHCSRS,LABEL-?WS?XHCSRS,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-GLFILE,LABEL-?L'100,2'?GLFILE,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-RECEV,LABEL-?L'100,2'?RECEV,DISP-SHR // RUN // TAG END // CEND // COPY LIBRARY-P,NAME-JF1256,RECL-120,DATE-08/05/27,TIME-2039 // * 'NO ONE MAY BE ON THE COMPUTER WHILE THIS IS RUNNING' // * 'BE CERTAIN THAT ALL PEOPLE ARE OFF THE COMPUTER' // * ' AND ENTER PASSWORD' // IFF ?R?='JOSEDELETECUS' GOTO END RENAME ?L'100,2'?CUSMAS,?WS?OCUSMS RENAME ?L'100,2'?HOUSE,?WS?OHOUSE // LOAD JF1256 // FILE NAME-OCUSMS,LABEL-?WS?OCUSMS,RETAIN-S // FILE NAME-OHOUSE,LABEL-?WS?OHOUSE,RETAIN-S // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,RECORDS-8000,EXTEND-2000 // FILE NAME-HOUSE,LABEL-?L'100,2'?HOUSE,RECORDS-300000,EXTEND-5000 // FILE NAME-HSCUS,LABEL-?L'100,2'?HSCUS,RECORDS-3000 // FILE NAME-HSHOUS,LABEL-?L'100,2'?HSHOUS,RECORDS-100000 // FILE NAME-XDCSHS,LABEL-?WS?XDCSHS,RECORDS-300000 // RUN // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XDCSHS,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XDCSSS,RECORDS-300000 // RUN HSORTR 13A 3X 100 FNU 1 6 FNC 7 FNU 8 13 FDC 1 100 // END // LOAD JF1257 // FILE NAME-XDCSSS,LABEL-?WS?XDCSSS,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // RUN // * 'BE CERTAIN TO COPY OFF AND ERASE THE FOLLOWING TWO FILES' // * 'WHICH HAVE THE CUSTOMERS AND HOUSES THAT HAVE BEEN DELETED' // * ' ?L'100,2'?HSCUS' // * ' ?L'100,2'?HSHOUS' // * 'PRESS ENTER TO CONFIRM THAT YOU HAVE READ THIS MESSAGE' // * 'AND WILL COMPLY. THANK YOU.' // IFF ?R?='Y' GOTO END // TAG END // CEND // COPY LIBRARY-P,NAME-JF1258,RECL-096,DATE-08/07/11,TIME-0911 // LOAD JF0048 // SWITCH 00000000 // FILE NAME-RECEV,LABEL-?L'100,2'?RECVNC,DISP-SHR */ FILE NAME-RECEV,LABEL-?L'100,2'?RECEV,DISP-SHR // FILE NAME-RECBD,LABEL-?L'100,2'?RECBD,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-MISCUS,LABEL-?L'100,2'?MISCUS,DISP-SHR // FILE NAME-XSTMT,LABEL-?WS?XSTMT,RECORDS-20000 // FILE NAME-XSMES,LABEL-?WS?XSMES,RECORDS-1 // RUN // CEND // COPY LIBRARY-P,NAME-JF1259,RECL-120,DATE-08/10/09,TIME-0839 // LOAD JF1260 // FILE NAME-XVENCH,LABEL-?WS?XVENCH,RECORDS-100 // RUN // LOAD JF1261 // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-XVENCH,LABEL-?WS?XVENCH // FILE NAME-XLDIT,LABEL-?WS?XLDIT,RECORDS-40000 // RUN // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XLDIT // FILE NAME-OUTPUT,LABEL-?WS?XLDITS,RECORDS-40000 // RUN HSORTR 25A 3X 100 FNU 1 6 FNU 7 12 FNU 13 18 FNC 52 58 FDC 1 100 // END DELETE ?WS?XLDIT,F1 // LOAD JF1262 // PRINTER NAME-PRT,HOLD-YES // FILE NAME-XLDITS,LABEL-?WS?XLDITS,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-VENDOR,LABEL-?L'100,2'?VENDOR,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // RUN DELETE ?WS?XVENCH,F1 // CEND // COPY LIBRARY-P,NAME-JF1263,RECL-120,DATE-09/02/04,TIME-1427 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?L'100,2'?RECEV,DISP-SHR // FILE NAME-OUTPUT,LABEL-?WS?XREC,RECORDS-600000 // RUN HSORTR 12A 3X 300 I C 181NECR IAC 300NECD IAC 300NECV FNU 8 13 FNU 18 19 FNU 14 17 FDC 1 256 FDC 257 300 // END // LOAD JF1264 // FILE NAME-XREC,LABEL-?WS?XREC,RETAIN-S // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-XRECSM,LABEL-?WS?XRECSM,RECORDS-600000 // RUN // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XRECSM,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XRECSS,RECORDS-300000 // RUN HSORTR 20A 3X 400 FNC 362 365 * FNC 307 336 FNU 8 13 FNU 301 304 FNU 14 17 FDC 1 256 FDC 257 400 // END // LOAD JF1265 // FILE NAME-XRECSS,LABEL-?WS?XRECSS,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF1266,RECL-120,DATE-09/02/08,TIME-1939 JF1267 JF1268 // CEND // COPY LIBRARY-P,NAME-JF1267,RECL-120,DATE-09/02/08,TIME-2059 // LOAD JF1267 // FILE NAME-RECEV,LABEL-?L'100,2'?RECEV,DISP-SHR // FILE NAME-XSLREG,LABEL-?WS?XSLREG,RECORDS-40000 // RUN // CEND // COPY LIBRARY-P,NAME-JF1268,RECL-120,DATE-09/02/08,TIME-1939 // LOAD JF1268 // FILE NAME-XSLREG,LABEL-?WS?XSLREG,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF1271,DATE-09/02/16,TIME-1138 // LOAD JF1271 // FILE NAME-XEXCEL,LABEL-?WS?XEXCEL // RUN // CEND // COPY LIBRARY-P,NAME-JF1272,RECL-120,DATE-09/09/04,TIME-2005 // IFF DATAF1-?WS?XEXCEL GOTO BEGIN // * 'AN EXCEL FILE STILL EXISTS FROM A PREVIOUS RUN OF THIS' // * 'OR SOME OTHER EXCEL PROGRAM' // * 'IF YOU CONTINUE THIS EXCEL FILE WILL BE ERASED' // * 'AND A NEW ONE WILL BE CREATED BY THIS PROGRAM' // * 'DO YOU WISH TO CONTINUE ?' // * ' Y = YES' // * ' ANYTHING ELSE = NO' // IFF ?R?='Y' GOTO END // TAG BEGIN // IF DATAF1-?WS?XEXCEL DELETE ?WS?XEXCEL,F1 // * 'DO YOU WISH A PRINTOUT OF INSTRUCTIONS FOR CONVERTING' // * 'THE AS/400 FILE (NAME ?WS?XEXCEL) CREATED BY THIS PROGRAM' // * 'TO THE EXCEL WORKSHEET THAT WILL BE DELIVERED TO THE CUSTOMER ?' // * ' Y = YES' // * ' ANYTHING ELSE = NO' // LOCAL OFFSET-1,DATA-'?R?' // LOCAL OFFSET-2,DATA-'?WS?' // LOAD JF1273 // FILE NAME-XRECEV,LABEL-?WS?XRECEV,RETAIN-S // FILE NAME-XEXINP,LABEL-?WS?XEXINP,RECORDS-100 // RUN // LOAD #GSORT // FILE NAME-INPUT,LABEL-?L'100,2'?RECEV,DISP-SHR // FILE NAME-OUTPUT,LABEL-?WS?XRECEV,RECORDS-50000 // RUN HSORTR 12A 3X 300 I C 300EQCN FNU 8 13 FNU 2 6 FDC 1 256 FDC 257 300 // END // LOAD JF1274 // FILE NAME-XRECEV,LABEL-?WS?XRECEV,RETAIN-S // FILE NAME-XEXINP,LABEL-?WS?XEXINP,RETAIN-S // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR *// FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-RELSHT,LABEL-?L'100,2'?RELSHT,DISP-SHR // FILE NAME-INVCE,LABEL-?L'100,2'?INVCE,DISP-SHR // FILE NAME-XEXCEL,LABEL-?WS?XEXCEL,RECORDS-5000 // RUN // IF ?L'1,1'?='Y' JF1271 // TAG END // CEND // COPY LIBRARY-P,NAME-JF1275,RECL-120,DATE-09/08/14,TIME-0817 // * 'THIS PROGRAM WILL CHANGE HANDS FOR ITEMS IN FILES HOUSE AND LOAD' // * 'FOR COMPANY ?L'100,2'?' // * ' ' // * 'PLEASE ENTER THE PASSWORD.' // IFF ?R?='JOFFEBUILDSBETTERHOUSES' GOTO END // * ' ' // LOAD JF1275 // FILE NAME-HOUSE,LABEL-?L'100,2'?HOUSE,DISP-SHR // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // RUN // TAG END // CEND // COPY LIBRARY-P,NAME-JF1276,RECL-120,DATE-09/08/14,TIME-0823 // * 'THIS PROGRAM WILL CHANGE HANDS FOR ITEMS IN FILES HOUSE AND LOAD' // * 'FOR COMPANY ?L'100,2'?' // * ' ' // * 'PLEASE ENTER THE PASSWORD.' // IFF ?R?='JOFFEBUILDSBETTERHOUSES' GOTO END // * ' ' // LOAD JF1276 // FILE NAME-HOUSE,LABEL-?L'100,2'?HOUSE,DISP-SHR // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // RUN // TAG END // CEND // COPY LIBRARY-P,NAME-JF1277,RECL-120,DATE-09/09/04,TIME-2014 // IFF DATAF1-?WS?XEXCEL GOTO BEGIN // * 'AN EXCEL FILE STILL EXISTS FROM A PREVIOUS RUN OF THIS' // * 'OR SOME OTHER EXCEL PROGRAM' // * 'IF YOU CONTINUE THIS EXCEL FILE WILL BE ERASED' // * 'AND A NEW ONE WILL BE CREATED BY THIS PROGRAM' // * 'DO YOU WISH TO CONTINUE ?' // * ' Y = YES' // * ' ANYTHING ELSE = NO' // IFF ?R?='Y' GOTO END // TAG BEGIN // IF DATAF1-?WS?XEXCEL DELETE ?WS?XEXCEL,F1 // * 'DO YOU WISH A PRINTOUT OF INSTRUCTIONS FOR CONVERTING' // * 'THE AS/400 FILE (NAME ?WS?XEXCEL) CREATED BY THIS PROGRAM' // * 'TO THE EXCEL WORKSHEET THAT WILL BE DELIVERED TO THE CUSTOMER ?' // * ' Y = YES' // * ' ANYTHING ELSE = NO' // LOCAL OFFSET-1,DATA-'?R?' // LOCAL OFFSET-2,DATA-'?WS?' JF1278 JF1279 // IF ?L'4,1'?='1' JF1280 // IF ?L'4,1'?='2' JF1281 JF1282 // IF ?L'1,1'?='Y' JF1271 // TAG END // CEND // COPY LIBRARY-P,NAME-JF1278,RECL-120,DATE-09/09/03,TIME-1205 // LOAD JF1278 // FILE NAME-XINP,LABEL-?WS?XINP,RECORDS-300 // RUN // CEND // COPY LIBRARY-P,NAME-JF1279,RECL-120,DATE-09/09/03,TIME-1205 // LOAD JF1279 // FILE NAME-HOUSE,LABEL-?L'100,2'?HOUSE,DISP-SHR // FILE NAME-XINP,LABEL-?WS?XINP,RETAIN-S // FILE NAME-XCSHS,LABEL-?WS?XCSHS,RECORDS-60000 // RUN // CEND // COPY LIBRARY-P,NAME-JF1280,RECL-120,DATE-09/09/03,TIME-1205 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XCSHS,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XHSE,RECORDS-60000 // RUN H9ORTR 15A 3X 41 FNU 42 47 FNU 1 6 FNU 7 9 FDC 1 41 // END // CEND // COPY LIBRARY-P,NAME-JF1281,RECL-120,DATE-09/09/03,TIME-1205 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XCSHS,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XHSE,RECORDS-60000 // RUN HSORTR 15A 3X 41 FNU 42 47 FNU 6 FNU 1 5 FNU 7 9 FDC 1 41 // END // CEND // COPY LIBRARY-P,NAME-JF1282,RECL-120,DATE-09/09/04,TIME-2007 // LOAD JF1282 // FILE NAME-XHSE,LABEL-?WS?XHSE,RETAIN-S // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-PRCTAB,LABEL-?L'100,2'?PRCTAB,DISP-SHR // FILE NAME-XEXCEL,LABEL-?WS?XEXCEL,RECORDS-10000 // RUN // CEND // COPY LIBRARY-P,NAME-JF1283,RECL-120,DATE-09/10/06,TIME-1421 // IFF DATAF1-?WS?XEXCEL GOTO BEGIN // * 'AN EXCEL FILE STILL EXISTS FROM A PREVIOUS RUN OF THIS' // * 'OR SOME OTHER EXCEL PROGRAM' // * 'IF YOU CONTINUE THIS EXCEL FILE WILL BE ERASED' // * 'AND A NEW ONE WILL BE CREATED BY THIS PROGRAM' // * 'DO YOU WISH TO CONTINUE ?' // * ' Y = YES' // * ' ANYTHING ELSE = NO' // IFF ?R?='Y' GOTO END // TAG BEGIN // IF DATAF1-?WS?XEXCEL DELETE ?WS?XEXCEL,F1 // * 'DO YOU WISH A PRINTOUT OF INSTRUCTIONS FOR CONVERTING' // * 'THE AS/400 FILE (NAME ?WS?XEXCEL) CREATED BY THIS PROGRAM' // * 'TO THE EXCEL WORKSHEET THAT WILL BE DELIVERED TO THE CUSTOMER ?' // * ' Y = YES' // * ' ANYTHING ELSE = NO' // LOCAL OFFSET-1,DATA-'?R?' // LOAD JF1283 // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-XEXCEL,LABEL-?WS?XEXCEL,RECORDS-30000 // RUN // IF ?L'1,1'?='Y' JF1271 // TAG END // CEND // COPY LIBRARY-P,NAME-JF1285,RECL-096,DATE-09/11/19,TIME-0837 // LOAD JF1285 // FILE NAME-RECEV,LABEL-?L'100,2'?RECEV,DISP-SHR // FILE NAME-XINREG,LABEL-?WS?XINREG,RECORDS-50000 // RUN // CEND // COPY LIBRARY-P,NAME-JF1286,RECL-096,DATE-09/11/18,TIME-1342 // LOAD JF1286 // SWITCH 01000000 // FILE NAME-XREC,LABEL-?WS?XINREG,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-MISCUS,LABEL-?L'100,2'?MISCUS,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF1287,RECL-096,DATE-09/11/18,TIME-1349 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XINRGG,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XINREG,RECORDS-50000 // RUN HSORTR 12A 3X 300 FNU 8 13 FNU 2 7 FDC 1 256 FDC 257 300 // END // CEND // COPY LIBRARY-P,NAME-JF1288,DATE-09/11/19,TIME-1137 JF1285 // IF ?L'13,1'?='I' GOTO ENDSRT RENAME ?WS?XINREG,?WS?XINRGG // IF ?L'13,1'?='C' JF1287 // IF ?L'13,1'?='T' JF1289 // TAG ENDSRT JF1286 // CEND // COPY LIBRARY-P,NAME-JF1289,RECL-096,DATE-09/11/19,TIME-1034 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XINRGG,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XINREG,RECORDS-50000 // RUN HSORTR 13A 3X 300 FNC 62 FNU 8 13 FNU 2 7 FDC 1 256 FDC 257 300 // END // CEND // COPY LIBRARY-P,NAME-JF1290,RECL-120,DATE-09/11/21,TIME-1852 // LOAD JF1290 // FILE NAME-RECEV,LABEL-?L'100,2'?RECEV,DISP-SHR // FILE NAME-NJUAF,LABEL-?L'100,2'?NJUAF,DISP-SHR // FILE NAME-INVCE,LABEL-?L'100,2'?INVCE,DISP-SHR // FILE NAME-DEPT,LABEL-?L'100,2'?DEPT,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-XTAREC,LABEL-?WS?XTAREC,RECORDS-2000 // FILE NAME-XINDP,LABEL-?WS?XINDP,RECORDS-3000 // RUN // CEND // COPY LIBRARY-P,NAME-JF1291,RECL-120,DATE-09/12/10,TIME-1106 *** TRUCK MILL REPORT FOR DEPARTMENT C2 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XITOR // FILE NAME-OUTPUT,LABEL-?WS?XITORS,RECORDS-10000 // RUN HSORTR 22A 3X 220 I C 1 2EQCC2 FNU 116 121 FNC 122 123 FNU 124 126 FNU 17 22 FNU 23 25 FNU 26 27 FDC 1 220 // END // CEND // COPY LIBRARY-P,NAME-JF1292,RECL-120,DATE-09/12/10,TIME-1106 *** TRUCK MILL REPORT FOR DEPARTMENT C2 // LOAD JF0281 // SWITCH 10000000 // PRINTER NAME-PRT,FORMSNO-8X11,COPIES-4 // FILE NAME-XITORS,LABEL-?WS?XITORS,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-DEPT,LABEL-?L'100,2'?DEPT,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-XITHD,LABEL-?WS?XITHD // RUN // CEND // COPY LIBRARY-P,NAME-JF1293,RECL-120,DATE-09/12/10,TIME-1106 *** TRUCK MILL REPORT FOR DEPARTMENT C5 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XITOR // FILE NAME-OUTPUT,LABEL-?WS?XITORS,RECORDS-10000 // RUN HSORTR 22A 3X 220 I C 1 2EQCC5 FNU 116 121 FNC 122 123 FNU 124 126 FNU 17 22 FNU 23 25 FNU 26 27 FDC 1 220 // END // CEND // COPY LIBRARY-P,NAME-JF1294,RECL-120,DATE-09/12/10,TIME-1107 *** TRUCK MILL REPORT FOR DEPARTMENT C5 // LOAD JF0281 // SWITCH 10000000 // PRINTER NAME-PRT,FORMSNO-8X11,COPIES-4 // FILE NAME-XITORS,LABEL-?WS?XITORS,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-DEPT,LABEL-?L'100,2'?DEPT,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-XITHD,LABEL-?WS?XITHD // RUN // CEND // COPY LIBRARY-P,NAME-JF1295,RECL-120,DATE-09/12/10,TIME-1107 *** TRUCK MILL REPORT FOR DEPARTMENT C6 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XITOR // FILE NAME-OUTPUT,LABEL-?WS?XITORS,RECORDS-10000 // RUN HSORTR 22A 3X 220 I C 1 2EQCC6 FNU 116 121 FNC 122 123 FNU 124 126 FNU 17 22 FNU 23 25 FNU 26 27 FDC 1 220 // END // CEND // COPY LIBRARY-P,NAME-JF1296,RECL-120,DATE-09/12/10,TIME-1107 *** TRUCK MILL REPORT FOR DEPARTMENT C6 // LOAD JF0281 // SWITCH 10000000 // PRINTER NAME-PRT,FORMSNO-8X11,COPIES-4 // FILE NAME-XITORS,LABEL-?WS?XITORS,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-DEPT,LABEL-?L'100,2'?DEPT,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-XITHD,LABEL-?WS?XITHD // RUN // CEND // COPY LIBRARY-P,NAME-JF1297,RECL-120,DATE-09/12/10,TIME-1107 *** TRUCK MILL REPORT FOR DEPARTMENT C7 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XITOR // FILE NAME-OUTPUT,LABEL-?WS?XITORS,RECORDS-10000 // RUN HSORTR 22A 3X 220 I C 1 2EQCC7 FNU 116 121 FNC 122 123 FNU 124 126 FNU 17 22 FNU 23 25 FNU 26 27 FDC 1 220 // END // CEND // COPY LIBRARY-P,NAME-JF1298,RECL-120,DATE-09/12/10,TIME-1108 *** TRUCK MILL REPORT FOR DEPARTMENT C7 // LOAD JF0281 // SWITCH 10000000 // PRINTER NAME-PRT,FORMSNO-8X11,COPIES-4 // FILE NAME-XITORS,LABEL-?WS?XITORS,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-DEPT,LABEL-?L'100,2'?DEPT,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-XITHD,LABEL-?WS?XITHD // RUN // CEND // COPY LIBRARY-P,NAME-JF1299,RECL-120,DATE-09/12/10,TIME-1108 *** TRUCK MILL REPORT FOR DEPARTMENT C8 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XITOR // FILE NAME-OUTPUT,LABEL-?WS?XITORS,RECORDS-10000 // RUN HSORTR 22A 3X 220 I C 1 2EQCC8 FNU 116 121 FNC 122 123 FNU 124 126 FNU 17 22 FNU 23 25 FNU 26 27 FDC 1 220 // END // CEND // COPY LIBRARY-P,NAME-JF1300,RECL-120,DATE-09/12/10,TIME-1108 *** TRUCK MILL REPORT FOR DEPARTMENT C8 // LOAD JF0281 // SWITCH 10000000 // PRINTER NAME-PRT,FORMSNO-8X11,COPIES-4 // FILE NAME-XITORS,LABEL-?WS?XITORS,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-DEPT,LABEL-?L'100,2'?DEPT,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-XITHD,LABEL-?WS?XITHD // RUN // CEND // COPY LIBRARY-P,NAME-JF1301,RECL-120,DATE-09/12/28,TIME-1333 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?L'100,2'?LDTRK // FILE NAME-OUTPUT,LABEL-?WS?XLDTRX,RECORDS-3000 // RUN HSORTR 8A 3X 130 I C 109NEC* IAC 130EQCA FNU 1 2 FNU 14 19 FDC 1 130 // END // CEND // COPY LIBRARY-P,NAME-JF1302,RECL-120,DATE-09/12/28,TIME-1333 // LOAD JF1302 // FILE NAME-XLDTRX,LABEL-?WS?XLDTRX,RETAIN-S // FILE NAME-XTRCUS,LABEL-?WS?XTRCUS,RECORDS-1000 // RUN // CEND // COPY LIBRARY-P,NAME-JF1303,RECL-120,DATE-10/01/12,TIME-1957 // LOAD JF1303 // FILE NAME-XITOR,LABEL-?WS?XITOR // FILE NAME-XTRCUS,LABEL-?WS?XTRCUS // FILE NAME-DEPT,LABEL-?L'100,2'?DEPT,DISP-SHR // FILE NAME-XITCM,LABEL-?WS?XITCM,RECORDS-5000 // RUN // CEND // COPY LIBRARY-P,NAME-JF1304,RECL-120,DATE-10/01/06,TIME-0959 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XITCM // FILE NAME-OUTPUT,LABEL-?WS?XITCMS,RECORDS-5000 // RUN HSORTR 10A 3X 220 I C 167EQCI FNC 122 123 FNU 28 33 FNC 1 2 FDC 1 220 // END // CEND // COPY LIBRARY-P,NAME-JF1305,RECL-120,DATE-10/01/15,TIME-1247 // LOAD JF1305 OVRPRTF FILE(PRT) USRDTA('COMMACCT') // PRINTER NAME-PRT,FORMSNO-COMM // FILE NAME-XITCMS,LABEL-?WS?XITCMS // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-DEPT,LABEL-?L'100,2'?DEPT,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF1306,RECL-120,DATE-10/01/06,TIME-1000 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XITCM // FILE NAME-OUTPUT,LABEL-?WS?XITCMS,RECORDS-5000 // RUN HSORTR 31A 3X 220 I C 167EQCI FNC 122 123 FNU 28 33 FNC 1 2 FNC 95 115 FDC 1 220 // END // CEND // COPY LIBRARY-P,NAME-JF1307,RECL-120,DATE-10/01/15,TIME-1247 // LOAD JF1307 OVRPRTF FILE(PRT) USRDTA('COMMACCT') // PRINTER NAME-PRT,FORMSNO-COMM // FILE NAME-XITCMS,LABEL-?WS?XITCMS // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-DEPT,LABEL-?L'100,2'?DEPT,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF1308,RECL-096,DATE-10/01/13,TIME-0736 *** COMMERCIAL REPORT FOR DEPARTMENT H1 CONSOLIDATED // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XITOR // FILE NAME-OUTPUT,LABEL-?WS?XITORS,RECORDS-10000 // RUN HSORTR 15A 3X 220 I C 1 2EQCH1 FNC 122 123 FNU 28 33 FNC 3 9 FDC 1 220 // END // CEND // COPY LIBRARY-P,NAME-JF1309,RECL-120,DATE-10/01/15,TIME-1248 // LOAD JF1309 OVRPRTF FILE(PRT) USRDTA('COMMACCT') // PRINTER NAME-PRT,FORMSNO-COMM // FILE NAME-XITORS,LABEL-?WS?XITORS // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-XTRCUS,LABEL-?WS?XTRCUS // FILE NAME-DEPT,LABEL-?L'100,2'?DEPT,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF1310,RECL-096,DATE-10/01/13,TIME-0736 *** COMMERCIAL REPORT FOR DEPARTMENT H2 CONSOLIDATED // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XITOR // FILE NAME-OUTPUT,LABEL-?WS?XITORS,RECORDS-10000 // RUN HSORTR 15A 3X 220 I C 1 2EQCH2 FNC 122 123 FNU 28 33 FNC 3 9 FDC 1 220 // END // CEND // COPY LIBRARY-P,NAME-JF1313,RECL-096,DATE-10/01/14,TIME-1139 *** TRUCK REPORT OF ALL COMMERCIAL DEPTS // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XITOR // FILE NAME-OUTPUT,LABEL-?WS?XITORS,RECORDS-10000 // RUN HSORTR 4A 3X 220 I C 167EQCI FNU 122 123 FNC 1 2 FDC 1 220 // END // CEND // COPY LIBRARY-P,NAME-JF1314,RECL-120,DATE-10/01/15,TIME-1647 // LOAD JF1314 ***OVRPRTF FILE(PRT) USRDTA('COMM REP') // PRINTER NAME-PRT,FORMSNO-8X11 // FILE NAME-XITORS,LABEL-?WS?XITORS,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-DEPT,LABEL-?L'100,2'?DEPT,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF1318,RECL-096,REF-000004,DATE-10/02/11,TIME-1153 // LOAD JF1316 // FILE NAME-RECEV,LABEL-?L'100,2'?RECEV,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-XRECLB,LABEL-?WS?XRECLB,RECORDS-100000 // RUN // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XRECLB,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XRCLBS,RECORDS-100000 // RUN HSORTR 12A 3X 450 FNC 8 13 FNU 2 7 FDC 1 256 FDC 257 450 // END // LOAD JF1317 // SWITCH 10000000 // FILE NAME-XRCLBS,LABEL-?WS?XRCLBS,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF1319,DATE-10/08/11,TIME-0838 // LOAD JF0718 // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-INVCB,LABEL-?L'100,2'?INVCB,DISP-SHR // FILE NAME-RECEV,LABEL-?L'100,2'?RECEV,DISP-SHR // FILE NAME-INVCE,LABEL-?L'100,2'?INVCE,DISP-SHR // FILE NAME-INVNOT,LABEL-?L'100,2'?INVNOT,DISP-SHR // FILE NAME-XRPINV,LABEL-?WS?XRPINV,RECORDS-5000 // RUN // IFF ?L'1,1'?='Y' GOTO END // LOAD JF0657 // FILE NAME-XRPINV,LABEL-?WS?XRPINV // FILE NAME-INVCE,LABEL-?L'100,2'?INVCE,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // RUN // TAG END DELETE ?WS?XRPINV,F1 // CEND // COPY LIBRARY-P,NAME-JF1320,DATE-11/01/11,TIME-2014 COPYDATA ?WS?XREC,,?WS?XIREC,,,,,,,,,,,,,2,6 // LOAD JF1320 // FILE NAME-XINVC,LABEL-?WS?XINVC // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-XIREC,LABEL-?WS?XIREC,DISP-SHR // FILE NAME-XOINVC,LABEL-?WS?XOINVC,RECORDS-10000 // FILE NAME-XRINVC,LABEL-?WS?XRINVC,RECORDS-10000 // RUN DELETE ?WS?XIREC,F1 // CEND // COPY LIBRARY-P,NAME-JF1321,DATE-11/01/12,TIME-0638 DELETE ?WS?XINVC,F1 // LOAD JF1321 // FILE NAME-XOINVC,LABEL-?WS?XOINVC // FILE NAME-XRINVC,LABEL-?WS?XRINVC // FILE NAME-XINVC,LABEL-?WS?XINVC,RECORDS-10000 // RUN DELETE ?WS?XOINVC,F1 DELETE ?WS?XRINVC,F1 // CEND // COPY LIBRARY-P,NAME-JF1322,RECL-096,DATE-11/01/14,TIME-0841 DELETE ?WS?XHINV,F1 DELETE ?WS?XREC,F1 BLDFILE ?WS?XHINV,I,RECORDS,10000,71,,,1,9 BLDFILE ?WS?XREC,S,RECORDS,3000,300 // LOAD JF0032 // SWITCH 00000101 OVRPRTF FILE(PRT) USRDTA('INVOICES') // PRINTER NAME-PRT,FORMSNO-INVC // FILE NAME-XINVC,LABEL-?WS?XINVC // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-MISCUS,LABEL-?L'100,2'?MISCUS,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-PRCTAB,LABEL-?L'100,2'?PRCTAB,DISP-SHR // FILE NAME-BSEHSE,LABEL-?L'100,2'?BSEHSE,DISP-SHR // FILE NAME-HOUSE,LABEL-?L'100,2'?HOUSE,DISP-SHR // FILE NAME-MESAGE,LABEL-?L'100,2'?MESAGE,DISP-SHR // FILE NAME-XHINV,LABEL-?WS?XHINV // FILE NAME-XREC,LABEL-?WS?XREC // RUN // CEND // COPY LIBRARY-P,NAME-JF1323,RECL-096,DATE-11/01/14,TIME-0846 // LOAD JF0032 // SWITCH 00000001 OVRPRTF FILE(PRT) USRDTA('INVOICES') // PRINTER NAME-PRT,FORMSNO-INVC // FILE NAME-XINVC,LABEL-?WS?XINVC // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-MISCUS,LABEL-?L'100,2'?MISCUS,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-PRCTAB,LABEL-?L'100,2'?PRCTAB,DISP-SHR // FILE NAME-BSEHSE,LABEL-?L'100,2'?BSEHSE,DISP-SHR // FILE NAME-HOUSE,LABEL-?L'100,2'?HOUSE,DISP-SHR // FILE NAME-MESAGE,LABEL-?L'100,2'?MESAGE,DISP-SHR // FILE NAME-XHINV,LABEL-?WS?XHINV // FILE NAME-XREC,LABEL-?WS?XREC // RUN // CEND // COPY LIBRARY-P,NAME-JF1324,RECL-120,DATE-11/08/10,TIME-2036 // LOAD JF1325 // FILE NAME-RECEV,LABEL-?L'100,2'?RECEV,DISP-SHR // FILE NAME-XRECV1,LABEL-?WS?XRECV1,RECORDS-200000 // RUN // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XRECV1,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XRECV2,RECORDS-200000 // RUN HSORTR 6A 3X 300 I C 300NECD IAC 300NECV FNU 8 13 FDC 1 256 FDC 257 300 // END // LOAD JF1326 // FILE NAME-XRECV2,LABEL-?WS?XRECV2,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-PYMT,LABEL-?L'100,2'?PYMT,DISP-SHR // FILE NAME-UNCASH,LABEL-?L'100,2'?UNCASH,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF1327,RECL-096,DATE-11/10/25,TIME-0932 // LOAD JF1327 // FILE NAME-XINVC,LABEL-?WS?XINVC // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-RELSHT,LABEL-?L'100,2'?RELSHT,DISP-SHR // FILE NAME-XDLOAD,LABEL-?WS?XDLOAD,RECORDS-2000 // RUN // CEND // COPY LIBRARY-P,NAME-JF1328,RECL-096,DATE-11/10/25,TIME-0925 // LOAD JF1328 // FILE NAME-XINVC,LABEL-?WS?XINVC // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF1329,RECL-096,DATE-11/10/24,TIME-2008 // LOAD JF1329 // FILE NAME-XDLOAD,LABEL-?WS?XDLOAD,RETAIN-S // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-JF1330,DATE-11/12/13,TIME-1146 // * 'THE PENDING INVOICES ON THIS WORKSTATION' // * ' WILL BE SAVED FOR DELAYED UPDATE AT A LATER TIME' // * ' I.E. THEY WILL NOT BE ADDED TO A/R' // * ' NOR ADDED TO SALES' // * ' NOR REMOVED FROM INVENTORY' // * 'BE VERY CAREFUL BECAUSE:' // * ' NO DUPLICATE INVOICE CHECKING AGAINST THESE INVOICES' // * ' WILL BE DONE FOR SUBSEQUENT INVOICE RUNS' // * 'UNTIL THEY HAVE BEEN UPDATED' // * ' ' // * 'PRESS ENTER TO CONTINUE (AFTER READING ABOVE MESSAGE)' // IF ?R?='XYZZYX' GOTO BEGIN // TAG BEGIN ***** // IF DATAF1-XINVC01 GOTO ENIN01 RENAME ?WS?XINVC,XINVC01 RENAME ?WS?XREC,XREC01 RENAME ?WS?XHINV,XHINV01 // * ' ' // * 'INVOICES HAVE BEEN SAVED AS DELAYED INVOICE UPDATE# 1' // * ' ' // * 'PRESS ENTER TO RETURN TO MENU' // IF ?R?='XYZZYX' GOTO ENDINV // GOTO ENDINV // TAG ENIN01 ***** // IF DATAF1-XINVC02 GOTO ENIN02 RENAME ?WS?XINVC,XINVC02 RENAME ?WS?XREC,XREC02 RENAME ?WS?XHINV,XHINV02 // * ' ' // * 'INVOICES HAVE BEEN SAVED AS DELAYED INVOICE UPDATE# 2' // * 'PRESS ENTER TO RETURN TO MENU' // IF ?R?='XYZZYX' GOTO ENDINV // GOTO ENDINV // TAG ENIN02 ***** // IF DATAF1-XINVC03 GOTO ENIN03 RENAME ?WS?XINVC,XINVC03 RENAME ?WS?XREC,XREC03 RENAME ?WS?XHINV,XHINV03 // * ' ' // * 'INVOICES HAVE BEEN SAVED AS DELAYED INVOICE UPDATE# 3' // * 'PRESS ENTER TO RETURN TO MENU' // IF ?R?='XYZZYX' GOTO ENDINV // GOTO ENDINV // TAG ENIN03 ***** // IF DATAF1-XINVC04 GOTO ENIN04 RENAME ?WS?XINVC,XINVC04 RENAME ?WS?XREC,XREC04 RENAME ?WS?XHINV,XHINV04 // * ' ' // * 'INVOICES HAVE BEEN SAVED AS DELAYED INVOICE UPDATE# 4' // * 'PRESS ENTER TO RETURN TO MENU' // IF ?R?='XYZZYX' GOTO ENDINV // GOTO ENDINV // TAG ENIN04 ***** // IF DATAF1-XINVC05 GOTO ENIN05 RENAME ?WS?XINVC,XINVC05 RENAME ?WS?XREC,XREC05 RENAME ?WS?XHINV,XHINV05 // * ' ' // * 'INVOICES HAVE BEEN SAVED AS DELAYED INVOICE UPDATE# 5' // * 'PRESS ENTER TO RETURN TO MENU' // IF ?R?='XYZZYX' GOTO ENDINV // GOTO ENDINV // TAG ENIN05 ***** // IF DATAF1-XINVC06 GOTO ENIN06 RENAME ?WS?XINVC,XINVC06 RENAME ?WS?XREC,XREC06 RENAME ?WS?XHINV,XHINV06 // * ' ' // * 'INVOICES HAVE BEEN SAVED AS DELAYED INVOICE UPDATE# 6' // * ' ' // * 'PRESS ENTER TO RETURN TO MENU' // IF ?R?='XYZZYX' GOTO ENDINV // GOTO ENDINV // TAG ENIN06 ***** // IF DATAF1-XINVC07 GOTO ENIN07 RENAME ?WS?XINVC,XINVC07 RENAME ?WS?XREC,XREC07 RENAME ?WS?XHINV,XHINV07 // * ' ' // * 'INVOICES HAVE BEEN SAVED AS DELAYED INVOICE UPDATE# 7' // * 'PRESS ENTER TO RETURN TO MENU' // IF ?R?='XYZZYX' GOTO ENDINV // GOTO ENDINV // TAG ENIN07 ***** // IF DATAF1-XINVC08 GOTO ENIN08 RENAME ?WS?XINVC,XINVC08 RENAME ?WS?XREC,XREC08 RENAME ?WS?XHINV,XHINV08 // * ' ' // * 'INVOICES HAVE BEEN SAVED AS DELAYED INVOICE UPDATE# 8' // * 'PRESS ENTER TO RETURN TO MENU' // IF ?R?='XYZZYX' GOTO ENDINV // GOTO ENDINV // TAG ENIN08 ***** // IF DATAF1-XINVC09 GOTO ENIN09 RENAME ?WS?XINVC,XINVC09 RENAME ?WS?XREC,XREC09 RENAME ?WS?XHINV,XHINV09 // * ' ' // * 'INVOICES HAVE BEEN SAVED AS DELAYED INVOICE UPDATE# 9' // * 'PRESS ENTER TO RETURN TO MENU' // IF ?R?='XYZZYX' GOTO ENDINV // GOTO ENDINV // TAG ENIN09 ***** // IF DATAF1-XINVC10 GOTO ENIN10 RENAME ?WS?XINVC,XINVC10 RENAME ?WS?XREC,XREC10 RENAME ?WS?XHINV,XHINV10 // * ' ' // * 'INVOICES HAVE BEEN SAVED AS DELAYED INVOICE UPDATE# 10' // * 'PRESS ENTER TO RETURN TO MENU' // IF ?R?='XYZZYX' GOTO ENDINV // GOTO ENDINV // TAG ENIN10 ***** // * ' ' // * 'INVOICES CANNOT BE SAVED FOR LATER UPDATE' // * '(MAXIMUM OF 10 DELAYED UPDATES HAVE ALREADY BEEN SAVED)' // * 'PRESS ENTER TO RETURN TO MENU' // IF ?R?='XYZZYX' GOTO ENDINV ***** // TAG ENDINV // CEND // COPY LIBRARY-P,NAME-JF1331,DATE-11/12/13,TIME-1152 // * 'THIS PROCEDURE WILL UPDATE ALL INVOICES' // * ' BEING HELD FOR DELAYED UPDATING' // * ' ' // * 'TO DO SO THIS SESSION MUST NOT CONTAIN ANY PENDING INVOICES' // * ' THAT HAVE NOT BEEN UPDATED (EITHER NOW OR LATER)' // * ' ' // * 'PRESS ENTER TO CONTINUE OR X AND ENTER TO CANCEL' // * ' (AFTER READING ABOVE MESSAGE)' // IFF ?R?='X' GOTO BEGIN // * ' ' // * 'OPERATOR CHOSE TO CANCEL DELAYED INVOICE UPDATE' // * ' ' // * 'PRESS ENTER TO RETURN TO MENU' // IF ?R?='XYZZYX' GOTO END // GOTO END // TAG BEGIN ***** // IFF DATAF1-XINVC01 GOTO ENIN01 RENAME XINVC01,?WS?XINVC RENAME XREC01,?WS?XREC RENAME XHINV01,?WS?XHINV JF0224 // * 'FINISHED UPDATING DELAYED INVOICE RUN# 01' // * ' ' // * 'PRESS ENTER TO CONTINUE' // IF ?R?='XYZZYX' GOTO ENIN01 // TAG ENIN01 ***** // IFF DATAF1-XINVC02 GOTO ENIN02 RENAME XINVC02,?WS?XINVC RENAME XREC02,?WS?XREC RENAME XHINV02,?WS?XHINV JF0224 // * 'FINISHED UPDATING DELAYED INVOICE RUN# 02' // * ' ' // * 'PRESS ENTER TO CONTINUE' // IF ?R?='XYZZYX' GOTO ENIN02 // TAG ENIN02 ***** // IFF DATAF1-XINVC03 GOTO ENIN03 RENAME XINVC03,?WS?XINVC RENAME XREC03,?WS?XREC RENAME XHINV03,?WS?XHINV JF0224 // * 'FINISHED UPDATING DELAYED INVOICE RUN# 03' // * ' ' // * 'PRESS ENTER TO CONTINUE' // IF ?R?='XYZZYX' GOTO ENIN03 // TAG ENIN03 ***** // IFF DATAF1-XINVC04 GOTO ENIN04 RENAME XINVC04,?WS?XINVC RENAME XREC04,?WS?XREC RENAME XHINV04,?WS?XHINV JF0224 // * 'FINISHED UPDATING DELAYED INVOICE RUN# 04' // * ' ' // * 'PRESS ENTER TO CONTINUE' // IF ?R?='XYZZYX' GOTO ENIN04 // TAG ENIN04 ***** // IFF DATAF1-XINVC05 GOTO ENIN05 RENAME XINVC05,?WS?XINVC RENAME XREC05,?WS?XREC RENAME XHINV05,?WS?XHINV JF0224 // * 'FINISHED UPDATING DELAYED INVOICE RUN# 05' // * ' ' // * 'PRESS ENTER TO CONTINUE' // IF ?R?='XYZZYX' GOTO ENIN05 // TAG ENIN05 ***** // IFF DATAF1-XINVC06 GOTO ENIN06 RENAME XINVC06,?WS?XINVC RENAME XREC06,?WS?XREC RENAME XHINV06,?WS?XHINV JF0224 // * 'FINISHED UPDATING DELAYED INVOICE RUN# 06' // * ' ' // * 'PRESS ENTER TO CONTINUE' // IF ?R?='XYZZYX' GOTO ENIN06 // TAG ENIN06 ***** // IFF DATAF1-XINVC07 GOTO ENIN07 RENAME XINVC07,?WS?XINVC RENAME XREC07,?WS?XREC RENAME XHINV07,?WS?XHINV JF0224 // * 'FINISHED UPDATING DELAYED INVOICE RUN# 07' // * ' ' // * 'PRESS ENTER TO CONTINUE' // IF ?R?='XYZZYX' GOTO ENIN07 // TAG ENIN07 ***** // IFF DATAF1-XINVC08 GOTO ENIN08 RENAME XINVC08,?WS?XINVC RENAME XREC08,?WS?XREC RENAME XHINV08,?WS?XHINV JF0224 // * 'FINISHED UPDATING DELAYED INVOICE RUN# 08' // * ' ' // * 'PRESS ENTER TO CONTINUE' // IF ?R?='XYZZYX' GOTO ENIN08 // TAG ENIN08 ***** // IFF DATAF1-XINVC09 GOTO ENIN09 RENAME XINVC09,?WS?XINVC RENAME XREC09,?WS?XREC RENAME XHINV09,?WS?XHINV JF0224 // * 'FINISHED UPDATING DELAYED INVOICE RUN# 09' // * ' ' // * 'PRESS ENTER TO CONTINUE' // IF ?R?='XYZZYX' GOTO ENIN09 // TAG ENIN09 ***** // IFF DATAF1-XINVC10 GOTO ENIN10 RENAME XINVC10,?WS?XINVC RENAME XREC10,?WS?XREC RENAME XHINV10,?WS?XHINV JF0224 // * 'FINISHED UPDATING DELAYED INVOICE RUN# 10' // * ' ' // * 'PRESS ENTER TO CONTINUE' // IF ?R?='XYZZYX' GOTO ENIN10 // TAG ENIN10 ***** // * ' ' // * 'ALL DELAYED INVOICES HAVE BEEN UPDATED' // * ' ' // * 'PRESS ENTER TO RETURN TO MENU' // IF ?R?='XYZZYX' GOTO END // TAG END // CEND // COPY LIBRARY-P,NAME-JOHNCOPY,DATE-03/10/13,TIME-1237 LIBRLIBR JOFFE,TEST,SOURCE,JF0031 LIBRLIBR JOFFE,TEST,SOURCE,JF0032 LIBRLIBR JOFFE,TEST,SOURCE,JF0033 LIBRLIBR JOFFE,TEST,SOURCE,JF0035 LIBRLIBR JOFFE,TEST,SOURCE,JF0037 LIBRLIBR JOFFE,TEST,SOURCE,JF0042 LIBRLIBR JOFFE,TEST,SOURCE,JF0048 LIBRLIBR JOFFE,TEST,SOURCE,JF0065 LIBRLIBR JOFFE,TEST,SOURCE,JF0066 LIBRLIBR JOFFE,TEST,SOURCE,JF0080 LIBRLIBR JOFFE,TEST,SOURCE,JF0099 LIBRLIBR JOFFE,TEST,SOURCE,JF0133 LIBRLIBR JOFFE,TEST,SOURCE,JF0162 LIBRLIBR JOFFE,TEST,SOURCE,JF0164 LIBRLIBR JOFFE,TEST,SOURCE,JF0206 LIBRLIBR JOFFE,TEST,SOURCE,JF0452 LIBRLIBR JOFFE,TEST,SOURCE,JF0553 LIBRLIBR JOFFE,TEST,SOURCE,JF0616 LIBRLIBR JOFFE,TEST,SOURCE,JF0625 LIBRLIBR JOFFE,TEST,SOURCE,JF0626 LIBRLIBR JOFFE,TEST,SOURCE,JF0643 LIBRLIBR JOFFE,TEST,SOURCE,JF0646 LIBRLIBR JOFFE,TEST,SOURCE,JF0649 LIBRLIBR JOFFE,TEST,SOURCE,JF0667 LIBRLIBR JOFFE,TEST,SOURCE,JF0669 LIBRLIBR JOFFE,TEST,SOURCE,JF0678 LIBRLIBR JOFFE,TEST,SOURCE,JF0687 LIBRLIBR JOFFE,TEST,SOURCE,JF0690 LIBRLIBR JOFFE,TEST,SOURCE,JF0692 LIBRLIBR JOFFE,TEST,SOURCE,JF0694 LIBRLIBR JOFFE,TEST,SOURCE,JF0699 LIBRLIBR JOFFE,TEST,SOURCE,JF0717 LIBRLIBR JOFFE,TEST,SOURCE,JF0718 LIBRLIBR JOFFE,TEST,SOURCE,JF0723 LIBRLIBR JOFFE,TEST,SOURCE,JF0748 LIBRLIBR JOFFE,TEST,SOURCE,JF0752 LIBRLIBR JOFFE,TEST,SOURCE,JF0757 LIBRLIBR JOFFE,TEST,SOURCE,JF0761 LIBRLIBR JOFFE,TEST,SOURCE,JF0763 LIBRLIBR JOFFE,TEST,SOURCE,JF0773 LIBRLIBR JOFFE,TEST,SOURCE,JF0775 LIBRLIBR JOFFE,TEST,SOURCE,JF0776 LIBRLIBR JOFFE,TEST,SOURCE,JF0778 LIBRLIBR JOFFE,TEST,SOURCE,JF0873 LIBRLIBR JOFFE,TEST,SOURCE,JF0889 LIBRLIBR JOFFE,TEST,SOURCE,JF0894 LIBRLIBR JOFFE,TEST,SOURCE,JF0895 LIBRLIBR JOFFE,TEST,SOURCE,JF0896 LIBRLIBR JOFFE,TEST,SOURCE,JF0900 LIBRLIBR JOFFE,TEST,SOURCE,JF0921 LIBRLIBR JOFFE,TEST,SOURCE,JF0922 LIBRLIBR JOFFE,TEST,SOURCE,JF0961 LIBRLIBR JOFFE,TEST,SOURCE,JF0967 LIBRLIBR JOFFE,TEST,SOURCE,JF0968 LIBRLIBR JOFFE,TEST,SOURCE,JF1012 LIBRLIBR JOFFE,TEST,SOURCE,JF1013 LIBRLIBR JOFFE,TEST,SOURCE,JF1015 LIBRLIBR JOFFE,TEST,SOURCE,JF1017 LIBRLIBR JOFFE,TEST,SOURCE,JF1026 LIBRLIBR JOFFE,TEST,SOURCE,JF1027 LIBRLIBR JOFFE,TEST,SOURCE,JF1034 LIBRLIBR JOFFE,TEST,SOURCE,JF1043 LIBRLIBR JOFFE,TEST,SOURCE,JF1044 LIBRLIBR JOFFE,TEST,SOURCE,JF1046 LIBRLIBR JOFFE,TEST,SOURCE,JF1047 LIBRLIBR JOFFE,TEST,SOURCE,JF1048 LIBRLIBR JOFFE,TEST,SOURCE,JF1049 LIBRLIBR JOFFE,TEST,SOURCE,JF1050 LIBRLIBR JOFFE,TEST,SOURCE,JF1105 LIBRLIBR JOFFE,TEST,SOURCE,JF1111 LIBRLIBR JOFFE,TEST,SOURCE,JF1112 LIBRLIBR JOFFE,TEST,SOURCE,TST013 LIBRLIBR JOFFE,TEST,SOURCE,TST014 LIBRLIBR JOFFE,TEST,SOURCE,TST019 LIBRLIBR JOFFE,TEST,SOURCE,TST046 LIBRLIBR JOFFE,TEST,SOURCE,TST020 LIBRLIBR JOFFE,TEST,SOURCE,TST026 LIBRLIBR JOFFE,TEST,SOURCE,TST040 LIBRLIBR JOFFE,TEST,SOURCE,TST070 LIBRLIBR JOFFE,TEST,PROC,JF0098 LIBRLIBR JOFFE,TEST,PROC,JF0134 LIBRLIBR JOFFE,TEST,PROC,JF0192 LIBRLIBR JOFFE,TEST,PROC,JF0642 LIBRLIBR JOFFE,TEST,PROC,JF0666 LIBRLIBR JOFFE,TEST,PROC,JF0716 LIBRLIBR JOFFE,TEST,PROC,JF1025 LIBRLIBR JOFFE,TEST,PROC,JF1044 LIBRLIBR JOFFE,TEST,PROC,JF1045 LIBRLIBR JOFFE,TEST,PROC,JF0206 // CEND // COPY LIBRARY-P,NAME-JOHNRPG,DATE-08/02/14,TIME-1350 // TAG AGAIN1 *// * ' ' *// * 'PROGRAMS ARE FROM AND WILL BE COMPILED TO LIBRARY TEST' *// * 'COMPILE ON THE AS/400 OR IN A PC LATTICE ENVIRONMENT ?' NT ?' *// * 'ENTER: AS400' *// * ' OR PC' *// LOCAL OFFSET-1,DATA-'?R?',BLANK-5 *// IF ?L'1,5'?='AS400' GOTO AS400 *// IF ?L'1,2'?='PC' GOTO PC *// GOTO AGAIN1 ******************** // TAG AS400 RPGC TST241,TEST,NODSM,PRINT,NOXREF,0,NONEP,TEST,,,,NOHALT,REPLACE,LINK,NOOBJECT,,GEN,40,,NOMRO RPGC TST242,TEST,NODSM,PRINT,NOXREF,0,NONEP,TEST,,,,NOHALT,REPLACE,LINK,NOOBJECT,,GEN,40,,NOMRO RPGC TST243,TEST,NODSM,PRINT,NOXREF,0,NONEP,TEST,,,,NOHALT,REPLACE,LINK,NOOBJECT,,GEN,40,,NOMRO RPGC TST244,TEST,NODSM,PRINT,NOXREF,0,NONEP,TEST,,,,NOHALT,REPLACE,LINK,NOOBJECT,,GEN,40,,NOMRO *PGC TST225,TEST,NODSM,PRINT,NOXREF,0,NONEP,TEST,,,,NOHALT,REPLACE,LINK,NOOBJECT,,GEN,40,,NOMRO *PGC TST226,TEST,NODSM,PRINT,NOXREF,0,NONEP,TEST,,,,NOHALT,REPLACE,LINK,NOOBJECT,,GEN,40,,NOMRO *PGC TST228,TEST,NODSM,PRINT,NOXREF,0,NONEP,TEST,,,,NOHALT,REPLACE,LINK,NOOBJECT,,GEN,40,,NOMRO *PGC TST231,TEST,NODSM,PRINT,NOXREF,0,NONEP,TEST,,,,NOHALT,REPLACE,LINK,NOOBJECT,,GEN,40,,NOMRO *PGC TST232,TEST,NODSM,PRINT,NOXREF,0,NONEP,TEST,,,,NOHALT,REPLACE,LINK,NOOBJECT,,GEN,40,,NOMRO *PGC TST234,TEST,NODSM,PRINT,NOXREF,0,NONEP,TEST,,,,NOHALT,REPLACE,LINK,NOOBJECT,,GEN,40,,NOMRO *PGC TST239,TEST,NODSM,PRINT,NOXREF,0,NONEP,TEST,,,,NOHALT,REPLACE,LINK,NOOBJECT,,GEN,40,,NOMRO *PGC TST240,TEST,NODSM,PRINT,NOXREF,0,NONEP,TEST,,,,NOHALT,REPLACE,LINK,NOOBJECT,,GEN,40,,NOMRO // GOTO END // TAG PC RPGC TST093,C:\RPGSYS\JOF,,NOPRINT,,,,C:\RPGSYS\JOFSYS RPGC TST094,C:\RPGSYS\JOF,,NOPRINT,,,,C:\RPGSYS\JOFSYS RPGC TST095,C:\RPGSYS\JOF,,NOPRINT,,,,C:\RPGSYS\JOFSYS RPGC TST096,C:\RPGSYS\JOF,,NOPRINT,,,,C:\RPGSYS\JOFSYS // TAG END // CEND // COPY LIBRARY-P,NAME-JOHNSEU,DATE-03/10/26,TIME-2057 SEU JF0047,P SEU JF0098,P SEU JF0134,P SEU JF0192,P SEU JF0642,P SEU JF0666,P SEU JF0716,P SEU JF0737,P SEU JF0756,P SEU JF0805,P SEU JF0982,P SEU JF1025,P SEU JF1043,P SEU JF1044,P SEU JF1045,P SEU JF0206,P // CEND // COPY LIBRARY-P,NAME-JOHNXCPY,DATE-04/08/26,TIME-1209 LIBRLIBR JOFFE,JOFFE,PROC,JF0617,XF0617 LIBRLIBR JOFFE,JOFFE,PROC,JF0672,XF0672 LIBRLIBR JOFFE,JOFFE,PROC,JF0860,XF0860 LIBRLIBR JOFFE,JOFFE,SOURCE,JF0760,XF0760 LIBRLIBR JOFFE,JOFFE,SOURCE,JF0761,XF0761 LIBRLIBR JOFFE,JOFFE,SOURCE,JF0762,XF0762 LIBRLIBR JOFFE,JOFFE,SOURCE,JF0776,XF0776 LIBRLIBR JOFFE,JOFFE,SOURCE,JF0859,XF0859 LIBRLIBR JOFFE,JOFFE,SOURCE,JF0861,XF0861 LIBRLIBR JOFFE,JOFFE,SOURCE,JF0896,XF0896 LIBRLIBR JOFFE,JOFFE,SOURCE,JF1112,XF1112 // CEND // COPY LIBRARY-P,NAME-JOHN01,RECL-096,DATE-01/03/23,TIME-1225 ***** ***** THIS PROCEDURE COPIES MY S (JSFOR1) & R (JRFOR1-6) SEU SOURCE FORMATS ***** & ALL SOURCE PROGRAMS BEGINNING WITH JOHN (FROM LIBRARY SOURCE) ***** & ALL PROCEDURES BEGINNING WITH JOHN (FROM LIBRARY PENNY) ***** TO A DISKETTE FILE IN INTERCHANGE FORMAT NAMED JOHN. ***** THEN IT ERASES THE TEMPORARY DISK FILE JOHN. ***** ***** TO COPY THIS FILE BACK INTO A SYSTEM/34 OR /36 ENTER THIS COMMAND: ***** ***** TRANSFER JOHN ***** ***** AND THEN ENTER A TOLIBR COMMAND TO PUT THESE MODULES INTO A LIBRARY ***** // LOAD $MAINT // FILE NAME-JOHN,UNIT-F1,RECORDS-5000 // RUN // COPY FROM-SOURCE,TO-DISK,FILE-JOHN,NAME-JS.ALL,LIBRARY-S,RECL-96 // COPY FROM-SOURCE,TO-DISK,FILE-JOHN,NAME-JR.ALL,LIBRARY-S,ADD-YES // COPY FROM-SOURCE,TO-DISK,FILE-JOHN,NAME-JOHN.ALL,LIBRARY-S,ADD-YES // COPY FROM-PENNY,TO-DISK,FILE-JOHN,NAME-JOHN.ALL,LIBRARY-P,ADD-YES // END TRANSFER JOHN,F1,,IBMIRD,1 DELETE JOHN,F1 // CEND // COPY LIBRARY-P,NAME-JOHN02,RECL-096,DATE-01/03/23,TIME-1225 // LOAD JOHN02 // FILE NAME-XSOURCE // RUN // CEND // COPY LIBRARY-P,NAME-JOHN09,RECL-096,DATE-01/03/23,TIME-1225 // LOAD JOHN09 // SWITCH 00000000 // RUN // CEND // COPY LIBRARY-P,NAME-JOHN10,RECL-096,DATE-01/03/23,TIME-1225 // ATTR RELEASE-YES // LOAD JOHN10 // PRINTER NAME-REPORT,DEFER-NO,DEVICE-?1'P1'? // RUN // CEND // COPY LIBRARY-P,NAME-JOHN12,RECL-096,DATE-01/03/23,TIME-1225 // * 'LOCAL DATA AREA FOR THIS TERMINAL ?WS? - ENTER=RERUN, E=END' // * '001-060 123456789012345678901234567890123456789012345678901234567890' // * ' ?L'1,60'?' // * '061-120 123456789012345678901234567890123456789012345678901234567890' // * ' ?L'61,60'?' // * '121-180 123456789012345678901234567890123456789012345678901234567890' // * ' ?L'121,60'?' // * '181-240 123456789012345678901234567890123456789012345678901234567890' // * ' ?L'181,60'?' // * '241-300 123456789012345678901234567890123456789012345678901234567890' // * ' ?L'241,60'?' // * '301-360 123456789012345678901234567890123456789012345678901234567890' // * ' ?L'301,60'?' // * '361-420 123456789012345678901234567890123456789012345678901234567890' // * ' ?L'361,60'?' // * '421-480 123456789012345678901234567890123456789012345678901234567890' // * ' ?L'421,60'?' // * '481-512 12345678901234567890123456789012' // * ' ?L'481,32'?' // IFF ?R?='E' JOHN12 // CEND // COPY LIBRARY-P,NAME-JOHN13,RECL-096,DATE-01/03/23,TIME-1225 // LOAD JOHN13 // FILE NAME-LOTUS,RECORDS-50 // RUN LISTFILE LOTUS // CEND // COPY LIBRARY-P,NAME-JOHN17,RECL-096,DATE-01/03/23,TIME-1225 // * 'ENTER FILE NAME INCLUDING COMPANY CODE AND PERIOD' // LOCAL OFFSET-141,DATA-'?R?',BLANK-8 // * 'ENTER # OF RECORDS FOR NEW FILE' // LOCAL OFFSET-151,DATA-'?R?',BLANK-8 // * 'NOW RENAMING FILE ?L'141,8'? TO XXTEST' RENAME ?L'141,8'?,XXTEST // * 'NOW COPYING FILE XXTEST TO ?L'141,8'? WITH ?L'151,8'? RECORDS' COPYDATA XXTEST,,?L'141,8'?,RECORDS,?L'151,8'? // * 'NOW DELETING FILE XXTEST' DELETE XXTEST,F1 // CEND // COPY LIBRARY-P,NAME-JWM,RECL-096,DATE-08/03/12,TIME-0737 // * 'DO YOU WISH MONTHLY SALES ANALYSIS IN ORDER BY:' // * ' C = CUSTOMER NAME, CUSTOMER#' // * ' S = SALESMAN CODE, CUSTOMER NAME, CUSTOMER#' // LOCAL OFFSET-1,DATA-'?R?' ****// IF ?L'1,1'?='S' GOTO SALMAN // LOAD #GSORT // FILE NAME-INPUT,LABEL-?L'100,2'?RECEV,DISP-SHR // FILE NAME-OUTPUT,LABEL-?WS?XREC,RECORDS-600000 // RUN HSORTR 12A 3X 300 I C 181NECR IAC 300NECD IAC 300NECV FNU 8 13 FNU 18 19 FNU 14 17 FDC 1 256 FDC 257 300 // END // LOAD JF1049 // FILE NAME-XREC,LABEL-?WS?XREC,RETAIN-S // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-XRECSM,LABEL-?WS?XRECSM,RECORDS-600000 // RUN // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XRECSM,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XRECSS,RECORDS-300000 // RUN HSORTR 50A 3X 361 FNC 305 306 FNC 307 336 FNU 8 13 FNU 301 304 FNU 14 17 FDC 1 256 FDC 257 361 // END // LOAD JF1050 // FILE NAME-XRECSS,LABEL-?WS?XRECSS,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-SALMEN,LABEL-?L'100,2'?SALMEN,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-MIKEMATH,RECL-096,REF-000002,DATE-01/03/23,TIME-1225 // * ' ' // * 'DO YOU WISH REPRINTED INVOICES TO PRINT ON:' // * ' ' // * ' 1 - INVOICE FORMS' // * ' 2 - STOCK PAPER' // * ' ' // * 'PLEASE ENTER 1 OR 2 TO INDICATE YOUR CHOICE. THANK YOU.' // * ' ' // LOCAL OFFSET-1,DATA-'?R?' // LOAD JF0655 // FILE NAME-INVCE,LABEL-?L'100,2'?OINVCE,DISP-SHR // FILE NAME-XRINV,LABEL-?WS?XRINV,RECORDS-200000 // RUN // IF ?L'1,1'?='2' GOTO PAP // LOAD JF0656 // SWITCH 01000000 // PRINTER NAME-PRT,FORMSNO-RINV // FILE NAME-XRINV,LABEL-?WS?XRINV,RETAIN-S // RUN // GOTO END // TAG PAP // LOAD JF0657 // FILE NAME-XRINV,LABEL-?WS?XRINV,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // RUN // TAG END // CEND // COPY LIBRARY-P,NAME-TST001,RECL-120,DATE-04/06/01,TIME-1557 // IF DATAF1-XXXXLOAD DELETE XXXXLOAD,F1 // LOAD TST001 // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-XXXXLOAD,RECORDS-100000 // RUN // CEND // COPY LIBRARY-P,NAME-TST002,RECL-120,DATE-04/06/01,TIME-1557 // IF DATAF1-'XXXXLOAD' DELETE XXXXLOAD,F1 // LOAD TST002 // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-XXXXLOAD,RECORDS-10000 // RUN // CEND // COPY LIBRARY-P,NAME-TST003,RECL-120,DATE-04/06/01,TIME-1557 // IF DATAF1-XXXXHOUS DELETE XXXXHOUS,F1 // LOAD TST003 // FILE NAME-HOUSE,LABEL-?L'100,2'?HOUSE,DISP-SHR // FILE NAME-XXXXHOUS,RECORDS-400000 // RUN // CEND // COPY LIBRARY-P,NAME-TST004,RECL-120,DATE-06/06/09,TIME-0735 // IF DATAF1-XXXXHOUS DELETE XXXXHOUS,F1 // LOAD TST004 // FILE NAME-HOUSE,LABEL-JFHOUSE,DISP-SHR // FILE NAME-XXXXHOUS,RECORDS-250000 // RUN // CEND // COPY LIBRARY-P,NAME-TST005,RECL-120,DATE-06/02/22,TIME-1004 // IF DATAF1-XXXXPRCT DELETE XXXXPRCT,F1 // LOAD TST005 // FILE NAME-PRCTAB,LABEL-?L'100,2'?PRCTAB,DISP-SHR // FILE NAME-XXXXPRCT,RECORDS-250000,EXTEND-10000 // RUN // CEND // COPY LIBRARY-P,NAME-TST006,RECL-120,DATE-04/07/14,TIME-1036 // IF DATAF1-XXXXPOMS DELETE XXXXPOMS,F1 // LOAD TST006 // FILE NAME-POMST,LABEL-?L'100,2'?POMST,DISP-SHR // FILE NAME-XXXXPOMS,RECORDS-20000 // RUN // CEND // COPY LIBRARY-P,NAME-TST007,RECL-120,DATE-04/12/09,TIME-0832 // IF DATAF1-XXXXPROD DELETE XXXXPROD,F1 // LOAD TST007 // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-XXXXPROD,RECORDS-300000 // RUN // CEND // COPY LIBRARY-P,NAME-TST008,RECL-120,DATE-04/06/01,TIME-1557 // IF DATAF1-XXXXPROJ DELETE XXXXPROJ,F1 // LOAD TST008 // FILE NAME-PROJ,LABEL-?L'100,2'?PROJ,DISP-SHR // FILE NAME-XXXXPROJ,RECORDS-10000 // RUN // CEND // COPY LIBRARY-P,NAME-TST009,RECL-120,DATE-04/08/27,TIME-1130 // IF DATAF1-XXXXCNTR DELETE XXXXCNTR,F1 // LOAD TST009 // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-XXXXCNTR,RECORDS-5000 // RUN // CEND // COPY LIBRARY-P,NAME-TST010,RECL-120,DATE-06/02/03,TIME-1151 // IF DATAF1-XXXXINVC DELETE XXXXINVC,F1 // LOAD TST010 // FILE NAME-INVCE,LABEL-?L'100,2'?INVCE,DISP-SHR // FILE NAME-XXXXINVC,RECORDS-1000000 // RUN // CEND // COPY LIBRARY-P,NAME-TST011,RECL-120,DATE-05/02/28,TIME-1058 // IF DATAF1-XXXXINVE DELETE XXXXINVE,F1 // LOAD TST011 // FILE NAME-INVEN,LABEL-?L'100,2'?INVEN,DISP-SHR // FILE NAME-XXXXINVE,RECORDS-20000 // RUN // CEND // COPY LIBRARY-P,NAME-TST012,RECL-120,DATE-04/06/01,TIME-1557 // IF DATAF1-XXXXCUST DELETE XXXXCUST,F1 // LOAD TST012 // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-XXXXCUST,RECORDS-5000 // RUN // CEND // COPY LIBRARY-P,NAME-TST013,RECL-120,DATE-06/02/03,TIME-1153 // IF DATAF1-'XXXXINVC' DELETE XXXXINVC,F1 // LOAD TST013 // FILE NAME-INVCE,LABEL-?L'100,2'?INVCE,DISP-SHR // FILE NAME-XXXXINVC,RECORDS-10000 // RUN // CEND // COPY LIBRARY-P,NAME-TST014,RECL-120,DATE-06/01/16,TIME-0932 // IF DATAF1-XXXXOPAP DELETE XXXXOPAP,F1 // LOAD TST014 // FILE NAME-OPENAP,LABEL-?L'100,2'?OPENAP,DISP-SHR // FILE NAME-XXXXOPAP,RECORDS-60000 // RUN // CEND // COPY LIBRARY-P,NAME-TST019,RECL-120,DATE-04/06/01,TIME-1557 // IF DATAF1-XXXXRECV DELETE XXXXRECV,F1 // LOAD TST019 // FILE NAME-RECEV,LABEL-?L'100,2'?RECEV,DISP-SHR // FILE NAME-XXXXRECV,RECORDS-200000 // RUN // CEND // COPY LIBRARY-P,NAME-TST020,RECL-120,DATE-07/02/13,TIME-0850 // IF DATAF1-XXXXRECV DELETE XXXXRECV,F1 // LOAD TST020 // FILE NAME-RECEV,LABEL-?L'100,2'?RECEV,DISP-SHR // FILE NAME-XXXXRECV,RECORDS-200000 // RUN // CEND // COPY LIBRARY-P,NAME-TST022,RECL-120,DATE-04/06/01,TIME-1557 // IF DATAF1-XXXXPRDU DELETE XXXXPRDU,F1 // LOAD TST022 // FILE NAME-PRDUSG,LABEL-?L'100,2'?PRDUSG,DISP-SHR // FILE NAME-XXXXPRDU,RECORDS-2200000 // RUN // CEND // COPY LIBRARY-P,NAME-TST024,RECL-120,DATE-04/09/21,TIME-1503 // * 'THIS PROGRAM WILL COPY THE FILE INVCB FOR COMPANY ?L'100,2'?' // * 'TO THE REORGANIZED FILE NAMED XXXXINVB.' // * ' ' // * 'ANY EXISTING FILE XXXXINVB WILL FIRST BE DELETED.' // * ' ' // IF DATAF1-XXXXINVB DELETE XXXXINVB,F1 // LOAD TST024 // SWITCH 00000000 // FILE NAME-INVCB,LABEL-?L'100,2'?INVCB,DISP-SHR // FILE NAME-XXXXINVB,RECORDS-200000 // RUN // CEND // COPY LIBRARY-P,NAME-TST029,RECL-120,DATE-06/02/06,TIME-0928 // * 'THIS PROGRAM WILL COPY THE FILE INVCE FOR COMPANY ?L'100,2'?' // * 'TO THE REORGANIZED FILE NAMED XXXXINVC.' // * ' ' // * 'ANY EXISTING FILE XXXXINVC WILL FIRST BE DELETED.' // * ' ' // IF DATAF1-XXXXINVC DELETE XXXXINVC,F1 // LOCAL OFFSET-1,DATA-'?F'A,?L'100,2'?INVCE'?' // LOAD TST029 // SWITCH 10000000 // FILE NAME-INVCE,LABEL-?L'100,2'?INVCE,DISP-SHR // FILE NAME-XXXXINVC,RECORDS-5000000 // RUN // CEND // COPY LIBRARY-P,NAME-TST030,RECL-120,DATE-11/10/25,TIME-0730 // LOAD TST030 // FILE NAME-RELSHT,LABEL-?L'100,2'?RELSHT,DISP-SHR // FILE NAME-XXXXRELS,RECORDS-230000 // RUN // CEND // COPY LIBRARY-P,NAME-TST032,RECL-120,DATE-04/06/01,TIME-1557 // LOAD TEST32 // FILE NAME-INVCE,LABEL-JFINVCE,DISP-SHR // FILE NAME-XJOHN,RECORDS-5000 // RUN // CEND // COPY LIBRARY-P,NAME-TST033,RECL-120,DATE-04/06/01,TIME-1557 // LOAD TST033 // FILE NAME-INVCE,LABEL-JFINVCE,DISP-SHR // FILE NAME-NINVCE,LABEL-JFNINVCE,RECORDS-5000000,EXTEND-25000 // RUN // CEND // COPY LIBRARY-P,NAME-TST034,RECL-120,DATE-04/08/02,TIME-1245 // * 'THIS PROGRAM WILL CHANGE THE CHECK DATE IN FILES' // * 'CHKFLE, OPENAP' // * 'FOR COMPANY ?L'100,2'?' // * ' ' // * 'PLEASE ENTER PASSWORD TO CONTINUE' // IFF ?R?='JOFFEBUILDSBETTERHOUSES' GOTO END // * ' ' // LOAD TST034 // PRINTER NAME-PRT,HOLD-YES // FILE NAME-CHKFLE,LABEL-?L'100,2'?CHKFLE,DISP-SHR // FILE NAME-OPENAP,LABEL-?L'100,2'?OPENAP,DISP-SHR // RUN // TAG END // CEND // COPY LIBRARY-P,NAME-TST035,RECL-120,DATE-04/06/01,TIME-1557 // * 'THIS PROGRAM WILL ALLOW YOU TO MAKE CHANGES TO THE' // * 'GL TRANSACTION FILE GLTRAN FOR COMPANY ?L'100,2'?' // * ' ' // * 'PLEASE ENTER THE PASSWORD.' // IFF ?R?='JOFFEBUILDSBETTERHOUSES' GOTO END // * ' ' // LOAD TST035 // FILE NAME-GLTRAN,LABEL-?L'100,2'?GLTRAN,DISP-SHR // RUN // TAG END // CEND // COPY LIBRARY-P,NAME-TST036,RECL-120,DATE-04/06/01,TIME-1557 // * 'THIS PROGRAM WILL ALLOW YOU TO MAKE CHANGES TO THE' // * 'NEXT MONTH GL FILE NMGLEN FOR COMPANY ?L'100,2'?' // * ' ' // * 'PLEASE ENTER THE PASSWORD.' // IFF ?R?='JOFFEBUILDSBETTERHOUSES' GOTO END // * ' ' // LOAD TST036 // FILE NAME-NMGLEN,LABEL-?L'100,2'?NMGLEN,DISP-SHR // RUN // TAG END // CEND // COPY LIBRARY-P,NAME-TST037,RECL-120,DATE-06/03/17,TIME-1157 // * ' ' // * 'THIS PROCEDURE WILL ERASE ANY FILES FOR COMPANY ZZ' // * 'AND COPY FILES FROM COMPANY ?L'100,2'? TO COMPANY ZZ.' // * ' ' // * 'PRESS ENTER TO CONTINUE, X TO CANCEL' // * ' ' // IF ?R?='X' GOTO END // IF DATAF1-ZZARCHK DELETE ZZARCHK,F1 // IF DATAF1-ZZARCKBD DELETE ZZARCKBD,F1 // IF DATAF1-ZZASMTMP DELETE ZZASMTMP,F1 // IF DATAF1-ZZBILMAT DELETE ZZBILMAT,F1 // IF DATAF1-ZZBLMTTM DELETE ZZBLMTTM,F1 // IF DATAF1-ZZBSEHSE DELETE ZZBSEHSE,F1 // IF DATAF1-ZZCHGCS DELETE ZZCHGCS,F1 // IF DATAF1-ZZCHGHS DELETE ZZCHGHS,F1 // IF DATAF1-ZZCHKFLE DELETE ZZCHKFLE,F1 // IF DATAF1-ZZCNTRL DELETE ZZCNTRL,F1 // IF DATAF1-ZZCUSMAP DELETE ZZCUSMAP,F1 // IF DATAF1-ZZCUSMAS DELETE ZZCUSMAS,F1 // IF DATAF1-ZZDELHS DELETE ZZDELHS,F1 // IF DATAF1-ZZDEPT DELETE ZZDEPT,F1 // IF DATAF1-ZZDPINV DELETE ZZDPINV,F1 // IF DATAF1-ZZEMPLYE DELETE ZZEMPLYE,F1 // IF DATAF1-ZZGLFILE DELETE ZZGLFILE,F1 // IF DATAF1-ZZGLPMT DELETE ZZGLPMT,F1 // IF DATAF1-ZZGLTRAN DELETE ZZGLTRAN,F1 // IF DATAF1-ZZHCRED DELETE ZZHCRED,F1 // IF DATAF1-ZZHOUEST DELETE ZZHOUEST,F1 // IF DATAF1-ZZHOUOLD DELETE ZZHOUOLD,F1 // IF DATAF1-ZZHOUSE DELETE ZZHOUSE,F1 // IF DATAF1-ZZHSECHG DELETE ZZHSECHG,F1 // IF DATAF1-ZZINVACC DELETE ZZINVACC,F1 // IF DATAF1-ZZINVCB DELETE ZZINVCB,F1 // IF DATAF1-ZZINVCE DELETE ZZINVCE,F1 // IF DATAF1-ZZINVEN DELETE ZZINVEN,F1 // IF DATAF1-ZZINVNOT DELETE ZZINVNOT,F1 // IF DATAF1-ZZJRDESC DELETE ZZJRDESC,F1 // IF DATAF1-ZZLABEL DELETE ZZLABEL,F1 // IF DATAF1-ZZLOAD DELETE ZZLOAD,F1 // IF DATAF1-ZZMESAGE DELETE ZZMESAGE,F1 // IF DATAF1-ZZMISCUS DELETE ZZMISCUS,F1 // IF DATAF1-ZZMLOAD DELETE ZZMLOAD,F1 // IF DATAF1-ZZMOVLOD DELETE ZZMOVLOD,F1 // IF DATAF1-ZZNHOUS DELETE ZZNHOUS,F1 // IF DATAF1-ZZNJUAF DELETE ZZNJUAF,F1 // IF DATAF1-ZZNMGLEN DELETE ZZNMGLEN,F1 // IF DATAF1-ZZNPRCTA DELETE ZZNPRCTA,F1 // IF DATAF1-ZZOPENAP DELETE ZZOPENAP,F1 // IF DATAF1-ZZPAYRL DELETE ZZPAYRL,F1 // IF DATAF1-ZZPGLFIL DELETE ZZPGLFIL,F1 // IF DATAF1-ZZPODOL DELETE ZZPODOL,F1 // IF DATAF1-ZZPOMST DELETE ZZPOMST,F1 // IF DATAF1-ZZPOREC DELETE ZZPOREC,F1 // IF DATAF1-ZZPRCTAB DELETE ZZPRCTAB,F1 // IF DATAF1-ZZPRDREC DELETE ZZPRDREC,F1 // IF DATAF1-ZZPRDUSG DELETE ZZPRDUSG,F1 // IF DATAF1-ZZPROD DELETE ZZPROD,F1 // IF DATAF1-ZZPROJ DELETE ZZPROJ,F1 // IF DATAF1-ZZPYMT DELETE ZZPYMT,F1 // IF DATAF1-ZZPYMTBD DELETE ZZPYMTBD,F1 // IF DATAF1-ZZPYUN DELETE ZZPYUN,F1 // IF DATAF1-ZZPYUNBD DELETE ZZPYUNBD,F1 // IF DATAF1-ZZRCBDA1 DELETE ZZRCBDA1,F1 // IF DATAF1-ZZRECBD DELETE ZZRECBD,F1 // IF DATAF1-ZZRECAL1 DELETE ZZRECAL1,F1 // IF DATAF1-ZZRECEV DELETE ZZRECEV,F1 // IF DATAF1-ZZRELSH1 DELETE ZZRELSH1,F1 // IF DATAF1-ZZRELSHT DELETE ZZRELSHT,F1 // IF DATAF1-ZZSALMEN DELETE ZZSALMEN,F1 // IF DATAF1-ZZUNCASH DELETE ZZUNCASH,F1 // IF DATAF1-ZZUNCSBD DELETE ZZUNCSBD,F1 // IF DATAF1-ZZVENDOR DELETE ZZVENDOR,F1 // IF DATAF1-ZZYPAYRL DELETE ZZYPAYRL,F1 // * ' ' // * 'THE FILES WILL NOW BE COPIED FROM' // * 'COMPANY ?L'100,2'? TO COMPANY ZZ.' // * ' ' // * 'PRESS ENTER TO CONTINUE, X TO CANCEL' // * ' ' // IF ?R?='X' GOTO END COPYDATA ?L'100,2'?ARCHK,,ZZARCHK COPYDATA ?L'100,2'?ARCKBD,,ZZARCKBD COPYDATA ?L'100,2'?ASMTMP,,ZZASMTMP COPYDATA ?L'100,2'?BILMAT,,ZZBILMAT COPYDATA ?L'100,2'?BLMTTM,,ZZBLMTTM COPYDATA ?L'100,2'?BSEHSE,,ZZBSEHSE COPYDATA ?L'100,2'?CHGCS,,ZZCHGCS COPYDATA ?L'100,2'?CHGHS,,ZZCHGHS COPYDATA ?L'100,2'?CHKFLE,,ZZCHKFLE COPYDATA ?L'100,2'?CNTRL,,ZZCNTRL COPYDATA ?L'100,2'?CUSMAP,,ZZCUSMAP COPYDATA ?L'100,2'?CUSMAS,,ZZCUSMAS // IF DATAF1-?L'100,2'?DELHS COPYDATA ?L'100,2'?DELHS,,ZZDELHS COPYDATA ?L'100,2'?DEPT,,ZZDEPT COPYDATA ?L'100,2'?DPINV,,ZZDPINV COPYDATA ?L'100,2'?EMPLYE,,ZZEMPLYE COPYDATA ?L'100,2'?GLFILE,,ZZGLFILE COPYDATA ?L'100,2'?GLPMT,,ZZGLPMT COPYDATA ?L'100,2'?GLTRAN,,ZZGLTRAN COPYDATA ?L'100,2'?HCRED,,ZZHCRED COPYDATA ?L'100,2'?HOUEST,,ZZHOUEST COPYDATA ?L'100,2'?HOUOLD,,ZZHOUOLD COPYDATA ?L'100,2'?HOUSE,,ZZHOUSE COPYDATA ?L'100,2'?HSECHG,,ZZHSECHG COPYDATA ?L'100,2'?INVACC,,ZZINVACC COPYDATA ?L'100,2'?INVCB,,ZZINVCB *****COPYDATA ?L'100,2'?INVCE,,ZZINVCE,,,,,,,,,,,50000 COPYDATA ?L'100,2'?INVCE,,ZZINVCE COPYDATA ?L'100,2'?INVEN,,ZZINVEN COPYDATA ?L'100,2'?INVNOT,,ZZINVNOT COPYDATA ?L'100,2'?JRDESC,,ZZJRDESC COPYDATA ?L'100,2'?LABEL,,ZZLABEL COPYDATA ?L'100,2'?LOAD,,ZZLOAD COPYDATA ?L'100,2'?MESAGE,,ZZMESAGE COPYDATA ?L'100,2'?MISCUS,,ZZMISCUS COPYDATA ?L'100,2'?MLOAD,,ZZMLOAD COPYDATA ?L'100,2'?MOVLOD,,ZZMOVLOD COPYDATA ?L'100,2'?NHOUS,,ZZNHOUS COPYDATA ?L'100,2'?NJUAF,,ZZNJUAF COPYDATA ?L'100,2'?NMGLEN,,ZZNMGLEN COPYDATA ?L'100,2'?NPRCTA,,ZZNPRCTA COPYDATA ?L'100,2'?OPENAP,,ZZOPENAP COPYDATA ?L'100,2'?PAYRL,,ZZPAYRL COPYDATA ?L'100,2'?PODOL,,ZZPODOL COPYDATA ?L'100,2'?POMST,,ZZPOMST COPYDATA ?L'100,2'?POREC,,ZZPOREC COPYDATA ?L'100,2'?PRCTAB,,ZZPRCTAB COPYDATA ?L'100,2'?PRDREC,,ZZPRDREC COPYDATA ?L'100,2'?PRDUSG,,ZZPRDUSG COPYDATA ?L'100,2'?PROD,,ZZPROD COPYDATA ?L'100,2'?PROJ,,ZZPROJ COPYDATA ?L'100,2'?PYMT,,ZZPYMT COPYDATA ?L'100,2'?PYMTBD,,ZZPYMTBD COPYDATA ?L'100,2'?PYUN,,ZZPYUN COPYDATA ?L'100,2'?PYUNBD,,ZZPYUNBD COPYDATA ?L'100,2'?RECBD,,ZZRECBD COPYDATA ?L'100,2'?RECEV,,ZZRECEV COPYDATA ?L'100,2'?RELSHT,,ZZRELSHT COPYDATA ?L'100,2'?SALMEN,,ZZSALMEN COPYDATA ?L'100,2'?UNCASH,,ZZUNCASH COPYDATA ?L'100,2'?UNCSBD,,ZZUNCSBD COPYDATA ?L'100,2'?VENDOR,,ZZVENDOR COPYDATA ?L'100,2'?YPAYRL,,ZZYPAYRL BLDINDEX ZZRCBDA1,8,4,ZZRECBD,,,,2,6 BLDINDEX ZZRECAL1,8,4,ZZRECEV,,,,2,6 BLDINDEX ZZRELSH1,1,39,ZZRELSHT // TAG END // CEND // COPY LIBRARY-P,NAME-TST038,RECL-120,DATE-04/06/01,TIME-1557 // LOAD TEST38 // FILE NAME-PYMT,LABEL-?L'100,2'?PYMT,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-TST039,RECL-120,DATE-04/06/01,TIME-1557 // * ' ' // * 'THIS PROGRAM WILL REMOVE DELETED RECORDS AND RENUMBER RECORDS' // * 'FOR THE FILE CUSMAP FOR CUSTOMER ?L'100,2'?' // * 'THE ORIGINAL FILE WILL BE SAVED WITH NAME ?L'100,2'?OCUSMP' // * ' ' // * 'ENTER PASSWORD TO CONTINUE' // IFF ?R?='JOFFEBUILDSBETTERHOUSES' GOTO END // RENAME ?L'100,2'?CUSMAP,?L'100,2'?OCUSMP // LOAD TEST39 // FILE NAME-OCUSMP,LABEL-?L'100,2'?OCUSMP // FILE NAME-CUSMAP,LABEL-?L'100,2'?CUSMAP,RECORDS-18000,EXTEND-2000 // RUN // TAG END // CEND // COPY LIBRARY-P,NAME-TST040,RECL-120,DATE-06/01/19,TIME-1131 // * 'THIS PROGRAM WILL ALLOW YOU TO MAKE CHANGES TO THE A/R FILE RECEV' // * 'FOR COMPANY ?L'100,2'?' // * ' ' // * 'PLEASE ENTER THE PASSWORD.' // IFF ?R?='JOFFEBUILDSBETTERHOUSES' GOTO END // * ' ' // LOAD TST040 // PRINTER NAME-PRT,HOLD-YES // FILE NAME-RECEV,LABEL-?L'100,2'?RECEV,DISP-SHR // RUN // TAG END // CEND // COPY LIBRARY-P,NAME-TST042,RECL-120,DATE-04/06/01,TIME-1557 // * ' ' // * 'THIS WILL REORGANIZE BY DATE THE INVCB FILE FOR COMPANY ?L'100,2'?' // * 'IF THIS IS OK PLEASE ENTER PASSWORD' // IFF ?R?='JOFFEBUILDSBETTERHOUSES' GOTO END // LOAD TEST42 // FILE NAME-INVCB,LABEL-?L'100,2'?INVCB // FILE NAME-XINVCB,LABEL-?WS?XINVCB,RECORDS-200000 // RUN // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XINVCB,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XINVCS,RECORDS-200000 // RUN HSORTR 36A 3X 54 FNC 1 27 FNU 51 54 FNU 38 41 FNC 31 FDC 1 54 // END RENAME ?L'100,2'?INVCB,?L'100,2'?OINVCB // LOAD TEST43 // FILE NAME-XINVCS,LABEL-?WS?XINVCS,RETAIN-S // FILE NAME-INVCB,LABEL-?L'100,2'?INVCB,RECORDS-200000,EXTEND-10000 // RUN // TAG END // CEND // COPY LIBRARY-P,NAME-TST044,RECL-120,DATE-04/06/01,TIME-1557 // * 'THIS PROGRAM WILL COPY THE FILE PYMT FOR COMPANY ?L'100,2'?' // * 'TO THE REORGANIZED FILE NAMED XXXXPYMT.' // * ' ' // * 'ANY EXISTING FILE XXXXPYMT WILL FIRST BE DELETED.' // * ' ' // PAUSE // IF DATAF1-XXXXPYMT DELETE XXXXPYMT,F1 // LOAD TEST29 // FILE NAME-PYMT,LABEL-?L'100,2'?PYMT,DISP-SHR // FILE NAME-XXXXPYMT,RECORDS-250000 // RUN // CEND // COPY LIBRARY-P,NAME-TST045,RECL-120,DATE-06/01/19,TIME-1130 // * 'THIS PROGRAM WILL ALLOW YOU TO MAKE CHANGES TO THE' // * 'A/R PAYMENT PYMT FOR COMPANY ?L'100,2'?' // * ' ' // * 'PLEASE ENTER THE PASSWORD.' // IFF ?R?='JOFFEBUILDSBETTERHOUSES' GOTO END // * ' ' // LOAD TST045 // PRINTER NAME-PRT,HOLD-YES // FILE NAME-PYMT,LABEL-?L'100,2'?PYMT,DISP-SHR // RUN // TAG END // CEND // COPY LIBRARY-P,NAME-TST046,RECL-120,DATE-04/09/30,TIME-1447 // * 'THIS PROGRAM WILL ALLOW YOU TO MAKE CHANGES TO THE A/R FILE RECEV' // * 'FOR COMPANY ?L'100,2'?' // * ' ' // * 'PLEASE ENTER THE PASSWORD.' // IFF ?R?='JOFFEBUILDSBETTERHOUSES' GOTO END // * ' ' // LOAD TST046 // SWITCH 10000000 // PRINTER NAME-PRT,HOLD-YES // FILE NAME-RECEV,LABEL-?L'100,2'?RECEV,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // RUN // TAG END // CEND // COPY LIBRARY-P,NAME-TST047,RECL-120,DATE-06/01/04,TIME-1319 // * 'THIS PROGRAM WILL ALLOW YOU TO MAKE CHANGES TO THE' // * 'GENERAL LEDGER CASH PAYMENT FILE GLPMT FOR COMPANY ?L'100,2'?' // * ' ' // * 'PLEASE ENTER THE PASSWORD.' // IFF ?R?='JOFFEBUILDSBETTERHOUSES' GOTO END // * ' ' // LOAD TST047 // SWITCH 10000000 // FILE NAME-GLPMT,LABEL-?L'100,2'?GLPMT,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // RUN // TAG END // CEND // COPY LIBRARY-P,NAME-TST048,RECL-120,DATE-04/09/30,TIME-1407 // * 'THIS PROGRAM WILL ALLOW YOU TO MAKE CHANGES TO THE' // * 'A/R PAYMENT FILE PYMT FOR COMPANY ?L'100,2'?' // * ' ' // * 'PLEASE ENTER THE PASSWORD.' // IFF ?R?='JOFFEBUILDSBETTERHOUSES' GOTO END // * ' ' // LOAD TST048 // SWITCH 10000000 // PRINTER NAME-PRT,HOLD-YES // FILE NAME-PYMT,LABEL-?L'100,2'?PYMT,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // RUN // TAG END // CEND // COPY LIBRARY-P,NAME-TST049,RECL-120,DATE-07/02/13,TIME-0914 // * 'THIS PROGRAM WILL ALLOW YOU TO MAKE CHANGES TO THE' // * 'UNAPPLIED CASH FILE UNCASH FOR COMPANY ?L'100,2'?' // * ' ' // * 'PLEASE ENTER THE PASSWORD.' // IFF ?R?='JOFFEBUILDSBETTERHOUSES' GOTO END // * ' ' // LOAD TST049 // SWITCH 10000000 // PRINTER NAME-PRT,FORMSNO-JOHN,HOLD-YES // FILE NAME-UNCASH,LABEL-?L'100,2'?UNCASH,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // RUN // TAG END // CEND // COPY LIBRARY-P,NAME-TST050,RECL-120,DATE-04/06/01,TIME-1557 // * 'THIS PROGRAM WILL ALLOW YOU TO MAKE CHANGES TO THE' // * 'DETAIL UNAPPLIED PAYMENT FILE PYUN FOR COMPANY ?L'100,2'?' // * ' ' // * 'PLEASE ENTER THE PASSWORD.' // IFF ?R?='JOFFEBUILDSBETTERHOUSES' GOTO END // * ' ' // LOAD TEST50 // SWITCH 10000000 // FILE NAME-PYUN,LABEL-?L'100,2'?PYUN,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // RUN // TAG END // CEND // COPY LIBRARY-P,NAME-TST051,RECL-120,DATE-04/06/01,TIME-1557 // * 'THIS PROGRAM WILL ALLOW YOU TO MAKE CHANGES TO THE' // * 'A/R CHECK FILE ARCHK FOR COMPANY ?L'100,2'?' // * ' ' // * 'PLEASE ENTER THE PASSWORD.' // IFF ?R?='JOFFEBUILDSBETTERHOUSES' GOTO END // * ' ' // LOAD TEST51 // SWITCH 10000000 // FILE NAME-ARCHK,LABEL-?L'100,2'?ARCHK,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // RUN // TAG END // CEND // COPY LIBRARY-P,NAME-TST052,RECL-120,DATE-04/06/01,TIME-1557 // LOAD TEST52 // FILE NAME-DEPT,LABEL-?L'100,2'?DEPT,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-TST054,RECL-120,DATE-04/06/01,TIME-1557 // * 'THIS PROGRAM WILL REMOVE ANY BLANK AND DELETED ITEMS' // * 'AND RESEQUENCE THE PO MASTER FILE POMST.' // * 'FOR COMPANY ?L'100,2'?' // * ' ' // * 'THE ORIGINAL FILE WILL BE LABELLED OPOMST.' // * ' ' // * 'PLEASE ENTER THE PASSWORD.' // IFF ?R?='JOFFEBUILDSBETTERHOUSES' GOTO END // * ' ' // IF DATAF1-JFOPOMST DELETE JFOPOMST,F1 RENAME JFPOMST,JFOPOMST // LOAD TEST54 // FILE NAME-OPOMST,LABEL-JFOPOMST // FILE NAME-POMST,LABEL-JFPOMST,RECORDS-5000,EXTEND-2000 // RUN // TAG END // CEND // COPY LIBRARY-P,NAME-TST055,RECL-120,DATE-04/06/01,TIME-1557 // * 'THIS PROGRAM WILL ALLOW YOU TO MAKE CHANGES TO THE SALES FIELDS' // * 'OF THE CUSTOMER FILE CUSMAS' // * 'FOR COMPANY ?L'100,2'?' // * ' ' // * 'PLEASE ENTER THE PASSWORD.' // IFF ?R?='JOFFEBUILDSBETTERHOUSES' GOTO END // * ' ' // LOAD TST055 // FILE NAME-CUSMAS,LABEL-JFCUSMAS,DISP-SHR // RUN // TAG END // CEND // COPY LIBRARY-P,NAME-TST057,RECL-096,DATE-04/06/01,TIME-1557 // LOAD TST057 // FILE NAME-SOURCE,LABEL-JOF // RUN // CEND // COPY LIBRARY-P,NAME-TST058,DATE-04/06/01,TIME-1557 // * 'DO YOU WISH TO START A NEW FILE OF BAR CODE INVENTORY ?' // * ' Y = YES' // * ' NO = NO (YOU WILL ADD TO THE ALREADY EXISTING FILE)' // IF ?R?='Y' GOTO BEGIN // IF DATAF1-'?WS?XBARFL' DELETE ?WS?XBARFL,F1 // TAG BEGIN // IFF DATAF1-'?WS?XBARFL' BLDFILE ?WS?XBARFL,S,R,20000,25 // LOAD TST058 // FILE NAME-XBARFL,LABEL-?WS?XBARFL,RECORDS-5000 // RUN // CEND // COPY LIBRARY-P,NAME-TST059,DATE-04/06/01,TIME-1557 // IF DATAF1-'XBAR59' DELETE XBAR59,F1 // LOAD TST059 // FILE NAME-XBAR59,RECORDS-500 // RUN // CEND // COPY LIBRARY-P,NAME-TST060,RECL-120,DATE-04/06/01,TIME-1557 // * ' ' // * 'THIS PROCEDURE WILL ERASE AND CREATE A NEW INVEN FILE WITH' // * 'ONLY STOCK INVENTORY FROM THE PRODUCT FILE.' // * 'FOR COMPANY ?L'100,2'?.' // * ' ' // * 'ENTER PASSWORD TO CONTINUE' // IFF ?R?='JOFFEBUILDSBETTERHOUSES' GOTO END DELETE ?L'100,2'?INVEN,F1 // LOAD TST060 // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-INVEN,LABEL-?L'100,2'?INVEN,RECORDS-20000 // RUN // TAG END // CEND // COPY LIBRARY-P,NAME-TST061,RECL-120,DATE-04/06/01,TIME-1557 // * 'THIS PROGRAM WILL ALLOW YOU TO MAKE CHANGES TO THE' // * 'A/P CHECK FILE CHKFLE AND OPEN A/P FILE OPENAP' // * 'FOR COMPANY ?L'100,2'?' // * ' ' // * 'PLEASE ENTER THE PASSWORD.' // IFF ?R?='JOFFEBUILDSBETTERHOUSES' GOTO END // * ' ' // LOAD TST061 // FILE NAME-CHKFLE,LABEL-?L'100,2'?CHKFLE,DISP-SHR // FILE NAME-OPENAP,LABEL-?L'100,2'?OPENAP,DISP-SHR // RUN // TAG END // CEND // COPY LIBRARY-P,NAME-TST062,RECL-096,DATE-04/06/01,TIME-1557 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?L'100,2'?POMST,DISP-SHR // FILE NAME-OUTPUT,LABEL-?WS?XPOMST,RECORDS-30000 // RUN HSORTRS 7A 3X 150 I C 150NECD FNC 36 42 FDC 1 42 FSU 43 47 FDC 48 61 FSU 62 66 FSU 67 71 FSU 72 76 FDC 77 150 // END COPYDATA ?WS?XPOMST,,?WS?XPOIND,,,,,,,,,,,,,36,7 DELETE ?WS?XPOMST,F1 // LOAD TST062 // FILE NAME-XPOIND,LABEL-?WS?XPOIND,RETAIN-S // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-TST063,RECL-096,DATE-04/06/01,TIME-1557 // * 'CHECK SWITCH (DETERMINES WHETHER TO UPDATE PROD FILE)' // PAUSE // LOAD TST063 // PRINTER NAME-PRT,HOLD-YES // SWITCH 00000000 // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-INVEN,LABEL-?L'100,2'?INVEN,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-TST064,DATE-04/06/01,TIME-1557 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-OUTPUT,LABEL-?WS?XPROD,RECORDS-50000 // RUN HSORTR 17A 3X 400 I C 11EQCI IAC 201 210NEC FNC 201 210 FNC 1 7 FDC 1 256 FDC 257 400 // END // LOAD TST064 // SWITCH 10000000 // FILE NAME-XPROD,LABEL-?WS?XPROD,RETAIN-S // RUN // LOAD #GSORT // FILE NAME-INPUT,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-OUTPUT,LABEL-?WS?XPROD,RECORDS-50000 // RUN HSORTR 17A 3X 400 I C 11EQCI IAC 201 210NEC FNC 201 210 FNC 1 7 FDC 1 256 FDC 257 400 // END // LOAD TST064 // SWITCH 01000000 // FILE NAME-XPROD,LABEL-?WS?XPROD,RETAIN-S // RUN // CEND // COPY LIBRARY-P,NAME-TST065,RECL-096,DATE-04/06/01,TIME-1557 // * 'THIS PROGRAM WILL CHANGE THE MINIMUM QUANTITIES' // * 'IN THE PRODUCT FILE PROD' // * 'FOR COMPANY ?L'100,2'?' // * ' ' // * 'PLEASE ENTER THE PASSWORD.' // IFF ?R?='JOFFEBUILDSBETTERHOUSES' GOTO END // * ' ' // LOAD TST065 // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // RUN // TAG END // CEND // COPY LIBRARY-P,NAME-TST067,DATE-04/06/01,TIME-1557 LIBRLIBR JOFFE,JOFFE,SOURCE,JF0032,XF0032 LIBRLIBR JOFFE,JOFFE,SOURCE,JF0895,XF0895 LIBRLIBR JOFFE,JOFFE,SOURCE,JF0033,XF0033 LIBRLIBR JOFFE,JOFFE,SOURCE,JF0656,XF0656 LIBRLIBR JOFFE,JOFFE,SOURCE,JF0657,XF0657 LIBRLIBR JOFFE,JOFFE,SOURCE,JF0667,XF0667 LIBRLIBR JOFFE,JOFFE,SOURCE,JF0669,XF0669 LIBRLIBR JOFFE,JOFFE,SOURCE,JF0815,XF0815 LIBRLIBR JOFFE,JOFFE,SOURCE,JF0664,XF0664 // CEND // COPY LIBRARY-P,NAME-TST068,RECL-120,DATE-04/06/01,TIME-1557 // * 'THIS WILL REORGANIZE THE INVEN FILE FOR COMPANY JF' // PAUSE RENAME JFINVEN,JFOINVEN // LOAD TST068 // FILE NAME-OINVEN,LABEL-JFOINVEN // FILE NAME-INVEN,LABEL-JFINVEN,RECORDS-10000,EXTEND-3000 // RUN // CEND // COPY LIBRARY-P,NAME-TST069,RECL-120,DATE-04/06/01,TIME-1557 // * 'THIS WILL REMOVE ANY INVENTYORY QUANTITIES ASSIGNED TO LOADS' // * 'NOT IN THE LOAD FILE FOR COMPANY ?L'100,2'?' // PAUSE // LOAD TST069 // FILE NAME-INVEN,LABEL-?L'100,2'?INVEN,DISP-SHR // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-TST070,RECL-120,DATE-04/06/01,TIME-1557 // * 'THIS PROGRAM WILL ALLOW YOU TO MAKE CHANGES TO THE' // * 'INVOICE HISTORY FILES INVCB & INVCE FOR COMPANY ?L'100,2'?' // * ' ' // * 'PLEASE ENTER THE PASSWORD.' // IFF ?R?='JOFFEBUILDSBETTERHOUSES' GOTO END // * ' ' // LOAD TST070 // FILE NAME-INVCB,LABEL-?L'100,2'?INVCB,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-RECEV,LABEL-?L'100,2'?RECEV,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-INVCE,LABEL-?L'100,2'?INVCE,DISP-SHR // FILE NAME-XINVCB,LABEL-?L'100,2'?XINVCB,RECORDS-200000 // RUN // TAG END // CEND // COPY LIBRARY-P,NAME-TST071,RECL-120,DATE-04/06/01,TIME-1557 // * 'THIS PROGRAM WILL ALLOW YOU TO MAKE CHANGES TO THE' // * 'GL CASH PAYMENT FILE GLPMT FOR COMPANY ?L'100,2'?' // * ' ' // * 'PLEASE ENTER THE PASSWORD.' // IFF ?R?='JOFFEBUILDSBETTERHOUSES' GOTO END // * ' ' // LOAD TST071 // FILE NAME-GLPMT,LABEL-?L'100,2'?GLPMT,DISP-SHR // RUN // TAG END // CEND // COPY LIBRARY-P,NAME-TST073,RECL-120,DATE-07/03/02,TIME-1933 // * 'THIS PROGRAM WILL ALLOW YOU TO MAKE CHANGES TO THE' // * 'UNAPPLIED PAYMENT FILE PYUN FOR COMPANY ?L'100,2'?' // * ' ' // * 'PLEASE ENTER THE PASSWORD.' // IFF ?R?='JOFFEBUILDSBETTERHOUSES' GOTO END // * ' ' // LOAD TST073 // PRINTER NAME-PRT,HOLD-YES // FILE NAME-PYUN,LABEL-?L'100,2'?PYUN,DISP-SHR // RUN // TAG END // CEND // COPY LIBRARY-P,NAME-TST074,RECL-120,DATE-04/06/01,TIME-1557 // * 'THIS PROGRAM WILL ALLOW YOU TO MAKE CHANGES TO THE' // * 'A/R CHECK FILE ARCHK FOR COMPANY ?L'100,2'?' // * ' ' // * 'PLEASE ENTER THE PASSWORD.' // IFF ?R?='JOFFEBUILDSBETTERHOUSES' GOTO END // * ' ' // LOAD TST074 // FILE NAME-ARCHK,LABEL-?L'100,2'?ARCHK,DISP-SHR // RUN // TAG END // CEND // COPY LIBRARY-P,NAME-TST075,DATE-04/06/01,TIME-1557 // LOAD TST075 // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-TST076,DATE-04/06/01,TIME-1557 // * 'YOU WILL BE CHANGING THE LOAD FILE' // * ' ' // * 'PLEASE ENTER THE PASSWORD.' // IFF ?R?='JOFFEBUILDSBETTERHOUSES' GOTO END // * ' ' // LOAD TST076 // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // RUN // TAG END // CEND // COPY LIBRARY-P,NAME-TST077,DATE-04/06/01,TIME-1557 // LOAD TST077 // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-TST078,DATE-04/06/01,TIME-1557 // * 'YOU WILL BE CHANGING THE NMGLEN AND GLFILE FILES' // * ' ' // * 'PLEASE ENTER THE PASSWORD.' // IFF ?R?='JOFFEBUILDSBETTERHOUSES' GOTO END // * ' ' // LOAD TST078 // FILE NAME-NMGLEN,LABEL-?L'100,2'?NMGLEN,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-GLFILE,LABEL-?L'100,2'?GLFILE,DISP-SHR // RUN // TAG END // CEND // COPY LIBRARY-P,NAME-TST079,RECL-120,DATE-04/06/01,TIME-1557 // * 'THIS PROGRAM WILL LIST ALL INVOICES THAT ARE IN' // * 'FILE RECEV BUT NOT IN FILES INVCB OR INVCE' // * '***********************************************' // * 'IF SWITCH 1 IS SET TO 1 THESE INVOICES WILL BE ADDED' // * 'TO FILE INVCB (BUT NOT FILE INVCE)' // * '----------' ***// * 'SWITCH 1 IS SET TO 1 TO ADD INVOICES TO INVCB' // * 'SWITCH 1 IS SET TO 0 TO NOT ADD INVOICES TO INVCB' // * '***********************************************' // * ' ' // * 'PLEASE ENTER PASSWORD TO CONTINUE' ***// IFF ?R?='JOFFEBUILDSBETTERHOUSES' GOTO END // * ' ' // LOAD TST079 // SWITCH 10000000 // PRINTER NAME-PRT,HOLD-YES // FILE NAME-RECEV,LABEL-?L'100,2'?RECEV,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-INVCE,LABEL-?L'100,2'?INVCE,DISP-SHR // FILE NAME-INVCB,LABEL-?L'100,2'?INVCB,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // RUN // TAG END // CEND // COPY LIBRARY-P,NAME-TST080,RECL-120,DATE-07/09/11,TIME-0657 // * 'THIS PROGRAM WILL CHANGE INVOICE DATES IN FILES' // * 'RECEV, RELSHT, INVCE, INVCB' // * 'FOR COMPANY ?L'100,2'?' // * ' ' // * 'PLEASE ENTER PASSWORD TO CONTINUE' // IFF ?R?='JOFFEBUILDSBETTERHOUSES' GOTO END // * ' ' // LOAD TST080 // PRINTER NAME-PRT,HOLD-YES // FILE NAME-RECEV,LABEL-?L'100,2'?RECEV,DISP-SHR // FILE NAME-RELSHT,LABEL-?L'100,2'?RELSHT,DISP-SHR // FILE NAME-INVCE,LABEL-?L'100,2'?INVCE,DISP-SHR // FILE NAME-INVCB,LABEL-?L'100,2'?INVCB,DISP-SHR // RUN // TAG END // CEND // COPY LIBRARY-P,NAME-TST081,RECL-120,DATE-07/03/07,TIME-0742 // * 'THIS PROGRAM WILL REMOVE INVOICES FROM THE A/R FILE RECEV' // * 'FOR COMPANY ?L'100,2'?' // * ' ' // * 'THESE INVOICES ARE CODED IN THE PROGRAM' // * 'THE ORIGINAL FILE WILL BE LABELLED ?L'100,2'?ZRECEV' // * ' ' // * 'PLEASE ENTER PASSWORD TO CONTINUE.' // IFF ?R?='JOFFEBUILDSBETTERHOUSES' GOTO END // * ' ' RENAME ?L'100,2'?RECEV,?L'100,2'?ZRECEV // LOAD TST081 // PRINTER NAME-PRT,HOLD-YES // FILE NAME-ZRECEV,LABEL-?L'100,2'?ZRECEV // FILE NAME-RECEV,LABEL-?L'100,2'?RECEV,RECORDS-450000,EXTEND-5000 // RUN // TAG END // CEND // COPY LIBRARY-P,NAME-TST082,RECL-120,DATE-04/06/01,TIME-1557 // * 'THIS PROGRAM WILL REMOVE RECORDS (BY LOAD#) FROM THE' // * 'ITEM PRODUCT FILE PRDUSG FOR COMPANY ?L'100,2'?' // * ' ' // * 'THESE LOADS ARE CODED IN THE PROGRAM' // * 'THE ORIGINAL FILE WILL BE LABELLED ?L'100,2'?ZPRDUS' // * ' ' // * 'PLEASE ENTER PASSWORD TO CONTINUE.' ***// IFF ?R?='JOFFEBUILDSBETTERHOUSES' GOTO END // * ' ' RENAME ?L'100,2'?PRDUSG,?L'100,2'?ZPRDUS // LOAD TST082 // PRINTER NAME-PRT,HOLD-YES // FILE NAME-ZPRDUS,LABEL-?L'100,2'?ZPRDUS // FILE NAME-PRDUSG,LABEL-?L'100,2'?PRDUSG,RECORDS-2200000,EXTEND-10000 // RUN // TAG END // CEND // COPY LIBRARY-P,NAME-TST084,RECL-120,DATE-04/06/01,TIME-1557 // * 'THIS PROGRAM WILL CNAHGE QTYS INVOICED IN FILE LOAD' // * 'FOR COMPANY ?L'100,2'?' // * ' ' // * 'PLEASE ENTER PASSWORD TO CONTINUE.' // IFF ?R?='JOFFEBUILDSBETTERHOUSES' GOTO END // * ' ' // LOAD TST084 // PRINTER NAME-PRT,HOLD-YES // FILE NAME-INVCE,LABEL-?L'100,2'?INVCE,DISP-SHR // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // RUN // TAG END // CEND // COPY LIBRARY-P,NAME-TST086,RECL-120,DATE-04/06/01,TIME-1557 // * 'THIS PROGRAM WILL COPY DISCOUNT FROM TOTAL RECORD' // * 'AND ADD IT TO 005 RECORD OF INVOICE FILE' // * 'FOR COMPANY ?L'100,2'?' // * ' ' // * 'PLEASE ENTER PASSWORD TO CONTINUE.' ***// IFF ?R?='JOFFEBUILDSBETTERHOUSES' GOTO END // * ' ' // LOAD TST086 // FILE NAME-INVCE,LABEL-?L'100,2'?INVCE,DISP-SHR // FILE NAME-INVCE2,LABEL-?L'100,2'?INVCE,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-TST087,RECL-120,DATE-04/06/01,TIME-1557 *// * 'THIS PROGRAM WILL ZERO OUT DISCOUNT IN 005 RECORD' *// * 'OF INVOICE FILE FOR COMPANY ?L'100,2'?' *// * ' ' *// * 'PLEASE ENTER PASSWORD TO CONTINUE.' *// IFF ?R?='JOFFEBUILDSBETTERHOUSES' GOTO END *// * ' ' // LOAD TST087 // FILE NAME-INVCE,LABEL-?L'100,2'?INVCE,DISP-SHR // RUN // TAG END // CEND // COPY LIBRARY-P,NAME-TST088,RECL-120,DATE-04/06/01,TIME-1557 // LOAD TST088 // PRINTER NAME-PRT,HOLD-YES // FILE NAME-INVCE,LABEL-?L'100,2'?INVCE,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-TST089,RECL-120,DATE-04/06/01,TIME-1557 // LOAD TST089 // PRINTER NAME-PRT,HOLD-YES // FILE NAME-PRDUSG,LABEL-?L'100,2'?PRDUSG,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-TST091,RECL-120,DATE-08/01/30,TIME-1219 // IF DATAF1-X?L'100,2'?RECEV DELETE X?L'100,2'?RECEV,F1 // LOAD TST091 // FILE NAME-RECEV,LABEL-?L'100,2'?RECEV,DISP-SHR // FILE NAME-XRECEV,LABEL-X?L'100,2'?RECEV,RECORDS-500000 // RUN // CEND // COPY LIBRARY-P,NAME-TST092,RECL-120,DATE-04/06/01,TIME-1557 // * ' ' // * 'THIS PROCEDURE WILL ERASE THE A/R INVOICE FILE (RECEV) AND RECREATE IT' // * 'FROM THE SEQUENTIAL UNPACKED FILE X?L'100,2'?RECEV' // * ' PC: IN DIRECTORY C:\RPGSYS\JOFSYS\FILES400' // * ' AS/400: ON AS/400 HARD DISK' // * 'ALTERNATE INDEX FILE RECAL1 WILL ALSO BE CREATED' // * ' ' // * 'THE ORIGINAL FILE WILL BE RENAMED AS XX?L'100,2'?RECV' ***// * ' ' ***// * 'PLEASE ENTER THE PASSWORD.' ***// IFF ?R?='JOFFEBUILDSBETTERHOUSES' GOTO END // TAG AGAIN1 // * ' ' // * 'WILL THIS FILE BE CREATED ON THE AS/400 OR IN A PC LATTICE ENVIRONMENT ?' // * 'ENTER: AS400' // * ' OR PC' // LOCAL OFFSET-1,DATA-'?R?',BLANK-5 // IF ?L'1,5'?='AS400' GOTO AS400 // IF ?L'1,2'?='PC' GOTO PC // GOTO AGAIN1 ******************** // TAG AS400 // IF DATAF1-?L'100,2'?RECAL1 DELETE ?L'100,2'?RECAL1,F1 // IF DATAF1-XX?L'100,2'?RECV DELETE XX?L'100,2'?RECV,F1 // IF DATAF1-?L'100,2'?RECEV RENAME ?L'100,2'?RECEV,XX?L'100,2'?RECV // * ' ' // * 'RUNNING PROGRAM TST092 TO CREATE NEW A/R INVOICE FILE ?L'100,2'?RECEV' // LOAD TST092 // FILE NAME-XRECEV,LABEL-X?L'100,2'?RECEV // FILE NAME-RECEV,LABEL-?L'100,2'?RECEV,RECORDS-350000,EXTEND-5000 // RUN DELETE X?L'100,2'?RECEV,F1 BLDINDEX ?L'100,3'?RECAL1,8,4,?L'100,2'?RECEV,,,,2,6 // GOTO END ******************** // TAG PC // IF DATAF1-?L'100,2'?RECAL1 DELETE ?L'100,2'?RECAL1,F1 // IF DATAF1-XX?L'100,2'?RECV DELETE XX?L'100,2'?RECV,F1 // IF DATAF1-?L'100,2'?RECEV RENAME ?L'100,2'?RECEV,XX?L'100,2'?RECV PORT N,C:\RPGSYS\JOFSYS\FILES400\X?L'100,2'?RECEV.DAT+ ,C:\RPGSYS\JOFSYS\X?L'100,2'?RECEV+ ,C:\RPGSYS\JOF\TST092.RPG,XRECEV,V,400 LOADDAT X?L'100,2'?RECEV,C:\RPGSYS\JOFSYS,F,400 // * ' ' // * 'RUNNING PROGRAM TST092 TO CREATE NEW A/R INVOICE FILE ?L'100,2'?RECEV' // LOAD TST092 // FILE NAME-XRECEV,LABEL-X?L'100,2'?RECEV // FILE NAME-RECEV,LABEL-C:\RPGSYS\JOFSYS\?L'100,2'?RECEV // RUN LOADFILE ?L'100,2'?RECEV,C:\RPGSYS\JOFSYS DELETE X?L'100,2'?RECEV *****BLDINDEX ?L'100,3'?RECAL1,8,4,?L'100,2'?RECEV,,,,2,6 // TAG END // CEND // COPY LIBRARY-P,NAME-TST093,RECL-120,DATE-04/06/01,TIME-1557 // IF DATAF1-X?L'100,2'?PROD DELETE X?L'100,2'?PROD,F1 // LOAD TST093 // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-XPROD,LABEL-X?L'100,2'?PROD,RECORDS-80000 // RUN // CEND // COPY LIBRARY-P,NAME-TST094,RECL-120,DATE-04/06/01,TIME-1557 // * ' ' // * 'THIS PROCEDURE WILL ERASE THE PRODUCT FILE (PROD) AND RECREATE IT' // * 'FROM THE SEQUENTIAL UNPACKED FILE X?L'100,2'?PROD' // * ' PC: IN DIRECTORY C:\RPGSYS\JOFSYS\FILES400' // * ' AS/400: ON AS/400 HARD DISK' // * ' ' // * 'THE ORIGINAL FILE WILL BE RENAMED AS XX?L'100,2'?PROD' ***// * ' ' ***// * 'PLEASE ENTER THE PASSWORD.' ***// IFF ?R?='JOFFEBUILDSBETTERHOUSES' GOTO END // TAG AGAIN1 // * ' ' // * 'WILL THIS FILE BE CREATED ON THE AS/400 OR IN A PC LATTICE ENVIRONMENT ?' // * 'ENTER: AS400' // * ' OR PC' // LOCAL OFFSET-1,DATA-'?R?',BLANK-5 // IF ?L'1,5'?='AS400' GOTO AS400 // IF ?L'1,2'?='PC' GOTO PC // GOTO AGAIN1 ******************** // TAG AS400 // IF DATAF1-XX?L'100,2'?PROD DELETE XX?L'100,2'?PROD,F1 // IF DATAF1-?L'100,2'?PROD RENAME ?L'100,2'?RECEV,XX?L'100,2'?PROD // * ' ' // * 'RUNNING PROGRAM TST094 TO CREATE NEW PRODUCTE FILE ?L'100,2'?PROD' // LOAD TST094 // FILE NAME-XPROD,LABEL-X?L'100,2'?PROD // FILE NAME-PROD,LABEL-?L'100,2'?PROD,RECORDS-80000,EXTEND-3000 // RUN DELETE X?L'100,2'?RECEV,F1 // GOTO END ******************** // TAG PC // IF DATAF1-XX?L'100,2'?PROD DELETE XX?L'100,2'?PROD,F1 // IF DATAF1-?L'100,2'?PROD RENAME ?L'100,2'?PROD,XX?L'100,2'?PROD PORT N,C:\RPGSYS\JOFSYS\FILES400\X?L'100,2'?PROD.DAT+ ,C:\RPGSYS\JOFSYS\X?L'100,2'?PROD+ ,C:\RPGSYS\JOF\TST094.RPG,XPROD,V,500 LOADDAT X?L'100,2'?PROD,C:\RPGSYS\JOFSYS,F,500 // * ' ' // * 'RUNNING PROGRAM TST094 TO CREATE NEW PRODUCT FILE ?L'100,2'?PROD' // LOAD TST094 // FILE NAME-XPROD,LABEL-X?L'100,2'?PROD // FILE NAME-PROD,LABEL-C:\RPGSYS\JOFSYS\?L'100,2'?PROD // RUN LOADFILE ?L'100,2'?PROD,C:\RPGSYS\JOFSYS DELETE X?L'100,2'?PROD // TAG END // CEND // COPY LIBRARY-P,NAME-TST095,RECL-120,DATE-04/06/01,TIME-1557 // IF DATAF1-X?L'100,2'?HOUSE DELETE X?L'100,2'?HOUSE,F1 // LOAD TST095 // FILE NAME-HOUSE,LABEL-?L'100,2'?HOUSE,DISP-SHR // FILE NAME-XHOUSE,LABEL-X?L'100,2'?HOUSE,RECORDS-300000 // RUN // CEND // COPY LIBRARY-P,NAME-TST096,RECL-120,DATE-04/06/01,TIME-1557 // * ' ' // * 'THIS PROCEDURE WILL ERASE THE HOUSE FILE (HOUSE) AND RECREATE IT' // * 'FROM THE SEQUENTIAL UNPACKED FILE X?L'100,2'?HOUSE' // * ' PC: IN DIRECTORY C:\RPGSYS\JOFSYS\FILES400' // * ' AS/400: ON AS/400 HARD DISK' // * ' ' // * 'THE ORIGINAL FILE WILL BE RENAMED AS XX?L'100,2'?HOUS' ***// * ' ' ***// * 'PLEASE ENTER THE PASSWORD.' ***// IFF ?R?='JOFFEBUILDSBETTERHOUSES' GOTO END // TAG AGAIN1 // * ' ' // * 'WILL THIS FILE BE CREATED ON THE AS/400 OR IN A PC LATTICE ENVIRONMENT ?' // * 'ENTER: AS400' // * ' OR PC' // LOCAL OFFSET-1,DATA-'?R?',BLANK-5 // IF ?L'1,5'?='AS400' GOTO AS400 // IF ?L'1,2'?='PC' GOTO PC // GOTO AGAIN1 ******************** // TAG AS400 // IF DATAF1-XX?L'100,2'?HOUS DELETE XX?L'100,2'?HOUS,F1 // IF DATAF1-?L'100,2'?HOUSE RENAME ?L'100,2'?RECEV,XX?L'100,2'?HOUS // * ' ' // * 'RUNNING PROGRAM TST096 TO CREATE NEW HOUSE FILE ?L'100,2'?HOUSE' // LOAD TST096 // FILE NAME-XHOUSE,LABEL-X?L'100,2'?HOUSE // FILE NAME-HOUSE,LABEL-?L'100,2'?HOUSE,RECORDS-300000,EXTEND-5000 // RUN DELETE X?L'100,2'?HOUSE,F1 // GOTO END ******************** // TAG PC // IF DATAF1-XX?L'100,2'?HOUS DELETE XX?L'100,2'?HOUS,F1 // IF DATAF1-?L'100,2'?HOUSE RENAME ?L'100,2'?HOUSE,XX?L'100,2'?HOUSE PORT N,C:\RPGSYS\JOFSYS\FILES400\X?L'100,2'?HOUSE.DAT+ ,C:\RPGSYS\JOFSYS\X?L'100,2'?HOUSE+ ,C:\RPGSYS\JOF\TST096.RPG,XHOUSE,V,50 LOADDAT X?L'100,2'?HOUSE,C:\RPGSYS\JOFSYS,F,50 // * ' ' // * 'RUNNING PROGRAM TST096 TO CREATE NEW HOUSE FILE ?L'100,2'?HOUSE' // LOAD TST096 // FILE NAME-XHOUSE,LABEL-X?L'100,2'?HOUSE // FILE NAME-HOUSE,LABEL-C:\RPGSYS\JOFSYS\?L'100,2'?HOUSE // RUN LOADFILE ?L'100,2'?HOUSE,C:\RPGSYS\JOFSYS DELETE X?L'100,2'?HOUSE // TAG END // CEND // COPY LIBRARY-P,NAME-TST097,RECL-120,DATE-04/06/01,TIME-1557 // IF DATAF1-X?L'100,2'?LOAD DELETE X?L'100,2'?LOAD,F1 // LOAD TST097 // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-XLOAD,LABEL-X?L'100,2'?LOAD,RECORDS-130000 // RUN // CEND // COPY LIBRARY-P,NAME-TST098,RECL-120,DATE-04/06/01,TIME-1557 // * ' ' // * 'THIS PROCEDURE WILL ERASE THE LOAD FILE (LOAD) AND RECREATE IT' // * 'FROM THE SEQUENTIAL UNPACKED FILE X?L'100,2'?LOAD' // * ' PC: IN DIRECTORY C:\RPGSYS\JOFSYS\FILES400' // * ' AS/400: ON AS/400 HARD DISK' // * ' ' // * 'THE ORIGINAL FILE WILL BE RENAMED AS XX?L'100,2'?LOAD' ***// * ' ' ***// * 'PLEASE ENTER THE PASSWORD.' ***// IFF ?R?='JOFFEBUILDSBETTERHOUSES' GOTO END // TAG AGAIN1 // * ' ' // * 'WILL THIS FILE BE CREATED ON THE AS/400 OR IN A PC LATTICE ENVIRONMENT ?' // * 'ENTER: AS400' // * ' OR PC' // LOCAL OFFSET-1,DATA-'?R?',BLANK-5 // IF ?L'1,5'?='AS400' GOTO AS400 // IF ?L'1,2'?='PC' GOTO PC // GOTO AGAIN1 ******************** // TAG AS400 // IF DATAF1-XX?L'100,2'?LOAD DELETE XX?L'100,2'?LOAD,F1 // IF DATAF1-?L'100,2'?LOAD RENAME ?L'100,2'?LOAD,XX?L'100,2'?LOAD // * ' ' // * 'RUNNING PROGRAM TST098 TO CREATE NEW LOAD FILE ?L'100,2'?LOAD' // LOAD TST098 // FILE NAME-XLOAD,LABEL-X?L'100,2'?LOAD // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,RECORDS-130000,EXTEND-5000 // RUN DELETE X?L'100,2'?LOAD,F1 // GOTO END ******************** // TAG PC // IF DATAF1-XX?L'100,2'?LOAD DELETE XX?L'100,2'?LOAD,F1 // IF DATAF1-?L'100,2'?LOAD RENAME ?L'100,2'?LOAD,XX?L'100,2'?LOAD PORT N,C:\RPGSYS\JOFSYS\FILES400\X?L'100,2'?LOAD.DAT+ ,C:\RPGSYS\JOFSYS\X?L'100,2'?LOAD+ ,C:\RPGSYS\JOF\TST098.RPG,XLOAD,V,100 LOADDAT X?L'100,2'?LOAD,C:\RPGSYS\JOFSYS,F,100 // * ' ' // * 'RUNNING PROGRAM TST098 TO CREATE NEW LOAD FILE ?L'100,2'?LOAD' // LOAD TST098 // FILE NAME-XLOAD,LABEL-X?L'100,2'?LOAD // FILE NAME-LOAD,LABEL-C:\RPGSYS\JOFSYS\?L'100,2'?LOAD // RUN LOADFILE ?L'100,2'?LOAD,C:\RPGSYS\JOFSYS DELETE X?L'100,2'?LOAD // TAG END // CEND // COPY LIBRARY-P,NAME-TST099,RECL-120,DATE-04/06/01,TIME-1557 // IF DATAF1-X?L'100,2'?CUSMA DELETE X?L'100,2'?CUSMA,F1 // LOAD TST099 // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-XCUSMA,LABEL-X?L'100,2'?CUSMA,RECORDS-3000 // RUN // CEND // COPY LIBRARY-P,NAME-TST100,RECL-120,DATE-04/06/01,TIME-1557 // * ' ' // * 'THIS PROCEDURE WILL ERASE THE CUSTOMER FILE (CUSMAS) AND RECREATE IT' // * 'FROM THE SEQUENTIAL UNPACKED FILE X?L'100,2'?CUSMA' // * ' PC: IN DIRECTORY C:\RPGSYS\JOFSYS\FILES400' // * ' AS/400: ON AS/400 HARD DISK' // * ' ' // * 'THE ORIGINAL FILE WILL BE RENAMED AS XX?L'100,2'?CUSM' ***// * ' ' ***// * 'PLEASE ENTER THE PASSWORD.' ***// IFF ?R?='JOFFEBUILDSBETTERHOUSES' GOTO END // TAG AGAIN1 // * ' ' // * 'WILL THIS FILE BE CREATED ON THE AS/400 OR IN A PC LATTICE ENVIRONMENT ?' // * 'ENTER: AS400' // * ' OR PC' // LOCAL OFFSET-1,DATA-'?R?',BLANK-5 // IF ?L'1,5'?='AS400' GOTO AS400 // IF ?L'1,2'?='PC' GOTO PC // GOTO AGAIN1 ******************** // TAG AS400 // IF DATAF1-XX?L'100,2'?CUSM DELETE XX?L'100,2'?CUSM,F1 // IF DATAF1-?L'100,2'?CUSMAS RENAME ?L'100,2'?CUSMAS,XX?L'100,2'?CUSM // * ' ' // * 'RUNNING PROGRAM TST199 TO CREATE NEW CUSTOMER FILE ?L'100,2'?CUSMAS' // LOAD TST100 // FILE NAME-XCUSMA,LABEL-X?L'100,2'?CUSMA // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,RECORDS-3000,EXTEND-500 // RUN DELETE X?L'100,2'?CUSMA,F1 // GOTO END ******************** // TAG PC // IF DATAF1-XX?L'100,2'?CUSM DELETE XX?L'100,2'?CUSM,F1 // IF DATAF1-?L'100,2'?CUSMAS RENAME ?L'100,2'?CUSMAS,XX?L'100,2'?CUSM PORT N,C:\RPGSYS\JOFSYS\FILES400\X?L'100,2'?CUSMA.DAT+ ,C:\RPGSYS\JOFSYS\X?L'100,2'?CUSMA+ ,C:\RPGSYS\JOF\TST100.RPG,XCUSMA,V,720 LOADDAT X?L'100,2'?CUSMA,C:\RPGSYS\JOFSYS,F,720 // * ' ' // * 'RUNNING PROGRAM TST100 TO CREATE NEW CUSTOMER FILE ?L'100,2'?CUSMAS' // LOAD TST100 // FILE NAME-XCUSMA,LABEL-X?L'100,2'?CUSMA // FILE NAME-CUSMAS,LABEL-C:\RPGSYS\JOFSYS\?L'100,2'?CUSMAS // RUN LOADFILE ?L'100,2'?CUSMAS,C:\RPGSYS\JOFSYS DELETE X?L'100,2'?CUSMA // TAG END // CEND // COPY LIBRARY-P,NAME-TST101,RECL-120,DATE-04/06/01,TIME-1557 // IF DATAF1-X?L'100,2'?RELSH DELETE X?L'100,2'?RELSH,F1 // LOAD TST101 // FILE NAME-RELSHT,LABEL-?L'100,2'?RELSHT,DISP-SHR // FILE NAME-XRELSH,LABEL-X?L'100,2'?RELSH,RECORDS-250000 // RUN // CEND // COPY LIBRARY-P,NAME-TST102,RECL-120,DATE-04/06/01,TIME-1557 // * ' ' // * 'THIS PROCEDURE WILL ERASE THE RELEASE SHEET FILE (RELSHT) AND RECREATE IT' // * 'FROM THE SEQUENTIAL UNPACKED FILE X?L'100,2'?RELSH LOCATED:' // * ' PC: IN DIRECTORY C:\RPGSYS\JOFSYS\FILES400' // * ' AS/400: ON AS/400 HARD DISK' // * ' ' // * 'THE ORIGINAL FILE WILL BE RENAMED AS XX?L'100,2'?RELS' ***// * ' ' ***// * 'PLEASE ENTER THE PASSWORD.' ***// IFF ?R?='JOFFEBUILDSBETTERHOUSES' GOTO END // TAG AGAIN1 // * ' ' // * 'WILL THIS FILE BE CREATED ON THE AS/400 OR IN A PC LATTICE ENVIRONMENT ?' // * 'ENTER: AS400' // * ' OR PC' // LOCAL OFFSET-1,DATA-'?R?',BLANK-5 // IF ?L'1,5'?='AS400' GOTO AS400 // IF ?L'1,2'?='PC' GOTO PC // GOTO AGAIN1 ******************** // TAG AS400 // IF DATAF1-XX?L'100,2'?RELS DELETE XX?L'100,2'?RELS,F1 // IF DATAF1-?L'100,2'?RELSHT RENAME ?L'100,2'?RELSHT,XX?L'100,2'?RELS // * ' ' // * 'RUNNING PROGRAM TST102 TO CREATE NEW RELEASE SHEET FILE ?L'100,2'?RELSHT' // LOAD TST102 // FILE NAME-XRELSH,LABEL-X?L'100,2'?RELSH // FILE NAME-RELSHT,LABEL-?L'100,2'?RELSHT,RECORDS-250000,EXTEND-5000 // RUN DELETE X?L'100,2'?RELSH,F1 // GOTO END ******************** // TAG PC // IF DATAF1-XX?L'100,2'?RELS DELETE XX?L'100,2'?RELS,F1 // IF DATAF1-?L'100,2'?RELSHT RENAME ?L'100,2'?RELSHT,XX?L'100,2'?RELS PORT N,C:\RPGSYS\JOFSYS\FILES400\X?L'100,2'?RELSH.DAT+ ,C:\RPGSYS\JOFSYS\X?L'100,2'?RELSH+ ,C:\RPGSYS\JOF\TST102.RPG,XRELSH,V,200 LOADDAT X?L'100,2'?RELSH,C:\RPGSYS\JOFSYS,F,200 // * ' ' // * 'RUNNING PROGRAM TST102 TO CREATE NEW RELEASH SEEET FILE ?L'100,2'?RELSHT' // LOAD TST102 // FILE NAME-XRELSH,LABEL-X?L'100,2'?RELSH // FILE NAME-RELSHT,LABEL-C:\RPGSYS\JOFSYS\?L'100,2'?RELSHT // RUN LOADFILE ?L'100,2'?RELSHT,C:\RPGSYS\JOFSYS DELETE X?L'100,2'?RELSH // TAG END // CEND // COPY LIBRARY-P,NAME-TST103,RECL-120,DATE-04/06/01,TIME-1557 // IF DATAF1-X?L'100,2'?PRCTA DELETE X?L'100,2'?PRCTA,F1 // LOAD TST103 // FILE NAME-PRCTAB,LABEL-?L'100,2'?PRCTAB,DISP-SHR // FILE NAME-XPRCTA,LABEL-X?L'100,2'?PRCTA,RECORDS-200000 // RUN // CEND // COPY LIBRARY-P,NAME-TST104,RECL-120,DATE-04/06/01,TIME-1557 // * ' ' // * 'THIS PROCEDURE WILL ERASE THE PRICING SHEET FILE (PRCTAB) AND RECREATE IT' // * 'FROM THE SEQUENTIAL UNPACKED FILE X?L'100,2'?PRCTA LOCATED:' // * ' PC: IN DIRECTORY C:\RPGSYS\JOFSYS\FILES400' // * ' AS/400: ON AS/400 HARD DISK' // * ' ' // * 'THE ORIGINAL FILE WILL BE RENAMED AS XX?L'100,2'?PRCT' ***// * ' ' ***// * 'PLEASE ENTER THE PASSWORD.' ***// IFF ?R?='JOFFEBUILDSBETTERHOUSES' GOTO END // TAG AGAIN1 // * ' ' // * 'WILL THIS FILE BE CREATED ON THE AS/400 OR IN A PC LATTICE ENVIRONMENT ?' // * 'ENTER: AS400' // * ' OR PC' // LOCAL OFFSET-1,DATA-'?R?',BLANK-5 // IF ?L'1,5'?='AS400' GOTO AS400 // IF ?L'1,2'?='PC' GOTO PC // GOTO AGAIN1 ******************** // TAG AS400 // IF DATAF1-XX?L'100,2'?PRCT DELETE XX?L'100,2'?PRCT,F1 // IF DATAF1-?L'100,2'?PRCTAB RENAME ?L'100,2'?PRCTAB,XX?L'100,2'?PRCT // * ' ' // * 'RUNNING PROGRAM TST104 TO CREATE NEW PRICING SHEET FILE ?L'100,2'?PRCTAB' // LOAD TST104 // FILE NAME-XPRCTA,LABEL-X?L'100,2'?PRCTA // FILE NAME-PRCTAB,LABEL-?L'100,2'?PRCTAB,RECORDS-200000,EXTEND-5000 // RUN DELETE X?L'100,2'?RELSH,F1 // GOTO END ******************** // TAG PC // IF DATAF1-XX?L'100,2'?PRCT DELETE XX?L'100,2'?PRCT,F1 // IF DATAF1-?L'100,2'?PRCTAB RENAME ?L'100,2'?PRCTAB,XX?L'100,2'?PRCT PORT N,C:\RPGSYS\JOFSYS\FILES400\X?L'100,2'?PRCTA.DAT+ ,C:\RPGSYS\JOFSYS\X?L'100,2'?PRCTA+ ,C:\RPGSYS\JOF\TST104.RPG,XPRCTA,V,30 LOADDAT X?L'100,2'?PRCTA,C:\RPGSYS\JOFSYS,F,30 // * ' ' // * 'RUNNING PROGRAM TST104 TO CREATE NEW PRICING SHEET FILE ?L'100,2'?PRCTAB' // LOAD TST104 // FILE NAME-XPRCTA,LABEL-X?L'100,2'?PRCTA // FILE NAME-PRCTAB,LABEL-?L'100,2'?PRCTAB,RECORDS-200000,EXTEND-5000 // RUN LOADFILE ?L'100,2'?PRCTAB,C:\RPGSYS\JOFSYS DELETE X?L'100,2'?PRCTA // TAG END // CEND // COPY LIBRARY-P,NAME-TST105,RECL-120,DATE-04/06/01,TIME-1557 // IF DATAF1-X?L'100,2'?POMST DELETE X?L'100,2'?POMST,F1 // LOAD TST105 // FILE NAME-POMST,LABEL-?L'100,2'?POMST,DISP-SHR // FILE NAME-XPOMST,LABEL-X?L'100,2'?POMST,RECORDS-30000 // RUN // CEND // COPY LIBRARY-P,NAME-TST106,RECL-120,DATE-04/06/01,TIME-1557 // * ' ' // * 'THIS PROCEDURE WILL ERASE THE PO MASTER FILE (POMST) AND RECREATE IT' // * 'FROM THE SEQUENTIAL UNPACKED FILE X?L'100,2'?POMST' // * ' PC: IN DIRECTORY C:\RPGSYS\JOFSYS\FILES400' // * ' AS/400: ON AS/400 HARD DISK' // * ' ' // * 'THE ORIGINAL FILE WILL BE RENAMED AS XX?L'100,2'?POMS' ***// * ' ' ***// * 'PLEASE ENTER THE PASSWORD.' ***// IFF ?R?='JOFFEBUILDSBETTERHOUSES' GOTO END // TAG AGAIN1 // * ' ' // * 'WILL THIS FILE BE CREATED ON THE AS/400 OR IN A PC LATTICE ENVIRONMENT ?' // * 'ENTER: AS400' // * ' OR PC' // LOCAL OFFSET-1,DATA-'?R?',BLANK-5 // IF ?L'1,5'?='AS400' GOTO AS400 // IF ?L'1,2'?='PC' GOTO PC // GOTO AGAIN1 ******************** // TAG AS400 // IF DATAF1-XX?L'100,2'?POMS DELETE XX?L'100,2'?POMS,F1 // IF DATAF1-?L'100,2'?POMST RENAME ?L'100,2'?POMST,XX?L'100,2'?POMS // * ' ' // * 'RUNNING PROGRAM TST106 TO CREATE NEW PO MASTER FILE ?L'100,2'?POMST' // LOAD TST106 // FILE NAME-XPOMST,LABEL-X?L'100,2'?POMST // FILE NAME-POMST,LABEL-?L'100,2'?POMST,RECORDS-30000,EXTEND-3000 // RUN DELETE X?L'100,2'?POMST,F1 // GOTO END ******************** // TAG PC // IF DATAF1-XX?L'100,2'?POMS DELETE XX?L'100,2'?POMS,F1 // IF DATAF1-?L'100,2'?POMST RENAME ?L'100,2'?POMST,XX?L'100,2'?POMS PORT N,C:\RPGSYS\JOFSYS\FILES400\X?L'100,2'?POMST.DAT+ ,C:\RPGSYS\JOFSYS\X?L'100,2'?POMST+ ,C:\RPGSYS\JOF\TST106.RPG,XPOMST,V,150 LOADDAT X?L'100,2'?POMST,C:\RPGSYS\JOFSYS,F,150 // * ' ' // * 'RUNNING PROGRAM TST106 TO CREATE NEW PO MASTER FILE ?L'100,2'?POMST' // LOAD TST106 // FILE NAME-XPOMST,LABEL-X?L'100,2'?POMST // FILE NAME-POMST,LABEL-?L'100,2'?POMST,RECORDS-200000,EXTEND-3000 // RUN LOADFILE ?L'100,2'?POMST,C:\RPGSYS\JOFSYS DELETE X?L'100,2'?POMST // TAG END // CEND // COPY LIBRARY-P,NAME-TST107,RECL-120,DATE-04/06/01,TIME-1557 // IF DATAF1-X?L'100,2'?POREC DELETE X?L'100,2'?POREC,F1 // LOAD TST107 // FILE NAME-POREC,LABEL-?L'100,2'?POREC,DISP-SHR // FILE NAME-XPOREC,LABEL-X?L'100,2'?POREC,RECORDS-30000 // RUN // CEND // COPY LIBRARY-P,NAME-TST108,RECL-120,DATE-04/06/01,TIME-1557 // * ' ' // * 'THIS PROCEDURE WILL ERASE THE PO RECEIVING FILE (POREC) AND RECREATE IT' // * 'FROM THE SEQUENTIAL UNPACKED FILE X?L'100,2'?POREC' // * ' PC: IN DIRECTORY C:\RPGSYS\JOFSYS\FILES400' // * ' AS/400: ON AS/400 HARD DISK' // * ' ' // * 'THE ORIGINAL FILE WILL BE RENAMED AS XX?L'100,2'?PORE' ***// * ' ' ***// * 'PLEASE ENTER THE PASSWORD.' ***// IFF ?R?='JOFFEBUILDSBETTERHOUSES' GOTO END // TAG AGAIN1 // * ' ' // * 'WILL THIS FILE BE CREATED ON THE AS/400 OR IN A PC LATTICE ENVIRONMENT ?' // * 'ENTER: AS400' // * ' OR PC' // LOCAL OFFSET-1,DATA-'?R?',BLANK-5 // IF ?L'1,5'?='AS400' GOTO AS400 // IF ?L'1,2'?='PC' GOTO PC // GOTO AGAIN1 ******************** // TAG AS400 // IF DATAF1-XX?L'100,2'?PORE DELETE XX?L'100,2'?PORE,F1 // IF DATAF1-?L'100,2'?POREC RENAME ?L'100,2'?POREC,XX?L'100,2'?PORE // * ' ' // * 'RUNNING PROGRAM TST108 TO CREATE NEW PO RECEIVING FILE ?L'100,2'?POREC' // LOAD TST108 // FILE NAME-XPOREC,LABEL-X?L'100,2'?POREC // FILE NAME-POREC,LABEL-?L'100,2'?POREC,RECORDS-30000,EXTEND-3000 // RUN DELETE X?L'100,2'?POREC,F1 // GOTO END ******************** // TAG PC // IF DATAF1-XX?L'100,2'?PORE DELETE XX?L'100,2'?PORE,F1 // IF DATAF1-?L'100,2'?POREC RENAME ?L'100,2'?POREC,XX?L'100,2'?PORE PORT N,C:\RPGSYS\JOFSYS\FILES400\X?L'100,2'?POREC.DAT+ ,C:\RPGSYS\JOFSYS\X?L'100,2'?POREC+ ,C:\RPGSYS\JOF\TST108.RPG,XPOREC,V,1O0 LOADDAT X?L'100,2'?POREC,C:\RPGSYS\JOFSYS,F,100 // * ' ' // * 'RUNNING PROGRAM TST108 TO CREATE NEW PO RECEIVING FILE ?L'100,2'?POREC' // LOAD TST108 // FILE NAME-XPOREC,LABEL-X?L'100,2'?POREC // FILE NAME-POREC,LABEL-?L'100,2'?POREC,RECORDS-200000,EXTEND-3000 // RUN LOADFILE ?L'100,2'?POREC,C:\RPGSYS\JOFSYS DELETE X?L'100,2'?POREC // TAG END // CEND // COPY LIBRARY-P,NAME-TST109,RECL-120,DATE-04/06/01,TIME-1557 // IF DATAF1-X?L'100,2'?CNTRL DELETE X?L'100,2'?CNTRL,F1 // LOAD TST109 // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-XCNTRL,LABEL-X?L'100,2'?CNTRL,RECORDS-80 // RUN // CEND // COPY LIBRARY-P,NAME-TST110,RECL-120,DATE-04/06/01,TIME-1557 // * ' ' // * 'THIS PROCEDURE WILL ERASE THE CONTROL FILE (CNTRL) AND RECREATE IT' // * 'FROM THE SEQUENTIAL UNPACKED FILE X?L'100,2'?CNTRL' // * ' PC: IN DIRECTORY C:\RPGSYS\JOFSYS\FILES400' // * ' AS/400: ON AS/400 HARD DISK' // * ' ' // * 'THE ORIGINAL FILE WILL BE RENAMED AS XX?L'100,2'?CNTR' ***// * ' ' ***// * 'PLEASE ENTER THE PASSWORD.' ***// IFF ?R?='JOFFEBUILDSBETTERHOUSES' GOTO END // TAG AGAIN1 // * ' ' // * 'WILL THIS FILE BE CREATED ON THE AS/400 OR IN A PC LATTICE ENVIRONMENT ?' // * 'ENTER: AS400' // * ' OR PC' // LOCAL OFFSET-1,DATA-'?R?',BLANK-5 // IF ?L'1,5'?='AS400' GOTO AS400 // IF ?L'1,2'?='PC' GOTO PC // GOTO AGAIN1 ******************** // TAG AS400 // IF DATAF1-XX?L'100,2'?CNTR DELETE XX?L'100,2'?CNTR,F1 // IF DATAF1-?L'100,2'?CNTRL RENAME ?L'100,2'?CNTRL,XX?L'100,2'?CNTR // * ' ' // * 'RUNNING PROGRAM TST110 TO CREATE NEW CONTROL FILE ?L'100,2'?CNTRL' // LOAD TST110 // FILE NAME-XCNTRL,LABEL-X?L'100,2'?CNTRL // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,RECORDS-80 // RUN DELETE X?L'100,2'?CNTRL,F1 // GOTO END ******************** // TAG PC // IF DATAF1-XX?L'100,2'?CNTR DELETE XX?L'100,2'?CNTR,F1 // IF DATAF1-?L'100,2'?CNTRL RENAME ?L'100,2'?CNTRL,XX?L'100,2'?CNTR PORT N,C:\RPGSYS\JOFSYS\FILES400\X?L'100,2'?CNTRL.DAT+ ,C:\RPGSYS\JOFSYS\X?L'100,2'?CNTRL+ ,C:\RPGSYS\JOF\TST110.RPG,XCNTRL,V,32 LOADDAT X?L'100,2'?CNTRL,C:\RPGSYS\JOFSYS,F,32 // * ' ' // * 'RUNNING PROGRAM TST110 TO CREATE NEW CONTROL FILE ?L'100,2'?CNTRL' // LOAD TST110 // FILE NAME-XCNTRL,LABEL-X?L'100,2'?CNTRL // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,RECORDS-80 // RUN LOADDAT ?L'100,2'?CNTRL,C:\RPGSYS\JOFSYS,F,32 DELETE X?L'100,2'?CNTRL // TAG END // CEND // COPY LIBRARY-P,NAME-TST111,RECL-120,DATE-04/06/01,TIME-1557 // IF DATAF1-X?L'100,2'?MISCU DELETE X?L'100,2'?MISCU,F1 // LOAD TST111 // FILE NAME-MISCUS,LABEL-?L'100,2'?MISCUS,DISP-SHR // FILE NAME-XMISCU,LABEL-X?L'100,2'?MISCU,RECORDS-20000 // RUN // CEND // COPY LIBRARY-P,NAME-TST112,RECL-120,DATE-04/06/01,TIME-1557 // * ' ' // * 'THIS PROCEDURE WILL ERASE THE MISC CUSTOMER FILE (MISCUS) AND RECREATE IT' // * 'FROM THE SEQUENTIAL UNPACKED FILE X?L'100,2'?MISCU LOCATED:' // * ' PC: IN DIRECTORY C:\RPGSYS\JOFSYS\FILES400' // * ' AS/400: ON AS/400 HARD DISK' // * ' ' // * 'THE ORIGINAL FILE WILL BE RENAMED AS XX?L'100,2'?MISC' ***// * ' ' ***// * 'PLEASE ENTER THE PASSWORD.' ***// IFF ?R?='JOFFEBUILDSBETTERHOUSES' GOTO END // TAG AGAIN1 // * ' ' // * 'WILL THIS FILE BE CREATED ON THE AS/400 OR IN A PC LATTICE ENVIRONMENT ?' // * 'ENTER: AS400' // * ' OR PC' // LOCAL OFFSET-1,DATA-'?R?',BLANK-5 // IF ?L'1,5'?='AS400' GOTO AS400 // IF ?L'1,2'?='PC' GOTO PC // GOTO AGAIN1 ******************** // TAG AS400 // IF DATAF1-XX?L'100,2'?MISC DELETE XX?L'100,2'?MISC,F1 // IF DATAF1-?L'100,2'?MISCUS RENAME ?L'100,2'?MISCUS,XX?L'100,2'?MISC // * ' ' // * 'RUNNING PROGRAM TST112 TO CREATE NEW MISC CUSTOMER FILE ?L'100,2'?MISCUS' // LOAD TST112 // FILE NAME-XMISCU,LABEL-X?L'100,2'?MISCU // FILE NAME-MISCUS,LABEL-?L'100,2'?MISCUS,RECORDS-20000,EXTEND-2000 // RUN DELETE X?L'100,2'?MISCU,F1 // GOTO END ******************** // TAG PC // IF DATAF1-XX?L'100,2'?MISC DELETE XX?L'100,2'?MISC,F1 // IF DATAF1-?L'100,2'?MISCUS RENAME ?L'100,2'?MISCUS,XX?L'100,2'?MISC PORT N,C:\RPGSYS\JOFSYS\FILES400\X?L'100,2'?MISCU.DAT+ ,C:\RPGSYS\JOFSYS\X?L'100,2'?MISCU+ ,C:\RPGSYS\JOF\TST112.RPG,XMISCU,V,97 LOADDAT X?L'100,2'?MISCU,C:\RPGSYS\JOFSYS,F,97 // * ' ' // * 'RUNNING PROGRAM TST112 TO CREATE NEW MISC CUSTOMER FILE ?L'100,2'?MISCUS' // LOAD TST112 // FILE NAME-XMISCU,LABEL-X?L'100,2'?MISCU // FILE NAME-MISCUS,LABEL-?L'100,2'?MISCUS,RECORDS-30000,EXTEND-2000 // RUN LOADFILE ?L'100,2'?MISCUS,C:\RPGSYS\JOFSYS DELETE X?L'100,2'?MISCU // TAG END // CEND // COPY LIBRARY-P,NAME-TST113,RECL-120,DATE-04/06/01,TIME-1557 // IF DATAF1-X?L'100,2'?MESAG DELETE X?L'100,2'?MESAG,F1 // LOAD TST113 // FILE NAME-MESAGE,LABEL-?L'100,2'?MESAGE,DISP-SHR // FILE NAME-XMESAG,LABEL-X?L'100,2'?MESAG,RECORDS-3000 // RUN // CEND // COPY LIBRARY-P,NAME-TST114,RECL-120,DATE-04/06/01,TIME-1557 // * ' ' // * 'THIS PROCEDURE WILL ERASE THE MESSAG FILE (MESAGE) AND RECREATE IT' // * 'FROM THE SEQUENTIAL UNPACKED FILE X?L'100,2'?MESAG LOCATED:' // * ' PC: IN DIRECTORY C:\RPGSYS\JOFSYS\FILES400' // * ' AS/400: ON AS/400 HARD DISK' // * ' ' // * 'THE ORIGINAL FILE WILL BE RENAMED AS XX?L'100,2'?MESA' ***// * ' ' ***// * 'PLEASE ENTER THE PASSWORD.' ***// IFF ?R?='JOFFEBUILDSBETTERHOUSES' GOTO END // TAG AGAIN1 // * ' ' // * 'WILL THIS FILE BE CREATED ON THE AS/400 OR IN A PC LATTICE ENVIRONMENT ?' // * 'ENTER: AS400' // * ' OR PC' // LOCAL OFFSET-1,DATA-'?R?',BLANK-5 // IF ?L'1,5'?='AS400' GOTO AS400 // IF ?L'1,2'?='PC' GOTO PC // GOTO AGAIN1 ******************** // TAG AS400 // IF DATAF1-XX?L'100,2'?MESA DELETE XX?L'100,2'?MESA,F1 // IF DATAF1-?L'100,2'?MESAGE RENAME ?L'100,2'?MESAGE,XX?L'100,2'?MESA // * ' ' // * 'RUNNING PROGRAM TST114 TO CREATE NEW MESSAGE FILE ?L'100,2'?MESAGE' // LOAD TST114 // FILE NAME-XMESAG,LABEL-X?L'100,2'?MESAG // FILE NAME-MESAGE,LABEL-?L'100,2'?MESAGE,RECORDS-3000,EXTEND-1000 // RUN DELETE X?L'100,2'?MESAG,F1 // GOTO END ******************** // TAG PC // IF DATAF1-XX?L'100,2'?MESA DELETE XX?L'100,2'?MESA,F1 // IF DATAF1-?L'100,2'?MESAGE RENAME ?L'100,2'?MESAGE,XX?L'100,2'?MESA PORT N,C:\RPGSYS\JOFSYS\FILES400\X?L'100,2'?MESAG.DAT+ ,C:\RPGSYS\JOFSYS\X?L'100,2'?MESAG+ ,C:\RPGSYS\JOF\TST114.RPG,XMESAG,V,66 LOADDAT X?L'100,2'?MESAG,C:\RPGSYS\JOFSYS,F,66 // * ' ' // * 'RUNNING PROGRAM TST114 TO CREATE NEW MESSAGE FILE ?L'100,2'?MESAGE' // LOAD TST114 // FILE NAME-XMESAG,LABEL-X?L'100,2'?MESAG // FILE NAME-MESAGE,LABEL-?L'100,2'?MESAGE,RECORDS-30000,EXTEND-2000 // RUN LOADFILE ?L'100,2'?MESAGE,C:\RPGSYS\JOFSYS DELETE X?L'100,2'?MESAG // TAG END // CEND // COPY LIBRARY-P,NAME-TST115,RECL-120,DATE-04/06/01,TIME-1557 // IF DATAF1-X?L'100,2'?CUSMP DELETE X?L'100,2'?CUSMP,F1 // LOAD TST115 // FILE NAME-CUSMAP,LABEL-?L'100,2'?CUSMAP,DISP-SHR // FILE NAME-XCUSMP,LABEL-X?L'100,2'?CUSMP,RECORDS-20000 // RUN // CEND // COPY LIBRARY-P,NAME-TST116,RECL-120,DATE-04/06/01,TIME-1557 // * ' ' // * 'THIS PROCEDURE WILL ERASE THE CUSTOMER MAP FILE (CUSMAP) AND RECREATE IT' // * 'FROM THE SEQUENTIAL UNPACKED FILE X?L'100,2'?CUSMP LOCATED:' // * ' PC: IN DIRECTORY C:\RPGSYS\JOFSYS\FILES400' // * ' AS/400: ON AS/400 HARD DISK' // * ' ' // * 'THE ORIGINAL FILE WILL BE RENAMED AS XX?L'100,2'?CUSP' ***// * ' ' ***// * 'PLEASE ENTER THE PASSWORD.' ***// IFF ?R?='JOFFEBUILDSBETTERHOUSES' GOTO END // TAG AGAIN1 // * ' ' // * 'WILL THIS FILE BE CREATED ON THE AS/400 OR IN A PC LATTICE ENVIRONMENT ?' // * 'ENTER: AS400' // * ' OR PC' // LOCAL OFFSET-1,DATA-'?R?',BLANK-5 // IF ?L'1,5'?='AS400' GOTO AS400 // IF ?L'1,2'?='PC' GOTO PC // GOTO AGAIN1 ******************** // TAG AS400 // IF DATAF1-XX?L'100,2'?CUSP DELETE XX?L'100,2'?CUSP,F1 // IF DATAF1-?L'100,2'?CUSMAP RENAME ?L'100,2'?CUSMAP,XX?L'100,2'?CUSP // * ' ' // * 'RUNNING PROGRAM TST116 TO CREATE NEW CUSTOMER MAP FILE ?L'100,2'?CUSMAP' // LOAD TST116 // FILE NAME-XCUSMP,LABEL-X?L'100,2'?CUSMP // FILE NAME-CUSMAP,LABEL-?L'100,2'?CUSMAP,RECORDS-20000,EXTEND-2000 // RUN DELETE X?L'100,2'?CUSMP,F1 // GOTO END ******************** // TAG PC // IF DATAF1-XX?L'100,2'?CUSP DELETE XX?L'100,2'?CUSP,F1 // IF DATAF1-?L'100,2'?CUSMAP RENAME ?L'100,2'?CUSMAP,XX?L'100,2'?CUSP PORT N,C:\RPGSYS\JOFSYS\FILES400\X?L'100,2'?CUSMP.DAT+ ,C:\RPGSYS\JOFSYS\X?L'100,2'?CUSMP+ ,C:\RPGSYS\JOF\TST116.RPG,XCUSMP,V,87 LOADDAT X?L'100,2'?CUSMP,C:\RPGSYS\JOFSYS,F,87 // * ' ' // * 'RUNNING PROGRAM TST116 TO CREATE NEW CUSTOMER MAP FILE ?L'100,2'?CUSMAP' // LOAD TST116 // FILE NAME-XCUSMP,LABEL-X?L'100,2'?CUSMP // FILE NAME-CUSMAP,LABEL-?L'100,2'?CUSMAP,RECORDS-30000,EXTEND-2000 // RUN LOADFILE ?L'100,2'?CUSMAP,C:\RPGSYS\JOFSYS DELETE X?L'100,2'?CUSMP // TAG END // CEND // COPY LIBRARY-P,NAME-TST117,RECL-120,DATE-04/06/01,TIME-1557 // * 'THIS PROGRAM WILL COPY RECORDS 005 AND TOTAL' // * 'FROM THE FILE INVCE FOR COMPANY ?L'100,2'?' // * 'TO THE REORGANIZED FILE NAMED XXXXINVE.' // * ' ' // * 'ANY EXISTING FILE XXXXINVE WILL FIRST BE DELETED.' // * ' ' // IF DATAF1-XXXXINVE DELETE XXXXINVE,F1 // LOAD TST117 // PRINTER NAME-PRT,HOLD-YES // FILE NAME-INVCE,LABEL-?L'100,2'?INVCE,DISP-SHR // FILE NAME-XXXXINVE,RECORDS-5000000 // RUN // CEND // COPY LIBRARY-P,NAME-TST121,RECL-120,DATE-04/06/01,TIME-1557 // * 'THIS PROGRAM WILL ALLOW YOU TO MAKE CHANGES TO THE' // * 'PURCHASE ORDER MASTER FILE POMST FOR COMPANY ?L'100,2'?' // * ' ' // * 'PLEASE ENTER THE PASSWORD.' // IFF ?R?='JOFFEBUILDSBETTERHOUSES' GOTO END // * ' ' // LOAD TST121 // FILE NAME-POMST,LABEL-?L'100,2'?POMST,DISP-SHR // RUN // TAG END // CEND // COPY LIBRARY-P,NAME-TST122,RECL-096,DATE-04/06/01,TIME-1557 // * 'ALL FILES FOR COMPANY ?L'100,2'? WILL BE ERASED' // * 'THEN RESTORED FROM TAPE WITH OS/400 RSTOBJ COMMAND' // * ' ' // * 'FILES WILL BE RESTORED IN ALPHABETIC ORDER, EXCEPT FOR' // * 'ALTERNATE-INDEX FILES WHICH WILL BE RESTORED ALPHABETICALLY' // * 'IMMEDIATELY AFTER THEIR PARENT FILE' // * ' ' // * 'ENTER PASSWORD TO CONTINUE' // IFF ?R?='JOFFEBUILDSBETTERHOUSES' GOTO END // * 'ENTER:' // * ' DELETEALLFILES' // * 'TO CONTINUE' // IFF ?R?='DELETEALLFILES' GOTO END ********** DELETING ALL FILES // IF DATAF1-?L'100,2'?ARCHK DELETE ?L'100,2'?ARCHK,F1 // IF DATAF1-?L'100,2'?ARCKBD DELETE ?L'100,2'?ARCKBD,F1 // IF DATAF1-?L'100,2'?ASMTMP DELETE ?L'100,2'?ASMTMP,F1 // IF DATAF1-?L'100,2'?BILMAT DELETE ?L'100,2'?BILMAT,F1 // IF DATAF1-?L'100,2'?BLMTTM DELETE ?L'100,2'?BLMTTM,F1 // IF DATAF1-?L'100,2'?BSEHSE DELETE ?L'100,2'?BSEHSE,F1 // IF DATAF1-?L'100,2'?CHGCS DELETE ?L'100,2'?CHGCS,F1 // IF DATAF1-?L'100,2'?CHGHS DELETE ?L'100,2'?CHGHS,F1 // IF DATAF1-?L'100,2'?CHKFLE DELETE ?L'100,2'?CHKFLE,F1 // IF DATAF1-?L'100,2'?CNTRL DELETE ?L'100,2'?CNTRL,F1 // IF DATAF1-?L'100,2'?CUSMAP DELETE ?L'100,2'?CUSMAP,F1 // IF DATAF1-?L'100,2'?CUSMAS DELETE ?L'100,2'?CUSMAS,F1 // IF DATAF1-?L'100,2'?DEPT DELETE ?L'100,2'?DEPT,F1 // IF DATAF1-?L'100,2'?DPINV DELETE ?L'100,2'?DPINV,F1 // IF DATAF1-?L'100,2'?EMPLYE DELETE ?L'100,2'?EMPLYE,F1 // IF DATAF1-?L'100,2'?GLFILE DELETE ?L'100,2'?GLFILE,F1 // IF DATAF1-?L'100,2'?GLPMT DELETE ?L'100,2'?GLPMT,F1 // IF DATAF1-?L'100,2'?GLTRAN DELETE ?L'100,2'?GLTRAN,F1 // IF DATAF1-?L'100,2'?HCRED DELETE ?L'100,2'?HCRED,F1 // IF DATAF1-?L'100,2'?HOUEST DELETE ?L'100,2'?HOUEST,F1 // IF DATAF1-?L'100,2'?HOUOLD DELETE ?L'100,2'?HOUOLD,F1 // IF DATAF1-?L'100,2'?HOUSE DELETE ?L'100,2'?HOUSE,F1 // IF DATAF1-?L'100,2'?HSECHG DELETE ?L'100,2'?HSECHG,F1 // IF DATAF1-?L'100,2'?INVACC DELETE ?L'100,2'?INVACC,F1 // IF DATAF1-?L'100,2'?INVCB DELETE ?L'100,2'?INVCB,F1 // IF DATAF1-?L'100,2'?INVCE DELETE ?L'100,2'?INVCE,F1 // IF DATAF1-?L'100,2'?INVEN DELETE ?L'100,2'?INVEN,F1 // IF DATAF1-?L'100,2'?INVNOT DELETE ?L'100,2'?INVNOT,F1 // IF DATAF1-?L'100,2'?JRDESC DELETE ?L'100,2'?JRDESC,F1 // IF DATAF1-?L'100,2'?LABEL DELETE ?L'100,2'?LABEL,F1 // IF DATAF1-?L'100,2'?LOAD DELETE ?L'100,2'?LOAD,F1 // IF DATAF1-?L'100,2'?MESAGE DELETE ?L'100,2'?MESAGE,F1 // IF DATAF1-?L'100,2'?MISCUS DELETE ?L'100,2'?MISCUS,F1 // IF DATAF1-?L'100,2'?MLOAD DELETE ?L'100,2'?MLOAD,F1 // IF DATAF1-?L'100,2'?MOVLOD DELETE ?L'100,2'?MOVLOD,F1 // IF DATAF1-?L'100,2'?NHOUS DELETE ?L'100,2'?NHOUS,F1 // IF DATAF1-?L'100,2'?NJUAF DELETE ?L'100,2'?NJUAF,F1 // IF DATAF1-?L'100,2'?NMGLEN DELETE ?L'100,2'?NMGLEN,F1 // IF DATAF1-?L'100,2'?NPRCTA DELETE ?L'100,2'?NPRCTA,F1 // IF DATAF1-?L'100,2'?OPENAP DELETE ?L'100,2'?OPENAP,F1 // IF DATAF1-?L'100,2'?PAYRL DELETE ?L'100,2'?PAYRL,F1 // IF DATAF1-?L'100,2'?PODOL DELETE ?L'100,2'?PODOL,F1 // IF DATAF1-?L'100,2'?POMST DELETE ?L'100,2'?POMST,F1 // IF DATAF1-?L'100,2'?POREC DELETE ?L'100,2'?POREC,F1 // IF DATAF1-?L'100,2'?PRCTAB DELETE ?L'100,2'?PRCTAB,F1 // IF DATAF1-?L'100,2'?PRDREC DELETE ?L'100,2'?PRDREC,F1 // IF DATAF1-?L'100,2'?PRDUSG DELETE ?L'100,2'?PRDUSG,F1 // IF DATAF1-?L'100,2'?PROD DELETE ?L'100,2'?PROD,F1 // IF DATAF1-?L'100,2'?PROJ DELETE ?L'100,2'?PROJ,F1 // IF DATAF1-?L'100,2'?PYMT DELETE ?L'100,2'?PYMT,F1 // IF DATAF1-?L'100,2'?PYMTBD DELETE ?L'100,2'?PYMTBD,F1 // IF DATAF1-?L'100,2'?PYUN DELETE ?L'100,2'?PYUN,F1 // IF DATAF1-?L'100,2'?PYUNBD DELETE ?L'100,2'?PYUNBD,F1 // IF DATAF1-?L'100,2'?RCBDA1 DELETE ?L'100,2'?RCBDA1,F1 // IF DATAF1-?L'100,2'?RECBD DELETE ?L'100,2'?RECBD,F1 // IF DATAF1-?L'100,2'?RECAL1 DELETE ?L'100,2'?RECAL1,F1 // IF DATAF1-?L'100,2'?RECEV DELETE ?L'100,2'?RECEV,F1 // IF DATAF1-?L'100,2'?RELSH1 DELETE ?L'100,2'?RELSH1,F1 // IF DATAF1-?L'100,2'?RELSHT DELETE ?L'100,2'?RELSHT,F1 // IF DATAF1-?L'100,2'?SALMEN DELETE ?L'100,2'?SALMEN,F1 // IF DATAF1-?L'100,2'?UNCASH DELETE ?L'100,2'?UNCASH,F1 // IF DATAF1-?L'100,2'?UNCSBD DELETE ?L'100,2'?UNCSBD,F1 // IF DATAF1-?L'100,2'?VENDOR DELETE ?L'100,2'?VENDOR,F1 // IF DATAF1-?L'100,2'?YPAYRL DELETE ?L'100,2'?YPAYRL,F1 ********** RESTORING ALL FILES // * 'RESTORING FILE ?L'100,2'?ARCHK' ***SAVE ?L'100,2'?ARCHK,,,,,,TC,,,,,,,,,,LEAVE RSTOBJ OBJ(?L'100,2'?ARCHK) SAVLIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'100,2'?ARCHK) ENDOPT(*LEAVE) // * 'RESTORING FILE ?L'100,2'?ARCKBD' ***SAVE ?L'100,2'?ARCKBD,,,,,,TC,,,,,,,LEAVE RSTOBJ OBJ(?L'100,2'?ARCKBD) SAVLIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'100,2'?ARCKBD) ENDOPT(*LEAVE) // * 'RESTORING FILE ?L'100,2'?ASMTMP' ***SAVE ?L'100,2'?ASMTMP,,,,,,TC,,,,,,,LEAVE RSTOBJ OBJ(?L'100,2'?ASMTMP) SAVLIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'100,2'?ASMTMP) ENDOPT(*LEAVE) // * 'RESTORING FILE ?L'100,2'?BILMAT' ***SAVE ?L'100,2'?BILMAT,,,,,,TC,,,,,,,LEAVE RSTOBJ OBJ(?L'100,2'?BILMAT) SAVLIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'100,2'?BILMAT) ENDOPT(*LEAVE) // * 'RESTORING FILE ?L'100,2'?BLMTTM' ***SAVE ?L'100,2'?BLMTTM,,,,,,TC,,,,,,,LEAVE RSTOBJ OBJ(?L'100,2'?BLMTTM) SAVLIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'100,2'?BLMTTM) ENDOPT(*LEAVE) // * 'RESTORING FILE ?L'100,2'?BSEHSE' ***SAVE ?L'100,2'?BSEHSE,,,,,,TC,,,,,,,LEAVE RSTOBJ OBJ(?L'100,2'?BSEHSE) SAVLIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'100,2'?BSEHSE) ENDOPT(*LEAVE) // * 'RESTORING FILE ?L'100,2'?CHGCS' ***SAVE ?L'100,2'?CHGCS,,,,,,TC,,,,,,,LEAVE RSTOBJ OBJ(?L'100,2'?CHGCS) SAVLIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'100,2'?CHGCS) ENDOPT(*LEAVE) // * 'RESTORING FILE ?L'100,2'?CHGHS' ***SAVE ?L'100,2'?CHGHS,,,,,,TC,,,,,,,LEAVE RSTOBJ OBJ(?L'100,2'?CHGHS) SAVLIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'100,2'?CHGHS) ENDOPT(*LEAVE) // * 'RESTORING FILE ?L'100,2'?CHKFLE' ***SAVE ?L'100,2'?CHKFLE,,,,,,TC,,,,,,,LEAVE RSTOBJ OBJ(?L'100,2'?CHKFLE) SAVLIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'100,2'?CHKFLE) ENDOPT(*LEAVE) // * 'RESTORING FILE ?L'100,2'?CNTRL' ***SAVE ?L'100,2'?CNTRL,,,,,,TC,,,,,,,LEAVE RSTOBJ OBJ(?L'100,2'?CNTRL) SAVLIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'100,2'?CNTRL) ENDOPT(*LEAVE) // * 'RESTORING FILE ?L'100,2'?CUSMAP' ***SAVE ?L'100,2'?CUSMAP,,,,,,TC,,,,,,,LEAVE RSTOBJ OBJ(?L'100,2'?CUSMAP) SAVLIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'100,2'?CUSMAP) ENDOPT(*LEAVE) // * 'RESTORING FILE ?L'100,2'?CUSMAS' ***SAVE ?L'100,2'?CUSMAS,,,,,,TC,,,,,,,LEAVE RSTOBJ OBJ(?L'100,2'?CUSMAS) SAVLIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'100,2'?CUSMAS) ENDOPT(*LEAVE) // * 'RESTORING FILE ?L'100,2'?DEPT' ***SAVE ?L'100,2'?DEPT,,,,,,TC,,,,,,,LEAVE RSTOBJ OBJ(?L'100,2'?DEPT) SAVLIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'100,2'?DEPT) ENDOPT(*LEAVE) // * 'RESTORING FILE ?L'100,2'?DPINV' ***SAVE ?L'100,2'?DPINV,,,,,,TC,,,,,,,LEAVE RSTOBJ OBJ(?L'100,2'?DPINV) SAVLIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'100,2'?DPINV) ENDOPT(*LEAVE) // * 'RESTORING FILE ?L'100,2'?EMPLYE' ***SAVE ?L'100,2'?EMPLYE,,,,,,TC,,,,,,,LEAVE RSTOBJ OBJ(?L'100,2'?EMPLYE) SAVLIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'100,2'?EMPLYE) ENDOPT(*LEAVE) // * 'RESTORING FILE ?L'100,2'?GLFILE' ***SAVE ?L'100,2'?GLFILE,,,,,,TC,,,,,,,LEAVE RSTOBJ OBJ(?L'100,2'?GLFILE) SAVLIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'100,2'?GLFILE) ENDOPT(*LEAVE) // * 'RESTORING FILE ?L'100,2'?GLPMT' ***SAVE ?L'100,2'?GLPMT,,,,,,TC,,,,,,,LEAVE RSTOBJ OBJ(?L'100,2'?GLPMT) SAVLIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'100,2'?GLPMT) ENDOPT(*LEAVE) // * 'RESTORING FILE ?L'100,2'?GLTRAN' ***SAVE ?L'100,2'?GLTRAN,,,,,,TC,,,,,,,LEAVE RSTOBJ OBJ(?L'100,2'?GLTRAN) SAVLIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'100,2'?GLTRAN) ENDOPT(*LEAVE) // * 'RESTORING FILE ?L'100,2'?HCRED' ***SAVE ?L'100,2'?HCRED,,,,,,TC,,,,,,,LEAVE RSTOBJ OBJ(?L'100,2'?HCRED) SAVLIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'100,2'?HCRED) ENDOPT(*LEAVE) // * 'RESTORING FILE ?L'100,2'?HOUEST' ***SAVE ?L'100,2'?HOUEST,,,,,,TC,,,,,,,LEAVE RSTOBJ OBJ(?L'100,2'?HOUEST) SAVLIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'100,2'?HOUEST) ENDOPT(*LEAVE) // * 'RESTORING FILE ?L'100,2'?HOUOLD' ***SAVE ?L'100,2'?HOUOLD,,,,,,TC,,,,,,,LEAVE RSTOBJ OBJ(?L'100,2'?HOUOLD) SAVLIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'100,2'?HOUOLD) ENDOPT(*LEAVE) // * 'RESTORING FILE ?L'100,2'?HOUSE' ***SAVE ?L'100,2'?HOUSE,,,,,,TC,,,,,,,LEAVE RSTOBJ OBJ(?L'100,2'?HOUSE) SAVLIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'100,2'?HOUSE) ENDOPT(*LEAVE) // * 'RESTORING FILE ?L'100,2'?HSECHG' ***SAVE ?L'100,2'?HSECHG,,,,,,TC,,,,,,,LEAVE RSTOBJ OBJ(?L'100,2'?HSECHG) SAVLIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'100,2'?HSECHG) ENDOPT(*LEAVE) // * 'RESTORING FILE ?L'100,2'?INVACC' ***SAVE ?L'100,2'?INVACC,,,,,,TC,,,,,,,LEAVE RSTOBJ OBJ(?L'100,2'?INVACC) SAVLIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'100,2'?INVACC) ENDOPT(*LEAVE) // * 'RESTORING FILE ?L'100,2'?INVCB' ***SAVE ?L'100,2'?INVCB,,,,,,TC,,,,,,,LEAVE RSTOBJ OBJ(?L'100,2'?INVCB) SAVLIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'100,2'?INVCB) ENDOPT(*LEAVE) // * 'RESTORING FILE ?L'100,2'?INVCE' ***SAVE ?L'100,2'?INVCE,,,,,,TC,,,,,,,LEAVE RSTOBJ OBJ(?L'100,2'?INVCE) SAVLIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'100,2'?INVCE) ENDOPT(*LEAVE) // * 'RESTORING FILE ?L'100,2'?INVEN' ***SAVE ?L'100,2'?INVEN,,,,,,TC,,,,,,,LEAVE RSTOBJ OBJ(?L'100,2'?INVEN) SAVLIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'100,2'?INVEN) ENDOPT(*LEAVE) // * 'RESTORING FILE ?L'100,2'?INVNOT' ***SAVE ?L'100,2'?INVNOT,,,,,,TC,,,,,,,LEAVE RSTOBJ OBJ(?L'100,2'?INVNOT) SAVLIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'100,2'?INVNOT) ENDOPT(*LEAVE) // * 'RESTORING FILE ?L'100,2'?JRDESC' ***SAVE ?L'100,2'?JRDESC,,,,,,TC,,,,,,,LEAVE RSTOBJ OBJ(?L'100,2'?JRDESC) SAVLIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'100,2'?JRDESC) ENDOPT(*LEAVE) // * 'RESTORING FILE ?L'100,2'?LABEL' ***SAVE ?L'100,2'?LABEL,,,,,,TC,,,,,,,LEAVE RSTOBJ OBJ(?L'100,2'?LABEL) SAVLIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'100,2'?LABEL) ENDOPT(*LEAVE) // * 'RESTORING FILE ?L'100,2'?LOAD' ***SAVE ?L'100,2'?LOAD,,,,,,TC,,,,,,,LEAVE RSTOBJ OBJ(?L'100,2'?LOAD) SAVLIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'100,2'?LOAD) ENDOPT(*LEAVE) // * 'RESTORING FILE ?L'100,2'?MESAGE' ***SAVE ?L'100,2'?MESAGE,,,,,,TC,,,,,,,LEAVE RSTOBJ OBJ(?L'100,2'?MESAGE) SAVLIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'100,2'?MESAGE) ENDOPT(*LEAVE) // * 'RESTORING FILE ?L'100,2'?MISCUS' ***SAVE ?L'100,2'?MISCUS,,,,,,TC,,,,,,,LEAVE RSTOBJ OBJ(?L'100,2'?MISCUS) SAVLIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'100,2'?MISCUS) ENDOPT(*LEAVE) // * 'RESTORING FILE ?L'100,2'?MLOAD' ***SAVE ?L'100,2'?MLOAD,,,,,,TC,,,,,,,LEAVE RSTOBJ OBJ(?L'100,2'?MLOAD) SAVLIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'100,2'?MLOAD) ENDOPT(*LEAVE) // * 'RESTORING FILE ?L'100,2'?MOVLOD' ***SAVE ?L'100,2'?MOVLOD,,,,,,TC,,,,,,,LEAVE RSTOBJ OBJ(?L'100,2'?MOVLOD) SAVLIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'100,2'?MOVLOD) ENDOPT(*LEAVE) // * 'RESTORING FILE ?L'100,2'?NHOUS' ***SAVE ?L'100,2'?NHOUS,,,,,,TC,,,,,,,LEAVE RSTOBJ OBJ(?L'100,2'?NHOUS) SAVLIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'100,2'?NHOUS) ENDOPT(*LEAVE) // * 'RESTORING FILE ?L'100,2'?NJUAF' ***SAVE ?L'100,2'?NJUAF,,,,,,TC,,,,,,,LEAVE RSTOBJ OBJ(?L'100,2'?NJUAF) SAVLIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'100,2'?NJUAF) ENDOPT(*LEAVE) // * 'RESTORING FILE ?L'100,2'?NMGLEN' ***SAVE ?L'100,2'?NMGLEN,,,,,,TC,,,,,,,LEAVE RSTOBJ OBJ(?L'100,2'?NMGLEN) SAVLIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'100,2'?NMGLEN) ENDOPT(*LEAVE) // * 'RESTORING FILE ?L'100,2'?NPRCTA' ***SAVE ?L'100,2'?NPRCTA,,,,,,TC,,,,,,,LEAVE RSTOBJ OBJ(?L'100,2'?NPRCTA) SAVLIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'100,2'?NPRCTA) ENDOPT(*LEAVE) // * 'RESTORING FILE ?L'100,2'?OPENAP' ***SAVE ?L'100,2'?OPENAP,,,,,,TC,,,,,,,LEAVE RSTOBJ OBJ(?L'100,2'?OPENAP) SAVLIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'100,2'?OPENAP) ENDOPT(*LEAVE) // * 'RESTORING FILE ?L'100,2'?PAYRL' ***SAVE ?L'100,2'?PAYRL,,,,,,TC,,,,,,,LEAVE RSTOBJ OBJ(?L'100,2'?PAYRL) SAVLIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'100,2'?PAYRL) ENDOPT(*LEAVE) // * 'RESTORING FILE ?L'100,2'?PODOL' ***SAVE ?L'100,2'?PODOL,,,,,,TC,,,,,,,LEAVE RSTOBJ OBJ(?L'100,2'?PODOL) SAVLIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'100,2'?PODOL) ENDOPT(*LEAVE) // * 'RESTORING FILE ?L'100,2'?POMST' ***SAVE ?L'100,2'?POMST,,,,,,TC,,,,,,,LEAVE RSTOBJ OBJ(?L'100,2'?POMST) SAVLIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'100,2'?POMST) ENDOPT(*LEAVE) // * 'RESTORING FILE ?L'100,2'?POREC' ***SAVE ?L'100,2'?POREC,,,,,,TC,,,,,,,LEAVE RSTOBJ OBJ(?L'100,2'?POREC) SAVLIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'100,2'?POREC) ENDOPT(*LEAVE) // * 'RESTORING FILE ?L'100,2'?PRCTAB' ***SAVE ?L'100,2'?PRCTAB,,,,,,TC,,,,,,,LEAVE RSTOBJ OBJ(?L'100,2'?PRCTAB) SAVLIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'100,2'?PRCTAB) ENDOPT(*LEAVE) // * 'RESTORING FILE ?L'100,2'?PRDREC' ***SAVE ?L'100,2'?PRDREC,,,,,,TC,,,,,,,LEAVE RSTOBJ OBJ(?L'100,2'?PRDREC) SAVLIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'100,2'?PRDREC) ENDOPT(*LEAVE) // * 'RESTORING FILE ?L'100,2'?PRDUSG' ***SAVE ?L'100,2'?PRDUSG,,,,,,TC,,,,,,,LEAVE RSTOBJ OBJ(?L'100,2'?PRDUSG) SAVLIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'100,2'?PRDUSG) ENDOPT(*LEAVE) // * 'RESTORING FILE ?L'100,2'?PROD' ***SAVE ?L'100,2'?PROD,,,,,,TC,,,,,,,LEAVE RSTOBJ OBJ(?L'100,2'?PROD) SAVLIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'100,2'?PROD) ENDOPT(*LEAVE) // * 'RESTORING FILE ?L'100,2'?PROJ' ***SAVE ?L'100,2'?PROJ,,,,,,TC,,,,,,,LEAVE RSTOBJ OBJ(?L'100,2'?PROJ) SAVLIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'100,2'?PROJ) ENDOPT(*LEAVE) // * 'RESTORING FILE ?L'100,2'?PYMT' ***SAVE ?L'100,2'?PYMT,,,,,,TC,,,,,,,LEAVE RSTOBJ OBJ(?L'100,2'?PYMT) SAVLIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'100,2'?PYMT) ENDOPT(*LEAVE) // * 'RESTORING FILE ?L'100,2'?PYMTBD' ***SAVE ?L'100,2'?PYMTBD,,,,,,TC,,,,,,,LEAVE RSTOBJ OBJ(?L'100,2'?PYMTBD) SAVLIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'100,2'?PYMTBD) ENDOPT(*LEAVE) // * 'RESTORING FILE ?L'100,2'?PYUN' ***SAVE ?L'100,2'?PYUN,,,,,,TC,,,,,,,LEAVE RSTOBJ OBJ(?L'100,2'?PYUN) SAVLIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'100,2'?PYUN) ENDOPT(*LEAVE) // * 'RESTORING FILE ?L'100,2'?PYUNBD' ***SAVE ?L'100,2'?PYUNBD,,,,,,TC,,,,,,,LEAVE RSTOBJ OBJ(?L'100,2'?PYUNBD) SAVLIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'100,2'?PYUNBD) ENDOPT(*LEAVE) // * 'RESTORING FILE ?L'100,2'?RECBD' ***SAVE ?L'100,2'?RECBD,,,,,,TC,,,,,,,LEAVE RSTOBJ OBJ(?L'100,2'?RECBD) SAVLIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'100,2'?RECBD) ENDOPT(*LEAVE) // * 'RESTORING FILE ?L'100,2'?RCBDA1' ***SAVE ?L'100,2'?RCBDA1,,,,,,TC,,,,,,,LEAVE RSTOBJ OBJ(?L'100,2'?RCBDA1) SAVLIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'100,2'?RCBDA1) ENDOPT(*LEAVE) // * 'RESTORING FILE ?L'100,2'?RECEV' ***SAVE ?L'100,2'?RECEV,,,,,,TC,,,,,,,LEAVE RSTOBJ OBJ(?L'100,2'?RECEV) SAVLIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'100,2'?RECEV) ENDOPT(*LEAVE) // * 'RESTORING FILE ?L'100,2'?RECAL1' ***SAVE ?L'100,2'?RECAL1,,,,,,TC,,,,,,,LEAVE RSTOBJ OBJ(?L'100,2'?RECAL1) SAVLIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'100,2'?RECAL1) ENDOPT(*LEAVE) // * 'RESTORING FILE ?L'100,2'?RELSHT' ***SAVE ?L'100,2'?RELSHT,,,,,,TC,,,,,,,LEAVE RSTOBJ OBJ(?L'100,2'?RELSHT) SAVLIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'100,2'?RELSHT) ENDOPT(*LEAVE) // * 'RESTORING FILE ?L'100,2'?RELSH1' ***SAVE ?L'100,2'?RELSH1,,,,,,TC,,,,,,,LEAVE RSTOBJ OBJ(?L'100,2'?RELSH1) SAVLIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'100,2'?RELSH1) ENDOPT(*LEAVE) // * 'RESTORING FILE ?L'100,2'?SALMEN' ***SAVE ?L'100,2'?SALMEN,,,,,,TC,,,,,,,LEAVE RSTOBJ OBJ(?L'100,2'?SALMEN) SAVLIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'100,2'?SALMEN) ENDOPT(*LEAVE) // * 'RESTORING FILE ?L'100,2'?UNCASH' ***SAVE ?L'100,2'?UNCASH,,,,,,TC,,,,,,,LEAVE RSTOBJ OBJ(?L'100,2'?UNCASH) SAVLIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'100,2'?UNCASH) ENDOPT(*LEAVE) // * 'RESTORING FILE ?L'100,2'?UNCSBD' ***SAVE ?L'100,2'?UNCSBD,,,,,,TC,,,,,,,LEAVE RSTOBJ OBJ(?L'100,2'?UNCSBD) SAVLIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'100,2'?UNCSBD) ENDOPT(*LEAVE) // * 'RESTORING FILE ?L'100,2'?VENDOR' ***SAVE ?L'100,2'?VENDOR,,,,,,TC,,,,,,,LEAVE RSTOBJ OBJ(?L'100,2'?VENDOR) SAVLIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'100,2'?VENDOR) ENDOPT(*LEAVE) // * 'RESTORING FILE ?L'100,2'?YPAYRL' ***SAVE ?L'100,2'?YPAYRL,,,,,,TC,,,,,,,REWIND RSTOBJ OBJ(?L'100,2'?YPAYRL) SAVLIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'100,2'?YPAYRL) ENDOPT(*REWIND) // TAG END // CEND // COPY LIBRARY-P,NAME-TST123,RECL-096,DATE-04/06/01,TIME-1557 // * 'DO YOU WISH TO INITIALIZE THE TAPE TO VOLID=JOFFE ?' // * ' Y = YES' // * ' ANYTHING ELSE = NO' // LOCAL OFFSET-1,DATA-'?R?' // IFF ?L'1,1'?='Y' GOTO START // * 'TAPE BEING INITIALIZED TO VOLID=JOFFE' INZTAP DEV(TAP01) NEWVOL(JOFFE) NEWOWNID(JOFFE) CHECK(*NO) DENSITY(*CTGTYPE) // TAG START // * 'ENTER NAME OF FILE TO BE SAVED TO TAPE' // LOCAL OFFSET-1,DATA-'?R?' // * 'ENTER NUMBER OF CHARACTERS IN FILENAME JUST ENTERED' // LOCAL OFFSET-9,DATA-'?R?' // IF ?L'9,1'?='4' GOTO FILE4 // IF ?L'9,1'?='5' GOTO FILE5 // IF ?L'9,1'?='6' GOTO FILE6 // IF ?L'9,1'?='7' GOTO FILE7 // IF ?L'9,1'?='8' GOTO FILE8 // TAG FILE4 ***SAVE ?L'1,4'?,,,JOFFE,TC,,,,,,,REWIND SAVOBJ OBJ(?L'1,4'?) LIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'1,4'?) ENDOPT(*REWIND) // GOTO AGAIN // TAG FILE5 ***SAVE ?L'1,5'?,,,JOFFE,TC,,,,,,,REWIND SAVOBJ OBJ(?L'1,5'?) LIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'1,5'?) ENDOPT(*REWIND) // GOTO AGAIN // TAG FILE6 ***SAVE ?L'1,6'?,,,JOFFE,TC,,,,,,,REWIND SAVOBJ OBJ(?L'1,6'?) LIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'1,6'?) ENDOPT(*REWIND) // GOTO AGAIN // TAG FILE7 ***SAVE ?L'1,7'?,,,JOFFE,TC,,,,,,,REWIND SAVOBJ OBJ(?L'1,7'?) LIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'1,7'?) ENDOPT(*REWIND) // GOTO AGAIN // TAG FILE8 ***SAVE ?L'1,8'?,,,JOFFE,TC,,,,,,,REWIND SAVOBJ OBJ(?L'1,8'?) LIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'1,8'?) ENDOPT(*REWIND) // GOTO AGAIN // TAG AGAIN // * ' ' // * 'DO YOU WISH TO SAVE ANOTHER FILE ?' // * ' Y = YES' // * ' ANYTHING ELSE = NO' // LOCAL OFFSET-1,DATA-'?R?' // IF ?L'1,1'?='Y' GOTO START // CEND // COPY LIBRARY-P,NAME-TST124,RECL-096,DATE-04/06/01,TIME-1557 // * 'YOU WILL ERASE FROM THE COMPUTER, THEN RESTORE FROM TAPE' // * 'ANY FILE(S) YOU WISH' // * 'ENTER PASSWORD TO CONTINUE' // IFF ?R?='JOFFEBUILDSBETTERHOUSES' GOTO END // TAG START // * 'ENTER NAME OF FILE TO BE ERASED THEN RESTORED FROM TAPE' // LOCAL OFFSET-1,DATA-'?R?' // * 'ENTER NUMBER OF CHARACTERS IN FILENAME JUST ENTERED' // LOCAL OFFSET-9,DATA-'?R?' // IF ?L'9,1'?='4' GOTO FILE4 // IF ?L'9,1'?='5' GOTO FILE5 // IF ?L'9,1'?='6' GOTO FILE6 // IF ?L'9,1'?='7' GOTO FILE7 // IF ?L'9,1'?='8' GOTO FILE8 // TAG FILE4 // IF DATAF1-?L'1,4'? DELETE ?L'1,4'?,F1 ***SAVE ?L'1,4'?,,,,,,TC,,,,,,,,,,REWIND RSTOBJ OBJ(?L'1,4'?) SAVLIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'1,4'?) ENDOPT(*REWIND) // GOTO AGAIN // TAG FILE5 // IF DATAF1-?L'1,5'? DELETE ?L'1,5'?,F1 ***SAVE ?L'1,5'?,,,,,,TC,,,,,,,,,,REWIND RSTOBJ OBJ(?L'1,5'?) SAVLIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'1,5'?) ENDOPT(*REWIND) // GOTO AGAIN // TAG FILE6 // IF DATAF1-?L'1,6'? DELETE ?L'1,6'?,F1 ***SAVE ?L'1,6'?,,,,,,TC,,,,,,,,,,REWIND RSTOBJ OBJ(?L'1,6'?) SAVLIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'1,6'?) ENDOPT(*REWIND) // GOTO AGAIN // TAG FILE7 // IF DATAF1-?L'1,7'? DELETE ?L'1,7'?,F1 ***SAVE ?L'1,7'?,,,,,,TC,,,,,,,,,,REWIND RSTOBJ OBJ(?L'1,7'?) SAVLIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'1,7'?) ENDOPT(*REWIND) // GOTO AGAIN // TAG FILE8 // IF DATAF1-?L'1,8'? DELETE ?L'1,8'?,F1 ***SAVE ?L'1,8'?,,,,,,TC,,,,,,,,,,REWIND RSTOBJ OBJ(?L'1,8'?) SAVLIB(QS36F) DEV(TAP01) OBJTYPE(*FILE) LABEL(?L'1,8'?) ENDOPT(*REWIND) // GOTO AGAIN // TAG AGAIN // * ' ' // * 'DO YOU WISH TO RESTORE ANOTHER FILE ?' // * ' Y = YES' // * ' ANYTHING ELSE = NO' // LOCAL OFFSET-1,DATA-'?R?' // IF ?L'1,1'?='Y' GOTO START // TAG END // CEND // COPY LIBRARY-P,NAME-TST125,RECL-096,DATE-04/06/01,TIME-1557 ********** SAVE ALL FILES WITH SYSTEM/36 SAVE COMMAND ***************************************************** // * 'ALL FILES FOR COMPANY ?L'100,2'? WILL BE SAVED TO TAPE' // * ' ' // * 'FILES WILL BE SAVED IN ALPHABETIC ORDER, EXCEPT FOR' // * 'ALTERNATE-INDEX FILES WHICH WILL BE SAVED ALPHABETICALLY' // * 'IMMEDIATELY AFTER THEIR PARENT FILE' // * ' ' // * 'DO YOU WISH TO INITIALIZE THE TAPE TO VOLID=JOFFE ?' // * ' Y = YES' // * ' ANYTHING ELSE = NO' // LOCAL OFFSET-1,DATA-'?R?' // IFF ?L'1,1'?='Y' GOTO START // * 'TAPE BEING INITIALIZED TO VOLID=JOFFE' INZTAP DEV(TAP01) NEWVOL(JOFFE) NEWOWNID(JOFFE) CHECK(*NO) DENSITY(*CTGTYPE) // TAG START // LOCAL OFFSET-1,DATA-'?L'100,2'?' // * 'SAVING FILE ?L'1,2'?ARCHK' SAVE ?L'1,2'?ARCHK,,,JOFFE,TC,,,,,,,LEAVE // * 'SAVING FILE ?L'1,2'?ARCKBD' SAVE ?L'1,2'?ARCKBD,,,JOFFE,TC,,,,,,,LEAVE // * 'SAVING FILE ?L'1,2'?ASMTMP' SAVE ?L'1,2'?ASMTMP,,,JOFFE,TC,,,,,,,LEAVE // * 'SAVING FILE ?L'1,2'?BILMAT' SAVE ?L'1,2'?BILMAT,,,JOFFE,TC,,,,,,,LEAVE // * 'SAVING FILE ?L'1,2'?BLMTTM' SAVE ?L'1,2'?BLMTTM,,,JOFFE,TC,,,,,,,LEAVE // * 'SAVING FILE ?L'1,2'?BSEHSE' SAVE ?L'1,2'?BSEHSE,,,JOFFE,TC,,,,,,,LEAVE // * 'SAVING FILE ?L'1,2'?CHGCS' SAVE ?L'1,2'?CHGCS,,,JOFFE,TC,,,,,,,LEAVE // * 'SAVING FILE ?L'1,2'?CHGHS' SAVE ?L'1,2'?CHGHS,,,JOFFE,TC,,,,,,,LEAVE // * 'SAVING FILE ?L'1,2'?CHKFLE' SAVE ?L'1,2'?CHKFLE,,,JOFFE,TC,,,,,,,LEAVE // * 'SAVING FILE ?L'1,2'?CNTRL' SAVE ?L'1,2'?CNTRL,,,JOFFE,TC,,,,,,,LEAVE // * 'SAVING FILE ?L'1,2'?CUSMAP' SAVE ?L'1,2'?CUSMAP,,,JOFFE,TC,,,,,,,LEAVE // * 'SAVING FILE ?L'1,2'?CUSMAS' SAVE ?L'1,2'?CUSMAS,,,JOFFE,TC,,,,,,,LEAVE // * 'SAVING FILE ?L'1,2'?DEPT' SAVE ?L'1,2'?DEPT,,,JOFFE,TC,,,,,,,LEAVE // * 'SAVING FILE ?L'1,2'?DPINV' SAVE ?L'1,2'?DPINV,,,JOFFE,TC,,,,,,,LEAVE // * 'SAVING FILE ?L'1,2'?EMPLYE' SAVE ?L'1,2'?EMPLYE,,,JOFFE,TC,,,,,,,LEAVE // * 'SAVING FILE ?L'1,2'?GLFILE' SAVE ?L'1,2'?GLFILE,,,JOFFE,TC,,,,,,,LEAVE // * 'SAVING FILE ?L'1,2'?GLPMT' SAVE ?L'1,2'?GLPMT,,,JOFFE,TC,,,,,,,LEAVE // * 'SAVING FILE ?L'1,2'?GLTRAN' SAVE ?L'1,2'?GLTRAN,,,JOFFE,TC,,,,,,,LEAVE // * 'SAVING FILE ?L'1,2'?HCRED' SAVE ?L'1,2'?HCRED,,,JOFFE,TC,,,,,,,LEAVE // * 'SAVING FILE ?L'1,2'?HOUEST' SAVE ?L'1,2'?HOUEST,,,JOFFE,TC,,,,,,,LEAVE // * 'SAVING FILE ?L'1,2'?HOUOLD' SAVE ?L'1,2'?HOUOLD,,,JOFFE,TC,,,,,,,LEAVE // * 'SAVING FILE ?L'1,2'?HOUSE' SAVE ?L'1,2'?HOUSE,,,JOFFE,TC,,,,,,,LEAVE // * 'SAVING FILE ?L'1,2'?HSECHG' SAVE ?L'1,2'?HSECHG,,,JOFFE,TC,,,,,,,LEAVE // * 'SAVING FILE ?L'1,2'?INVACC' SAVE ?L'1,2'?INVACC,,,JOFFE,TC,,,,,,,LEAVE // * 'SAVING FILE ?L'1,2'?INVCB' SAVE ?L'1,2'?INVCB,,,JOFFE,TC,,,,,,,LEAVE // * 'SAVING FILE ?L'1,2'?INVCE' SAVE ?L'1,2'?INVCE,,,JOFFE,TC,,,,,,,LEAVE // * 'SAVING FILE ?L'1,2'?INVEN' SAVE ?L'1,2'?INVEN,,,JOFFE,TC,,,,,,,LEAVE // * 'SAVING FILE ?L'1,2'?INVNOT' SAVE ?L'1,2'?INVNOT,,,JOFFE,TC,,,,,,,LEAVE // * 'SAVING FILE ?L'1,2'?JRDESC' SAVE ?L'1,2'?JRDESC,,,JOFFE,TC,,,,,,,LEAVE // * 'SAVING FILE ?L'1,2'?LABEL' SAVE ?L'1,2'?LABEL,,,JOFFE,TC,,,,,,,LEAVE // * 'SAVING FILE ?L'1,2'?LOAD' SAVE ?L'1,2'?LOAD,,,JOFFE,TC,,,,,,,LEAVE // * 'SAVING FILE ?L'1,2'?MESAGE' SAVE ?L'1,2'?MESAGE,,,JOFFE,TC,,,,,,,LEAVE // * 'SAVING FILE ?L'1,2'?MISCUS' SAVE ?L'1,2'?MISCUS,,,JOFFE,TC,,,,,,,LEAVE // * 'SAVING FILE ?L'1,2'?MLOAD' SAVE ?L'1,2'?MLOAD,,,JOFFE,TC,,,,,,,LEAVE // * 'SAVING FILE ?L'1,2'?MOVLOD' SAVE ?L'1,2'?MOVLOD,,,JOFFE,TC,,,,,,,LEAVE // * 'SAVING FILE ?L'1,2'?NHOUS' SAVE ?L'1,2'?NHOUS,,,JOFFE,TC,,,,,,,LEAVE // * 'SAVING FILE ?L'1,2'?NJUAF' SAVE ?L'1,2'?NJUAF,,,JOFFE,TC,,,,,,,LEAVE // * 'SAVING FILE ?L'1,2'?NMGLEN' SAVE ?L'1,2'?NMGLEN,,,JOFFE,TC,,,,,,,LEAVE // * 'SAVING FILE ?L'1,2'?NPRCTA' SAVE ?L'1,2'?NPRCTA,,,JOFFE,TC,,,,,,,LEAVE // * 'SAVING FILE ?L'1,2'?OPENAP' SAVE ?L'1,2'?OPENAP,,,JOFFE,TC,,,,,,,LEAVE // * 'SAVING FILE ?L'1,2'?PAYRL' SAVE ?L'1,2'?PAYRL,,,JOFFE,TC,,,,,,,LEAVE // * 'SAVING FILE ?L'1,2'?PODOL' SAVE ?L'1,2'?PODOL,,,JOFFE,TC,,,,,,,LEAVE // * 'SAVING FILE ?L'1,2'?POMST' SAVE ?L'1,2'?POMST,,,JOFFE,TC,,,,,,,LEAVE // * 'SAVING FILE ?L'1,2'?POREC' SAVE ?L'1,2'?POREC,,,JOFFE,TC,,,,,,,LEAVE // * 'SAVING FILE ?L'1,2'?PRCTAB' SAVE ?L'1,2'?PRCTAB,,,JOFFE,TC,,,,,,,LEAVE // * 'SAVING FILE ?L'1,2'?PRDREC' SAVE ?L'1,2'?PRDREC,,,JOFFE,TC,,,,,,,LEAVE // * 'SAVING FILE ?L'1,2'?PRDUSG' SAVE ?L'1,2'?PRDUSG,,,JOFFE,TC,,,,,,,LEAVE // * 'SAVING FILE ?L'1,2'?PROD' SAVE ?L'1,2'?PROD,,,JOFFE,TC,,,,,,,LEAVE // * 'SAVING FILE ?L'1,2'?PROJ' SAVE ?L'1,2'?PROJ,,,JOFFE,TC,,,,,,,LEAVE // * 'SAVING FILE ?L'1,2'?PYMT' SAVE ?L'1,2'?PYMT,,,JOFFE,TC,,,,,,,LEAVE // * 'SAVING FILE ?L'1,2'?PYMTBD' SAVE ?L'1,2'?PYMTBD,,,JOFFE,TC,,,,,,,LEAVE // * 'SAVING FILE ?L'1,2'?PYUN' SAVE ?L'1,2'?PYUN,,,JOFFE,TC,,,,,,,LEAVE // * 'SAVING FILE ?L'1,2'?PYUNBD' SAVE ?L'1,2'?PYUNBD,,,JOFFE,TC,,,,,,,LEAVE // * 'SAVING FILE ?L'1,2'?RECBD' SAVE ?L'1,2'?RECBD,,,JOFFE,TC,,,,,,,LEAVE // * 'SAVING FILE ?L'1,2'?RCBDA1' SAVE ?L'1,2'?RCBDA1,,,JOFFE,TC,,,,,,,LEAVE // * 'SAVING FILE ?L'1,2'?RECEV' SAVE ?L'1,2'?RECEV,,,JOFFE,TC,,,,,,,LEAVE // * 'SAVING FILE ?L'1,2'?RECAL1' SAVE ?L'1,2'?RECAL1,,,JOFFE,TC,,,,,,,LEAVE // * 'SAVING FILE ?L'1,2'?RELSHT' SAVE ?L'1,2'?RELSHT,,,JOFFE,TC,,,,,,,LEAVE // * 'SAVING FILE ?L'1,2'?RELSH1' SAVE ?L'1,2'?RELSH1,,,JOFFE,TC,,,,,,,LEAVE // * 'SAVING FILE ?L'1,2'?SALMEN' SAVE ?L'1,2'?SALMEN,,,JOFFE,TC,,,,,,,LEAVE // * 'SAVING FILE ?L'1,2'?UNCASH' SAVE ?L'1,2'?UNCASH,,,JOFFE,TC,,,,,,,LEAVE // * 'SAVING FILE ?L'1,2'?UNCSBD' SAVE ?L'1,2'?UNCSBD,,,JOFFE,TC,,,,,,,LEAVE // * 'SAVING FILE ?L'1,2'?VENDOR' SAVE ?L'1,2'?VENDOR,,,JOFFE,TC,,,,,,,LEAVE // * 'SAVING FILE ?L'1,2'?YPAYRL' SAVE ?L'1,2'?YPAYRL,,,JOFFE,TC,,,,,,,REWIND // CEND // COPY LIBRARY-P,NAME-TST126,RECL-096,DATE-04/06/01,TIME-1557 // * 'ALL FILES FOR COMPANY ?L'100,2'? WILL BE ERASED' // * 'THEN RESTORED FROM TAPE WITH SYSTEM/36 RESTORE COMMAND' // * ' ' // * 'FILES WILL BE RESTORED IN ALPHABETIC ORDER, EXCEPT FOR' // * 'ALTERNATE-INDEX FILES WHICH WILL BE RESTORED ALPHABETICALLY' // * 'IMMEDIATELY AFTER THEIR PARENT FILE' // * ' ' // * 'ENTER PASSWORD TO CONTINUE' // * ' ' // IFF ?R?='JOFFEBUILDSBETTERHOUSES' GOTO END // * 'ENTER:' // * ' DELETEALLFILES' // * 'TO CONTINUE' // IFF ?R?='DELETEALLFILES' GOTO END ********** DELETING ALL FILES // IF DATAF1-?L'100,2'?ARCHK DELETE ?L'100,2'?ARCHK,F1 // IF DATAF1-?L'100,2'?ARCKBD DELETE ?L'100,2'?ARCKBD,F1 // IF DATAF1-?L'100,2'?ASMTMP DELETE ?L'100,2'?ASMTMP,F1 // IF DATAF1-?L'100,2'?BILMAT DELETE ?L'100,2'?BILMAT,F1 // IF DATAF1-?L'100,2'?BLMTTM DELETE ?L'100,2'?BLMTTM,F1 // IF DATAF1-?L'100,2'?BSEHSE DELETE ?L'100,2'?BSEHSE,F1 // IF DATAF1-?L'100,2'?CHGCS DELETE ?L'100,2'?CHGCS,F1 // IF DATAF1-?L'100,2'?CHGHS DELETE ?L'100,2'?CHGHS,F1 // IF DATAF1-?L'100,2'?CHKFLE DELETE ?L'100,2'?CHKFLE,F1 // IF DATAF1-?L'100,2'?CNTRL DELETE ?L'100,2'?CNTRL,F1 // IF DATAF1-?L'100,2'?CUSMAP DELETE ?L'100,2'?CUSMAP,F1 // IF DATAF1-?L'100,2'?CUSMAS DELETE ?L'100,2'?CUSMAS,F1 // IF DATAF1-?L'100,2'?DEPT DELETE ?L'100,2'?DEPT,F1 // IF DATAF1-?L'100,2'?DPINV DELETE ?L'100,2'?DPINV,F1 // IF DATAF1-?L'100,2'?EMPLYE DELETE ?L'100,2'?EMPLYE,F1 // IF DATAF1-?L'100,2'?GLFILE DELETE ?L'100,2'?GLFILE,F1 // IF DATAF1-?L'100,2'?GLPMT DELETE ?L'100,2'?GLPMT,F1 // IF DATAF1-?L'100,2'?GLTRAN DELETE ?L'100,2'?GLTRAN,F1 // IF DATAF1-?L'100,2'?HCRED DELETE ?L'100,2'?HCRED,F1 // IF DATAF1-?L'100,2'?HOUEST DELETE ?L'100,2'?HOUEST,F1 // IF DATAF1-?L'100,2'?HOUOLD DELETE ?L'100,2'?HOUOLD,F1 // IF DATAF1-?L'100,2'?HOUSE DELETE ?L'100,2'?HOUSE,F1 // IF DATAF1-?L'100,2'?HSECHG DELETE ?L'100,2'?HSECHG,F1 // IF DATAF1-?L'100,2'?INVACC DELETE ?L'100,2'?INVACC,F1 // IF DATAF1-?L'100,2'?INVCB DELETE ?L'100,2'?INVCB,F1 // IF DATAF1-?L'100,2'?INVCE DELETE ?L'100,2'?INVCE,F1 // IF DATAF1-?L'100,2'?INVEN DELETE ?L'100,2'?INVEN,F1 // IF DATAF1-?L'100,2'?INVNOT DELETE ?L'100,2'?INVNOT,F1 // IF DATAF1-?L'100,2'?JRDESC DELETE ?L'100,2'?JRDESC,F1 // IF DATAF1-?L'100,2'?LABEL DELETE ?L'100,2'?LABEL,F1 // IF DATAF1-?L'100,2'?LOAD DELETE ?L'100,2'?LOAD,F1 // IF DATAF1-?L'100,2'?MESAGE DELETE ?L'100,2'?MESAGE,F1 // IF DATAF1-?L'100,2'?MISCUS DELETE ?L'100,2'?MISCUS,F1 // IF DATAF1-?L'100,2'?MLOAD DELETE ?L'100,2'?MLOAD,F1 // IF DATAF1-?L'100,2'?MOVLOD DELETE ?L'100,2'?MOVLOD,F1 // IF DATAF1-?L'100,2'?NHOUS DELETE ?L'100,2'?NHOUS,F1 // IF DATAF1-?L'100,2'?NJUAF DELETE ?L'100,2'?NJUAF,F1 // IF DATAF1-?L'100,2'?NMGLEN DELETE ?L'100,2'?NMGLEN,F1 // IF DATAF1-?L'100,2'?NPRCTA DELETE ?L'100,2'?NPRCTA,F1 // IF DATAF1-?L'100,2'?OPENAP DELETE ?L'100,2'?OPENAP,F1 // IF DATAF1-?L'100,2'?PAYRL DELETE ?L'100,2'?PAYRL,F1 // IF DATAF1-?L'100,2'?PODOL DELETE ?L'100,2'?PODOL,F1 // IF DATAF1-?L'100,2'?POMST DELETE ?L'100,2'?POMST,F1 // IF DATAF1-?L'100,2'?POREC DELETE ?L'100,2'?POREC,F1 // IF DATAF1-?L'100,2'?PRCTAB DELETE ?L'100,2'?PRCTAB,F1 // IF DATAF1-?L'100,2'?PRDREC DELETE ?L'100,2'?PRDREC,F1 // IF DATAF1-?L'100,2'?PRDUSG DELETE ?L'100,2'?PRDUSG,F1 // IF DATAF1-?L'100,2'?PROD DELETE ?L'100,2'?PROD,F1 // IF DATAF1-?L'100,2'?PROJ DELETE ?L'100,2'?PROJ,F1 // IF DATAF1-?L'100,2'?PYMT DELETE ?L'100,2'?PYMT,F1 // IF DATAF1-?L'100,2'?PYMTBD DELETE ?L'100,2'?PYMTBD,F1 // IF DATAF1-?L'100,2'?PYUN DELETE ?L'100,2'?PYUN,F1 // IF DATAF1-?L'100,2'?PYUNBD DELETE ?L'100,2'?PYUNBD,F1 // IF DATAF1-?L'100,2'?RCBDA1 DELETE ?L'100,2'?RCBDA1,F1 // IF DATAF1-?L'100,2'?RECBD DELETE ?L'100,2'?RECBD,F1 // IF DATAF1-?L'100,2'?RECAL1 DELETE ?L'100,2'?RECAL1,F1 // IF DATAF1-?L'100,2'?RECEV DELETE ?L'100,2'?RECEV,F1 // IF DATAF1-?L'100,2'?RELSH1 DELETE ?L'100,2'?RELSH1,F1 // IF DATAF1-?L'100,2'?RELSHT DELETE ?L'100,2'?RELSHT,F1 // IF DATAF1-?L'100,2'?SALMEN DELETE ?L'100,2'?SALMEN,F1 // IF DATAF1-?L'100,2'?UNCASH DELETE ?L'100,2'?UNCASH,F1 // IF DATAF1-?L'100,2'?UNCSBD DELETE ?L'100,2'?UNCSBD,F1 // IF DATAF1-?L'100,2'?VENDOR DELETE ?L'100,2'?VENDOR,F1 // IF DATAF1-?L'100,2'?YPAYRL DELETE ?L'100,2'?YPAYRL,F1 ********** RESTORING ALL FILES // * 'RESTORING FILE ?L'100,2'?ARCHK' RESTORE ?L'100,2'?ARCHK,,,,,,TC,,,,,,,,,,,LEAVE // * 'RESTORING FILE ?L'100,2'?ARCKBD' RESTORE ?L'100,2'?ARCKBD,,,,,,TC,,,,,,,,,,,LEAVE // * 'RESTORING FILE ?L'100,2'?ASMTMP' RESTORE ?L'100,2'?ASMTMP,,,,,,TC,,,,,,,,,,,LEAVE // * 'RESTORING FILE ?L'100,2'?BILMAT' RESTORE ?L'100,2'?BILMAT,,,,,,TC,,,,,,,,,,,LEAVE // * 'RESTORING FILE ?L'100,2'?BLMTTM' RESTORE ?L'100,2'?BLMTTM,,,,,,TC,,,,,,,,,,,LEAVE // * 'RESTORING FILE ?L'100,2'?BSEHSE' RESTORE ?L'100,2'?BSEHSE,,,,,,TC,,,,,,,,,,,LEAVE // * 'RESTORING FILE ?L'100,2'?CHGCS' RESTORE ?L'100,2'?CHGCS,,,,,,TC,,,,,,,,,,,LEAVE // * 'RESTORING FILE ?L'100,2'?CHGHS' RESTORE ?L'100,2'?CHGHS,,,,,,TC,,,,,,,,,,,LEAVE // * 'RESTORING FILE ?L'100,2'?CHKFLE' RESTORE ?L'100,2'?CHKFLE,,,,,,TC,,,,,,,,,,,LEAVE // * 'RESTORING FILE ?L'100,2'?CNTRL' RESTORE ?L'100,2'?CNTRL,,,,,,TC,,,,,,,,,,,LEAVE // * 'RESTORING FILE ?L'100,2'?CUSMAP' RESTORE ?L'100,2'?CUSMAP,,,,,,TC,,,,,,,,,,,LEAVE // * 'RESTORING FILE ?L'100,2'?CUSMAS' RESTORE ?L'100,2'?CUSMAS,,,,,,TC,,,,,,,,,,,LEAVE // * 'RESTORING FILE ?L'100,2'?DEPT' RESTORE ?L'100,2'?DEPT,,,,,,TC,,,,,,,,,,,LEAVE // * 'RESTORING FILE ?L'100,2'?DPINV' RESTORE ?L'100,2'?DPINV,,,,,,TC,,,,,,,,,,,LEAVE // * 'RESTORING FILE ?L'100,2'?EMPLYE' RESTORE ?L'100,2'?EMPLYE,,,,,,TC,,,,,,,,,,,LEAVE // * 'RESTORING FILE ?L'100,2'?GLFILE' RESTORE ?L'100,2'?GLFILE,,,,,,TC,,,,,,,,,,,LEAVE // * 'RESTORING FILE ?L'100,2'?GLPMT' RESTORE ?L'100,2'?GLPMT,,,,,,TC,,,,,,,,,,,LEAVE // * 'RESTORING FILE ?L'100,2'?GLTRAN' RESTORE ?L'100,2'?GLTRAN,,,,,,TC,,,,,,,,,,,LEAVE // * 'RESTORING FILE ?L'100,2'?HCRED' RESTORE ?L'100,2'?HCRED,,,,,,TC,,,,,,,,,,,LEAVE // * 'RESTORING FILE ?L'100,2'?HOUEST' RESTORE ?L'100,2'?HOUEST,,,,,,TC,,,,,,,,,,,LEAVE // * 'RESTORING FILE ?L'100,2'?HOUOLD' RESTORE ?L'100,2'?HOUOLD,,,,,,TC,,,,,,,,,,,LEAVE // * 'RESTORING FILE ?L'100,2'?HOUSE' RESTORE ?L'100,2'?HOUSE,,,,,,TC,,,,,,,,,,,LEAVE // * 'RESTORING FILE ?L'100,2'?HSECHG' RESTORE ?L'100,2'?HSECHG,,,,,,TC,,,,,,,,,,,LEAVE // * 'RESTORING FILE ?L'100,2'?INVACC' RESTORE ?L'100,2'?INVACC,,,,,,TC,,,,,,,,,,,LEAVE // * 'RESTORING FILE ?L'100,2'?INVCB' RESTORE ?L'100,2'?INVCB,,,,,,TC,,,,,,,,,,,LEAVE // * 'RESTORING FILE ?L'100,2'?INVCE' RESTORE ?L'100,2'?INVCE,,,,,,TC,,,,,,,,,,,LEAVE // * 'RESTORING FILE ?L'100,2'?INVEN' RESTORE ?L'100,2'?INVEN,,,,,,TC,,,,,,,,,,,LEAVE // * 'RESTORING FILE ?L'100,2'?INVNOT' RESTORE ?L'100,2'?INVNOT,,,,,,TC,,,,,,,,,,,LEAVE // * 'RESTORING FILE ?L'100,2'?JRDESC' RESTORE ?L'100,2'?JRDESC,,,,,,TC,,,,,,,,,,,LEAVE // * 'RESTORING FILE ?L'100,2'?LABEL' RESTORE ?L'100,2'?LABEL,,,,,,TC,,,,,,,,,,,LEAVE // * 'RESTORING FILE ?L'100,2'?LOAD' RESTORE ?L'100,2'?LOAD,,,,,,TC,,,,,,,,,,,LEAVE // * 'RESTORING FILE ?L'100,2'?MESAGE' RESTORE ?L'100,2'?MESAGE,,,,,,TC,,,,,,,,,,,LEAVE // * 'RESTORING FILE ?L'100,2'?MISCUS' RESTORE ?L'100,2'?MISCUS,,,,,,TC,,,,,,,,,,,LEAVE // * 'RESTORING FILE ?L'100,2'?MLOAD' RESTORE ?L'100,2'?MLOAD,,,,,,TC,,,,,,,,,,,LEAVE // * 'RESTORING FILE ?L'100,2'?MOVLOD' RESTORE ?L'100,2'?MOVLOD,,,,,,TC,,,,,,,,,,,LEAVE // * 'RESTORING FILE ?L'100,2'?NHOUS' RESTORE ?L'100,2'?NHOUS,,,,,,TC,,,,,,,,,,,LEAVE // * 'RESTORING FILE ?L'100,2'?NJUAF' RESTORE ?L'100,2'?NJUAF,,,,,,TC,,,,,,,,,,,LEAVE // * 'RESTORING FILE ?L'100,2'?NMGLEN' RESTORE ?L'100,2'?NMGLEN,,,,,,TC,,,,,,,,,,,LEAVE // * 'RESTORING FILE ?L'100,2'?NPRCTA' RESTORE ?L'100,2'?NPRCTA,,,,,,TC,,,,,,,,,,,LEAVE // * 'RESTORING FILE ?L'100,2'?OPENAP' RESTORE ?L'100,2'?OPENAP,,,,,,TC,,,,,,,,,,,LEAVE // * 'RESTORING FILE ?L'100,2'?PAYRL' RESTORE ?L'100,2'?PAYRL,,,,,,TC,,,,,,,,,,,LEAVE // * 'RESTORING FILE ?L'100,2'?PODOL' RESTORE ?L'100,2'?PODOL,,,,,,TC,,,,,,,,,,,LEAVE // * 'RESTORING FILE ?L'100,2'?POMST' RESTORE ?L'100,2'?POMST,,,,,,TC,,,,,,,,,,,LEAVE // * 'RESTORING FILE ?L'100,2'?POREC' RESTORE ?L'100,2'?POREC,,,,,,TC,,,,,,,,,,,LEAVE // * 'RESTORING FILE ?L'100,2'?PRCTAB' RESTORE ?L'100,2'?PRCTAB,,,,,,TC,,,,,,,,,,,LEAVE // * 'RESTORING FILE ?L'100,2'?PRDREC' RESTORE ?L'100,2'?PRDREC,,,,,,TC,,,,,,,,,,,LEAVE // * 'RESTORING FILE ?L'100,2'?PRDUSG' RESTORE ?L'100,2'?PRDUSG,,,,,,TC,,,,,,,,,,,LEAVE // * 'RESTORING FILE ?L'100,2'?PROD' RESTORE ?L'100,2'?PROD,,,,,,TC,,,,,,,,,,,LEAVE // * 'RESTORING FILE ?L'100,2'?PROJ' RESTORE ?L'100,2'?PROJ,,,,,,TC,,,,,,,,,,,LEAVE // * 'RESTORING FILE ?L'100,2'?PYMT' RESTORE ?L'100,2'?PYMT,,,,,,TC,,,,,,,,,,,LEAVE // * 'RESTORING FILE ?L'100,2'?PYMTBD' RESTORE ?L'100,2'?PYMTBD,,,,,,TC,,,,,,,,,,,LEAVE // * 'RESTORING FILE ?L'100,2'?PYUN' RESTORE ?L'100,2'?PYUN,,,,,,TC,,,,,,,,,,,LEAVE // * 'RESTORING FILE ?L'100,2'?PYUNBD' RESTORE ?L'100,2'?PYUNBD,,,,,,TC,,,,,,,,,,,LEAVE // * 'RESTORING FILE ?L'100,2'?RECBD' RESTORE ?L'100,2'?RECBD,,,,,,TC,,,,,,,,,,,LEAVE // * 'RESTORING FILE ?L'100,2'?RCBDA1' RESTORE ?L'100,2'?RCBDA1,,,,,,TC,,,,,,,,,,,LEAVE // * 'RESTORING FILE ?L'100,2'?RECEV' RESTORE ?L'100,2'?RECEV,,,,,,TC,,,,,,,,,,,LEAVE // * 'RESTORING FILE ?L'100,2'?RECAL1' RESTORE ?L'100,2'?RECAL1,,,,,,TC,,,,,,,,,,,LEAVE // * 'RESTORING FILE ?L'100,2'?RELSHT' RESTORE ?L'100,2'?RELSHT,,,,,,TC,,,,,,,,,,,LEAVE // * 'RESTORING FILE ?L'100,2'?RELSH1' RESTORE ?L'100,2'?RELSH1,,,,,,TC,,,,,,,,,,,LEAVE // * 'RESTORING FILE ?L'100,2'?SALMEN' RESTORE ?L'100,2'?SALMEN,,,,,,TC,,,,,,,,,,,LEAVE // * 'RESTORING FILE ?L'100,2'?UNCASH' RESTORE ?L'100,2'?UNCASH,,,,,,TC,,,,,,,,,,,LEAVE // * 'RESTORING FILE ?L'100,2'?UNCSBD' RESTORE ?L'100,2'?UNCSBD,,,,,,TC,,,,,,,,,,,LEAVE // * 'RESTORING FILE ?L'100,2'?VENDOR' RESTORE ?L'100,2'?VENDOR,,,,,,TC,,,,,,,,,,,LEAVE // * 'RESTORING FILE ?L'100,2'?YPAYRL' RESTORE ?L'100,2'?YPAYRL,,,,,,TC,,,,,,,,,,,REWIND // TAG END // CEND // COPY LIBRARY-P,NAME-TST127,DATE-04/05/20,TIME-1443 // * 'TAPE IS BEING INITIALIZED TO VOLID = JOFFE' INZTAP DEV(TAP01) NEWVOL(JOFFE) NEWOWNID(JOFFE) CHECK(*NO) DENSITY(*CTGTYPE) // CEND // COPY LIBRARY-P,NAME-TST128,RECL-120,DATE-04/06/01,TIME-1557 // LOAD TST128 // PRINTER NAME-PRT,FORMSNO-JOHN // FILE NAME-PROD,LABEL-XXXXPROD,DISP-SHR // FILE NAME-NPROD,LABEL-JFNPROD,RECORDS-70000,EXTEND-500 // RUN // CEND // COPY LIBRARY-P,NAME-TST129,RECL-120,DATE-06/08/02,TIME-1009 // IF DATAF1-XXXXLOAD DELETE XXXXLOAD,F1 // LOAD TST129 // PRINTER NAME-PRT,HOLD-YES // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-XXXXLOAD,RECORDS-50000 // RUN // CEND // COPY LIBRARY-P,NAME-TST133,RECL-120,DATE-04/07/14,TIME-1120 // * 'THIS PROGRAM WILL ALLOW YOU TO MAKE CHANGES TO PO FILE POMST' // * 'FOR COMPANY ?L'100,2'?' // * ' ' // * 'PLEASE ENTER THE PASSWORD.' // IFF ?R?='JOFFEBUILDSBETTERHOUSES' GOTO END // * ' ' // LOAD TST133 // FILE NAME-POMST,LABEL-?L'100,2'?POMST,DISP-SHR // RUN // TAG END // CEND // COPY LIBRARY-P,NAME-TST134,RECL-120,DATE-07/02/13,TIME-0843 // * 'THIS WILL CHANGE DATES IN CASH RECEIPTS' // * 'FOR COMPANY ?L'100,2'?' // * ' ' // * 'PLEASE ENTER THE PASSWORD.' // IFF ?R?='JOFFEBUILDSBETTERHOUSES' GOTO END // * ' ' // LOAD TST134 // PRINTER NAME-PRT,FORMSNO-JOHN,HOLD-YES // FILE NAME-IPYMT,LABEL-?L'100,2'?PYMT,DISP-SHR // FILE NAME-GLPMT,LABEL-?L'100,2'?GLPMT,DISP-SHR // FILE NAME-ARCHK,LABEL-?L'100,2'?ARCHK,DISP-SHR // FILE NAME-PYMT,LABEL-?L'100,2'?PYMT,DISP-SHR // FILE NAME-RECEV,LABEL-?L'100,2'?RECEV,DISP-SHR // FILE NAME-PYUN,LABEL-?L'100,2'?PYUN,DISP-SHR // RUN // TAG END // CEND // COPY LIBRARY-P,NAME-TST139,RECL-120,DATE-04/07/14,TIME-1159 // * 'ENTER TERMINAL ID TO WHICH ODD LOADS ARE TO BE ASSIGNED' // LOCAL OFFSET-1,DATA-'?R?' // LOAD TST139 // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-RELSHT,LABEL-?L'100,2'?RELSHT,DISP-SHR // FILE NAME-MISCUS,LABEL-?L'100,2'?MISCUS,DISP-SHR // FILE NAME-INVCB,LABEL-?L'100,2'?INVCB,DISP-SHR // FILE NAME-XLOAD,LABEL-?L'1,2'?XLOADR,RECORDS-4000 // FILE NAME-XMSCS,LABEL-?L'1,2'?XMSCSR,RECORDS-500 // RUN // CEND // COPY LIBRARY-P,NAME-TST140,RECL-120,DATE-04/08/02,TIME-1255 // * 'THIS PROGRAM WILL ALLOW YOU TO MAKE CHANGES TO THE' // * 'PRODUCT USAGE FILE PRDUSG FOR COMPANY ?L'100,2'?' // * ' ' // * 'PLEASE ENTER THE PASSWORD.' // IFF ?R?='JOFFEBUILDSBETTERHOUSES' GOTO END // * ' ' // LOAD TST140 // FILE NAME-PRDUSG,LABEL-?L'100,2'?PRDUSG,DISP-SHR // RUN // TAG END // CEND // COPY LIBRARY-P,NAME-TST141,RECL-120,DATE-04/08/02,TIME-1255 // IF DATAF1-XXXXPRDU DELETE XXXXPRDU,F1 // LOAD TST141 // SWITCH 10000000 // FILE NAME-PRDUSG,LABEL-?L'100,2'?PRDUSG,DISP-SHR // FILE NAME-XXXXPRDU,RECORDS-10000 // RUN // CEND // COPY LIBRARY-P,NAME-TST142,RECL-120,DATE-04/08/02,TIME-1256 // IF DATAF1-XXXXPRCT DELETE XXXXPRCT,F1 // LOAD TST142 // FILE NAME-PRCTAB,LABEL-?L'100,2'?PRCTAB,DISP-SHR // FILE NAME-XXXXPRCT,RECORDS-100000 // RUN // CEND // COPY LIBRARY-P,NAME-TST143,RECL-120,DATE-09/11/23,TIME-1841 // * 'THIS PROGRAM WILL REMOVE RECORDS (BY INVOICE#) FROM THE' // * 'TWO INVOICE FILES INVCB/INVCE FOR COMPANY ?L'100,2'?' // * ' ' // * 'THESE INVOICES ARE CODED IN THE PROGRAM' // * 'THE ORIGINAL FILES WILL BE LABELLED ?L'100,2'?ZINVCB' // * 'AND ?L'200,2'?ZINVCE' // * ' ' // * 'PLEASE ENTER PASSWORD TO CONTINUE.' // IFF ?R?='JOFFEBUILDSBETTERHOUSES' GOTO END // * ' ' RENAME ?L'100,2'?INVCB,?L'100,2'?ZINVCB RENAME ?L'100,2'?INVCE,?L'100,2'?ZINVCE // LOAD TST143 // PRINTER NAME-PRT,HOLD-YES // FILE NAME-ZINVCB,LABEL-?L'100,2'?ZINVCB // FILE NAME-ZINVCE,LABEL-?L'100,2'?ZINVCE // FILE NAME-INVCB,LABEL-?L'100,2'?INVCB,RECORDS-200000,EXTEND-5000 // FILE NAME-INVCE,LABEL-?L'100,2'?INVCE,RECORDS-3000000,EXTEND-10000 // RUN // TAG END // CEND // COPY LIBRARY-P,NAME-TST144,RECL-120,DATE-04/08/02,TIME-1256 // * 'DO NOT UPDATE LOADS OR INVOICES DURING THIS PROGRAM' // PAUSE // LOAD TST144 // FILE NAME-INVCB,LABEL-JFINVCB // FILE NAME-NINVCB,LABEL-JFNINVCB,RECORDS-200000,EXTEND-5000 // RUN // CEND // COPY LIBRARY-P,NAME-TST146,RECL-120,DATE-04/08/27,TIME-1128 // LOAD TST146 // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-TST147,RECL-120,DATE-06/05/02,TIME-1010 // * 'THIS PROGRAM WILL ALLOW YOU TO ADD RECORDS TO THE FILE GLTRAN' // * 'FOR COMPANY ?L'100,2'?' // * ' ' // * 'PLEASE ENTER THE PASSWORD.' // IFF ?R?='JOFFEBUILDSBETTERHOUSES' GOTO END // * ' ' // LOAD TST147 // FILE NAME-GLTRAN,LABEL-?L'100,2'?GLTRAN,DISP-SHR // RUN // TAG END // CEND // COPY LIBRARY-P,NAME-TST148,RECL-120,DATE-06/05/04,TIME-0831 // * 'THIS PROGRAM WILL ALLOW YOU TO MAKE CHANGES TO THE FILE GLTRAN' // * 'FOR COMPANY ?L'100,2'?' // * ' ' // * 'PLEASE ENTER THE PASSWORD.' // IFF ?R?='JOFFEBUILDSBETTERHOUSES' GOTO END // * ' ' // LOAD TST148 // FILE NAME-GLTRAN,LABEL-?L'100,2'?GLTRAN,DISP-SHR // RUN // TAG END // CEND // COPY LIBRARY-P,NAME-TST149,RECL-120,DATE-04/10/05,TIME-1504 // * 'THIS PROGRAM WILL ALLOW YOU TO MAKE CHANGES TO THE FILE CHKFLE' // * 'FOR COMPANY ?L'100,2'?' // * ' ' // * 'PLEASE ENTER THE PASSWORD.' // IFF ?R?='JOFFEBUILDSBETTERHOUSES' GOTO END // * ' ' // LOAD TST149 // FILE NAME-CHKFLE,LABEL-?L'100,2'?CHKFLE,DISP-SHR // RUN // TAG END // CEND // COPY LIBRARY-P,NAME-TST150,RECL-120,DATE-05/01/07,TIME-1208 // * 'THIS PROGRAM WILL ADD INVOICE DISCOUNT AMOUNTS TO' // * 'THE A/P CHECK FILE CHKFLE FROM THEOPEN INVOICE FILE OPENAP' // * 'FOR COMPANY ?L'100,2'?' // * ' ' // * 'PLEASE ENTER THE PASSWORD.' // IFF ?R?='JOFFEBUILDSBETTERHOUSES' GOTO END // * ' ' // LOAD TST150 // FILE NAME-CHKFLE,LABEL-?L'100,2'?CHKFLE,DISP-SHR // FILE NAME-OPENAP,LABEL-?L'100,2'?OPENAP,DISP-SHR // RUN // TAG END // CEND // COPY LIBRARY-P,NAME-TST151,RECL-120,DATE-05/04/01,TIME-1015 // * 'THIS PROGRAM WILL FIGURE STAIR AMOUNTS' // * 'FROM THE INVOICE FILE INVCE AND ADD THEM TO THE' // * 'RECEIVABLES FILE RECEV' // * 'FOR COMPANY ?L'100,2'?' // * ' ' // * 'PLEASE ENTER THE PASSWORD.' // IFF ?R?='JOFFEBUILDSBETTERHOUSES' GOTO END // * ' ' // LOAD TST151 // PRINTER NAME-PRT,HOLD-YES // FILE NAME-RECEV,LABEL-?L'100,2'?RECEV,DISP-SHR // FILE NAME-INVCE,LABEL-?L'100,2'?INVCE,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // RUN // TAG END // CEND // COPY LIBRARY-P,NAME-TST152,RECL-120,DATE-05/03/22,TIME-0921 // LOAD TST152 // PRINTER NAME-PRT,HOLD-YES // FILE NAME-RECEV,LABEL-?L'100,2'?RECEV,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-TST153,RECL-120,DATE-05/04/04,TIME-1100 // LOAD JF0649 // FILE NAME-RECEV,LABEL-?L'100,2'?RECEV,DISP-SHR // FILE NAME-XINREG,LABEL-?WS?XINREG,RECORDS-4000 // RUN // LOAD TST153 // SWITCH 01000000 // PRINTER NAME-PRT,CPI-15,HOLD-YES // FILE NAME-XREC,LABEL-?WS?XINREG,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-MISCUS,LABEL-?L'100,2'?MISCUS,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-TST154,RECL-120,DATE-05/06/20,TIME-0924 // LOAD TST154 // FILE NAME-RECEV,LABEL-?L'100,2'?RECEV,DISP-SHR // FILE NAME-XCSRC,LABEL-?WS?XCSRC,RECORDS-500 // FILE NAME-XCSDT,LABEL-?WS?XCSDT,RECORDS-1 // RUN // CEND // COPY LIBRARY-P,NAME-TST155,RECL-120,DATE-05/06/24,TIME-0754 // LOAD TST155 // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // PRINTER NAME-PRT,HOLD-YES // RUN // CEND // COPY LIBRARY-P,NAME-TST156,RECL-120,DATE-06/02/07,TIME-0404 // * 'THIS PROGRAM WILL RECALCULATE THE WINDOWS AMOUNT FOR ALL INVOICES' // * 'IN 2005' // * '***********************************************' // * 'IF SWITCH 1 IS SET TO 1 THE NEW WINDOWS AMOUNT WILL BE ADDED' // * 'TO THE A/R INVOICE FILE RECEV' // * '***********************************************' // * ' ' ***// * 'TEST TEST TEST' // * 'PLEASE ENTER PASSWORD TO CONTINUE' ***// IFF ?R?='JOFFEBUILDSBETTERHOUSES' GOTO END // * ' ' // LOAD TST156 // SWITCH 10000000 // PRINTER NAME-PRT,HOLD-YES // FILE NAME-RECEV,LABEL-?L'100,2'?RECEV,DISP-SHR ***// FILE NAME-RECEV,LABEL-XXXXRECV // FILE NAME-INVCE,LABEL-?L'100,2'?INVCE,DISP-SHR ***// FILE NAME-INVCE,LABEL-XXXXINVC // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // RUN // TAG END // CEND // COPY LIBRARY-P,NAME-TST157,RECL-120,DATE-06/02/09,TIME-1058 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?L'100,2'?RECEV,DISP-SHR // FILE NAME-OUTPUT,LABEL-?WS?XREC,RECORDS-500000 // RUN HSORTR 6A 3X 300 * I C 18 19EQC05 * IAC 300NECD * IAC 300NECV FNU 8 13 * FNU 18 19 * FNU 14 17 FDC 1 256 FDC 257 300 // END // LOCAL OFFSET-1,DATA-'?F'A,?WS?XREC'?' // LOAD TST157 // SWITCH 00000000 // PRINTER NAME-PRT,HOLD-YES // FILE NAME-XREC,LABEL-?WS?XREC,RETAIN-S // FILE NAME-INVCE,LABEL-?L'100,2'?INVCE,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // RUN // TAG END // CEND // COPY LIBRARY-P,NAME-TST158,RECL-120,DATE-06/02/09,TIME-1058 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?L'100,2'?RECEV,DISP-SHR // FILE NAME-OUTPUT,LABEL-?WS?XREC,RECORDS-500000 // RUN HSORTR 6A 3X 300 * I C 18 19EQC05 * IAC 300NECD * IAC 300NECV FNU 8 13 * FNU 18 19 * FNU 14 17 FDC 1 256 FDC 257 300 // END // LOCAL OFFSET-1,DATA-'?F'A,?WS?XREC'?' // LOAD TST158 // SWITCH 00000000 // PRINTER NAME-PRT,HOLD-YES // FILE NAME-XREC,LABEL-?WS?XREC,RETAIN-S // FILE NAME-INVCE,LABEL-?L'100,2'?INVCE,DISP-SHR // RUN // TAG END // CEND // COPY LIBRARY-P,NAME-TST159,DATE-06/03/30,TIME-0940 // LOAD TST159 // RUN // CEND // COPY LIBRARY-P,NAME-TST160,RECL-120,DATE-06/05/02,TIME-1010 // LOAD TST160 // FILE NAME-BILLMATL,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-TST161,RECL-120,DATE-06/05/04,TIME-0831 // * 'THIS PROGRAM WILL ALLOW YOU TO MAKE CHANGES TO THE FILE NMGLEN' // * 'FOR COMPANY ?L'100,2'?' // * ' ' // * 'PLEASE ENTER THE PASSWORD.' // IFF ?R?='JOFFEBUILDSBETTERHOUSES' GOTO END // * ' ' // LOAD TST161 // FILE NAME-NMGLEN,LABEL-?L'100,2'?NMGLEN,DISP-SHR // RUN // TAG END // CEND // COPY LIBRARY-P,NAME-TST162,DATE-06/05/08,TIME-0811 // LOAD TST162 // RUN // CEND // COPY LIBRARY-P,NAME-TST163,DATE-06/05/19,TIME-0728 // LOAD TST163 // RUN // CEND // COPY LIBRARY-P,NAME-TST164,RECL-120,DATE-06/06/09,TIME-1012 // * 'THIS PROGRAM WILL ALLOW YOU TO ADD RECORDS TO THE FILE GLTRAN' // * 'FOR COMPANY ?L'100,2'?' // * ' ' // * 'PLEASE ENTER THE PASSWORD.' // IFF ?R?='JOFFEBUILDSBETTERHOUSES' GOTO END // * ' ' // LOAD TST164 // FILE NAME-OGLTRAN,LABEL-XXXXJOHN // FILE NAME-GLTRAN,LABEL-?L'100,2'?GLTRAN,RECORDS-7000,EXTEND-1000 // RUN // TAG END // CEND // COPY LIBRARY-P,NAME-TST165,RECL-120,DATE-07/01/19,TIME-1241 // * 'THIS PROGRAM WILL ALLOW YOU TO ADD RECORDS TO THE FILE INVACC' // * 'FOR COMPANY ?L'100,2'?' // * ' ' // * 'PLEASE ENTER THE PASSWORD.' // IFF ?R?='JOFFEBUILDSBETTERHOUSES' GOTO END // * ' ' // LOAD TST165 // FILE NAME-INVACC,LABEL-?L'100,2'?INVACC,DISP-SHR // RUN // TAG END // CEND // COPY LIBRARY-P,NAME-TST166,RECL-120,DATE-07/03/02,TIME-1247 // * 'THIS WILL CHANGE DATES IN FILES PYMT & RECEV' // * 'FOR COMPANY ?L'100,2'?' // * ' ' // * 'PLEASE ENTER THE PASSWORD.' // IFF ?R?='JOFFEBUILDSBETTERHOUSES' GOTO END // * ' ' // LOAD TST166 // PRINTER NAME-PRT,FORMSNO-JOHN,HOLD-YES // FILE NAME-IPYMT,LABEL-?L'100,2'?PYMT,DISP-SHR // FILE NAME-PYMT,LABEL-?L'100,2'?PYMT,DISP-SHR // FILE NAME-RECEV,LABEL-?L'100,2'?RECEV,DISP-SHR // RUN // TAG END // CEND // COPY LIBRARY-P,NAME-TST167,RECL-120,DATE-07/03/02,TIME-1556 // * 'THIS PROGRAM WILL ALLOW YOU TO MAKE CHANGES TO THE A/R FILE RECEV' // * 'FOR COMPANY ?L'100,2'?' // * ' ' // * 'PLEASE ENTER THE PASSWORD.' // IFF ?R?='JOFFEBUILDSBETTERHOUSES' GOTO END // * ' ' // LOAD TST167 // SWITCH 10000000 // PRINTER NAME-PRT,HOLD-YES // FILE NAME-RECEV,LABEL-?L'100,2'?RECVNC,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // RUN // TAG END // CEND // COPY LIBRARY-P,NAME-TST168,DATE-07/10/12,TIME-1811 // LOAD TST168 // FILE NAME-PRDUSG,LABEL-?L'100,2'?PRDUSG,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR ***// FILE NAME-PROD,LABEL-XXXXPROD // RUN // CEND // COPY LIBRARY-P,NAME-TST170,DATE-08/05/05,TIME-1128 // * 'THIS PROGRAM WILL ADD CHK#'S TO THE PAYMENT FILE PYMT' ' // * 'FOR COMPANY ?L'100,2'?' // * ' ' // * 'PLEASE ENTER THE PASSWORD.' // IFF ?R?='JOFFEBUILDSBETTERHOUSES' GOTO END // * ' ' // LOAD TST170 // FILE NAME-PYMT,LABEL-XJOHN,DISP-SHR // FILE NAME-RECEV,LABEL-?L'100,2'?RECEV,DISP-SHR // RUN // TAG END // CEND // COPY LIBRARY-P,NAME-TST171,DATE-08/06/04,TIME-1219 // * 'THIS PROGRAM WILL ADD CHK#'S TO THE PAYMENT FILE PYMT' ' // * 'FOR COMPANY ?L'100,2'?' // * ' ' // * 'PLEASE ENTER THE PASSWORD.' // IFF ?R?='JOFFEBUILDSBETTERHOUSES' GOTO END // * ' ' // LOAD TST171 // FILE NAME-PYMT,LABEL-XJOHN */ FILE NAME-PYMT,LABEL-?L'100,2'?PYMT,DISP-SHR */ FILE NAME-ARCHK,LABEL-?L'100,2'?ARCHK,DISP-SHR // FILE NAME-ARCHK,LABEL-XXXXJOHN // RUN // TAG END // CEND // COPY LIBRARY-P,NAME-TST172,DATE-08/06/09,TIME-2145 // * 'THIS PROGRAM WILL ADD CHK#'S TO THE PAYMENT FILE PYUN' ' // * 'FOR COMPANY ?L'100,2'?' // * ' ' // * 'PLEASE ENTER THE PASSWORD.' // IFF ?R?='JOFFEBUILDSBETTERHOUSES' GOTO END // * ' ' // LOAD TST172 */ FILE NAME-PYUN,LABEL-XXJOHN // FILE NAME-PYUN,LABEL-?L'100,2'?PYUN,DISP-SHR */ FILE NAME-ARCHK,LABEL-?L'100,2'?ARCHK,DISP-SHR // FILE NAME-ARCHK,LABEL-XXXXJOHN // RUN // TAG END // CEND // COPY LIBRARY-P,NAME-TST173,RECL-120,DATE-08/02/28,TIME-1127 // * 'THIS PROGRAM WILL BLANK OUT UNUSED PORTIONS OF H RECORDS' // * 'OF THE LOAD FILE' // * 'FOR COMPANY ?L'100,2'?' // * ' ' // * 'PLEASE ENTER THE PASSWORD.' // IFF ?R?='JOFFEBUILDSBETTERHOUSES' GOTO END // * ' ' // LOAD TST173 // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // RUN // TAG END // CEND // COPY LIBRARY-P,NAME-TST175,DATE-08/01/16,TIME-1235 // LOAD TST175 // RUN // CEND // COPY LIBRARY-P,NAME-TST176,RECL-120,DATE-08/01/30,TIME-0731 // * 'THIS PROGRAM WILL ZERO OUT PRICING, ETC. ON ALL LINES AFTER' // * 'THE FIRST LINE IN PRODUCT FILE PROD' // * 'FOR COMPANY ?L'100,2'?' // * ' ' // * 'PLEASE ENTER THE PASSWORD.' // IFF ?R?='JOFFEBUILDSBETTERHOUSES' GOTO END // * ' ' // LOAD TST176 // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // RUN // TAG END // CEND // COPY LIBRARY-P,NAME-TST181,RECL-120,DATE-08/02/14,TIME-1338 // IF DATAF1-X?L'100,2'?ARCHK DELETE X?L'100,2'?ARCHK,F1 // LOAD TST181 // FILE NAME-ARCHK,LABEL-?L'100,2'?ARCHK,DISP-SHR // FILE NAME-XARCHK,LABEL-X?L'100,2'?ARCHK,RECORDS-45000 // RUN // CEND // COPY LIBRARY-P,NAME-TST182,RECL-120,DATE-08/02/14,TIME-1929 // IF DATAF1-X?L'100,2'?ARCKB DELETE X?L'100,2'?ARCKB,F1 // LOAD TST181 // FILE NAME-ARCHK,LABEL-?L'100,2'?ARCKBD,DISP-SHR // FILE NAME-XARCHK,LABEL-X?L'100,2'?ARCKB,RECORDS-1000 // RUN // CEND // COPY LIBRARY-P,NAME-TST183,RECL-120,DATE-08/02/14,TIME-1338 // IF DATAF1-X?L'100,2'?ASMTM DELETE X?L'100,2'?ASMTM,F1 // LOAD TST183 // FILE NAME-ASMTMP,LABEL-?L'100,2'?ASMTMP,DISP-SHR // FILE NAME-XASMTM,LABEL-X?L'100,2'?ASMTM,RECORDS-100 // RUN // CEND // COPY LIBRARY-P,NAME-TST184,RECL-120,DATE-08/02/14,TIME-1338 // IF DATAF1-X?L'100,2'?BILAM DELETE X?L'100,2'?BILMA,F1 // LOAD TST184 // FILE NAME-BILMAT,LABEL-?L'100,2'?BILMAT,DISP-SHR // FILE NAME-XBILMA,LABEL-X?L'100,2'?BILMA,RECORDS-5000 // RUN // CEND // COPY LIBRARY-P,NAME-TST185,RECL-120,DATE-08/02/14,TIME-1933 // IF DATAF1-X?L'100,2'?BLMTT DELETE X?L'100,2'?BLMTT,F1 // LOAD TST184 // FILE NAME-BILMAT,LABEL-?L'100,2'?BLMTTM,DISP-SHR // FILE NAME-XBILMA,LABEL-X?L'100,2'?BLMTT,RECORDS-8000 // RUN // CEND // COPY LIBRARY-P,NAME-TST186,RECL-120,DATE-08/02/14,TIME-1338 // IF DATAF1-X?L'100,2'?BSEHS DELETE X?L'100,2'?BSEHS,F1 // LOAD TST186 // FILE NAME-BSEHSE,LABEL-?L'100,2'?BSEHSE,DISP-SHR // FILE NAME-XBSEHS,LABEL-X?L'100,2'?BSEHS,RECORDS-1000 // RUN // CEND // COPY LIBRARY-P,NAME-TST187,RECL-120,DATE-08/02/14,TIME-1338 // IF DATAF1-X?L'100,2'?CHGCS DELETE X?L'100,2'?CHGCS,F1 // LOAD TST187 // FILE NAME-CHGCS,LABEL-?L'100,2'?CHGCS,DISP-SHR // FILE NAME-XCHGCS,LABEL-X?L'100,2'?CHGCS,RECORDS-1000 // RUN // CEND // COPY LIBRARY-P,NAME-TST188,RECL-120,DATE-08/02/14,TIME-1935 // IF DATAF1-X?L'100,2'?CHGHS DELETE X?L'100,2'?CHGHS,F1 // LOAD TST188 // FILE NAME-CHGHS,LABEL-?L'100,2'?CHGHS,DISP-SHR // FILE NAME-XCHGHS,LABEL-X?L'100,2'?CHGHS,RECORDS-1000 // RUN // CEND // COPY LIBRARY-P,NAME-TST189,RECL-120,DATE-08/02/14,TIME-1338 // IF DATAF1-X?L'100,2'?CHKFL DELETE X?L'100,2'?CHKFL,F1 // LOAD TST189 // FILE NAME-CHKFLE,LABEL-?L'100,2'?CHKFLE,DISP-SHR // FILE NAME-XCHKFL,LABEL-X?L'100,2'?CHKFL,RECORDS-75000 // RUN // CEND // COPY LIBRARY-P,NAME-TST190,RECL-120,DATE-08/02/14,TIME-1338 // IF DATAF1-X?L'100,2'?DEPT DELETE X?L'100,2'?DEPT,F1 // LOAD TST190 // FILE NAME-DEPT,LABEL-?L'100,2'?DEPT,DISP-SHR // FILE NAME-XDEPT,LABEL-X?L'100,2'?DEPT,RECORDS-300 // RUN // CEND // COPY LIBRARY-P,NAME-TST191,RECL-120,DATE-08/02/14,TIME-1956 // IF DATAF1-X?L'100,2'?DPINV DELETE X?L'100,2'?DPINV,F1 // LOAD TST191 // FILE NAME-DPINV,LABEL-?L'100,2'?DPINV,DISP-SHR // FILE NAME-XDPINV,LABEL-X?L'100,2'?DPINV,RECORDS-2000 // RUN // CEND // COPY LIBRARY-P,NAME-TST192,RECL-120,DATE-08/02/14,TIME-1338 // IF DATAF1-X?L'100,2'?EMPLY DELETE X?L'100,2'?EMPLY,F1 // LOAD TST192 // FILE NAME-EMPLYE,LABEL-?L'100,2'?EMPLYE,DISP-SHR // FILE NAME-XEMPLY,LABEL-X?L'100,2'?EMPLY,RECORDS-1000 // RUN // CEND // COPY LIBRARY-P,NAME-TST193,RECL-120,DATE-08/02/14,TIME-1338 // IF DATAF1-X?L'100,2'?GLFIL DELETE X?L'100,2'?GLFIL,F1 // LOAD TST193 // FILE NAME-GLFILE,LABEL-?L'100,2'?GLFILE,DISP-SHR // FILE NAME-XGLFIL,LABEL-X?L'100,2'?GLFIL,RECORDS-1000 // RUN // CEND // COPY LIBRARY-P,NAME-TST194,RECL-120,DATE-08/02/14,TIME-1338 // IF DATAF1-X?L'100,2'?GLPMT DELETE X?L'100,2'?GLPMT,F1 // LOAD TST194 // FILE NAME-GLPMT,LABEL-?L'100,2'?GLPMT,DISP-SHR // FILE NAME-XGLPMT,LABEL-X?L'100,2'?GLPMT,RECORDS-4000 // RUN // CEND // COPY LIBRARY-P,NAME-TST195,RECL-120,DATE-08/02/14,TIME-1338 // IF DATAF1-X?L'100,2'?GLTRA DELETE X?L'100,2'?GLTRA,F1 // LOAD TST195 // FILE NAME-GLTRAN,LABEL-?L'100,2'?GLTRAN,DISP-SHR // FILE NAME-XGLTRA,LABEL-X?L'100,2'?GLTRA,RECORDS-20000 // RUN // CEND // COPY LIBRARY-P,NAME-TST196,RECL-120,DATE-08/02/14,TIME-1338 // IF DATAF1-X?L'100,2'?HCRED DELETE X?L'100,2'?HCRED,F1 // LOAD TST196 // FILE NAME-HCRED,LABEL-?L'100,2'?HCRED,DISP-SHR // FILE NAME-XHCRED,LABEL-X?L'100,2'?HCRED,RECORDS-8000 // RUN // CEND // COPY LIBRARY-P,NAME-TST197,RECL-120,DATE-08/02/14,TIME-1338 // IF DATAF1-X?L'100,2'?HOUES DELETE X?L'100,2'?HOUES,F1 // LOAD TST199 // FILE NAME-HOUSE,LABEL-?L'100,2'?HOUEST,DISP-SHR // FILE NAME-XHOUSE,LABEL-X?L'100,2'?HOUES,RECORDS-1600000 // RUN // CEND // COPY LIBRARY-P,NAME-TST198,RECL-120,DATE-08/02/14,TIME-1338 // IF DATAF1-X?L'100,2'?HOUOL DELETE X?L'100,2'?HOUOL,F1 // LOAD TST199 // FILE NAME-HOUSE,LABEL-?L'100,2'?HOUOLD,DISP-SHR // FILE NAME-XHOUSE,LABEL-X?L'100,2'?HOUOL,RECORDS-200000 // RUN // CEND // COPY LIBRARY-P,NAME-TST199,RECL-120,DATE-08/02/14,TIME-1338 // IF DATAF1-X?L'100,2'?HOUSE DELETE X?L'100,2'?HOUSE,F1 // LOAD TST199 // FILE NAME-HOUSE,LABEL-?L'100,2'?HOUSE,DISP-SHR // FILE NAME-XHOUSE,LABEL-X?L'100,2'?HOUSE,RECORDS-300000 // RUN // CEND // COPY LIBRARY-P,NAME-TST200,RECL-120,DATE-08/02/14,TIME-1338 // IF DATAF1-X?L'100,2'?HSECH DELETE X?L'100,2'?HSECH,F1 // LOAD TST200 // FILE NAME-HSECHG,LABEL-?L'100,2'?HSECHG,DISP-SHR // FILE NAME-XHSECH,LABEL-X?L'100,2'?HSECH,RECORDS-320000 // RUN // CEND // COPY LIBRARY-P,NAME-TST201,RECL-120,DATE-08/02/14,TIME-1338 // IF DATAF1-X?L'100,2'?INVAC DELETE X?L'100,2'?INVAC,F1 // LOAD TST201 // FILE NAME-INVACC,LABEL-?L'100,2'?INVACC,DISP-SHR // FILE NAME-XINVAC,LABEL-X?L'100,2'?INVAC,RECORDS-75000 // RUN // CEND // COPY LIBRARY-P,NAME-TST202,RECL-120,DATE-08/02/14,TIME-1338 // IF DATAF1-X?L'100,2'?INVCB DELETE X?L'100,2'?INVCB,F1 // LOAD TST202 // FILE NAME-INVCB,LABEL-?L'100,2'?INVCB,DISP-SHR // FILE NAME-XINVCB,LABEL-X?L'100,2'?INVCB,RECORDS-100000 // RUN // CEND // COPY LIBRARY-P,NAME-TST203,RECL-120,DATE-08/02/14,TIME-1338 // IF DATAF1-X?L'100,2'?INVCE DELETE X?L'100,2'?INVCE,F1 // LOAD TST203 // FILE NAME-INVCE,LABEL-?L'100,2'?INVCE,DISP-SHR // FILE NAME-XINVCE,LABEL-X?L'100,2'?INVCE,RECORDS-1800000 // RUN // CEND // COPY LIBRARY-P,NAME-TST204,RECL-120,DATE-08/02/14,TIME-1338 // IF DATAF1-X?L'100,2'?INVEN DELETE X?L'100,2'?INVEN,F1 // LOAD TST204 // FILE NAME-INVEN,LABEL-?L'100,2'?INVEN,DISP-SHR // FILE NAME-XINVEN,LABEL-X?L'100,2'?INVEN,RECORDS-40000 // RUN // CEND // COPY LIBRARY-P,NAME-TST205,RECL-120,DATE-08/02/14,TIME-1339 // IF DATAF1-X?L'100,2'?INVNO DELETE X?L'100,2'?INVNO,F1 // LOAD TST205 // FILE NAME-INVNOT,LABEL-?L'100,2'?INVNOT,DISP-SHR // FILE NAME-XINVNO,LABEL-X?L'100,2'?INVNO,RECORDS-4000 // RUN // CEND // COPY LIBRARY-P,NAME-TST206,RECL-120,DATE-08/02/14,TIME-1339 // IF DATAF1-X?L'100,2'?JRDES DELETE X?L'100,2'?JRDES,F1 // LOAD TST206 // FILE NAME-JRDESC,LABEL-?L'100,2'?JRDESC,DISP-SHR // FILE NAME-XJRDES,LABEL-X?L'100,2'?JRDES,RECORDS-5000 // RUN // CEND // COPY LIBRARY-P,NAME-TST207,RECL-120,DATE-08/02/14,TIME-1339 // IF DATAF1-X?L'100,2'?LABEL DELETE X?L'100,2'?LABEL,F1 // LOAD TST207 // FILE NAME-LABEL,LABEL-?L'100,2'?LABEL,DISP-SHR // FILE NAME-XLABEL,LABEL-X?L'100,2'?LABEL,RECORDS-230000 // RUN // CEND // COPY LIBRARY-P,NAME-TST208,RECL-120,DATE-08/02/14,TIME-1339 // IF DATAF1-X?L'100,2'?LABNO DELETE X?L'100,2'?LABNO,F1 // LOAD TST208 // FILE NAME-LABNOT,LABEL-?L'100,2'?LABNOT,DISP-SHR // FILE NAME-XLABNO,LABEL-X?L'100,2'?LABNO,RECORDS-1000 // RUN // CEND // COPY LIBRARY-P,NAME-TST209,RECL-120,DATE-08/02/14,TIME-1339 // IF DATAF1-X?L'100,2'?MLOAD DELETE X?L'100,2'?MLOAD,F1 // LOAD TST209 // FILE NAME-MLOAD,LABEL-?L'100,2'?MLOAD,DISP-SHR // FILE NAME-XMLOAD,LABEL-X?L'100,2'?MLOAD,RECORDS-800000 // RUN // CEND // COPY LIBRARY-P,NAME-TST210,RECL-120,DATE-08/02/14,TIME-1339 // IF DATAF1-X?L'100,2'?MOVLO DELETE X?L'100,2'?MOVLO,F1 // LOAD TST210 // FILE NAME-MOVLOD,LABEL-?L'100,2'?MOVLOD,DISP-SHR // FILE NAME-XMOVLO,LABEL-X?L'100,2'?MOVLO,RECORDS-2000 // RUN // CEND // COPY LIBRARY-P,NAME-TST211,RECL-120,DATE-08/02/15,TIME-0755 // IF DATAF1-X?L'100,2'?NHOUS DELETE X?L'100,2'?NHOUS,F1 // LOAD TST199 // FILE NAME-HOUSE,LABEL-?L'100,2'?NHOUS,DISP-SHR // FILE NAME-XHOUSE,LABEL-X?L'100,2'?NHOUS,RECORDS-350000 // RUN // CEND // COPY LIBRARY-P,NAME-TST212,RECL-120,DATE-08/02/14,TIME-1339 // IF DATAF1-X?L'100,2'?NJUAF DELETE X?L'100,2'?NJUAF,F1 // LOAD TST212 // FILE NAME-NJUAF,LABEL-?L'100,2'?NJUAF,DISP-SHR // FILE NAME-XNJUAF,LABEL-X?L'100,2'?NJUAF,RECORDS-80000 // RUN // CEND // COPY LIBRARY-P,NAME-TST213,RECL-120,DATE-08/02/15,TIME-0805 // IF DATAF1-X?L'100,2'?NMGLE DELETE X?L'100,2'?NMGLE,F1 // LOAD TST213 // FILE NAME-NMGLEN,LABEL-?L'100,2'?NMGLEN,DISP-SHR // FILE NAME-XNMGLE,LABEL-X?L'100,2'?NMGLE,RECORDS-3000 // RUN // CEND // COPY LIBRARY-P,NAME-TST214,RECL-120,DATE-08/02/14,TIME-1339 // IF DATAF1-X?L'100,2'?NPRCT DELETE X?L'100,2'?NPRCT,F1 // LOAD TST222 // FILE NAME-PRCTAB,LABEL-?L'100,2'?NPRCTA,DISP-SHR // FILE NAME-XPRCTA,LABEL-X?L'100,2'?NPRCT,RECORDS-300000 // RUN // CEND // COPY LIBRARY-P,NAME-TST215,RECL-120,DATE-08/02/14,TIME-1339 // IF DATAF1-X?L'100,2'?OPENA DELETE X?L'100,2'?OPENA,F1 // LOAD TST215 // FILE NAME-OPENAP,LABEL-?L'100,2'?OPENAP,DISP-SHR // FILE NAME-XOPENA,LABEL-X?L'100,2'?OPENA,RECORDS-70000 // RUN // CEND // COPY LIBRARY-P,NAME-TST216,RECL-120,DATE-08/02/14,TIME-1339 // IF DATAF1-X?L'100,2'?ORDER DELETE X?L'100,2'?ORDER,F1 // LOAD TST216 // FILE NAME-ORDER,LABEL-?L'100,2'?ORDER,DISP-SHR // FILE NAME-XORDER,LABEL-X?L'100,2'?ORDER,RECORDS-40000 // RUN // CEND // COPY LIBRARY-P,NAME-TST217,RECL-120,DATE-08/02/14,TIME-1339 // IF DATAF1-X?L'100,2'?PAYRL DELETE X?L'100,2'?PAYRL,F1 // LOAD TST217 // FILE NAME-PAYRL,LABEL-?L'100,2'?PAYRL,DISP-SHR // FILE NAME-XPAYRL,LABEL-X?L'100,2'?PAYRL,RECORDS-800 // RUN // CEND // COPY LIBRARY-P,NAME-TST218,RECL-120,DATE-08/02/14,TIME-1339 // IF DATAF1-X?L'100,2'?PGLFI DELETE X?L'100,2'?PGLFI,F1 // LOAD TST193 // FILE NAME-GLFILE,LABEL-?L'100,2'?PGLFIL,DISP-SHR // FILE NAME-XGLFIL,LABEL-X?L'100,2'?PGLFI,RECORDS-2000 // RUN // CEND // COPY LIBRARY-P,NAME-TST219,RECL-120,DATE-08/02/14,TIME-1339 // IF DATAF1-X?L'100,2'?PODOL DELETE X?L'100,2'?PODOL,F1 // LOAD TST219 // FILE NAME-PODOL,LABEL-?L'100,2'?PODOL,DISP-SHR // FILE NAME-XPODOL,LABEL-X?L'100,2'?PODOL,RECORDS-1000 // RUN // CEND // COPY LIBRARY-P,NAME-TST220,RECL-120,DATE-08/02/14,TIME-1339 // IF DATAF1-X?L'100,2'?POMST DELETE X?L'100,2'?POMST,F1 // LOAD TST220 // FILE NAME-POMST,LABEL-?L'100,2'?POMST,DISP-SHR // FILE NAME-XPOMST,LABEL-X?L'100,2'?POMST,RECORDS-50000 // RUN // CEND // COPY LIBRARY-P,NAME-TST221,RECL-120,DATE-08/02/14,TIME-1339 // IF DATAF1-X?L'100,2'?POREC DELETE X?L'100,2'?POREC,F1 // LOAD TST221 // FILE NAME-POREC,LABEL-?L'100,2'?POREC,DISP-SHR // FILE NAME-XPOREC,LABEL-X?L'100,2'?POREC,RECORDS-50000 // RUN // CEND // COPY LIBRARY-P,NAME-TST222,RECL-120,DATE-08/02/14,TIME-1339 // IF DATAF1-X?L'100,2'?PRCTA DELETE X?L'100,2'?PRCTA,F1 // LOAD TST222 // FILE NAME-PRCTAB,LABEL-?L'100,2'?PRCTAB,DISP-SHR // FILE NAME-XPRCTA,LABEL-X?L'100,2'?PRCTA,RECORDS-400000 // RUN // CEND // COPY LIBRARY-P,NAME-TST223,RECL-120,DATE-08/02/14,TIME-1339 // IF DATAF1-X?L'100,2'?PRDRE DELETE X?L'100,2'?PRDRE,F1 // LOAD TST223 // FILE NAME-PRDREC,LABEL-?L'100,2'?PRDREC,DISP-SHR // FILE NAME-XPRDRE,LABEL-X?L'100,2'?PRDRE,RECORDS-80000 // RUN // CEND // COPY LIBRARY-P,NAME-TST224,RECL-120,DATE-08/02/15,TIME-1155 // IF DATAF1-X?L'100,2'?PRDUS DELETE X?L'100,2'?PRDUS,F1 // LOAD TST224 // FILE NAME-PRDUSG,LABEL-?L'100,2'?PRDUSG,DISP-SHR // FILE NAME-XPRDUS,LABEL-X?L'100,2'?PRDUS,RECORDS-600000 // RUN // CEND // COPY LIBRARY-P,NAME-TST225,RECL-120,DATE-08/02/14,TIME-1339 // IF DATAF1-X?L'100,2'?PROJ DELETE X?L'100,2'?PROJ,F1 // LOAD TST225 // FILE NAME-PROJ,LABEL-?L'100,2'?PROJ,DISP-SHR // FILE NAME-XPROJ,LABEL-X?L'100,2'?PROJ,RECORDS-7000 // RUN // CEND // COPY LIBRARY-P,NAME-TST226,RECL-120,DATE-08/02/14,TIME-1339 // IF DATAF1-X?L'100,2'?PYMT DELETE X?L'100,2'?PYMT,F1 // LOAD TST226 // FILE NAME-PYMT,LABEL-?L'100,2'?PYMT,DISP-SHR // FILE NAME-XPYMT,LABEL-X?L'100,2'?PYMT,RECORDS-450000 // RUN // CEND // COPY LIBRARY-P,NAME-TST227,RECL-120,DATE-08/02/15,TIME-1142 // IF DATAF1-X?L'100,2'?PYMTB DELETE X?L'100,2'?PYMTB,F1 // LOAD TST226 // FILE NAME-PYMT,LABEL-?L'100,2'?PYMTBD,DISP-SHR // FILE NAME-XPYMT,LABEL-X?L'100,2'?PYMTB,RECORDS-1000 // RUN // CEND // COPY LIBRARY-P,NAME-TST228,RECL-120,DATE-08/02/14,TIME-1339 // IF DATAF1-X?L'100,2'?PYUN DELETE X?L'100,2'?PYUN,F1 // LOAD TST228 // FILE NAME-PYUN,LABEL-?L'100,2'?PYUN,DISP-SHR // FILE NAME-XPYUN,LABEL-X?L'100,2'?PYUN,RECORDS-10000 // RUN // CEND // COPY LIBRARY-P,NAME-TST229,RECL-120,DATE-08/02/15,TIME-1144 // IF DATAF1-X?L'100,2'?PYUNB DELETE X?L'100,2'?PYUNB,F1 // LOAD TST228 // FILE NAME-PYUN,LABEL-?L'100,2'?PYUNBD,DISP-SHR // FILE NAME-XPYUN,LABEL-X?L'100,2'?PYUNB,RECORDS-1000 // RUN // CEND // COPY LIBRARY-P,NAME-TST230,RECL-120,DATE-08/02/15,TIME-1145 // IF DATAF1-X?L'100,2'?RECBD DELETE X?L'100,2'?RECBD,F1 // LOAD TST243 // FILE NAME-RECEV,LABEL-?L'100,2'?RECBD,DISP-SHR // FILE NAME-XRECEV,LABEL-X?L'100,2'?RECBD,RECORDS-5000 // RUN // CEND // COPY LIBRARY-P,NAME-TST231,RECL-120,DATE-08/02/14,TIME-1339 // IF DATAF1-X?L'100,2'?SALME DELETE X?L'100,2'?SALME,F1 // LOAD TST231 // FILE NAME-SALMEN,LABEL-?L'100,2'?SALMEN,DISP-SHR // FILE NAME-XSALME,LABEL-X?L'100,2'?SALME,RECORDS-300 // RUN // CEND // COPY LIBRARY-P,NAME-TST232,RECL-120,DATE-08/02/14,TIME-1339 // IF DATAF1-X?L'100,2'?UNCAS DELETE X?L'100,2'?UNCAS,F1 // LOAD TST232 // FILE NAME-UNCASH,LABEL-?L'100,2'?UNCASH,DISP-SHR // FILE NAME-XUNCAS,LABEL-X?L'100,2'?UNCAS,RECORDS-1000 // RUN // CEND // COPY LIBRARY-P,NAME-TST233,RECL-120,DATE-08/02/15,TIME-1154 // IF DATAF1-X?L'100,2'?UNCSB DELETE X?L'100,2'?UNCSB,F1 // LOAD TST232 // FILE NAME-UNCASH,LABEL-?L'100,2'?UNCSBD,DISP-SHR // FILE NAME-XUNCAS,LABEL-X?L'100,2'?UNCSB,RECORDS-1000 // RUN // CEND // COPY LIBRARY-P,NAME-TST234,RECL-120,DATE-08/02/14,TIME-1339 // IF DATAF1-X?L'100,2'?VENDO DELETE X?L'100,2'?VENDO,F1 // LOAD TST234 // FILE NAME-VENDOR,LABEL-?L'100,2'?VENDOR,DISP-SHR // FILE NAME-XVENDO,LABEL-X?L'100,2'?VENDO,RECORDS-5000 // RUN // CEND // COPY LIBRARY-P,NAME-TST235,RECL-120,DATE-08/02/14,TIME-1339 // IF DATAF1-X?L'100,2'?YPAYR DELETE X?L'100,2'?YPAYR,F1 // LOAD TST217 // FILE NAME-PAYRL,LABEL-?L'100,2'?YPAYRL,DISP-SHR // FILE NAME-XPAYRL,LABEL-X?L'100,2'?YPAYR,RECORDS-8000 // RUN // CEND // COPY LIBRARY-P,NAME-TST236,RECL-120,DATE-08/02/14,TIME-1339 // IF DATAF1-X?L'100,2'?CNTRL DELETE X?L'100,2'?CNTRL,F1 // LOAD TST236 // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-XCNTRL,LABEL-X?L'100,2'?CNTRL,RECORDS-300 // RUN // CEND // COPY LIBRARY-P,NAME-TST237,RECL-120,DATE-08/02/14,TIME-1339 // IF DATAF1-X?L'100,2'?CUSMP DELETE X?L'100,2'?CUSMP,F1 // LOAD TST237 // FILE NAME-CUSMAP,LABEL-?L'100,2'?CUSMAP,DISP-SHR // FILE NAME-XCUSMP,LABEL-X?L'100,2'?CUSMP,RECORDS-35000 // RUN // CEND // COPY LIBRARY-P,NAME-TST238,RECL-120,DATE-08/02/14,TIME-1339 // IF DATAF1-X?L'100,2'?CUSMA DELETE X?L'100,2'?CUSMA,F1 // LOAD TST238 // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-XCUSMA,LABEL-X?L'100,2'?CUSMA,RECORDS-6000 // RUN // CEND // COPY LIBRARY-P,NAME-TST239,RECL-120,DATE-08/02/15,TIME-1158 // IF DATAF1-X?L'100,2'?LOAD DELETE X?L'100,2'?LOAD,F1 // LOAD TST239 // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-XLOAD,LABEL-X?L'100,2'?LOAD,RECORDS-130000 // RUN // CEND // COPY LIBRARY-P,NAME-TST240,RECL-120,DATE-08/02/14,TIME-1339 // IF DATAF1-X?L'100,2'?MESAG DELETE X?L'100,2'?MESAG,F1 // LOAD TST240 // FILE NAME-MESAGE,LABEL-?L'100,2'?MESAGE,DISP-SHR // FILE NAME-XMESAG,LABEL-X?L'100,2'?MESAG,RECORDS-1000 // RUN // CEND // COPY LIBRARY-P,NAME-TST241,RECL-120,DATE-08/02/14,TIME-1339 // IF DATAF1-X?L'100,2'?MISCU DELETE X?L'100,2'?MISCU,F1 // LOAD TST241 // FILE NAME-MISCUS,LABEL-?L'100,2'?MISCUS,DISP-SHR // FILE NAME-XMISCU,LABEL-X?L'100,2'?MISCU,RECORDS-17000 // RUN // CEND // COPY LIBRARY-P,NAME-TST242,RECL-120,DATE-11/11/18,TIME-1418 // IF DATAF1-X?L'100,2'?PROD DELETE X?L'100,2'?PROD,F1 // LOAD TST242 // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR */ FILE NAME-PROD,LABEL-?L'100,2'?XAPROD,DISP-SHR // FILE NAME-XPROD,LABEL-X?L'100,2'?PROD,RECORDS-400000 // RUN // CEND // COPY LIBRARY-P,NAME-TST243,RECL-120,DATE-08/02/14,TIME-1339 // IF DATAF1-X?L'100,2'?RECEV DELETE X?L'100,2'?RECEV,F1 // LOAD TST243 // FILE NAME-RECEV,LABEL-?L'100,2'?RECEV,DISP-SHR // FILE NAME-XRECEV,LABEL-X?L'100,2'?RECEV,RECORDS-500000 // RUN // CEND // COPY LIBRARY-P,NAME-TST244,RECL-120,DATE-08/02/14,TIME-1339 // IF DATAF1-X?L'100,2'?RELSH DELETE X?L'100,2'?RELSH,F1 // LOAD TST244 // FILE NAME-RELSHT,LABEL-?L'100,2'?RELSHT,DISP-SHR // FILE NAME-XRELSH,LABEL-X?L'100,2'?RELSH,RECORDS-400000 // RUN // CEND // COPY LIBRARY-P,NAME-TST245,RECL-120,DATE-08/03/04,TIME-1054 // IF DATAF1-X?L'100,2'?5INVB DELETE X?L'100,2'?5INVB,F1 // LOAD TST202 // FILE NAME-INVCB,LABEL-?L'100,2'?INVB05,DISP-SHR // FILE NAME-XINVCB,LABEL-X?L'100,2'?5INVB,RECORDS-180000 // RUN // CEND // COPY LIBRARY-P,NAME-TST246,RECL-120,DATE-08/03/04,TIME-1054 // IF DATAF1-X?L'100,2'?5INVE DELETE X?L'100,2'?5INVE,F1 // LOAD TST203 // FILE NAME-INVCE,LABEL-?L'100,2'?INVE05,DISP-SHR // FILE NAME-XINVCE,LABEL-X?L'100,2'?5INVE,RECORDS-4200000 // RUN // CEND // COPY LIBRARY-P,NAME-TST247,RECL-120,DATE-08/03/04,TIME-1055 // IF DATAF1-X?L'100,2'?5PRDU DELETE X?L'100,2'?5PRDU,F1 // LOAD TST224 // FILE NAME-PRDUSG,LABEL-?L'100,2'?PRDU05,DISP-SHR // FILE NAME-XPRDUS,LABEL-X?L'100,2'?5PRDU,RECORDS-3000000 // RUN // CEND // COPY LIBRARY-P,NAME-TST248,RECL-120,DATE-08/12/08,TIME-1243 // IF DATAF1-X?L'100,2'?HOUE1 DELETE X?L'100,2'?HOUE1,F1 // IF DATAF1-X?L'100,2'?HOUE2 DELETE X?L'100,2'?HOUE2,F1 // IF DATAF1-X?L'100,2'?HOUE3 DELETE X?L'100,2'?HOUE3,F1 // IF DATAF1-X?L'100,2'?HOUE4 DELETE X?L'100,2'?HOUE4,F1 // IF DATAF1-X?L'100,2'?HOUE5 DELETE X?L'100,2'?HOUE5,F1 // LOAD TST248 // FILE NAME-XHOUSE,LABEL-X?L'100,2'?HOUSE // FILE NAME-XHOUS1,LABEL-X?L'100,2'?HOUE1,RECORDS-750000 // FILE NAME-XHOUS2,LABEL-X?L'100,2'?HOUE2,RECORDS-750000 // FILE NAME-XHOUS3,LABEL-X?L'100,2'?HOUE3,RECORDS-750000 // FILE NAME-XHOUS4,LABEL-X?L'100,2'?HOUE4,RECORDS-750000 // FILE NAME-XHOUS5,LABEL-X?L'100,2'?HOUE5,RECORDS-750000 // RUN // CEND // COPY LIBRARY-P,NAME-TST249,RECL-120,DATE-08/03/03,TIME-1053 // IF DATAF1-X?L'100,2'?INVE1 DELETE X?L'100,2'?INVE1,F1 // IF DATAF1-X?L'100,2'?INVE2 DELETE X?L'100,2'?INVE2,F1 // IF DATAF1-X?L'100,2'?INVE3 DELETE X?L'100,2'?INVE3,F1 // IF DATAF1-X?L'100,2'?INVE4 DELETE X?L'100,2'?INVE4,F1 // IF DATAF1-X?L'100,2'?INVE5 DELETE X?L'100,2'?INVE5,F1 // IF DATAF1-X?L'100,2'?INVE6 DELETE X?L'100,2'?INVE6,F1 // IF DATAF1-X?L'100,2'?INVE7 DELETE X?L'100,2'?INVE7,F1 // LOAD TST249 // FILE NAME-XINVCE,LABEL-X?L'100,2'?INVCE // FILE NAME-XINVE1,LABEL-X?L'100,2'?INVE1,RECORDS-750000 // FILE NAME-XINVE2,LABEL-X?L'100,2'?INVE2,RECORDS-750000 // FILE NAME-XINVE3,LABEL-X?L'100,2'?INVE3,RECORDS-750000 // FILE NAME-XINVE4,LABEL-X?L'100,2'?INVE4,RECORDS-750000 // FILE NAME-XINVE5,LABEL-X?L'100,2'?INVE5,RECORDS-750000 // FILE NAME-XINVE6,LABEL-X?L'100,2'?INVE6,RECORDS-750000 // FILE NAME-XINVE7,LABEL-X?L'100,2'?INVE7,RECORDS-750000 // RUN // CEND // COPY LIBRARY-P,NAME-TST250,RECL-120,DATE-08/03/08,TIME-2117 // IF DATAF1-X?L'100,2'?5INE1 DELETE X?L'100,2'?5INE1,F1 // IF DATAF1-X?L'100,2'?5INE2 DELETE X?L'100,2'?5INE2,F1 // IF DATAF1-X?L'100,2'?5INE3 DELETE X?L'100,2'?5INE3,F1 // LOAD TST249 // SWITCH 10000000 // FILE NAME-XINVCE,LABEL-X?L'100,2'?5INVE // FILE NAME-XINVE1,LABEL-X?L'100,2'?5INE1,RECORDS-750000 // FILE NAME-XINVE2,LABEL-X?L'100,2'?5INE2,RECORDS-750000 // FILE NAME-XINVE3,LABEL-X?L'100,2'?5INE3,RECORDS-750000 // RUN ********** // IF DATAF1-X?L'100,2'?5INE4 DELETE X?L'100,2'?5INE4,F1 // IF DATAF1-X?L'100,2'?5INE5 DELETE X?L'100,2'?5INE5,F1 // IF DATAF1-X?L'100,2'?5INE6 DELETE X?L'100,2'?5INE6,F1 // IF DATAF1-X?L'100,2'?5INE7 DELETE X?L'100,2'?5INE7,F1 // LOAD TST249 // SWITCH 01000000 // FILE NAME-XINVCE,LABEL-X?L'100,2'?5INVE // FILE NAME-XINVE4,LABEL-X?L'100,2'?5INE4,RECORDS-750000 // FILE NAME-XINVE5,LABEL-X?L'100,2'?5INE5,RECORDS-750000 // FILE NAME-XINVE6,LABEL-X?L'100,2'?5INE6,RECORDS-750000 // FILE NAME-XINVE7,LABEL-X?L'100,2'?5INE7,RECORDS-750000 // RUN // CEND // COPY LIBRARY-P,NAME-TST251,DATE-08/03/04,TIME-1133 // IF DATAF1-X?L'100,2'?5PRD1 DELETE X?L'100,2'?5PRD1,F1 // IF DATAF1-X?L'100,2'?5PRD2 DELETE X?L'100,2'?5PRD2,F1 // IF DATAF1-X?L'100,2'?5PRD3 DELETE X?L'100,2'?5PRD3,F1 // IF DATAF1-X?L'100,2'?5PRD4 DELETE X?L'100,2'?5PRD4,F1 // IF DATAF1-X?L'100,2'?5PRD5 DELETE X?L'100,2'?5PRD5,F1 // LOAD TST251 // FILE NAME-XPRDUS,LABEL-X?L'100,2'?5PRDU // FILE NAME-XPRDU1,LABEL-X?L'100,2'?5PRD1,RECORDS-750000 // FILE NAME-XPRDU2,LABEL-X?L'100,2'?5PRD2,RECORDS-750000 // FILE NAME-XPRDU3,LABEL-X?L'100,2'?5PRD3,RECORDS-750000 // FILE NAME-XPRDU4,LABEL-X?L'100,2'?5PRD4,RECORDS-750000 // FILE NAME-XPRDU5,LABEL-X?L'100,2'?5PRD5,RECORDS-750000 // RUN // CEND // COPY LIBRARY-P,NAME-TST261,DATE-08/03/08,TIME-2131 // * 'THIS PROGRAM WILL CREATE UNPACKED FILES X?L'100,2'?......' // * 'FROM WHICH TO EXTRACT DATE INTO ACCESS TABLES' // * 'FOR ALL FILES OF COMPANY ?L'100,2'?' // * ' ' // * 'PLEASE ENTER THE PASSWORD.' // IFF ?R?='JOFFEBUILDSBETTERHOUSES' GOTO END // * ' ' TST181 TST182 TST183 TST184 TST185 TST186 TST187 TST188 TST189 TST236 TST237 TST238 TST190 TST191 TST192 TST193 TST194 TST195 TST196 TST197 TST198 TST199 TST200 TST201 TST202 TST203 TST204 TST205 TST206 TST207 TST208 *TST239 TST240 TST241 TST209 TST210 TST211 TST212 TST213 TST214 TST215 TST216 TST217 TST218 TST219 TST220 TST221 TST222 TST223 TST224 TST242 TST225 TST226 TST227 TST228 TST229 TST230 TST243 TST244 TST231 TST232 TST233 TST234 TST235 // TAG END // CEND // COPY LIBRARY-P,NAME-TST262,DATE-08/03/08,TIME-2134 // * 'THIS PROGRAM WILL DELETE ALL UNPACKED FILES X?L'100,2'?......' // * 'USED TO EXTRACT DATA INTO ACCESS TABLES' // * 'FOR COMPANY ?L'100,2'?' // * ' ' // * 'PLEASE ENTER THE PASSWORD.' // IFF ?R?='JOFFEBUILDSBETTERHOUSES' GOTO END // * ' ' // IF DATAF1-X?L'100,2'?ARCHK DELETE X?L'100,2'?ARCHK,F1 // IF DATAF1-X?L'100,2'?ARCKB DELETE X?L'100,2'?ARCKB,F1 // IF DATAF1-X?L'100,2'?ASMTM DELETE X?L'100,2'?ASMTM,F1 // IF DATAF1-X?L'100,2'?BILMA DELETE X?L'100,2'?BILMA,F1 // IF DATAF1-X?L'100,2'?BLMTT DELETE X?L'100,2'?BLMTT,F1 // IF DATAF1-X?L'100,2'?BSEHS DELETE X?L'100,2'?BSEHS,F1 // IF DATAF1-X?L'100,2'?CHGCS DELETE X?L'100,2'?CHGCS,F1 // IF DATAF1-X?L'100,2'?CHGHS DELETE X?L'100,2'?CHGHS,F1 // IF DATAF1-X?L'100,2'?CHKFL DELETE X?L'100,2'?CHKFL,F1 // IF DATAF1-X?L'100,2'?CNTRL DELETE X?L'100,2'?CNTRL,F1 // IF DATAF1-X?L'100,2'?CUSMP DELETE X?L'100,2'?CUSMP,F1 // IF DATAF1-X?L'100,2'?CUSMA DELETE X?L'100,2'?CUSMA,F1 // IF DATAF1-X?L'100,2'?DEPT DELETE X?L'100,2'?DEPT,F1 // IF DATAF1-X?L'100,2'?DPINV DELETE X?L'100,2'?DPINV,F1 // IF DATAF1-X?L'100,2'?EMPLY DELETE X?L'100,2'?EMPLY,F1 // IF DATAF1-X?L'100,2'?GLFIL DELETE X?L'100,2'?GLFIL,F1 // IF DATAF1-X?L'100,2'?GLPMT DELETE X?L'100,2'?GLPMT,F1 // IF DATAF1-X?L'100,2'?GLTRA DELETE X?L'100,2'?GLTRA,F1 // IF DATAF1-X?L'100,2'?HCRED DELETE X?L'100,2'?HCRED,F1 // IF DATAF1-X?L'100,2'?HOUES DELETE X?L'100,2'?HOUES,F1 // IF DATAF1-X?L'100,2'?HOUE1 DELETE X?L'100,2'?HOUE1,F1 // IF DATAF1-X?L'100,2'?HOUE2 DELETE X?L'100,2'?HOUE2,F1 // IF DATAF1-X?L'100,2'?HOUE3 DELETE X?L'100,2'?HOUE3,F1 // IF DATAF1-X?L'100,2'?HOUE4 DELETE X?L'100,2'?HOUE4,F1 // IF DATAF1-X?L'100,2'?HOUOL DELETE X?L'100,2'?HOUOL,F1 // IF DATAF1-X?L'100,2'?HOUSE DELETE X?L'100,2'?HOUSE,F1 // IF DATAF1-X?L'100,2'?HSECH DELETE X?L'100,2'?HSECH,F1 // IF DATAF1-X?L'100,2'?INVAC DELETE X?L'100,2'?INVAC,F1 // IF DATAF1-X?L'100,2'?INVCB DELETE X?L'100,2'?INVCB,F1 // IF DATAF1-X?L'100,2'?INVCE DELETE X?L'100,2'?INVCE,F1 // IF DATAF1-X?L'100,2'?INVE1 DELETE X?L'100,2'?INVE1,F1 // IF DATAF1-X?L'100,2'?INVE2 DELETE X?L'100,2'?INVE2,F1 // IF DATAF1-X?L'100,2'?INVE3 DELETE X?L'100,2'?INVE3,F1 // IF DATAF1-X?L'100,2'?INVC4 DELETE X?L'100,2'?INVC4,F1 // IF DATAF1-X?L'100,2'?INVE5 DELETE X?L'100,2'?INVE5,F1 // IF DATAF1-X?L'100,2'?INVE6 DELETE X?L'100,2'?INVE6,F1 // IF DATAF1-X?L'100,2'?INVE7 DELETE X?L'100,2'?INVE7,F1 // IF DATAF1-X?L'100,2'?5INE1 DELETE X?L'100,2'?5INE1,F1 // IF DATAF1-X?L'100,2'?5INE2 DELETE X?L'100,2'?5INE2,F1 // IF DATAF1-X?L'100,2'?5INE3 DELETE X?L'100,2'?5INE3,F1 // IF DATAF1-X?L'100,2'?5INE4 DELETE X?L'100,2'?5INE4,F1 // IF DATAF1-X?L'100,2'?5INE5 DELETE X?L'100,2'?5INE5,F1 // IF DATAF1-X?L'100,2'?5INE6 DELETE X?L'100,2'?5INE6,F1 // IF DATAF1-X?L'100,2'?5INE7 DELETE X?L'100,2'?5INE7,F1 // IF DATAF1-X?L'100,2'?INVEN DELETE X?L'100,2'?INVEN,F1 // IF DATAF1-X?L'100,2'?INVNO DELETE X?L'100,2'?INVNO,F1 // IF DATAF1-X?L'100,2'?JRDES DELETE X?L'100,2'?JRDES,F1 // IF DATAF1-X?L'100,2'?LABEL DELETE X?L'100,2'?LABEL,F1 // IF DATAF1-X?L'100,2'?LABNO DELETE X?L'100,2'?LABNO,F1 // IF DATAF1-X?L'100,2'?MESAG DELETE X?L'100,2'?MESAG,F1 // IF DATAF1-X?L'100,2'?MISCU DELETE X?L'100,2'?MISCU,F1 // IF DATAF1-X?L'100,2'?MLOAD DELETE X?L'100,2'?MLOAD,F1 // IF DATAF1-X?L'100,2'?MOVLO DELETE X?L'100,2'?MOVLO,F1 // IF DATAF1-X?L'100,2'?NHOUS DELETE X?L'100,2'?NHOUS,F1 // IF DATAF1-X?L'100,2'?NJUAF DELETE X?L'100,2'?NJUAF,F1 // IF DATAF1-X?L'100,2'?NMGLE DELETE X?L'100,2'?NMGLE,F1 // IF DATAF1-X?L'100,2'?NPRCT DELETE X?L'100,2'?NPRCT,F1 // IF DATAF1-X?L'100,2'?OPENA DELETE X?L'100,2'?OPENA,F1 // IF DATAF1-X?L'100,2'?ORDER DELETE X?L'100,2'?ORDER,F1 // IF DATAF1-X?L'100,2'?PAYRL DELETE X?L'100,2'?PAYRL,F1 // IF DATAF1-X?L'100,2'?PGLFI DELETE X?L'100,2'?PGLFI,F1 // IF DATAF1-X?L'100,2'?PODOL DELETE X?L'100,2'?PODOL,F1 // IF DATAF1-X?L'100,2'?POMST DELETE X?L'100,2'?POMST,F1 // IF DATAF1-X?L'100,2'?POREC DELETE X?L'100,2'?POREC,F1 // IF DATAF1-X?L'100,2'?PRCTA DELETE X?L'100,2'?PRCTA,F1 // IF DATAF1-X?L'100,2'?PRDRE DELETE X?L'100,2'?PRDRE,F1 // IF DATAF1-X?L'100,2'?PRDUS DELETE X?L'100,2'?PRDUS,F1 // IF DATAF1-X?L'100,2'?5PRD1 DELETE X?L'100,2'?5PRD1,F1 // IF DATAF1-X?L'100,2'?5PRD2 DELETE X?L'100,2'?5PRD2,F1 // IF DATAF1-X?L'100,2'?5PRD3 DELETE X?L'100,2'?5PRD3,F1 // IF DATAF1-X?L'100,2'?5PRD4 DELETE X?L'100,2'?5PRD4,F1 // IF DATAF1-X?L'100,2'?5PRD5 DELETE X?L'100,2'?5PRD5,F1 // IF DATAF1-X?L'100,2'?PROD DELETE X?L'100,2'?PROD,F1 // IF DATAF1-X?L'100,2'?PROJ DELETE X?L'100,2'?PROJ,F1 // IF DATAF1-X?L'100,2'?PYMT DELETE X?L'100,2'?PYMT,F1 // IF DATAF1-X?L'100,2'?PYMTB DELETE X?L'100,2'?PYMTB,F1 // IF DATAF1-X?L'100,2'?PYUN DELETE X?L'100,2'?PYUN,F1 // IF DATAF1-X?L'100,2'?PYUNB DELETE X?L'100,2'?PYUNB,F1 // IF DATAF1-X?L'100,2'?RECBD DELETE X?L'100,2'?RECBD,F1 // IF DATAF1-X?L'100,2'?RECEV DELETE X?L'100,2'?RECEV,F1 // IF DATAF1-X?L'100,2'?RELSH DELETE X?L'100,2'?RELSH,F1 // IF DATAF1-X?L'100,2'?SALME DELETE X?L'100,2'?SALME,F1 // IF DATAF1-X?L'100,2'?UNCAS DELETE X?L'100,2'?UNCAS,F1 // IF DATAF1-X?L'100,2'?UNCSB DELETE X?L'100,2'?UNCSB,F1 // IF DATAF1-X?L'100,2'?VENDO DELETE X?L'100,2'?VENDO,F1 // IF DATAF1-X?L'100,2'?YPAYR DELETE X?L'100,2'?YPAYR,F1 // TAG END // CEND // COPY LIBRARY-P,NAME-TST263,RECL-120,DATE-08/12/08,TIME-0901 // IF DATAF1-?L'100,2'?XAPROD DELETE ?L'100,2'?XAPROD,F1 BLDFILE ?L'100,2'?XAPROD,I,RECORDS,100000,400,,,1,9 // LOAD TST263 // FILE NAME-HOUSE,LABEL-?L'100,2'?HOUSE,DISP-SHR // FILE NAME-XAPROD,LABEL-?L'100,2'?XAPROD // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-TST264,RECL-096,DATE-09/10/27,TIME-0803 // LOAD TST264 // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-XLMSPR,LABEL-?WS?XLMSPR,RECORDS-3000 // RUN // CEND // COPY LIBRARY-P,NAME-TST265,RECL-096,DATE-09/10/27,TIME-0805 // LOAD TST265 // FILE NAME-HOUSE,LABEL-?L'100,2'?HOUSE,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-XHMSPR,LABEL-?WS?XHMSPR,RECORDS-3000 // RUN // CEND // COPY LIBRARY-P,NAME-TST266,RECL-096,DATE-09/10/28,TIME-0932 // LOAD TST266 // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-XLDPR,LABEL-?WS?XLDPR,RECORDS-3000 // RUN // CEND // COPY LIBRARY-P,NAME-TST267,RECL-096,DATE-10/05/09,TIME-1757 // * 'THIS PROGRAM WILL CHANGE OPENAP FILE' // * 'FOR COMPANY ?L'100,2'?' // * ' ' // * 'PLEASE ENTER THE PASSWORD.' // IFF ?R?='JOFFEBUILDSBETTERHOUSES' GOTO END // * ' ' // LOAD TST267 // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-OPENAP,LABEL-?L'100,2'?OPENAP,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-TST268,RECL-096,DATE-10/05/10,TIME-0912 // * 'THIS PROGRAM WILL CHANGE INVACC FILE' // * 'FOR COMPANY ?L'100,2'?' // * ' ' // * 'PLEASE ENTER THE PASSWORD.' // IFF ?R?='JOFFEBUILDSBETTERHOUSES' GOTO END // * ' ' // LOAD TST268 // FILE NAME-INVACC,LABEL-?L'100,2'?INVACC,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-TST269,RECL-096,DATE-10/05/10,TIME-0943 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?L'100,2'?CHKFLE,DISP-SHR // FILE NAME-OUTPUT,LABEL-XXXXCHKF,RECORDS-200000 // RUN HSORTR 14A 3X 60 FNU 21 26 FNC 13 20 FDC 1 60 // END // CEND // COPY LIBRARY-P,NAME-TST270,RECL-096,DATE-10/05/10,TIME-1029 // * 'THIS PROGRAM WILL CHANGE CHKFLE FILE' // * 'FOR COMPANY ?L'100,2'?' // * ' ' // * 'PLEASE ENTER THE PASSWORD.' // IFF ?R?='JOFFEBUILDSBETTERHOUSES' GOTO END // * ' ' // LOAD TST270 // FILE NAME-CHKFLE,LABEL-?L'100,2'?CHKFLE,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-TST271,RECL-120,DATE-11/01/18,TIME-0829 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?L'100,2'?RECEV,DISP-SHR // FILE NAME-OUTPUT,LABEL-?WS?XRECEV,RECORDS-500000 // RUN HSORTR 6A 3X 300 I C 300EQCN FNC 8 13 FDC 1 256 FDC 257 300 // END // LOAD TST271 // FILE NAME-XRECEV,LABEL-?WS?XRECEV,RETAIN-S // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-XGLPM,LABEL-?WS?XGLPM,RECORDS-100 // FILE NAME-XCHEK,LABEL-?WS?XCHEK,RECORDS-5000 // FILE NAME-XINPM,LABEL-?WS?XINPM,RECORDS-10000 // FILE NAME-XCSDT,LABEL-?WS?XCSDT,RECORDS-1 // RUN // LOCAL OFFSET-1,DATA-' ' JF0692 JF0693 JF0699 JF0881 JF1152 JF0694 // IFF ?L'1,1'?='X' GOTO UPDAT1 // * ' ' // * 'THERE ARE ERRORS IN THE CASH RECEIPTS EDIT AND YOU CANNOT CONTINUE' // * 'WITH THE UPDATE. PLEASE PRESS ENTER TO RETURN TO MENU' // * 'IN ORDER TO MAKE CORRECTIONS.' // * ' ' // IF ?R?='X' GOTO ENDUPD // GOTO ENDUPD // TAG UPDAT1 // * ' ' // * 'DO YOU WISH TO UPDATE THE PERMANENT FILES WITH THIS DATA' // * 'AND FINISH OUT THESE CASH RECEIPTS ?' // * ' Y = YES' // * ' N = NO' // * ' ' // IFF ?R?='Y' GOTO ENDUPD // * ' ' // * 'ARE YOU SURE YOU WANT TO RUN THE UPDATE ?' // * ' Y = YES' // * ' N = NO' // * ' ' // IFF ?R?='Y' GOTO ENDUPD // * ' ' // * 'THE DATE THIS CASH WAS RECEIVED IS ?L'2,2'?/?L'4,2'?/?L'6,2'?' // * ' ' // * 'PLEASE REENTER THIS DATE (WITHOUT SLASHES) TO CONTINUE THE UPDATE.' // * ' ' // IF ?R?=?L'2,6'? GOTO UPDAT2 // * ' ' // * 'THE UPDATE HAS BEEN CANCELLED. PRESS ENTER TO RETURN TO MENU.' // IF ?R?='X' GOTO ENDUPD // GOTO ENDUPD // TAG UPDAT2 // * ' ' // * 'THE UPDATE IS CONTINUING.' // * ' ' *JF0695 *JF0696 *JF0693 *JF1153 *JF0697 *DELETE ?WS?XCHEK,F1 *DELETE ?WS?XGLPM,F1 *DELETE ?WS?XINPM,F1 *DELETE ?WS?XCSDT,F1 // TAG ENDUPD DELETE ?WS?XCSRC,F1 // TAG END // CEND // COPY LIBRARY-P,NAME-TST272,RECL-120,DATE-11/02/13,TIME-2035 // * 'THIS PROGRAM WILL ALLOW YOU TO MAKE CHANGES TO THE' // * 'INVOICE HISTORY FILE INVCE FOR COMPANY ?L'100,2'?' // * ' ' // * 'PLEASE ENTER THE PASSWORD.' // IFF ?R?='JOFFEBUILDSBETTERHOUSES' GOTO END // * ' ' // LOAD TST272 // FILE NAME-INVCE,LABEL-?L'100,2'?INVCE,DISP-SHR // RUN // TAG END // CEND // COPY LIBRARY-P,NAME-TST273,RECL-120,DATE-11/02/13,TIME-2100 // * 'THIS PROGRAM WILL COPY INVOICE HISTORY RECORDS' // * 'FROM THE DUPLICATE INVOICE FILE DPINV' // * 'TO THE PERMANENT INVOICE FILE INVCE FOR COMPANY ?L'100,2'?' // * ' ' // * 'PLEASE ENTER THE PASSWORD.' // IFF ?R?='JOFFEBUILDSBETTERHOUSES' GOTO END // * ' ' // LOAD TST273 // FILE NAME-INVCE,LABEL-?L'100,2'?INVCE,DISP-SHR // FILE NAME-DPINV,LABEL-?L'100,2'?DPINV,DISP-SHR // RUN // TAG END // CEND // COPY LIBRARY-P,NAME-TST274,RECL-120,DATE-11/02/22,TIME-1447 // LOAD TST274 // FILE NAME-INVCB,LABEL-JFINVCB,DISP-SHR // FILE NAME-XXXINVCB,LABEL-XXXINVCB,RECORDS-50000 // RUN // CEND // COPY LIBRARY-P,NAME-TST275,RECL-120,DATE-11/02/22,TIME-1800 // * 'THIS PROGRAM WILL ALLOW YOU TO MAKE CHANGES TO THE' // * 'INVOICE HISTORY FILE INVCB FOR COMPANY ?L'100,2'?' // * ' ' // * 'PLEASE ENTER THE PASSWORD.' // IFF ?R?='JOFFEBUILDSBETTERHOUSES' GOTO END // * ' ' // LOAD TST275 // PRINTER NAME-PRT,HOLD-YES // FILE NAME-INVCB,LABEL-?L'100,2'?INVCB,DISP-SHR // RUN // TAG END // CEND // COPY LIBRARY-P,NAME-TST276,RECL-120,DATE-11/04/20,TIME-1125 // LOAD TST276 // FILE NAME-BRUNO,RECORDS-2000 // RUN // CEND // COPY LIBRARY-P,NAME-TST277,DATE-11/09/12,TIME-1321 // LOAD TST277 // PRINTER NAME-PRT,HOLD-YES // FILE NAME-INVCE,LABEL-?L'100,2'?INVCE,DISP-SHR // FILE NAME-XXINV,RECORDS-500000 // RUN // CEND // COPY LIBRARY-P,NAME-TST279,RECL-096,DATE-11/10/26,TIME-0923 // * 'THIS PROGRAM WILL UPDATE RELEASE SHEET FILE' // * 'WITH COMPLETED LOAD DATA FOR COMPANY ?L'100,2'?' // * ' ' // * 'PLEASE ENTER THE PASSWORD.' // IFF ?R?='JOFFEBUILDSBETTERHOUSES' GOTO END // * ' ' // LOAD TST279 // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-RELSHT,LABEL-?L'100,2'?RELSHT,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-TST280,RECL-096,DATE-11/10/28,TIME-0754 // * 'THIS PROGRAM WILL UPDATE LOAD FILE WITH BLANK AREA' // * 'FOR COMPANY ?L'100,2'?' // * ' ' // * 'PLEASE ENTER THE PASSWORD.' // IFF ?R?='JOFFEBUILDSBETTERHOUSES' GOTO END // * ' ' // LOAD TST280 // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-TST853,RECL-120,DATE-05/11/30,TIME-1100 // LOAD TST853 // PRINTER NAME-PRT,FORMSNO-8X11 // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-XTRDT,LABEL-?WS?XTRDT // FILE NAME-XTRKL,LABEL-?WS?XTRKL // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-XF0002,RECL-096,REF-000001,DATE-05/02/23,TIME-0847 // LOAD JF0002 OVRPRTF FILE(PRT) USRDTA('CUST LIST') // FILE NAME-CNTRL,LABEL-JFCNTRL,DISP-SHR // FILE NAME-CUSMAS,LABEL-JFCUSMAS,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-XF0031,RECL-096,REF-000002,DATE-04/03/16,TIME-0826 // LOAD JF0031 // FILE NAME-LOAD,LABEL-XXXXLOAD // FILE NAME-CUSMAS,LABEL-XXXXCUST // FILE NAME-RECEV,LABEL-?L'100,2'?RECEV,DISP-SHR // FILE NAME-XINVC,LABEL-?WS?XINVC,RECORDS-20000 // FILE NAME-XHINV,LABEL-?WS?XHINV,RECORDS-20000 // FILE NAME-XREC,LABEL-?WS?XREC,RECORDS-4000 // RUN // CEND // COPY LIBRARY-P,NAME-XF0032,RECL-096,DATE-04/03/16,TIME-0828 // LOAD JF0032 OVRPRTF FILE(PRT) USRDTA('INVOICES') // PRINTER NAME-PRT,FORMSNO-INVC // FILE NAME-XINVC,LABEL-?WS?XINVC // FILE NAME-CUSMAS,LABEL-XXXXCUST // FILE NAME-MISCUS,LABEL-?L'100,2'?MISCUS,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-PRCTAB,LABEL-?L'100,2'?PRCTAB,DISP-SHR // FILE NAME-BSEHSE,LABEL-?L'100,2'?BSEHSE,DISP-SHR // FILE NAME-HOUSE,LABEL-?L'100,2'?HOUSE,DISP-SHR // FILE NAME-MESAGE,LABEL-?L'100,2'?MESAGE,DISP-SHR // FILE NAME-XHINV,LABEL-?WS?XHINV // FILE NAME-XREC,LABEL-?WS?XREC // RUN // CEND // COPY LIBRARY-P,NAME-XF0037,RECL-096,DATE-05/03/22,TIME-0841 // LOAD JF0037 // SWITCH 10000000 // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-RECEV,LABEL-XJOHN // FILE NAME-CUSMAS,LABEL-XXJOHN // RUN // CEND // COPY LIBRARY-P,NAME-XF0040,RECL-096,DATE-03/10/13,TIME-1012 // LOAD #GSORT // FILE NAME-INPUT,LABEL-RECLIST,DISP-SHR // FILE NAME-OUTPUT,LABEL-XREC?WS?,RECORDS-20000 // RUN HSORTR 18A 3X 82 I C 81EQCN FNC 8 13 FNU 18 19 FNU 14 17 FNU 2 7 FDC 1 82 // END // CEND // COPY LIBRARY-P,NAME-XF0080,RECL-096,DATE-07/10/02,TIME-0736 // LOAD JF0080 // SWITCH 10000000 // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-RECEV,LABEL-?L'100,2'?RECEV,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-XF0127,RECL-096,DATE-04/08/26,TIME-1104 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XDLCSH,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XDLCSS,RECORDS-10000 // RUN HSORTRS 8A 3X 35 FNU 32 35 FNU 1 4 FDC 1 6 FSP 7 11 FSP 12 16 FSP 17 21 FSP 22 26 FSP 27 31 FDC 32 35 // END // CEND // COPY LIBRARY-P,NAME-XF0147,RECL-096,REF-000001,DATE-04/12/20,TIME-1134 JF0180 JF0790 JF0083 // CEND // COPY LIBRARY-P,NAME-XF0154,RECL-096,REF-000001,DATE-05/12/19,TIME-0957 // LOAD JF0018 // SWITCH 01000000 // PRINTER NAME-PRT,FORMSNO-LOAD // FILE NAME-XLOAD,LABEL-?WS?XLOADB // FILE NAME-XLMES,LABEL-?WS?XLMES,RETAIN-S // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-MISCUS,LABEL-?L'100,2'?MISCUS,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-PRCTAB,LABEL-?L'100,2'?PRCTAB,DISP-SHR // FILE NAME-MESAGE,LABEL-?L'100,2'?MESAGE,DISP-SHR // FILE NAME-CUSMAP,LABEL-?L'100,2'?CUSMAP,DISP-SHR // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-XF0180,RECL-096,REF-000001,DATE-04/12/20,TIME-1135 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-OUTPUT,LABEL-?WS?XCUSSM,RECORDS-5000 // RUN HSORTR 38A 3X 600 I C 600EQCA IAC 1 6LTC900000 FNC 299 300 FNC 8 37 FNU 1 6 FDC 1 256 FDC 257 512 FDC 513 600 // END // CEND // COPY LIBRARY-P,NAME-XF0206,RECL-096,REF-000002,DATE-04/08/26,TIME-1104 // LOCAL OFFSET-1,DATA-'?DATE?' // IF ?L'5,2'?>70 EVALUATE P1=?L'5,2'?+1900-5 // IFF ?L'5,2'?>70 EVALUATE P1=?L'5,2'?+2000-5 // LOCAL OFFSET-7,DATA-'?1?' // * 'THIS PROCEDURE WILL REMOVE FROM THE RECEIVABLES & PAYMENT HISTORY FILES' // * '(RECEV PYMT GLPMT) ANY VOIDED OR DELETED RECEIVABLES' // * 'OR ANY THAT HAVE BEEN PAID IN FULL & ARE 5 YEARS OLDER' // * 'THAN THE COMPUTER YEAR OF ?L'5,2'? OR OLDER' // * '(YEAR EQUAL TO OR OLDER THAN ?L'7,4'?')' // * 'FOR COMPANY ?L'100,2'?.' // * '' // * 'WHILE THIS IS BEING DONE NO ONE ELSE MAY USE THE A/R FILES' // * 'THIS INCLUDES INVOICING, CASH POSTINGS, OR ANY CASH REPORTS.' // * '' // * 'IF YOU ARE SURE NO ONE ELSE WILL BE USING THESE FILES YOU MAY START' // * 'THE REMOVAL OF OLD RECORDS BY ENTERING THE CORRECT PASSWORD.' // * ' (BE SURE TO HAVE A TAPE IN THE TAPE DRIVE TO COPY OFF THE' // * ' DATA THAT WILL BE REMOVED.)' // * ' ' // * 'PLEASE ENTER PASSWORD TO RUN THIS PROGRAM' // IFF ?R?='LETERRIP' GOTO END // LOAD JF0206 // FILE NAME-RECEV,LABEL-?L'100,2'?RECEV // FILE NAME-PYMT,LABEL-?L'100,2'?PYMT // FILE NAME-GLPMT,LABEL-?L'100,2'?GLPMT // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-XREC,LABEL-?L'100,2'??L'9,2'?XREC,RECORDS-170000 // FILE NAME-XPYM,LABEL-?L'100,2'??L'9,2'?XPYM,RECORDS-200000 // FILE NAME-XGLP,LABEL-?L'100,2'??L'9,2'?XGLP,RECORDS-10000 // RUN RENAME ?L'100,2'?RECEV,?L'100,2'?XRECEV COPYDATA ?L'100,2'?XRECEV,,?L'100,2'?RECEV,,,,,REORG,OMIT,300,EQ,'D' DELETE ?L'100,2'?XRECEV,F1 RENAME ?L'100,2'?PYMT,?L'100,2'?XPYMT COPYDATA ?L'100,2'?XPYMT,,?L'100,2'?PYMT,,,,,,OMIT,57,EQ,'D' DELETE ?L'100,2'?XPYMT,F1 RENAME ?L'100,2'?GLPMT,?L'100,2'?XGLPMT COPYDATA ?L'100,2'?XGLPMT,,?L'100,2'?GLPMT,,,,,,OMIT,54,EQ,'D' DELETE ?L'100,2'?XGLPMT,F1 *****SAVE ?L'100,2'??L'9,2'?XREC,,,IBMIRD,TC,,,,,,,LEAVE *****SAVE ?L'100,2'??L'9,2'?XPYM,,,IBMIRD,TC,,,,,,,LEAVE *****SAVE ?L'100,2'??L'9,2'?XGLP,,,IBMIRD,TC *****DELETE ?L'100,2'??L'9,2'?XREC,F1 *****DELETE ?L'100,2'??L'9,2'?XPYM,F1 *****DELETE ?L'100,2'??L'9,2'?XGLP,F1 // TAG END // CEND // COPY LIBRARY-P,NAME-XF0224,RECL-096,REF-000002,DATE-03/12/04,TIME-1255 RENAME ?WS?XREC,?WS?XXREC JF0098 JF0030 JF0022 JF0513 JF1017 JF0653 JF0438 JF0752 JF1013 JF0753 JF0033 JF0023 RENAME ?L'100,2'?LOAD,?WS?XXLOAD COPYDATA ?WS?XXLOAD,,?L'100,2'?LOAD,,,,,REORG,OMIT,10,EQ,'D' DELETE ?WS?XXLOAD,F1 JF0784 JF0785 RENAME ?WS?XDLOAD,?WS?XCHGLD JF0332 JF0330 JF0328 JF0329 JF0331 // CEND // COPY LIBRARY-P,NAME-XF0269,RECL-096,REF-000001,DATE-06/02/09,TIME-1047 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XITOR // FILE NAME-OUTPUT,LABEL-?WS?XITORS,RECORDS-20000 // RUN HSORTR 20A 3X 220 FNU 17 22 FNC 1 2 FNC 3 9 FNU 23 25 FNU 26 27 FDC 1 220 // END // CEND // COPY LIBRARY-P,NAME-XF0270,RECL-096,REF-000010,DATE-04/03/03,TIME-0924 // TAG AGNPRT // * ' ' // * 'BEAR IN MIND THE LABELS YOU ASK FOR WILL BE SEPARATED INTO TWO GROUPS' // * 'OF WHITE AND YELLOW. IF ALL THE LABELS YOU ASK FOR BELONG ONLY TO' // * 'ONE GROUP YOU WILL GET SOME HALTS FOR NO INPUT RECORDS FOUND.' // * 'THIS IS PERFECTLY OK, SIMPLY TAKE A 0 OPTION TO THESE HALTS.' // * ' ' // * 'HOW DO YOU WISH LABELS TO PRINT ?' // * ' ' // * ' 1 - WITH BOLD HEADINGS ON ANY PRINTER WITH A QMS BOARD' // * ' ' // * ' 2 - WITH BOLD HEADINGS ON ANY IPDS PRINTER' // * ' ' // * ' 3 - WITH ONLY NORMAL SIZE WRITING ON ANY PRINTER' // * ' ' // LOCAL OFFSET-1,DATA-'?R?' // IF ?L'1,1'?='1' GOTO ENDPRT // IF ?L'1,1'?='2' GOTO ENDPRT // IF ?L'1,1'?='3' GOTO ENDPRT // GOTO AGNPRT // TAG ENDPRT // * ' ' // * ' ' // * 'DO YOU WISH TO PRINT LABELS BY CHOICE OF:' // * ' ' // * ' N - FROM AND THROUGH LOAD NUMBERS / DEPARTMENTS' // * ' ' // * ' D - MANUFACTURE DATES / LABEL PREVIOUSLY PRINTED / DEPARTMENTS' // * ' ' // IF ?R?='N' GOTO LOADNO JF0520 // GOTO LABEL // TAG LOADNO JF0292 // TAG LABEL JF0278 JF0341 // IFF ?L'2,1'?='Y' JF0302 // IF ?L'2,1'?='Y' JF0822 // IF ?L'2,1'?='Y' JF0823 RENAME ?WS?XITOR,?WS?XXITOR JF0875 JF0269 JF0275 JF0276 // IF ?L'1,1'?='1' JF0220 // IF ?L'1,1'?='2' JF0711 // IF ?L'1,1'?='3' JF0220 JF0299 JF0300 JF0301 JF0876 JF0269 JF0275 JF0276 // IF ?L'1,1'?='1' JF0877 // IF ?L'1,1'?='2' JF0878 // IF ?L'1,1'?='3' JF0877 JF0299 JF0300 JF0879 DELETE ?WS?XXITOR,F1 DELETE ?WS?XITHD,F1 DELETE ?WS?XDPCH,F1 // CEND // COPY LIBRARY-P,NAME-XF0282,RECL-096,DATE-10/01/26,TIME-1112 // TAG AGNPRT // * ' ' // * 'HOW DO YOU WISH LABELS TO PRINT ?' // * ' ' // * ' 1 - WITH BOLD HEADINGS ON ANY PRINTER WITH A QMS BOARD' // * ' ' // * ' 2 - WITH BOLD HEADINGS ON ANY IPDS PRINTER' // * ' ' // * ' 3 - WITH ONLY NORMAL SIZE WRITING ON ANY PRINTER' // * ' ' // LOCAL OFFSET-1,DATA-'?R?' // IF ?L'1,1'?='1' GOTO ENDPRT // IF ?L'1,1'?='2' GOTO ENDPRT // IF ?L'1,1'?='3' GOTO ENDPRT // GOTO AGNPRT // TAG ENDPRT // * ' ' // IF DATAF1-XXXJOHN DELETE XXXJOHN,F1 // IF DATAF1-XXXXJOHN DELETE XXXXJOHN,F1 COPYDATA ?L'100,2'?LDTRK,,XXXJOHN JF0283 JF0277 JF0784 JF0785 JF0278 COPYDATA ?WS?XITOR,,XXXXJOHN JF0288 JF0280 JF0281 JF0284 JF0317 JF0440 JF0441 JF0289 JF0318 JF0285 JF0319 JF0286 JF0320 JF0585 JF0586 JF0788 JF0789 JF0287 JF0321 JF0291 JF0290 JF0855 JF0856 JF1158 JF1159 JF1291 JF1292 JF1160 JF1161 JF1162 JF1163 JF1164 JF1165 JF1293 JF1294 JF1295 JF1296 JF1297 JF1298 JF1299 JF1300 JF0636 JF0637 JF0638 JF0639 JF0963 JF0964 JF0965 JF0966 JF1313 JF1314 JF0297 JF0298 JF0495 *F0499 *F0500 JF0305 JF0269 JF0275 JF0306 // IF ?L'1,1'?='1' JF0498 // IF ?L'1,1'?='2' JF0713 // IF ?L'1,1'?='3' JF0498 JF0299 JF0300 JF0567 JF1301 JF1302 JF1303 JF1304 ***JF1305 // IFF ?F'A,?WS?XITCMS'?=0 JF1305 DELETE ?WS?XITCMS,F1 JF1306 ***JF1307 // IFF ?F'A,?WS?XITCMS'?=0 JF1307 DELETE ?WS?XITCMS,F1 JF1308 ***JF1309 // IFF ?F'A,?WS?XTRCUS'?=0 JF1309 DELETE ?WS?XITORS,F1 JF1310 ***JF1309 // IFF ?F'A,?WS?XTRCUS'?=0 JF1309 DELETE ?WS?XITORS,F1 DELETE ?L'100,2'?LDTRK,F1 DELETE ?WS?XITOR,F1 DELETE ?WS?XITHD,F1 DELETE ?WS?XITCM,F1 DELETE ?WS?XTRCUS,F1 RENAME ?L'100,2'?TRCHLD,?WS?XCHGLD JF0332 JF0330 JF0328 JF0329 JF0331 // CEND // COPY LIBRARY-P,NAME-XF0301,RECL-096,REF-000002,DATE-04/03/03,TIME-0925 // LOAD JF0301 // SWITCH 01000010 // FILE NAME-XITRGS,LABEL-?WS?XITRGS,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-XDPCH,LABEL-?WS?XDPCH // RUN // CEND // COPY LIBRARY-P,NAME-XF0358,RECL-096,REF-000002,DATE-07/04/11,TIME-1037 // * 'PLEASE ENTER PASSWORD TO ALLOW DELETIONS' // * '(JUST PRESS ENTER IF YOU DO NOT WISH TO MAKE ANY DELETIONS.)' // LOCAL OFFSET-1,DATA-' ' // IF ?R?='GUTIERREZ' LOCAL OFFSET-1,DATA-'X' // LOAD JF0358 // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-XF0438,RECL-120,DATE-04/03/16,TIME-1050 // * 'TEST TEST TEST' // PAUSE // LOAD JF0438 // SWITCH 00000000 // FILE NAME-XINVC,LABEL-?WS?XINVC // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-VENDOR,LABEL-?L'100,2'?VENDOR,DISP-SHR // FILE NAME-BILMAT,LABEL-?L'100,2'?BILMAT,DISP-SHR // FILE NAME-PROD,LABEL-XJOHN // FILE NAME-INVEN,LABEL-XXJOHN // FILE NAME-PRCTAB,LABEL-?L'100,2'?PRCTAB,DISP-SHR // FILE NAME-MLOAD,LABEL-XXXJOHN // FILE NAME-PRDUSG,LABEL-XXXXJOHN // RUN // CEND // COPY LIBRARY-P,NAME-XF0510,RECL-096,DATE-11/10/25,TIME-0906 // LOAD JF0510 // FILE NAME-RELSHT,LABEL-XXJOHN // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-XF0527,RECL-096,REF-000001,DATE-10/01/13,TIME-2057 // IF DATAF1-?WS?X527A DELETE ?WS?X527A,F1 // IF DATAF1-?WS?X527B DELETE ?WS?X527B,F1 // IF DATAF1-?WS?X527C DELETE ?WS?X527C,F1 // IF DATAF1-?WS?X527D DELETE ?WS?X527D,F1 // IF DATAF1-?WS?X527E DELETE ?WS?X527E,F1 // IF DATAF1-?WS?X527F DELETE ?WS?X527F,F1 // IF DATAF1-?WS?X527G DELETE ?WS?X527G,F1 // LOAD JF0528 // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-X523A,LABEL-?WS?X523A // FILE NAME-XILOAD,LABEL-?WS?X527A,RECORDS-50000 // RUN // LOAD JF0278 // FILE NAME-XILOAD,LABEL-?WS?X527A,RETAIN-S // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-XITOR,LABEL-?WS?X527B,RECORDS-60000 // FILE NAME-XITHD,LABEL-?WS?X527C,RECORDS-8000 // RUN RENAME ?WS?X527B,?WS?X527D // LOAD JF0288 // FILE NAME-XXITOR,LABEL-?WS?X527D,RETAIN-S // FILE NAME-XITOR,LABEL-?WS?X527B,RECORDS-20000 // RUN RENAME ?WS?X527B,?WS?X527D // LOAD JF0302 // FILE NAME-XXITOR,LABEL-?WS?X527D,RETAIN-S // FILE NAME-XDPCH,LABEL-?WS?XDPCH // FILE NAME-XITOR,LABEL-?WS?X527B,RECORDS-25000 // RUN // LOAD JF0816 // FILE NAME-XITOR,LABEL-?WS?X527B,RETAIN-S // FILE NAME-X523A,LABEL-?WS?X523A // FILE NAME-XOORD,LABEL-?WS?X527E,RECORDS-25000 // RUN // IFF ?L'1,1'?='Y' GOTO END1 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?X527E // FILE NAME-OUTPUT,LABEL-?WS?X527F,RECORDS-25000 // RUN HSORTR 25A 3X 226 FNU 225 226 FNU 221 224 FNC 1 2 FNU 28 33 FNU 17 22 FNU 23 25 FNU 26 27 FDC 1 220 // END // TAG END1 // IFF ?L'1,1'?='Y' GOTO END2 // LOAD JF0525 // FILE NAME-XOORDS,LABEL-?WS?X527F,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-X523A,LABEL-?WS?X523A // FILE NAME-DEPT,LABEL-?L'100,2'?DEPT,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-XITHD,LABEL-?WS?X527C // RUN // TAG END2 // IFF ?L'2,1'?='Y' GOTO END3 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?X527E // FILE NAME-OUTPUT,LABEL-?WS?X527G,RECORDS-25000 // RUN HSORTR 24A 3X 226 I C 167EQCI IAC 10 16EQC FNU 225 226 FNU 221 224 FNC 1 2 FNC 3 9 FNC 208 FNU 17 22 FNU 26 27 FDC 1 220 // END // TAG END3 // IFF ?L'2,1'?='Y' GOTO END4 // LOAD JF0530 // FILE NAME-XOORDS,LABEL-?WS?X527G,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-X523A,LABEL-?WS?X523A // FILE NAME-DEPT,LABEL-?L'100,2'?DEPT,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // RUN // TAG END4 DELETE ?WS?XDPCH,F1 DELETE ?WS?X527E,F1 DELETE ?WS?X527C,F1 DELETE ?WS?X523A,F1 // CEND // COPY LIBRARY-P,NAME-XF0617,RECL-096,REF-000001,DATE-04/08/26,TIME-1210 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XMMPMT,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XMMPMS,RECORDS-30000 // RUN HSORTR 20A 3X 62 FNC 58 60 FNC 61 62 FNU 10 15 FNU 1 6 FNU 7 9 FDC 1 62 // END // CEND // COPY LIBRARY-P,NAME-XF0654,RECL-120,DATE-05/04/28,TIME-0907 // * ' ' // * 'DO YOU WISH REPRINTED INVOICES TO PRINT ON:' // * ' ' // * ' 1 - INVOICE FORMS' // * ' 2 - STOCK PAPER' // * ' ' // * 'PLEASE ENTER 1 OR 2 TO INDICATE YOUR CHOICE. THANK YOU.' // * ' ' // LOCAL OFFSET-1,DATA-'?R?' // * ' ' // * 'PLEASE ENTER HOW YOU WISH TO CHOOSE INVOICES:' // * ' ' // * ' C - ALL INVOICES FOR ONE CUSTOMER' // * ' (MAY TAKE 1/2 HOUR OR SO TO SEARCH THE FILES)' // * ' I - BY INVOICE NUMBER' // * ' (WILL PRINT ALMOST IMMEDIATELY)' // * ' ' // * 'PLEASE ENTER C OR I TO INDICATE YOUR CHOICE. THANK YOU.' // * ' ' // LOCAL OFFSET-2,DATA-'?R?' // IF ?L'2,1'?='C' JF0938 // IFF ?L'2,1'?='C' JF0655 // IF ?L'1,1'?='2' GOTO PAP JF0656 // GOTO END // TAG PAP JF0657 // TAG END // CEND // COPY LIBRARY-P,NAME-XF0672,RECL-096,DATE-04/08/26,TIME-1210 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XDLPY,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XDLPS,RECORDS-8000 // RUN HSORTRS 9A 3X 81 FNC 1 FNU 2 7 FNP 8 9 FDC 1 9 FSP 10 14 FSP 15 19 FSP 20 24 FSP 25 29 FSP 30 34 FSP 35 39 FDC 40 81 // END // CEND // COPY LIBRARY-P,NAME-XF0691,RECL-096,REF-000004,DATE-04/08/26,TIME-1104 // * 'DO YOU WISH PAID INVOICES TO APPEAR ? (Y=YES, N=NO)' // LOCAL OFFSET-1,DATA-'?R?' // IFF DATAF1-?WS?XGLPM BLDFILE ?WS?XGLPM,I,R,200,48,,,1,6 // IFF DATAF1-?WS?XCHEK BLDFILE ?WS?XCHEK,I,R,200,18,,,1,12 // IFF DATAF1-?WS?XINPM BLDFILE ?WS?XINPM,I,R,1000,39,,,1,18 // IFF DATAF1-?WS?XCSDT BLDFILE ?WS?XCSDT,I,R,1,7,,,1,1 JF0690 // * ' ' // * 'DO YOU WISH TO RUN THE CASH RECEIPTS EDIT ?' // * ' Y = YES' // * ' N = NO' // * ' ' // IFF ?R?='Y' GOTO END JF0692 JF0693 JF0699 JF0881 JF0694 // IFF ?L'1,1'?='X' GOTO UPDAT1 // * ' ' // * 'THERE ARE ERRORS IN THE CASH RECEIPTS EDIT AND YOU CANNOT CONTINUE' // * 'WITH THE UPDATE. PLEASE PRESS ENTER TO RETURN TO MENU' // * 'IN ORDER TO MAKE CORRECTIONS.' // * ' ' // IF ?R?='X' GOTO ENDUPD // GOTO ENDUPD // TAG UPDAT1 // * ' ' // * 'DO YOU WISH TO UPDATE THE PERMANENT FILES WITH THIS DATA' // * 'AND FINISH OUT THESE CASH RECEIPTS ?' // * ' Y = YES' // * ' N = NO' // * ' ' // IFF ?R?='Y' GOTO ENDUPD // * ' ' // * 'ARE YOU SURE YOU WANT TO RUN THE UPDATE ?' // * ' Y = YES' // * ' N = NO' // * ' ' // IFF ?R?='Y' GOTO ENDUPD // * ' ' // * 'THE DATE THIS CASH WAS RECEIVED IS ?L'2,2'?/?L'4,2'?/?L'6,2'?' // * ' ' // * 'PLEASE REENTER THIS DATE (WITHOUT SLASHES) TO CONTINUE THE UPDATE.' // * ' ' // IF ?R?=?L'2,6'? GOTO UPDAT2 // * ' ' // * 'THE UPDATE HAS BEEN CANCELLED. PRESS ENTER TO RETURN TO MENU.' // IF ?R?='X' GOTO ENDUPD // GOTO ENDUPD // TAG UPDAT2 // * ' ' // * 'THE UPDATE IS CONTINUING.' // * ' ' JF0695 JF0696 JF0693 JF0697 DELETE ?WS?XCHEK,F1 DELETE ?WS?XGLPM,F1 DELETE ?WS?XINPM,F1 DELETE ?WS?XCSDT,F1 // TAG ENDUPD DELETE ?WS?XCSRC,F1 // TAG END // CEND // COPY LIBRARY-P,NAME-XF0693,RECL-096,DATE-04/08/26,TIME-1104 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XCSRC // FILE NAME-OUTPUT,LABEL-?WS?XCSRS,RECORDS-5000 // RUN HSORTR 17A 3X 54 FNU 1 4 FNU 7 12 FNU 13 FNU 14 19 FDC 1 54 // END // CEND // COPY LIBRARY-P,NAME-XF0695,RECL-096,DATE-04/08/26,TIME-1104 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XCSRC // FILE NAME-OUTPUT,LABEL-?WS?XCSRS,RECORDS-5000 // RUN HSORTR 7A 3X 54 I C 13EQC1 IOC 13EQC3 FNU 13 FNU 40 45 FDC 1 54 // END // CEND // COPY LIBRARY-P,NAME-XF0700,RECL-096,REF-000004,DATE-04/12/23,TIME-1108 // * 'DO YOU WISH TO COPY ALL SOURCE PROGRAMS AND PROCEDURES' // * 'TO TAPE OR DISK FILE (NAMED JOFPROG) ? (ENTER T OR F)' // IF ?R?='F' GOTO FILE ***** SYSTEM/36 INIT AND SAVE COMMANDS ***** TAPEINIT TC,SL,JOFFE,,JOFFE ***** SAVELIBR JOFFE,1,JOFFE,,,TC,LEAVE INZTAP DEV(TAP01) NEWVOL(JOFFE) NEWOWNID(JOFFE) DENSITY(*CTGTYPE) CHECK(*NO) SAVLIB LIB(JOFFE) DEV(TAP01) EXPDATE(*PERM) // GOTO END // TAG FILE // IF DATAF1-JOFPRGG DELETE JOFPRGG,F1 ***** SYSTEM/36 RESTORE SOURCE AND PROC COMMANDS ***** FROMLIBR ALL,SOURCE,JOFPROG,F1,,4500,JOFFE,,,,120,SVATTR ***** FROMLIBR ALL,PROC,JOFPROG,F1,ADD,,JOFFE,,,,120,SVATTR SAVS36LIBM FROMMBR(*ALL) FROMLIB(JOFFE) DEV(*PHYFILE) SRCMBRS(*ALL) PHYFILE(QS36F/JOFPRGG) MBROPT(*REPLACE) // TAG END // CEND // COPY LIBRARY-P,NAME-XF0731,RECL-120,DATE-05/06/28,TIME-1008 // TAG AGN // * ' ' // * 'WHICH LABELS DO YOU WISH TO ENTER:' // * ' W = WARNOCK' // * ' 6 = 60 MINUTE' // LOCAL OFFSET-1,DATA-'?R?' // IF ?L'1,1'?='W' GOTO BEGIN // IF ?L'1,1'?='6' GOTO BEGIN // GOTO AGN // TAG BEGIN // LOAD JF0731 // IF ?L'1,1'?='W' SWITCH 10000000 // IF ?L'1,1'?='6' SWITCH 01000000 // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-LABEL,LABEL-?L'100,2'?LABEL,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-XF0732,RECL-120,DATE-05/06/28,TIME-1009 // TAG AGN // * ' ' // * 'WHICH LABELS DO YOU WISH TO PRINT:' // * ' W = WARNOCK' // * ' 6 = 60 MINUTE' // * ' 2 = 20 MINUTE' // LOCAL OFFSET-1,DATA-'?R?' // IF ?L'1,1'?='W' GOTO BEGIN // IF ?L'1,1'?='6' GOTO BEGIN // IF ?L'1,1'?='2' GOTO BEGIN // GOTO AGN // TAG BEGIN // LOAD JF0732 // IF ?L'1,1'?='W' SWITCH 10000000 // IF ?L'1,1'?='6' SWITCH 01000000 // IF ?L'1,1'?='2' SWITCH 00100000 // FILE NAME-LABEL,LABEL-?L'100,2'?LABEL,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-XF0794,RECL-120,DATE-04/03/31,TIME-1258 // * 'PLEASE ENTER PASSWORD' // IFF ?R?='JOFFEROONY' GOTO END // LOCAL OFFSET-1,DATA-'?DATE?' // * ' ' // * 'INVOICES EARLIER THAN THE PREVIOUS YEAR WILL BE REMOVED' // * 'FROM THE INVCB AND INVCE FILES.' // * 'THIS IS BASED ON THE PRESENT YEAR OF ?L'5,2'?' // * ' ' // * 'ALSO ANY RECORDS IN FILE INVCB FOR LOADS NO LONGER IN THE LOAD FILE' // * 'WILL BE REMOVED.' // * ' ' // * 'THE REMOVED RECORDS WILL BE IN FILES NAMED' // * '?L'100,2'?OINVCB AND ?L'100,2'?OINVCE.' // * 'PLEASE COPY THESE FILES TO TAPE AND DELETE THEM FROM THE COMPUTER.' // * ' ' // * 'THE ORIGINAL COMPLETE FILES ARE RENAMED ?L'100,2'?XINVCB' // * 'AND ?L'100,2'?XINVCE. ERASE THEM FROM THE COMPUTER ONLY AFTER' // * 'YOU ARE CERTAIN EVERYTHING IS OK.' // * ' ' // * 'DO YOU WISH TO CONTINUE ?' // * ' Y = YES' // * ' N = NO' // * ' ' // IFF ?R?='Y' GOTO END RENAME ?L'100,2'?INVCB,?L'100,2'?XINVCB RENAME ?L'100,2'?INVCE,?L'100,2'?XINVCE // LOAD JF0794 // FILE NAME-XINVCB,LABEL-?L'100,2'?XINVCB // FILE NAME-XINVCE,LABEL-?L'100,2'?XINVCE // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-INVCB,LABEL-?L'100,2'?INVCB,RECORDS-150000,EXTEND-5000 // FILE NAME-OINVCB,LABEL-?L'100,2'?OINVCB,RECORDS-150000 // FILE NAME-INVCE,LABEL-?L'100,2'?INVCE,RECORDS-2000000,EXTEND-25000 // FILE NAME-OINVCE,LABEL-?L'100,2'?OINVCE,RECORDS-2000000 // RUN // TAG END // CEND // COPY LIBRARY-P,NAME-XF0860,RECL-096,DATE-04/08/26,TIME-1210 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XTPAD,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XTPADS,RECORDS-10000 // RUN HSORTR 17A 3X 116 FNC 113 114 FNC 116 FNU 10 15 FNU 1 6 FNU 18 19 FDC 1 116 // END // CEND // COPY LIBRARY-P,NAME-XF0875,RECL-096,REF-000002,DATE-06/10/27,TIME-1213 // LOAD JF0875 // SWITCH 10000000 // FILE NAME-XXITOR,LABEL-?WS?XXITOR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-XITOR,LABEL-?WS?XITOR,RECORDS-25000 // RUN // CEND // COPY LIBRARY-P,NAME-XF0876,RECL-096,REF-000002,DATE-06/10/27,TIME-1214 // LOAD JF0875 // SWITCH 01000000 // FILE NAME-XXITOR,LABEL-?WS?XXITOR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-XITOR,LABEL-?WS?XITOR,RECORDS-25000 // RUN // CEND // COPY LIBRARY-P,NAME-XF0879,RECL-096,REF-000003,DATE-06/10/27,TIME-1213 // LOAD JF0301 // SWITCH 01000010 // FILE NAME-XITRGS,LABEL-?WS?XITRGS,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-XDPCH,LABEL-?WS?XDPCH // RUN // CEND // COPY LIBRARY-P,NAME-XF0891,RECL-096,REF-000001,DATE-07/10/02,TIME-0952 // LOAD JF0778 // PRINTER NAME-PRT,CPI-15 // SWITCH 10101000 // FILE NAME-XRECSM,LABEL-?WS?XRECSM,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-UNCASH,LABEL-?L'100,2'?UNCASH,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-XF0899,RECL-096,REF-000001,DATE-03/11/27,TIME-0826 // IFF DATAF1-?WS?XCRED BLDFILE ?WS?XCRED,I,R,1000,120,,,1,6 JF0894 // * ' ' // * 'DO YOU WISH TO RUN THE INVOICE AND CASH RECEIPTS EDITS ?' // * ' Y = YES' // * ' N = NO' // * ' ' // IFF ?R?='Y' GOTO END JF0895 JF0896 // * ' ' // * 'DO YOU WISH TO UPDATE THE PERMANENT FILES WITH THIS DATA' // * ' Y = YES' // * ' N = NO' // * ' ' // IFF ?R?='Y' GOTO END // * ' ' // * 'ARE YOU SURE YOU WANT TO RUN THE UPDATE ?' // * ' Y = YES' // * ' N = NO' // * ' ' // IFF ?R?='Y' GOTO END JF0900 JF0897 JF0898 DELETE ?WS?XCRED,F1 // TAG END // CEND // COPY LIBRARY-P,NAME-XF0951,RECL-096,REF-000003,DATE-09/11/19,TIME-0725 // IF ?L'100,2'?=' ' JF0941 // TAG BEGIN // LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='ALVERA ' LOCAL OFFSET-141,DATA-' X X X XXXXXXX XXXX X X X X' // IF ?L'133,8'?='ANGEL ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='ANN ' LOCAL OFFSET-141,DATA-' XXX X XXXXXXXXXXX X XXXX XXX XX ' // IF ?L'133,8'?='AUDREY ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='BETTY ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='BILL ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='BP ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='BRUCE ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='CONNIE ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='CRAIG ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='DALE ' LOCAL OFFSET-141,DATA-' X X' // IF ?L'133,8'?='DONNA ' LOCAL OFFSET-141,DATA-' X XXX XXX X' // IF ?L'133,8'?='DOT ' LOCAL OFFSET-141,DATA-' XX X X' // IF ?L'133,8'?='ED ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='AROD ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='EMOW ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='GLENN ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='GEORGE ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='JD ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='JERRY ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='JESSICA ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='JOE ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='JOEM ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='JOEP ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='JOFFE ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='JOHN ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='JOSE ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='KRISTY ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='LEW ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='LISA ' LOCAL OFFSET-141,DATA-' X X X X X' // IF ?L'133,8'?='MICHELLE' LOCAL OFFSET-141,DATA-' XXX X XXXXX XXXXX X XXXX XXX XX ' // IF ?L'133,8'?='NATALIE ' LOCAL OFFSET-141,DATA-' X X X' // IF ?L'133,8'?='MIKE ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='PAUL ' LOCAL OFFSET-141,DATA-' X' // IF ?L'133,8'?='SBS ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='SM ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='STEVE ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='THOM ' LOCAL OFFSET-141,DATA-'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' // IF ?L'133,8'?='TOM ' LOCAL OFFSET-141,DATA-' X' // LOAD JF0951 // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // RUN // IF ?L'181,1'?='P' ?L'182,6'? // IF ?L'181,1'?='M' MENU ?L'182,6'? // IF ?L'181,1'?='M' GOTO END // IF ?L'181,1'?=' ' GOTO BEGIN // GOTO BEGIN // TAG END // CEND // COPY LIBRARY-P,NAME-XF1014,DATE-09/11/21,TIME-1851 JF1015 JF1016 // CEND // COPY LIBRARY-P,NAME-XF1044,RECL-096,DATE-08/03/12,TIME-0957 // * 'DO YOU WISH MONTHLY SALES ANALYSIS IN ORDER BY:' // * ' C = CUSTOMER NAME, CUSTOMER#' // * ' S = SALESMAN CODE, CUSTOMER NAME, CUSTOMER#' // LOCAL OFFSET-1,DATA-'?R?' ****// IF ?L'1,1'?='S' GOTO SALMAN // LOAD #GSORT // FILE NAME-INPUT,LABEL-?L'100,2'?RECEV,DISP-SHR // FILE NAME-OUTPUT,LABEL-?WS?XREC,RECORDS-600000 // RUN HSORTR 12A X 300 I C 181NECR IAC 300NECD IAC 300NECV FNU 8 13 FNU 18 19 FNU 14 17 FDC 1 256 FDC 257 300 // END // LOAD JF1049 // FILE NAME-XREC,LABEL-?WS?XREC,RETAIN-S // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-XRECSM,LABEL-?WS?XRECSM,RECORDS-600000 // RUN // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XRECSM,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XRECSS,RECORDS-300000 // RUN HSORTR 50A X 361 FNC 305 306 FNC 307 336 FNU 8 13 FNU 301 304 FNU 14 17 FDC 1 256 FDC 257 361 // END // LOAD JF1050 // FILE NAME-XRECSS,LABEL-?WS?XRECSS,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-SALMEN,LABEL-?L'100,2'?SALMEN,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-XF1082,RECL-120,DATE-03/07/23,TIME-1039 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XPOITM,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XPOITS,RECORDS-3000 // RUN HSORTR 25A 3X 100 I C 100EQCA FNC 1 7 FNU 73 74 FNU 69 72 FNC 8 13 FNC 14 19 FDC 1 100 // END // LOAD JF1076 // FILE NAME-XPOITS,LABEL-?WS?XPOITS // FILE NAME-XPO,LABEL-?WS?XPO // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-POMST,LABEL-?L'100,2'?POMST,DISP-SHR // RUN // LOAD JF1079 OVRPRTF FILE(PRT) USRDTA('PO-INVASSN') // FILE NAME-XPOITS,LABEL-?WS?XPOITS // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-XPO,LABEL-?WS?XPO // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-INVEN,LABEL-?L'100,2'?INVEN,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // RUN // LOAD #GSORT // FILE NAME-INPUT,LABEL-?L'100,2'?POMST,DISP-SHR // FILE NAME-OUTPUT,LABEL-?WS?XPOMST,RECORDS-30000 // RUN HSORTR 19A 3X 150 I C 150NECD FNC 36 42 FOU 89 94 FOU 95 100 FDC 1 150 // END // LOAD JF1080 // FILE NAME-XPOMST,LABEL-?WS?XPOMST,RETAIN-S // FILE NAME-XPOSTK,LABEL-?WS?XPOSTK,RECORDS-20000 // RUN // LOAD JF1081 OVRPRTF FILE(PRT) USRDTA('PO-POASSN') // FILE NAME-XPOITS,LABEL-?WS?XPOITS // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-XPO,LABEL-?WS?XPO // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-XPOSTK,LABEL-?WS?XPOSTK,RETAIN-S // FILE NAME-POMST,LABEL-?L'100,2'?POMST,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-XOLDPO,LABEL-?WS?XOLDPO,RECORDS-2000 // RUN // LOAD JF1063 // SWITCH 01000000 // PRINTER NAME-PRT,CPI-15 OVRPRTF FILE(PRT) USRDTA('PO-REG') // FILE NAME-XPOITS,LABEL-?WS?XPOITS // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-XPO,LABEL-?WS?XPO // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-XPOITM,LABEL-?WS?XPOITM,RECORDS-3000 // RUN // LOAD JF1077 // SWITCH 01000000 // PRINTER NAME-PRT,CPI-15 OVRPRTF FILE(PRT) USRDTA('PO-SUMM') // FILE NAME-XPOITM,LABEL-?WS?XPOITM // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-XPO,LABEL-?WS?XPO // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // RUN // LOAD JF1078 // SWITCH 01000000 OVRPRTF FILE(PRT) USRDTA('PO-VEND') // FILE NAME-XPOITM,LABEL-?WS?XPOITM // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-XPO,LABEL-?WS?XPO // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // RUN // LOAD JF1093 // SWITCH 10000000 // FILE NAME-XPOITS,LABEL-?WS?XPOITS // FILE NAME-XPO,LABEL-?WS?XPO // FILE NAME-XPOLAB,LABEL-?WS?XPOLAB,RECORDS-3000 // RUN // LOAD JF1092 // SWITCH 10000000 OVRPRTF FILE(PRT) USRDTA('POLABELS') // PRINTER NAME-PRT,FORMSNO-WOLF,HOLD-YES // FILE NAME-XPOLAB,LABEL-?WS?XPOLAB,RETAIN-S // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // RUN // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XOLDPO,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XPOLAB,RECORDS-3000 // RUN HSORTR 25A 3X 60 FNU 23 28 FNC 1 7 FNC 8 13 FNC 14 19 FDC 1 60 // END // LOAD JF1092 // SWITCH 01000000 OVRPRTF FILE(PRT) USRDTA('POLABELS') // PRINTER NAME-PRT,FORMSNO-WOLF,HOLD-YES // FILE NAME-XPOLAB,LABEL-?WS?XPOLAB,RETAIN-S // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // RUN // LOAD JF1093 // SWITCH 00100000 // FILE NAME-XPOITS,LABEL-?WS?XPOITS,RETAIN-S // FILE NAME-XPO,LABEL-?WS?XPO // FILE NAME-XPOLAB,LABEL-?WS?XPOLAB,RECORDS-3000 // RUN // LOAD JF1092 // SWITCH 00100000 OVRPRTF FILE(PRT) USRDTA('POLABELS') // PRINTER NAME-PRT,FORMSNO-WOLF,HOLD-YES // FILE NAME-XPOLAB,LABEL-?WS?XPOLAB,RETAIN-S // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // RUN // LOAD JF1083 // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-XPO,LABEL-?WS?XPO // RUN DELETE ?WS?XPOITM,F1 DELETE ?WS?XPO,F1 // CEND // COPY LIBRARY-P,NAME-XF1095,RECL-120,DATE-03/07/29,TIME-0840 // * 'THIS PROCEDURE WILL REMOVE FROM INVENTORY' // * 'ALL LOADS WITH A DELIVERY DATE OF TODAY (?DATE?)' // * 'AND BACK ORDERS WITH A DELIVERY DATE OF 12/29/50' // * '(RBOS ARE IGNORED AND MUST BE DONE MANUALLY)' // * 'FOR ITEMS BELONGING TO VENDORS# 006042 AND 996042' // * ' ' // * 'BACK ORDERS MUST HAVE BEEN ENTERED BEFORE REMOVING INVENTORY' // * ' (OR THE ENTIRE LOAD WILL BE REMOVED, INCLUDING BOS)' // * ' ' // * 'BACK ORDERED LOADS MUST HAVE THEIR NEW DELIVERY DATES ENTERED' // * 'ONLY AT THE CORRECT TIME:' // * ' NOT BEFORE TODAYS INVENTORY REMOVAL' // * ' (OR THE ENTIRE LOAD WILL BE REMOVED)' // * ' BEFORE TOMORROWS INVENTORY REMOVAL' // * ' (OR THE LOAD WILL BE REMOVED AGAIN TOMORROW)' // * ' ' // * 'PLEASE ENTER THE PASSWORD TO RUN THIS PROGRAM NOW.' // * ' ' // IF ?R?='LUMBER' GOTO START // * ' ' // * 'ACCESS TO THIS PROGRAM HAS BEEN DENIED TO YOU.' // * 'PRESS ENTER TO RETURN TO MENU.' // * ' ' // IF ?R?='X' GOTO END // GOTO END // TAG START // LOAD JF1094 // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-INVEN,LABEL-?L'100,2'?INVEN,DISP-SHR // FILE NAME-XVEN,LABEL-?WS?XVEN,RECORDS-200 // FILE NAME-XPROD,LABEL-?WS?XPROD,RECORDS-50000 // FILE NAME-XINVEN,LABEL-?WS?XINVEN,RECORDS-30000 // RUN // LOCAL OFFSET-1,DATA-' ' // LOAD JF1091 // SWITCH 00000000 // PRINTER NAME-PRT,CPI-15 // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-XVEN,LABEL-?WS?XVEN // FILE NAME-XPROD,LABEL-?WS?XPROD // FILE NAME-BILMAT,LABEL-?L'100,2'?BILMAT,DISP-SHR // FILE NAME-PROD,LABEL-?WS?XPROD,RETAIN-S // FILE NAME-INVEN,LABEL-?WS?XINVEN,RETAIN-S // RUN // IFF ?L'1,1'?='X' GOTO ENDEDT // * ' ' // * 'THE LOADS FOR TODAY HAVE ALREADY BEEN TAKEN OUT OF INVENTORY' // * 'ON ?L'2,2'?/?L'4,2'?/?L'6,2'? AT ?L'8,2'?:?L'10,2'? OCLOCK' // * 'AND THIS SHOULD NOT BE DONE AGAIN.' // * ' ' // * 'DO YOU WISH TO CONTINUE WITH THE UPDATE ANYWAY ?' // * ' Y = YES' // * ' ANYTHING ELSE = NO' // * ' ' // IFF ?R?='Y' GOTO END // TAG ENDEDT // * ' ' // * 'PLEASE CHECK THE EDIT BEFORE DECIDING TO RUN THE UPDATE.' // * ' ' // * 'DO YOU WISH TO RUN THE UPDATE ?' // * ' Y = YES' // * ' ANYTHING ELSE = NO' // * ' ' // IFF ?R?='Y' GOTO END // LOCAL OFFSET-1,DATA-' ' // LOAD JF1091 // SWITCH 10000000 // PRINTER NAME-PRT,CPI-15 // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-XVEN,LABEL-?WS?XVEN // FILE NAME-XPROD,LABEL-?WS?XPROD // FILE NAME-BILMAT,LABEL-?L'100,2'?BILMAT,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-INVEN,LABEL-?L'100,2'?INVEN,DISP-SHR // RUN // TAG END // IF DATAF1-?WS?XVEN DELETE ?WS?XVEN,F1 // CEND // COPY LIBRARY-P,NAME-XF1114,RECL-120,DATE-05/02/28,TIME-1108 // LOAD JF1115 // FILE NAME-PROD,LABEL-XJOHN // FILE NAME-INVEN,LABEL-XXJOHN // FILE NAME-VENDOR,LABEL-JFVENDOR,DISP-SHR // FILE NAME-CNTRL,LABEL-XXXJOHN // FILE NAME-XVEN,LABEL-?WS?XVEN,RECORDS-200 // FILE NAME-XPROD,LABEL-?WS?XPROD,RECORDS-50000 // FILE NAME-XINVEN,LABEL-?WS?XINVEN,RECORDS-30000 // RUN // IFF ?L'1,1'?='X' GOTO UPDATE // LOAD JF1091 // SWITCH 00000000 // PRINTER NAME-PRT,DEVICE-P0,CPI-15,HOLD-YES // FILE NAME-LOAD,LABEL-JFLOAD,DISP-SHR // FILE NAME-CNTRL,LABEL-XXXJOHN // FILE NAME-XVEN,LABEL-?WS?XVEN // FILE NAME-VENDOR,LABEL-JFVENDOR,DISP-SHR // FILE NAME-BILMAT,LABEL-JFBILMAT,DISP-SHR // FILE NAME-PROD,LABEL-?WS?XPROD,RETAIN-S // FILE NAME-INVEN,LABEL-?WS?XINVEN,RETAIN-S // RUN // GOTO END // TAG UPDATE // LOAD JF1091 // SWITCH 10000000 // PRINTER NAME-PRT,DEVICE-P0,CPI-15,HOLD-YES // FILE NAME-LOAD,LABEL-JFLOAD,DISP-SHR // FILE NAME-CNTRL,LABEL-XXXJOHN // FILE NAME-XVEN,LABEL-?WS?XVEN // FILE NAME-VENDOR,LABEL-JFVENDOR,DISP-SHR // FILE NAME-BILMAT,LABEL-JFBILMAT,DISP-SHR // FILE NAME-PROD,LABEL-XJOHN // FILE NAME-INVEN,LABEL-XXJOHN // RUN // TAG END // IF DATAF1-?WS?XPROD DELETE ?WS?XPROD,F1 // IF DATAF1-?WS?XINVEN DELETE ?WS?XINVEN,F1 // IF DATAF1-?WS?XVEN DELETE ?WS?XVEN,F1 // CEND // COPY LIBRARY-P,NAME-XF1116,RECL-120,DATE-03/11/19,TIME-0904 // TAG BEGIN // * 'DO YOU WISH TO:' // * ' 1.) COPY RECEIVABLES INVOICES FROM XXXXXXLUMBER TO MULTI FAMILY' // * ' 2.) RETURN RECEIVABLES INVOICES TO XXXXXXLUMBER FROM MULTI FAMILY' // * 'PLEASE ENTER 1 OR 2' // LOCAL OFFSET-1,DATA-'?R?' // IF ?L'1,1'?='1' GOTO ONE // IF ?L'1,1'?='2' GOTO TWO // GOTO BEGIN // TAG ONE // LOAD JF1117 // PRINTER NAME-PRT,HOLD-YES // FILE NAME-LCNTRL,LABEL-XXCNTRL,DISP-SHR // FILE NAME-MCNTRL,LABEL-JMCNTRL,DISP-SHR // FILE NAME-LRECEV,LABEL-XXRECEV,DISP-SHR // FILE NAME-MRECEV,LABEL-JMRECEV,DISP-SHR // FILE NAME-LCUSMAS,LABEL-XXCUSMAS,DISP-SHR // FILE NAME-MCUSMAS,LABEL-JMCUSMAS,DISP-SHR // RUN // GOTO END // TAG TWO // LOAD JF1118 // PRINTER NAME-PRT,HOLD-YES // FILE NAME-LCNTRL,LABEL-XXCNTRL,DISP-SHR // FILE NAME-MCNTRL,LABEL-JMCNTRL,DISP-SHR // FILE NAME-LRECEV,LABEL-XXRECEV,DISP-SHR // FILE NAME-MRECEV,LABEL-JMRECEV,DISP-SHR // FILE NAME-LCUSMAS,LABEL-XXCUSMAS,DISP-SHR // FILE NAME-MCUSMAS,LABEL-JMCUSMAS,DISP-SHR // RUN // TAG END // CEND // COPY LIBRARY-P,NAME-XF1146,RECL-120,DATE-06/10/27,TIME-1214 // LOAD JF0875 // SWITCH 00100000 // FILE NAME-XXITOR,LABEL-?WS?XXITOR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-XITOR,LABEL-?WS?XITOR,RECORDS-25000 // RUN // CEND // COPY LIBRARY-P,NAME-XF1149,RECL-120,DATE-06/10/27,TIME-1214 // LOAD JF0301 // SWITCH 01000001 // FILE NAME-XITRGS,LABEL-?WS?XITRGS,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-XDPCH,LABEL-?WS?XDPCH // RUN // CEND // COPY LIBRARY-P,NAME-XF1178,DATE-05/06/23,TIME-0652 // IFF DATAF1-?L'100,2'?ITEMEX BLDFILE ?L'100,2'?ITEMEX,S,R,20000,350 // * 'COMPANY ?L'100,2'? EXCEL FILE MUST HAVE 1ST ROW OF COLUMN HEADINGS,' // * 'ALL OTHER ROWS MUST HAVE THE FOLLOWING COLUMNS:' // * ' A: ITEM# MAX SIZE - 7' // * ' B-K: DESCRIPTION 27 EACH' // * ' L: DEPARTMENT 2' // * ' M: LABEL TYPE 1' // * ' N: VENDOR# 6 NUMBERS ONLY' // * ' O: LIST PRICE 9 NUMBERS ONLY, 4 DECIMALS-XXXXX.XXXX' // * ' P: S=SPECIAL 1' // * ' O: PRICE GROUP 3 NUMBERS ONLY' // * 'NO COMMA CAN BE ANYWHERE IN ANY CELL' // * 'SAVE EXCEL WORKSHEET AS A COMMA-DELIMITED (.CSV) FILE' // * 'TRANSFER .CSV FILE TO AS/400 INTO THE AS/400 FILE ITEMEX' // * ' PRECEDED BY COMPANY CODE, E.G. JFITEMEX, SBITEMEX, ETC.' // * ' MAKING SURE TO CLICK DETAILS AND CHOOSE REPLACE MEMBER ONLY' // * 'AFTER YOU HAVE CAREFULLY READ THIS ENTER:' // * ' OK = CONVERT EXCEL PRODUCT FILE & PRINT EDIT' // * ' ANYTHING ELSE = CANCEL AND RETURN TO MENU' // * 'TEST TEST TEST TEST' // IF ?R?='OK' GOTO EDIT // * 'PROGRAM HAS BEEN CANCELLED. PRESS ENTER TO RETURN TO MENU' // IF ?R?='X' GOTO END // GOTO END // TAG EDIT // * 'CONVERTING EXCEL FILE AND PRINTING EDIT' // IF DATAF1-?L'100,2'?XITEM DELETE ?L'100,2'?XITEM,F1 // LOAD JF1172 // FILE NAME-ITEMEX,LABEL-?L'100,2'?ITEMEX // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-XITEM,LABEL-?L'100,2'?XITEM,RECORDS-10000 // RUN // * ' ' // * 'DO YOU WISH TO UPDATE THE PRODUCT FILE WITH THIS DATA' // * ' Y = YES' // * ' ANYTHING ELSE = NO' // * ' ' // IFF ?R?='Y' GOTO END // * 'YOU ARE ABOUT TO ADD YOUR EXCEL FILE TO THE PRODUCT FILE' // * 'FOR COMPANY ?L'100,2'?' // * ' ' // * 'PLEASE ENTER THE PASSWORD.' // IF ?R?='GUTIERREZ' GOTO UPDATE // * 'UPDATE HAS BEEN CANCELLED. PRESS ENTER TO RETURN TO MENU' // IF ?R?='X' GOTO END // GOTO END // * ' ' // TAG UPDATE // * 'EXCEL FILE IS BEING ADDED TO COMPANY ?L'100,2'? PRODUCT FILE' // LOAD JF1173 // FILE NAME-XITEM,LABEL-?L'100,2'?XITEM,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-PROD,LABEL-XXXXPROD,DISP-SHR // RUN // TAG END // CEND // COPY LIBRARY-P,NAME-XF1179,RECL-120,DATE-04/12/07,TIME-1105 // PAUSE // LOAD JF1179 // FILE NAME-EMPLYE,LABEL-XJOHN // RUN // CEND // COPY LIBRARY-P,NAME-XF1222,RECL-120,DATE-07/10/02,TIME-0952 BLDFILE ?WS?XCUS4,I,RECORDS,500,4,,,1,4 BLDFILE ?WS?XCUS6,I,RECORDS,500,6,,,1,6 JF1223 JF0452 JF0453 // * ' ' // * 'INDICATE HOW YOU WISH THE SUMMARY AGED TRIAL BALANCE TO PRINT:' // * ' 1 - LARGE PRINT ON FULL SIZE (14 7/8 X 11) PAPER' // * ' 2 - SMALL PRINT ON FULL SIZE (14 7/8 X 11) PAPER' // * ' 3 - SMALL PRINT ON LETTER SIZE (8 1/2 X 11) PAPER' // LOCAL OFFSET-4,DATA-'?R?' // IF ?L'4,1'?='1' GOTO REP1 // IF ?L'4,1'?='2' GOTO REP2 // IF ?L'4,1'?='3' GOTO REP3 // GOTO REP1 // TAG REP1 JF1234 // GOTO END // TAG REP2 JF1235 // GOTO END // TAG REP3 JF1236 // GOTO END // TAG END // CEND // COPY LIBRARY-P,NAME-XF1224,RECL-120,DATE-07/10/02,TIME-0952 BLDFILE ?WS?XCUS4,I,RECORDS,500,4,,,1,4 BLDFILE ?WS?XCUS6,I,RECORDS,500,6,,,1,6 JF1223 JF1225 JF0452 JF0453 JF0891 // CEND // COPY LIBRARY-P,NAME-XF1238,RECL-096,DATE-07/10/11,TIME-0752 // LOAD JF0626 // FILE NAME-RECEV,LABEL-?L'100,2'?RECVNC,DISP-SHR // FILE NAME-UNCASH,LABEL-?L'100,2'?UNCASH,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-MISCUS,LABEL-?L'100,2'?MISCUS,DISP-SHR // FILE NAME-XDTRC,LABEL-?WS?XDTRC,RECORDS-100000 // RUN JF0047 JF0034 // CEND // COPY LIBRARY-P,NAME-XF1253,RECL-120,DATE-08/06/05,TIME-1112 */ * 'PLEASE ENTER DATE (MMDDYY) FOR HISTORICAL CASH RECEIPTS REPORT' */ LOCAL OFFSET-1,DATA-'?R?' // LOAD XF1254 // FILE NAME-GLPMT,LABEL-?L'100,2'?GLPMT,DISP-SHR // FILE NAME-PYMT,LABEL-XJOHN // FILE NAME-PYUN,LABEL-XXJOHN // FILE NAME-XHCSRC,LABEL-?WS?XHCSRC,RECORDS-5000 // RUN // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XHCSRC,RETAIN-S // FILE NAME-OUTPUT,LABEL-?WS?XHCSRS,RECORDS-5000 // RUN HSORTR 17A 3X 80 FNU 1 4 FNU 7 12 FNU 13 FNU 14 19 FDC 1 80 * HSORTR 19A 3X 80 * FNU 20 21 * FNU 16 19 * FNU 10 15 * FNC 62 * FNU 63 68 * FDC 1 80 // END // LOAD JF1255 // FILE NAME-XHCSRS,LABEL-?WS?XHCSRS,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-GLFILE,LABEL-?L'100,2'?GLFILE,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-RECEV,LABEL-?L'100,2'?RECEV,DISP-SHR // RUN // TAG END // CEND // COPY LIBRARY-P,NAME-XF1269,RECL-120,DATE-09/03/30,TIME-0802 // * 'DO YOU WISH A PRINTOUT OF INSTRUCTIONS FOR CONVERTING' // * 'THE AS/400 FILE (NAME ?WS?XEXCEL) CREATED BY THIS PROGRAM' // * 'TO THE EXCEL WORKSHEET THAT WILL BE DELIVERED TO THE CUSTOMER ?' // * ' Y = YES' // * ' ANYTHING ELSE = NO' // LOCAL OFFSET-1,DATA-'?R?' // LOCAL OFFSET-2,DATA-'?WS?' // IF DATAF1-?WS?XEXCEL DELETE ?WS?XEXCEL,F1 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?L'100,2'?RECEV,DISP-SHR // FILE NAME-OUTPUT,LABEL-?WS?XRECEV,RECORDS-50000 // RUN HSORTR 12A 3X 300 I C 300EQCN FNU 8 13 FNU 2 6 FDC 1 256 FDC 257 300 // END // LOAD JF1270 // FILE NAME-XRECEV,LABEL-?WS?XRECEV,RETAIN-S // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR *// FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-RELSHT,LABEL-?L'100,2'?RELSHT,DISP-SHR // FILE NAME-INVCE,LABEL-?L'100,2'?INVCE,DISP-SHR // FILE NAME-XEXCEL,LABEL-?WS?XEXCEL,RECORDS-5000 // RUN // IF ?L'1,1'?='Y' JF1271 // CEND // COPY LIBRARY-P,NAME-XF1272,RECL-120,DATE-09/09/04,TIME-1944 // * 'DO YOU WISH A PRINTOUT OF INSTRUCTIONS FOR CONVERTING' // * 'THE AS/400 FILE (NAME ?WS?XEXCEL) CREATED BY THIS PROGRAM' // * 'TO THE EXCEL WORKSHEET THAT WILL BE DELIVERED TO THE CUSTOMER ?' // * ' Y = YES' // * ' ANYTHING ELSE = NO' // LOCAL OFFSET-1,DATA-'?R?' // LOCAL OFFSET-2,DATA-'?WS?' // IF DATAF1-?WS?XEXCEL DELETE ?WS?XEXCEL,F1 // LOAD JF1273 // FILE NAME-XRECEV,LABEL-?WS?XRECEV,RETAIN-S // FILE NAME-XEXINP,LABEL-?WS?XEXINP,RECORDS-100 // RUN // LOAD #GSORT // FILE NAME-INPUT,LABEL-?L'100,2'?RECEV,DISP-SHR // FILE NAME-OUTPUT,LABEL-?WS?XRECEV,RECORDS-50000 // RUN HSORTR 12A 3X 300 I C 300EQCN FNU 8 13 FNU 2 6 FDC 1 256 FDC 257 300 // END // LOAD JF1274 // FILE NAME-XRECEV,LABEL-?WS?XRECEV,RETAIN-S // FILE NAME-XEXINP,LABEL-?WS?XEXINP,RETAIN-S // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR *// FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-RELSHT,LABEL-?L'100,2'?RELSHT,DISP-SHR // FILE NAME-INVCE,LABEL-?L'100,2'?INVCE,DISP-SHR // FILE NAME-XEXCEL,LABEL-?WS?XEXCEL,RECORDS-5000 // RUN // IF ?L'1,1'?='Y' JF1271 // CEND // COPY LIBRARY-P,NAME-XF1278,RECL-120,DATE-09/09/03,TIME-1205 // LOAD JF1278 // FILE NAME-HOUSE,LABEL-?L'100,2'?HOUSE,DISP-SHR // FILE NAME-XHSEL,LABEL-?WS?XHSEL,RECORDS-30000 // FILE NAME-XHSCH,LABEL-?WS?XHSCH,RECORDS-1 // RUN // CEND // COPY LIBRARY-P,NAME-XF1324,RECL-120,DATE-11/08/04,TIME-1952 // LOAD JF1325 // FILE NAME-RECEV,LABEL-?L'100,2'?RECEV,DISP-SHR // FILE NAME-XRECV1,LABEL-?WS?XRECV1,RECORDS-200000 // RUN // CEND // COPY LIBRARY-P,NAME-XF1325,RECL-120,DATE-11/08/09,TIME-2014 // LOAD JF1325 // FILE NAME-RECEV,LABEL-?L'100,2'?RECEV,DISP-SHR // FILE NAME-XRECV1,LABEL-?WS?XRECV1,RECORDS-200000 // RUN // LOAD #GSORT // FILE NAME-INPUT,LABEL-?WS?XRECV1 // FILE NAME-OUTPUT,LABEL-?WS?XRECV2,RECORDS-200000 // RUN HSORTR 6A 3X 300 I C 300NECD IAC 300NECV FNU 8 13 FDC 1 256 FDC 257 300 // END // CEND // COPY LIBRARY-P,NAME-XF1326,RECL-120,DATE-11/08/10,TIME-0655 // LOAD JF1326 // FILE NAME-XRECV2,LABEL-?WS?XRECV2 // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-PYMT,LABEL-XXXJOHN,DISP-SHR // FILE NAME-UNCASH,LABEL-XXXXJOHN,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-XF1327,RECL-096,DATE-11/10/25,TIME-0827 // LOAD JF1327 // FILE NAME-XINVC,LABEL-XXXXJOHN // FILE NAME-LOAD,LABEL-XXXJOHN // FILE NAME-RELSHT,LABEL-XXJOHN // FILE NAME-XDLOAD,LABEL-?WS?XDLOAD,RECORDS-2000 // RUN // CEND // COPY LIBRARY-P,NAME-XF1328,RECL-096,DATE-11/10/25,TIME-0926 // LOAD JF1328 // FILE NAME-XINVC,LABEL-XXXXJOHN // FILE NAME-CUSMAS,LABEL-XXXXCUST // RUN // CEND // COPY LIBRARY-P,NAME-XF1329,RECL-096,DATE-11/10/25,TIME-0916 // LOAD JF1329 // FILE NAME-XDLOAD,LABEL-?WS?XDLOAD // FILE NAME-LOAD,LABEL-XXXXLOAD // RUN // CEND // COPY LIBRARY-P,NAME-XJESS,RECL-096,REF-000002,DATE-11/12/01,TIME-1007 *F0031 JF0748 JF0749 JF1192 JF1193 JF1194 JF1323 JF1320 JF1321 JF1322 // CEND // COPY LIBRARY-P,NAME-XJOHN,RECL-096,REF-000002,DATE-09/08/21,TIME-1228 JF1122 **RENAME ?WS?XDLOAD,?WS?XCHGLD JF0332 JF0330 JF0328 JF0329 JF0331 // CEND // COPY LIBRARY-P,NAME-XJOSE,RECL-120,DATE-03/07/23,TIME-0950 // * 'PLEASE ENTER PASSWORD' // IFF ?R?='JOSE' GOTO END // IF DATAF1-XJOSE DELETE XJOSE,F1 RENAME ?WS?XDLOAD,XJOSE JF0022 JF0513 JF1017 JF0653 JF0438 JF0752 JF1013 JF0753 JF0033 JF0023 RENAME ?L'100,2'?LOAD,?WS?XXLOAD COPYDATA ?WS?XXLOAD,,?L'100,2'?LOAD,,,,,REORG,OMIT,10,EQ,'D' DELETE ?WS?XXLOAD,F1 JF0784 JF0785 RENAME ?WS?XDLOAD,?WS?XCHGLD JF0332 JF0330 JF0328 JF0329 JF0331 // TAG END // CEND // COPY LIBRARY-P,NAME-XSTT03,DATE-05/06/26,TIME-0827 // LOAD XTST03 // FILE NAME-INVCE,LABEL-XJOHN // RUN // CEND // COPY LIBRARY-P,NAME-XST026,RECL-120,DATE-03/12/06,TIME-0739 // LOAD TST026 // SWITCH 00000000 // PRINTER NAME-PRT,HOLD-YES // FILE NAME-OINVCB,LABEL-?L'100,2'?OINVCB // FILE NAME-INVCE,LABEL-?L'100,2'?INVCE // FILE NAME-INVCB,LABEL-?L'100,2'?INVCB,RECORDS-310000,EXTEND-5000 // RUN // CEND // COPY LIBRARY-P,NAME-XST031,RECL-120,DATE-04/01/30,TIME-1221 // * 'TEST TEST TEST TEST' // * 'THIS PROGRAM WILL ALLOW YOU TO MAKE CHANGES TO THE' // * 'PRODUCT USAGE FILE PRDUSG FOR COMPANY ?L'100,2'?' // * ' ' // * 'PLEASE ENTER THE PASSWORD.' // IFF ?R?='JOFFEBUILDSBETTERHOUSES' GOTO END // * ' ' // LOAD TST031 // FILE NAME-PRDUSG,LABEL-XXXXXXXX // RUN // TAG END // CEND // COPY LIBRARY-P,NAME-XST040,RECL-120,DATE-11/02/10,TIME-0906 // * 'THIS PROGRAM WILL ALLOW YOU TO MAKE CHANGES TO THE A/R FILE RECEV' // * 'FOR COMPANY ?L'100,2'?' // * ' ' // * 'PLEASE ENTER THE PASSWORD. TEST TEST TEST' // IFF ?R?='JOFFEBUILDSBETTERHOUSES' GOTO END // * ' ' // LOAD TST040 // PRINTER NAME-PRT,HOLD-YES // FILE NAME-RECEV,LABEL-XXXXRECV,DISP-SHR // RUN // TAG END // CEND // COPY LIBRARY-P,NAME-XST045,RECL-120,DATE-11/02/09,TIME-2119 // * 'THIS PROGRAM WILL ALLOW YOU TO MAKE CHANGES TO THE' // * 'A/R PAYMENT PYMT FOR COMPANY ?L'100,2'?' // * ' ' // * 'PLEASE ENTER THE PASSWORD. TEST TEST TEST' // IFF ?R?='JOFFEBUILDSBETTERHOUSES' GOTO END // * ' ' // LOAD TST045 // PRINTER NAME-PRT,HOLD-YES // FILE NAME-PYMT,LABEL-XJOHN,DISP-SHR // RUN // TAG END // CEND // COPY LIBRARY-P,NAME-XST049,RECL-120,DATE-07/02/13,TIME-0914 // * 'THIS PROGRAM WILL ALLOW YOU TO MAKE CHANGES TO THE' // * 'UNAPPLIED CASH FILE UNCASH FOR COMPANY ?L'100,2'?' // * ' ' // * 'PLEASE ENTER THE PASSWORD.' // IFF ?R?='JOFFEBUILDSBETTERHOUSES' GOTO END // * ' ' // LOAD TST049 // SWITCH 10000000 // PRINTER NAME-PRT,FORMSNO-JOHN,HOLD-YES // FILE NAME-UNCASH,LABEL-XXXJOHNX // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // RUN // TAG END // CEND // COPY LIBRARY-P,NAME-XST079,RECL-120,DATE-03/11/13,TIME-1433 // LOAD TST079 // PRINTER NAME-PRT,HOLD-YES // FILE NAME-RECEV,LABEL-?L'100,2'?RECEV,DISP-SHR // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-INVCE,LABEL-?L'100,2'?INVCE,DISP-SHR // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-XST080,RECL-120,DATE-04/03/05,TIME-0820 // * 'TEST TEST TEST TEST' // * 'THIS PROGRAM WILL CHANGE INVOICE DATES IN FILES' // * 'RECEV, RELSHT, INVCE, INVCB' // * ' ' // * 'PLEASE ENTER PASSWORD TO CONTINUE' // IFF ?R?='JOFFEBUILDSBETTERHOUSES' GOTO END // * ' ' // LOAD TST080 // PRINTER NAME-PRT,HOLD-YES // FILE NAME-RECEV,LABEL-XJOHN // FILE NAME-RELSHT,LABEL-XXJOHN // FILE NAME-INVCE,LABEL-XXXJOHN // FILE NAME-INVCB,LABEL-XXXXJOHN // RUN // TAG END // CEND // COPY LIBRARY-P,NAME-XST083,RECL-120,DATE-03/12/22,TIME-0918 // LOAD TST083 // PRINTER NAME-PRT,HOLD-YES // FILE NAME-RECEV,LABEL-XXXXRECV // FILE NAME-INVCE,LABEL-XXXXINVE // FILE NAME-INVCB,LABEL-XXXXINVB // RUN // CEND // COPY LIBRARY-P,NAME-XST084,RECL-120,DATE-04/01/06,TIME-1120 // * 'TEST TEST TEST TEST TEST' // * 'THIS PROGRAM WILL CNAHGE QTYS INVOICED IN FILE LOAD' // * 'FOR COMPANY ?L'100,2'?' // * ' ' // * 'PLEASE ENTER PASSWORD TO CONTINUE.' // IFF ?R?='JOFFEBUILDSBETTERHOUSES' GOTO END // * ' ' // LOAD TST084 // PRINTER NAME-PRT,HOLD-YES // FILE NAME-INVCE,LABEL-?L'100,2'?INVCE,DISP-SHR // FILE NAME-LOAD,LABEL-XJOHN // RUN // TAG END // CEND // COPY LIBRARY-P,NAME-XST117,RECL-120,DATE-04/03/11,TIME-1408 // * 'THIS PROGRAM WILL COPY RECORDS 005 AND TOTAL' // * 'FROM THE FILE INVCE FOR COMPANY ?L'100,2'?' // * 'TO THE REORGANIZED FILE NAMED XXXXINVE.' // * ' ' // * 'ANY EXISTING FILE XXXXINVE WILL FIRST BE DELETED.' // * ' ' // IF DATAF1-XXXXINVE DELETE XXXXINVE,F1 // LOAD TST117 // PRINTER NAME-PRT,HOLD-YES // FILE NAME-INVCE,LABEL-XXXXJOHN // FILE NAME-XXXXINVE,RECORDS-5000000 // RUN // CEND // COPY LIBRARY-P,NAME-XST134,RECL-120,DATE-07/02/13,TIME-0842 // * 'THIS WILL CHANGE DATES IN CASH RECEIPTS TEST TEST TEST' // * 'FOR COMPANY ?L'100,2'?' // * ' ' // * 'PLEASE ENTER THE PASSWORD.' // IFF ?R?='JOFFEBUILDSBETTERHOUSES' GOTO END // * ' ' // LOAD TST134 // PRINTER NAME-PRT,FORMSNO-JOHN,HOLD-YES // FILE NAME-IPYMT,LABEL-XJOHNXXX // FILE NAME-GLPMT,LABEL-XXJOHN // FILE NAME-ARCHK,LABEL-XXXJOHN // FILE NAME-PYMT,LABEL-XJOHN // FILE NAME-RECEV,LABEL-XXXXRECV // FILE NAME-PYUN,LABEL-XXXXJOHN // RUN // TAG END // CEND // COPY LIBRARY-P,NAME-XST151,RECL-120,DATE-05/04/01,TIME-1016 // * 'THIS PROGRAM WILL FIGURE STAIR AMOUNTS' // * 'FROM THE INVOICE FILE INVCE AND ADD THEM TO THE' // * 'RECEIVABLES FILE RECEV' // * 'FOR COMPANY ?L'100,2'?' // * ' ' // * 'PLEASE ENTER THE PASSWORD.' // IFF ?R?='JOFFEBUILDSBETTERHOUSES' GOTO END // * ' ' // LOAD TST151 // PRINTER NAME-PRT,HOLD-YES // FILE NAME-RECEV,LABEL-XXXXRECV // FILE NAME-INVCE,LABEL-?L'100,2'?INVCE,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // RUN // TAG END // CEND // COPY LIBRARY-P,NAME-XST250,RECL-120,DATE-08/03/06,TIME-0458 // IF DATAF1-X?L'100,2'?5INE1 DELETE X?L'100,2'?5INE1,F1 // IF DATAF1-X?L'100,2'?5INE2 DELETE X?L'100,2'?5INE2,F1 // IF DATAF1-X?L'100,2'?5INE3 DELETE X?L'100,2'?5INE3,F1 // IF DATAF1-X?L'100,2'?5INE4 DELETE X?L'100,2'?5INE4,F1 // IF DATAF1-X?L'100,2'?5INE5 DELETE X?L'100,2'?5INE5,F1 // IF DATAF1-X?L'100,2'?5INE6 DELETE X?L'100,2'?5INE6,F1 // IF DATAF1-X?L'100,2'?5INE7 DELETE X?L'100,2'?5INE7,F1 // LOAD TST249 // FILE NAME-XINVCE,LABEL-X?L'100,2'?5INVE // FILE NAME-XINVE1,LABEL-X?L'100,2'?5INE1,RECORDS-750000 // FILE NAME-XINVE2,LABEL-X?L'100,2'?5INE2,RECORDS-750000 // FILE NAME-XINVE3,LABEL-X?L'100,2'?5INE3,RECORDS-750000 // FILE NAME-XINVE4,LABEL-X?L'100,2'?5INE4,RECORDS-750000 // FILE NAME-XINVE5,LABEL-X?L'100,2'?5INE5,RECORDS-750000 // FILE NAME-XINVE6,LABEL-X?L'100,2'?5INE6,RECORDS-750000 // FILE NAME-XINVE7,LABEL-X?L'100,2'?5INE7,RECORDS-750000 // RUN // CEND // COPY LIBRARY-P,NAME-XST273,RECL-120,DATE-11/02/16,TIME-2017 // * 'THIS PROGRAM WILL COPY INVOICE HISTORY RECORDS' // * 'FROM THE DUPLICATE INVOICE FILE DPINV TEET TEST TEST TEST' // * 'TO THE PERMANENT INVOICE FILE INVCE FOR COMPANY ?L'100,2'?' // * ' ' // * 'PLEASE ENTER THE PASSWORD.' // IFF ?R?='JOFFEBUILDSBETTERHOUSES' GOTO END // * ' ' // LOAD TST273 // FILE NAME-INVCE,LABEL-XJOHN,DISP-SHR // FILE NAME-DPINV,LABEL-?L'100,2'?DPINV,DISP-SHR // RUN // TAG END // CEND // COPY LIBRARY-P,NAME-XTST01,RECL-096,REF-000002,DATE-11/10/21,TIME-0728 // LOAD JF0510 // FILE NAME-RELSHT,LABEL-XXXJOHN // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-XTST02,DATE-11/10/21,TIME-0757 // LOAD JF1327 ***// FILE NAME-XINVC,LABEL-?WS?XINVC // FILE NAME-XINVC,LABEL-XXXXJOHN // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR ***// FILE NAME-RELSHT,LABEL-?L'100,2'?RELSHT,DISP-SHR // FILE NAME-RELSHT,LABEL-XXXJOHN // RUN // CEND // COPY LIBRARY-P,NAME-XTST03,DATE-07/10/22,TIME-0825 // LOAD JF0983 OVRPRTF FILE(PRT) USRDTA('PO-DETAIL') // FILE NAME-POMST,LABEL-XXXJOHN // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // FILE NAME-PROD,LABEL-XJOHN // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-XTST04,DATE-05/06/26,TIME-1238 COPYDATA JFPINVCE,,JFOOOPIN // CEND // COPY LIBRARY-P,NAME-XTST05,RECL-120,DATE-06/11/10,TIME-1230 BLDFILE ?L'100,2'?ORDER,I,R,10000,200,,,1,6,,,3000 // LOAD XTST05 // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-RECEV,LABEL-?L'100,2'?RECEV,DISP-SHR // FILE NAME-ORDER,LABEL-?L'100,2'?ORDER,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-XTST10,RECL-096,REF-000001,DATE-11/03/25,TIME-1029 // IF DATAF1-?WS?XHINV DELETE ?WS?XHINV,F1 JF1119 JF1121 JF0653 DELETE ?WS?XCRED,F1 // TAG END // CEND // COPY LIBRARY-P,NAME-XTST11,RECL-120,DATE-11/01/16,TIME-1818 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?L'100,2'?RECEV,DISP-SHR // FILE NAME-OUTPUT,LABEL-?WS?XRECEV,RECORDS-500000 // RUN HSORTR 6A 3X 300 I C 300EQCN FNC 8 13 FDC 1 256 FDC 257 300 // END // LOAD XTST11 // FILE NAME-XRECEV,LABEL-?WS?XRECEV,RETAIN-S // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-XGLPM,LABEL-?WS?XGLPM,RECORDS-100 // FILE NAME-XCHEK,LABEL-?WS?XCHEK,RECORDS-5000 // FILE NAME-XINPM,LABEL-?WS?XINPM,RECORDS-10000 // FILE NAME-XCSDT,LABEL-?WS?XCSDT,RECORDS-1 // RUN // LOCAL OFFSET-1,DATA-' ' JF0692 JF0693 JF0699 JF0881 JF1152 JF0694 // IFF ?L'1,1'?='X' GOTO UPDAT1 // * ' ' // * 'THERE ARE ERRORS IN THE CASH RECEIPTS EDIT AND YOU CANNOT CONTINUE' // * 'WITH THE UPDATE. PLEASE PRESS ENTER TO RETURN TO MENU' // * 'IN ORDER TO MAKE CORRECTIONS.' // * ' ' // IF ?R?='X' GOTO ENDUPD // GOTO ENDUPD // TAG UPDAT1 // * ' ' // * 'DO YOU WISH TO UPDATE THE PERMANENT FILES WITH THIS DATA' // * 'AND FINISH OUT THESE CASH RECEIPTS ?' // * ' Y = YES' // * ' N = NO' // * ' ' // IFF ?R?='Y' GOTO ENDUPD // * ' ' // * 'ARE YOU SURE YOU WANT TO RUN THE UPDATE ?' // * ' Y = YES' // * ' N = NO' // * ' ' // IFF ?R?='Y' GOTO ENDUPD // * ' ' // * 'THE DATE THIS CASH WAS RECEIVED IS ?L'2,2'?/?L'4,2'?/?L'6,2'?' // * ' ' // * 'PLEASE REENTER THIS DATE (WITHOUT SLASHES) TO CONTINUE THE UPDATE.' // * ' ' // IF ?R?=?L'2,6'? GOTO UPDAT2 // * ' ' // * 'THE UPDATE HAS BEEN CANCELLED. PRESS ENTER TO RETURN TO MENU.' // IF ?R?='X' GOTO ENDUPD // GOTO ENDUPD // TAG UPDAT2 // * ' ' // * 'THE UPDATE IS CONTINUING.' // * ' ' *JF0695 *JF0696 *JF0693 *JF1153 *JF0697 *DELETE ?WS?XCHEK,F1 *DELETE ?WS?XGLPM,F1 *DELETE ?WS?XINPM,F1 *DELETE ?WS?XCSDT,F1 // TAG ENDUPD DELETE ?WS?XCSRC,F1 // TAG END // CEND // COPY LIBRARY-P,NAME-XTST12,RECL-120,DATE-11/02/07,TIME-1954 // LOAD #GSORT // FILE NAME-INPUT,LABEL-?L'100,2'?RECEV,DISP-SHR // FILE NAME-OUTPUT,LABEL-?WS?XRECEV,RECORDS-500000 // RUN HSORTR 6A 3X 300 I C 300EQCN FNC 8 13 FDC 1 256 FDC 257 300 // END // LOAD XTST12 // FILE NAME-XRECEV,LABEL-?WS?XRECEV,RETAIN-S // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-XGLPM,LABEL-?WS?XGLPM,RECORDS-100 // FILE NAME-XCHEK,LABEL-?WS?XCHEK,RECORDS-5000 // FILE NAME-XINPM,LABEL-?WS?XINPM,RECORDS-10000 // FILE NAME-XCSDT,LABEL-?WS?XCSDT,RECORDS-1 // RUN // LOCAL OFFSET-1,DATA-' ' JF0692 JF0693 JF0699 JF0881 JF1152 JF0694 // IFF ?L'1,1'?='X' GOTO UPDAT1 // * ' ' // * 'THERE ARE ERRORS IN THE CASH RECEIPTS EDIT AND YOU CANNOT CONTINUE' // * 'WITH THE UPDATE. PLEASE PRESS ENTER TO RETURN TO MENU' // * 'IN ORDER TO MAKE CORRECTIONS.' // * ' ' // IF ?R?='X' GOTO ENDUPD // GOTO ENDUPD // TAG UPDAT1 // * ' ' // * 'DO YOU WISH TO UPDATE THE PERMANENT FILES WITH THIS DATA' // * 'AND FINISH OUT THESE CASH RECEIPTS ?' // * ' Y = YES' // * ' N = NO' // * ' ' // IFF ?R?='Y' GOTO ENDUPD // GOTO ENDUPD // * ' ' // * 'ARE YOU SURE YOU WANT TO RUN THE UPDATE ?' // * ' Y = YES' // * ' N = NO' // * ' ' // IFF ?R?='Y' GOTO ENDUPD // * ' ' // * 'THE DATE THIS CASH WAS RECEIVED IS ?L'2,2'?/?L'4,2'?/?L'6,2'?' // * ' ' // * 'PLEASE REENTER THIS DATE (WITHOUT SLASHES) TO CONTINUE THE UPDATE.' // * ' ' // IF ?R?=?L'2,6'? GOTO UPDAT2 // * ' ' // * 'THE UPDATE HAS BEEN CANCELLED. PRESS ENTER TO RETURN TO MENU.' // IF ?R?='X' GOTO ENDUPD // GOTO ENDUPD // TAG UPDAT2 // * ' ' // * 'THE UPDATE IS CONTINUING.' // * ' ' *JF0695 *JF0696 *JF0693 *JF1153 *JF0697 *DELETE ?WS?XCHEK,F1 *DELETE ?WS?XGLPM,F1 *DELETE ?WS?XINPM,F1 *DELETE ?WS?XCSDT,F1 // TAG ENDUPD DELETE ?WS?XCSRC,F1 // TAG END // CEND // COPY LIBRARY-P,NAME-XTST21,RECL-120,DATE-11/02/13,TIME-2036 // * 'THIS PROGRAM WILL ALLOW YOU TO MAKE CHANGES TO THE' // * 'INVOICE HISTORY FILE INVCE FOR COMPANY ?L'100,2'?' // * ' ' // * 'PLEASE ENTER THE PASSWORD. TEST TEST' // IFF ?R?='JOFFEBUILDSBETTERHOUSES' GOTO END // * ' ' // LOAD TST272 // FILE NAME-INVCE,LABEL-XXXXINVC,DISP-SHR // RUN // TAG END // CEND // COPY LIBRARY-P,NAME-XXJOSE,RECL-096,REF-000002,DATE-08/08/14,TIME-1019 JF1122 **RENAME ?WS?XDLOAD,?WS?XCHGLD JF0332 JF0330 JF0328 JF0329 JF0331 // CEND // COPY LIBRARY-P,NAME-X2JOSE,RECL-096,DATE-10/11/22,TIME-1037 // * 'DISPLAY CUSTOMER BUILDING LOADS/INV' // * '(BILLING REPORT MENU ITEM# 22)' // * 'FOR INVOICES DATED 1/1/02 - 12/31/05' // * ' ' // * 'PRESS ENTER TO CONTINUE' // IF ?R?='X' GOTO BEGIN // TAG BEGIN // LOAD JF0664 // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-MISCUS,LABEL-?L'100,2'?MISCUS,DISP-SHR // FILE NAME-INVCB,LABEL-?L'100,2'?INVB05,DISP-SHR // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-PRCTAB,LABEL-?L'100,2'?PRCTAB,DISP-SHR // FILE NAME-INVCE,LABEL-?L'100,2'?INVE05,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-X3JOSE,RECL-096,DATE-10/11/22,TIME-1038 // * 'DISPLAY CUSTOMER BUILDING LOADS/INV' // * '(BILLING REPORT MENU ITEM# 22)' // * 'FOR INVOICES DATED 1/1/99 - 12/31/01' // * ' ' // * 'PRESS ENTER TO CONTINUE' // IF ?R?='X' GOTO BEGIN // TAG BEGIN // LOAD JF0664 // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-MISCUS,LABEL-?L'100,2'?MISCUS,DISP-SHR // FILE NAME-INVCB,LABEL-?L'100,2'?PINVCB,DISP-SHR // FILE NAME-LOAD,LABEL-?L'100,2'?LOAD,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-PRCTAB,LABEL-?L'100,2'?PRCTAB,DISP-SHR // FILE NAME-INVCE,LABEL-?L'100,2'?PINVCE,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-X5JOSE,RECL-096,DATE-09/07/22,TIME-0903 // * 'DISPLAY DETAILED INVOICES' // * '(BILLING REPORT MENU ITEM# 25)' // * 'FOR INVOICES DATED 1/1/02 - 12/31/05' // * ' ' // * 'PRESS ENTER TO CONTINUE' // IF ?R?='X' GOTO BEGIN // TAG BEGIN // LOAD JF0815 // FILE NAME-INVCE,LABEL-?L'100,2'?INVE05,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-ZF0032,RECL-096,DATE-11/01/12,TIME-0954 DELETE ?WS?XHINV,F1 DELETE ?WS?XREC,F1 BLDFILE ?WS?XHINV,I,RECORDS,10000,71,,,1,9 BLDFILE ?WS?XREC,S,RECORDS,3000,300 // LOAD ZF0032 // SWITCH 00000001 OVRPRTF FILE(PRT) USRDTA('ZZZZZINV') // PRINTER NAME-PRT,FORMSNO-INVC // FILE NAME-XINVC,LABEL-?WS?XINVC // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-MISCUS,LABEL-?L'100,2'?MISCUS,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-PRCTAB,LABEL-?L'100,2'?PRCTAB,DISP-SHR // FILE NAME-BSEHSE,LABEL-?L'100,2'?BSEHSE,DISP-SHR // FILE NAME-HOUSE,LABEL-?L'100,2'?HOUSE,DISP-SHR // FILE NAME-MESAGE,LABEL-?L'100,2'?MESAGE,DISP-SHR // FILE NAME-XHINV,LABEL-?WS?XHINV // FILE NAME-XREC,LABEL-?WS?XREC // RUN // CEND // COPY LIBRARY-P,NAME-ZF0223,RECL-096,REF-000003,DATE-11/03/04,TIME-1312 JF0031 JF0748 JF0749 JF1192 ZF1193 JF1194 ZF1323 JF1320 JF1321 ZF1322 // CEND // COPY LIBRARY-P,NAME-ZF0668,RECL-096,DATE-10/02/15,TIME-1349 JF0873 JF0666 ZF0669 // CEND // COPY LIBRARY-P,NAME-ZF0669,RECL-096,REF-000002,DATE-10/02/15,TIME-1349 // LOAD ZF0669 // PRINTER NAME-PRT,CPI-15 // FILE NAME-XRECYS,LABEL-?WS?XRECYS,RETAIN-S // FILE NAME-CNTRL,LABEL-?L'100,2'?CNTRL,DISP-SHR // RUN // CEND // COPY LIBRARY-P,NAME-ZF1193,RECL-096,DATE-11/03/04,TIME-1313 // LOAD ZF0032 // SWITCH 00000010 // FILE NAME-XINVC,LABEL-?WS?XNINVC // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-MISCUS,LABEL-?L'100,2'?MISCUS,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-PRCTAB,LABEL-?L'100,2'?PRCTAB,DISP-SHR // FILE NAME-BSEHSE,LABEL-?L'100,2'?BSEHSE,DISP-SHR // FILE NAME-HOUSE,LABEL-?L'100,2'?HOUSE,DISP-SHR // FILE NAME-MESAGE,LABEL-?L'100,2'?MESAGE,DISP-SHR // FILE NAME-XFLITM,LABEL-?WS?XFLITM,RECORDS-5000 // RUN // CEND // COPY LIBRARY-P,NAME-ZF1322,RECL-096,DATE-11/03/04,TIME-1313 DELETE ?WS?XHINV,F1 DELETE ?WS?XREC,F1 BLDFILE ?WS?XHINV,I,RECORDS,10000,71,,,1,9 BLDFILE ?WS?XREC,S,RECORDS,3000,300 // LOAD ZF0032 // SWITCH 00000101 OVRPRTF FILE(PRT) USRDTA('INVOICES') // PRINTER NAME-PRT,FORMSNO-INVC // FILE NAME-XINVC,LABEL-?WS?XINVC // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-MISCUS,LABEL-?L'100,2'?MISCUS,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-PRCTAB,LABEL-?L'100,2'?PRCTAB,DISP-SHR // FILE NAME-BSEHSE,LABEL-?L'100,2'?BSEHSE,DISP-SHR // FILE NAME-HOUSE,LABEL-?L'100,2'?HOUSE,DISP-SHR // FILE NAME-MESAGE,LABEL-?L'100,2'?MESAGE,DISP-SHR // FILE NAME-XHINV,LABEL-?WS?XHINV // FILE NAME-XREC,LABEL-?WS?XREC // RUN // CEND // COPY LIBRARY-P,NAME-ZF1323,RECL-096,DATE-11/03/04,TIME-1313 // LOAD ZF0032 // SWITCH 00000001 OVRPRTF FILE(PRT) USRDTA('INVOICES') // PRINTER NAME-PRT,FORMSNO-INVC // FILE NAME-XINVC,LABEL-?WS?XINVC // FILE NAME-CUSMAS,LABEL-?L'100,2'?CUSMAS,DISP-SHR // FILE NAME-MISCUS,LABEL-?L'100,2'?MISCUS,DISP-SHR // FILE NAME-PROD,LABEL-?L'100,2'?PROD,DISP-SHR // FILE NAME-PRCTAB,LABEL-?L'100,2'?PRCTAB,DISP-SHR // FILE NAME-BSEHSE,LABEL-?L'100,2'?BSEHSE,DISP-SHR // FILE NAME-HOUSE,LABEL-?L'100,2'?HOUSE,DISP-SHR // FILE NAME-MESAGE,LABEL-?L'100,2'?MESAGE,DISP-SHR // FILE NAME-XHINV,LABEL-?WS?XHINV // FILE NAME-XREC,LABEL-?WS?XREC // RUN // CEND // COPY LIBRARY-S,NAME-FILCNTRL,RECL-096,DATE-01/03/23,TIME-1225,SUB-RPG 0002 FCONTL IP F 16 16 DISK 0008 ICONTL AA 0009 I 1 30RECNUM I 4 16 DATA // CEND // COPY LIBRARY-S,NAME-FILGLFIL,RECL-096,DATE-01/03/23,TIME-1225,SUB-RPG FGLACT IP F 100 100 7AI 1 DISK IGLACT AA I 1 7 ACCTNO I 8 37 ACDESC I 38 40 BLANK3 I 41 41 PLCODE I 42 50 BLANK9 I P 51 562BGBLCY I P 57 692BGBLPY I 70 99 BLNK30 I 100 100 ACTIVE // CEND // COPY LIBRARY-S,NAME-FILVENDO,RECL-096,DATE-01/03/23,TIME-1225,SUB-RPG FVENDOR IPE F 190 190 6AI 1 DISK IVENDOR AA I 1 190 RECORC I* 2 70VENDNO I* 8 13 BLNK06 I* 14 43 NAME I* 45 74 ADRES1 I* 75 103 ADRES2 I* 104 125 ADRES3 I* 126 128 BLNK03 // CEND // COPY LIBRARY-S,NAME-JFMAIN##,RECL-096,DATE-01/04/23,TIME-2156,SUB-MNU JFMAIN##,2 0001 JF0941 0002 JF0942 0003 JF0943 0004 JF0944 0005 JF0945 0006 JF0946 0007 JF0947 0008 JF0948 0009 JF0949 0010 JF0950 0011 JF0951 0012 JF0952 0013 JF0953 0014 JF0954 0015 JF0955 0016 JF0956 0017 JF0957 0018 JF0958 0020 JF0110 0021 JF0706 // CEND // COPY LIBRARY-S,NAME-JFMAINDT,RECL-096,DATE-01/04/18,TIME-1110,SUB-MNU JFMAINDT,1 0001 SELECT WORKING COMPANY 0002 CUSTOMER/SALESMAN MENU 0003 PRODUCT MENU 0004 INVENTORY MENU 0005 PURCHASE ORDER MENU 0006 HOUSE MENU 0007 ESTIMATING MENU 0008 LOAD MENU 0009 BILLING MENU 0010 BILLING REPORT MENU 0011 ACCOUNTS RECEIVABLE MENU 0012 BAD DEBTS MENU 0013 NEW PRICING MENU 0014 A/P-G/L MENU 0015 PAYROLL MENU 0016 ANALYSIS MENU 0017 CONTROL MENU 0018 RESTORED FILES MENU 0020 BACKUP FILES NOW 0021 BACKUP FILES AT 1:00 AM // CEND // COPY LIBRARY-S,NAME-JFXX32,RECL-096,DATE-10/01/07,TIME-2101,SUB-RPG H B 1 JFXX32 FXINVC IPE F 100 100 9AI 1 DISK FCUSMAS IC F 600 600R 6AI 1 DISK FMISCUS IC F 97 97R 7AI 1 DISK FPROD IC F 400 400R 9AI 1 DISK FPRCTAB IC F 35 35R14AI 1 DISK FBSEHSE IC F 13 13R 6AI 1 DISK FHOUSE IC F 41 41R 9AI 1 DISK FMESAGE IC F 66 66R 5AI 1 DISK FXHINV O F 71 71 9AI 1 DISK A U8 FXREC O F 300 300 DISK A U8 FXFLITM O F 15 15 6AI 1 DISK U7 FPRT O F 132 132 OV LPRINTER U8 E AP 8 9 4 E AOP 8 9 4 E AL 80 6 0 E AH 80 6 0 E AD1 80 27 E AD2 80 27 E AI 80 6 0 E AA 80 9 2 E AAT 80 9 2 E AAN 80 9 2 E* ADS 10 3 1 LPRT 51FL 51OL IXINVC AA 01 10 CF I 1 60INVNO L1 I 11 160CNO I 17 220HSENO 20 I 17 20 HSE4 I 21 22 HSE2 I* 22 220HSE6 I 23 230REGOPP 02 I 24 32 BLDG 61 I 33 40 LOT 62 I 41 44 BSEQ 63 I 56 56 RUN0 I 57 57 BOPRBL 15 I 58 58 PRSPRV I P 59 601DISC 18 I 61 61 TAXINV I P 62 650LOAD7 I 66 66 CREDEB I P 67 700INVDT7 I 71 71 XBCKOR I 72 72 XICOFC I P 73 740MESNO I 75 75 ONETWO I P 76 771HDISC 3333 I 79 79 FLPGBO I 80 850ORDNO I 86 86 NJ67 I BB 04 10 CI 20 CA I 21 47 HDES1 I 52 61 PONO1 17 I 62 71 PONO2 I CC 05 10 CI 20 CB I 21 47 HDES2 I P 48 512SGLPR I 52 61 PONO3 I 62 71 PONO4 I P 77 790NJCON 59 I DD 06 10 CI 20 CH I 21 27 ITEM I 52 52 HDTYPE I 54 54 DSPRT I EE 07 10 CI 20 CI I 21 24 ITEM4 I 25 27 ITEM3 I 21 27 ITEM I 28 310QTYORD I 32 32 HC I 33 33 LRH 10 I P 34 384HSPPRC I P 39 410LINFT 43 I P 52 540QTYINV I P 55 570QTYBO I P 58 600QTYRBO I P 61 630QTYHOR I FF 08 10 CI 20 CE I 21 28 DESC8 I 21 47 DESC I 48 48 LRH 10 I FF 09 10 CI 20 CM I P 21 230QTYOR5 I 24 24 LRH 10 I P 25 294MSPPRC I P 30 320LINFT I 33 59 DESC I P 60 620QTYINV I P 63 650QTYBO I P 66 680QTYRBO I 69 70 MNDEPT I EE 39 ICUSMAS AA 11 600NCA I BB I 8 37 CNAME I 38 67 STREET I 68 91 CTY I 92 96 ZIP I 97 121 DEVCO I 132 132 NETBIL I 133 134 STATE I 137 137 BCKBIL I 299 300 SLSMAN I 489 489 SLPITM I 512 512 SLITPR I 525 530 NYCODE I P 531 5346NYTXRT IMISCUS AA 57 97NCA I BB I 8 37 CNAME I 38 67 STREET I 68 91 CTY I 92 96 ZIP IPROD GG I 11 11 TYPE I 12 12 STAT I P 13 52 AP I P 53 550LIN I 56 57 DEPT I 129 1310PRGRP I 134 160 DESC I P 161 200 AOP IPRCTAB AA 54 35NCA I BB I 15 150PC I P 16 204PSPPRC I P 21 223PDSPCC I 23 23 PZDIS I***** I P 24 284PADDOL I***** IBSEHSE AA 44 13NCA I BB I 7 120BSEHSE IHOUSE AA 45 10NCB I BB I P 38 412BSESUB IMESAGE AA 48 66NCA I BB I 6 65 MESDES C Z-ADD0 ZERO3 30 C Z-ADD0 ZERO7 70 C Z-ADD0 ZERO9 90 C MOVE ' ' BLNK30 30 C 39 GOTO END C 06 COR 07 COR 09 SETOF 37 C SETON 32 C 01 Z-ADD5 SQNO 30 C 01 RUN0 COMP 'Y' 73 C 01 PRSPRV COMP 'O' 29 C 01 FLPGBO COMP 'X' 47 C 01 ONETWO COMP '1' 64 C 01 ONETWO COMP '2' 65 C 01 NJ67 COMP 'X' 60 C 01 Z-SUBDISC DISC 38 C 01 Z-SUBHDISC HDISC 53 C 01 MOVE '2' BCKBIL C 01 MOVE ' ' SLPITM C 01 CNO CHAINCUSMAS 11 C 01 NETBIL COMP 'N' 72 C 01 72 SETON 18 C 01 SLPITM COMP 'X' 58 C 01 SLITPR COMP 'X' 68 C 01 MOVELCNO CNO3 30 C 01 CNO3 COMP 630 03 C 01 03 MOVE LOAD7 MSCSKY 7 C 01 03 MOVEL'L' MSCSKY C 01 03 MSCSKY CHAINMISCUS 57 C 01 03N57 MOVE BLNK30 DEVCO C 01 BCKBIL COMP '1' 30 C 01 Z-ADD0 TXRAT1 66 C 01 Z-ADD0 TXRAT2 66 C 01 MOVE BLNK30 TX1DES 11 C 01 MOVE BLNK30 TX2DES 14 C 01 MOVE ' ' TX1ST 2 C 01 MOVE ' ' TX2ST 2 C 01 STATE COMP 'NJ' 12 C 01 12 TAXINV COMP 'T' 12 C 01 12 Z-ADD.070000 TXRAT1 C 01 12 MOVEL' 7.0000%'TX1DES C 01 12 60 Z-ADD.060000 TXRAT1 C 01 12 60 MOVEL' 6.0000%'TX1DES C 01 12 MOVE ' NJ' TX1DES C 01 12 MOVE 'NJ' TX1ST C 01 STATE COMP 'NJ' 12 C 01 12 TAXINV COMP 'U' 12 C 01 12 Z-ADD.035000 TXRAT1 C 01 12 MOVEL' 3.5000%'TX1DES C 01 12 60 Z-ADD.030000 TXRAT1 C 01 12 60 MOVEL' 3.0000%'TX1DES C 01 12 MOVE ' NJ' TX1DES C 01 12 MOVE 'NJ' TX1ST C 01 STATE COMP 'PA' 12 C 01 12 TAXINV COMP 'T' 12 C 01 12 Z-ADD.060000 TXRAT1 C 01 12 MOVEL' 6.0000%'TX1DES C 01 12 MOVE ' PA' TX1DES C 01 12 MOVE 'PA' TX1ST C 01 STATE COMP 'PA' 12 C 01 12 TAXINV COMP 'P' 12 C 01 12 Z-ADD.060000 TXRAT1 C 01 12 MOVEL' 6.0000%'TX1DES C 01 12 MOVE ' PA' TX1DES C 01 12 MOVE 'PA' TX1ST C 01 12 Z-ADD.010000 TXRAT2 C 01 12 MOVEL' 1.0000%'TX2DES C 01 12 MOVE ' PHILA' TX2DES C 01 12 MOVE 'PH' TX2ST C 01 STATE COMP 'MD' 12 C 01 12 TAXINV COMP 'T' 12 C 01 12 Z-ADD.060000 TXRAT1 C 01 12 MOVEL' 6.0000%'TX1DES C 01 12 MOVE ' MD' TX1DES C 01 12 MOVE 'MD' TX1ST C 01 STATE COMP 'CT' 12 C 01 12 TAXINV COMP 'T' 12 C 01 12 Z-ADD.060000 TXRAT1 C 01 12 MOVEL' 6.0000%'TX1DES C 01 12 MOVE ' CT' TX1DES C 01 12 MOVE 'CT' TX1ST C 01 STATE COMP 'RI' 12 C 01 12 TAXINV COMP 'T' 12 C 01 12 Z-ADD.070000 TXRAT1 C 01 12 MOVEL' 7.0000%'TX1DES C 01 12 MOVE ' RI' TX1DES C 01 12 MOVE 'RI' TX1ST C 01 STATE COMP 'MA' 12 C 01 12 TAXINV COMP 'T' 12 C 01 12 Z-ADD.050000 TXRAT1 C 01 12 MOVEL' 5.0000%'TX1DES C 01 12 MOVE ' MA' TX1DES C 01 12 MOVE 'MA' TX1ST C 01 STATE COMP 'NY' 12 C 01 12 TAXINV COMP 'T' 12 C 01 12 Z-ADDNYTXRT TXRAT1 C 01 12 MOVELTXRAT1 DUM2 2 C 01 12 MOVE TXRAT1 DUM4 4 C 01 12 MOVELDUM2 DUM3 3 C 01 12 MOVE '.' DUM3 C 01 12 MOVELDUM3 DUM7 7 C 01 12 MOVE DUM4 DUM7 C 01 12 MOVELDUM7 TX1DES C 01 12 MOVE '% NY' TX1DES C 01 12 MOVE 'NY' TX1ST C 01 Z-ADD0 TAX1 92 C 01 Z-ADD0 TAX2 92 C 01 Z-ADD0 TAX 92 C 01 Z-ADD0 INVSUB 92 C 01 Z-ADD0 INVSBB 92 C 01 Z-ADD0 INVNTX 92 C 01 Z-ADD0 DISAMT 92 C 01 Z-ADD0 HDSAMT 92 C 01 Z-ADD0 TDSAMT 92 C 01 Z-ADD0 INTOT 92 C 01 Z-ADD0 VWNAMT 92 C 01 Z-ADD0 STRAMT 92 C* 01 Z-ADD0 MANAMT 92 C 01 Z-ADD0 PAGE C 01 SETOF 21 C 01 CREDEB COMP 'C' 13 C 01 CREDEB COMP 'D' 14 C 01 XBCKOR COMP 'B' 19 C 01 XICOFC COMP 'I' 34 C 01 XICOFC COMP 'C' 35 C 01 XICOFC COMP 'X' 69 C 01 Z-ADDLOAD7 LOADNO 60 C 01 Z-ADDINVDT7 INVDAT 60 C 01 SETON 4041 C 01 Z-ADD51 PRTLNE 20 C 05 15N35 Z-ADDSGLPR INVSUB 2121 C 05N21 SETOF 58 C 06 HDTYPE COMP 'X' 23 C 06N23 HDTYPE COMP 'Y' 23 C 06N23 GOTO END C SETOF 23 C 06 35 DSPRT COMP 'X' 23 C 23 SETOF 06 C 23 GOTO END C 06 Z-ADD1 ITEMSQ C 06 MOVE ITEMSQ ITEMLN C 06 MOVELITEM ITEMLN C 06 ITEMLN CHAINPROD 22 C 06N22 TYPE COMP 'D' 22 C 06N22 EXSR OVFLO C 06N22 SQNO ADD 1 SQNO C 06N22 SETON 3137 C 06N22 EXCPT C 06N22 PRTLNE ADD 1 PRTLNE C 06N22 SETOF 31 C 06N22 EXSR PRTITM C N07N08N09 GOTO END C 02N10 LRH COMP 'L' 16 C 02N10 MOVE 'L' LRH C 02N10 16 MOVE 'R' LRH C 07 34 Z-ADDQTYHOR QTYORD C 07 35 QTYORD SUB QTYHOR QTYORD 36 C 07 35 36 GOTO END C 07 COR 09 QTYBO ADD QTYRBO QTYBO C 07 47 COR 09 47 COR 07 35 Z-ADD0 QTYBO C 07 EXSR ITEM C 08 37 EXSR OVFLO C 08 37 PRTLNE ADD 1 PRTLNE C 08 37 SQNO ADD 1 SQNO C 08 69 DESC8 COMP 'OFF & CR' 26 C 08 69 26 CANN64N65 Z-ADD0 INVSUB C 08 69 26 CANN64N65 Z-ADD0 INVNTX C 08 69 26 SETOF 21 C 08 69 26 Z-ADD51 PRTLNE C 08 69 26 EXSR OVFLO C 09 MOVE '9999999' ITEM C 09 MOVE '9999' ITEM4 C 09 MOVE '999' ITEM3 C 09 MOVE '9' HC C 09 Z-ADDMSPPRC HSPPRC C 09 Z-ADDQTYOR5 QTYORD C 09 EXSR ITEM C END TAG CL1 73 Z-ADD0 INVSUB CL1 73 Z-ADD0 INVNTX CL1 73 GOTO ENDL1 CL1 64 L ADD 1 L 20 CL1 64 Z-ADDLOAD7 AL,L CL1 64 Z-ADDHSENO AH,L CL1 64 MOVE HDES1 AD1,L CL1 64 MOVE HDES2 AD2,L CL1 64 Z-ADDINVNO AI,L CL1 64 Z-ADDINVSUB AAT,L CL1 64 Z-ADDINVNTX AAN,L CL1 64 INVSUB MULT .01 INFLSR CL1 64 Z-ADD0 INVSUB CL1 64 Z-ADD0 INVNTX CL1 64 GOTO ENDL1 CL1 65 Z-ADD50 PRTLNE CL1 65 Z-ADD0 LL 20 CL1 AGNL TAG CL1 65 LL ADD 1 LL CL1 65 SQNO ADD 1 SQNO CL1 65 EXSR OVFLO CL1 65 AAT,LL ADD AAN,LL AA,LL CL1 65 SETON 66 CL1 65 EXCPT CL1 65 SETOF 66 CL1 65 PRTLNE ADD 3 PRTLNE CL1 65 INVSUB ADD AAT,LL INVSUB CL1 65 INVNTX ADD AAN,LL INVNTX CL1 65 LL COMP L 67 CL1 65 67 GOTO AGNL CL1 65 Z-ADD0 L CL1 69N64N65 Z-ADDINVSUB OFCAMT 82 CL1 69N64N65INVSUB ADD SGLPR INVSUB C*1 72 SETON 18 C*1N18 Z-SUBDISC DISC 38 CL1N18 INVSUB MULT DISC DISAMT CL1N18 DISAMT DIV 100 DISAMT H CL1N18 INVSUB ADD DISAMT INTOT 92 CL1 18 Z-ADD0 DISAMT CL1 18 Z-ADDINVSUB INTOT C*1 SETOF 33 C*1 HSE6 ADD 1 H6 20 C*1 ADS,H6 COMP 0 3333 C*1 Z-SUBHDISC HDISC 3333 C*1 HDISC COMP 0 53 CL1 33 Z-ADDINTOT INVSBB CL1 33 INVSBB MULT HDISC HDSAMT CL1 33 HDSAMT DIV 100 HDSAMT H CL1 33 INVSBB ADD HDSAMT INTOT CL1 DISAMT ADD HDSAMT TDSAMT CL1 Z-ADDINTOT INFLSR 92 CL1 INTOT MULT TXRAT1 TAX1 H CL1 INTOT MULT TXRAT2 TAX2 H C********** C********** NEW MARYLAND SALES TAX 6% CL1 STATE COMP 'MD' 54 CL1 54 TAXINV COMP 'T' 54 CL1N54 GOTO ENMDTX C*DUMTX4 (11-4) MUST BE 2 LARGER THAN TAX1 (9-2) CL1 INTOT MULT TXRAT1 DUMTX4 114 CL1 INTOT COMP 0 54 CL1 54 Z-SUBDUMTX4 DUMTX4 CL1 DUMTX4 COMP .0120 54 CL1 54 Z-ADD.01 TAX1 CL1 54 GOTO ENMDTX CL1 DUMTX4 COMP .0120 54 CL1 54 Z-ADD0 TAX1 CL1 54 GOTO ENMDTX CL1 MOVELDUMTX4 TAX1 CL1 MOVE DUMTX4 DUMTX2 20 CL1 DUMTX2 COMP 0 54 CL1 54 TAX1 ADD .01 TAX1 CL1 INTOT COMP 0 54 CL1 54 Z-SUBTAX1 TAX1 CL1 ENMDTX TAG C********** C********** CL1 INTOT ADD TAX1 INTOT CL1 INTOT ADD TAX2 INTOT CL1 INTOT ADD INVNTX INTOT CL1 TAX1 COMP 0 2424 CL1 TAX2 COMP 0 2525 CL1 INVNTX COMP 0 7171 CL1 TAX1 ADD TAX2 TAX CL1 58 Z-ADD50 PRTLNE C*1 58 Z-ADD0 PAGE CL1 58 SETON 90 CL1 58 EXSR OVFLO CL1 58 SETOF 90 CL1 SETON 56 CL1 EXCPT CL1 SETOF 56 CL1 PRTLNE ADD 1 PRTLNE CL1 SETOF 46 CL1 19 GOTO ENBSHS CL1 20 GOTO ENBSHS CL1 HSENO CHAINBSEHSE 44 CL1 44 GOTO ENBSHS CL1 MOVE '000' HSKEY 9 CL1 MOVELBSEHSE HSKEY CL1 HSKEY CHAINHOUSE 45 CL1 45 GOTO ENBSHS CL1 BSESUB COMP 0 46 CL1N46 GOTO ENBSHS CL1N18 BSETOT MULT DISC BSEDIS 72 CL1N18 BSEDIS DIV 100 BSEDIS H CL1N18 BSESUB ADD BSEDIS BSETOT 92 CL1 72 DISC COMP 0 2626 CL1 72 26 BSETOT MULT DISC BSEDIS CL1 72 26 BSEDIS DIV 100 BSEDIS H CL1 72 26 BSESUB ADD BSEDIS BSESUB CL1 18 Z-ADD0 BSEDIS CL1 18 Z-ADDBSESUB BSETOT CL1 33 Z-ADDBSETOT BSESBB 92 CL1 33 BSESBB MULT HDISC BSEHDS 72 CL1 33 BSEHDS DIV 100 BSEHDS H CL1 33 BSESBB ADD BSEHDS BSETOT CL1 BSETOT MULT TXRAT1 BSETX1 72H CL1 BSETOT MULT TXRAT2 BSETX2 72H CL1 BSETOT ADD BSETX1 BSETOT CL1 BSETOT ADD BSETX2 BSETOT CL1 INVSUB SUB BSESUB COESUB 92 CL1N18 COETOT MULT DISC COEDIS 72 CL1N18 COEDIS DIV 100 COEDIS H CL1N18 COESUB ADD COEDIS COETOT 92 CL1 72 DISC COMP 0 2626 CL1 72 26 COETOT MULT DISC COEDIS CL1 72 26 COEDIS DIV 100 COEDIS H CL1 72 26 COESUB ADD COEDIS COESUB CL1 18 Z-ADD0 COEDIS CL1 18 Z-ADDCOESUB COETOT CL1 33 Z-ADDCOETOT COESBB 92 CL1 33 COESBB MULT HDISC COEHDS 72 CL1 33 COEHDS DIV 100 COEHDS H CL1 33 COESBB ADD BSEHDS COETOT CL1 COETOT MULT TXRAT1 COETX1 72H CL1 COETOT MULT TXRAT2 COETX2 72H CL1 COETOT ADD COETX1 COETOT CL1 COETOT ADD COETX2 COETOT CL1 SQNO ADD 1 SQNO CL1 SETON 55 CL1 EXCPT CL1 SETOF 55 CL1 PRTLNE ADD 2 PRTLNE CL1 25 PRTLNE ADD 2 PRTLNE CL1N25 33N18PRTLNE ADD 2 PRTLNE CL1 ENBSHS TAG CL1 69N64N65 EXSR OVFLO CL1 69N64N65 SETON 70 CL1 69N64N65 EXCPT CL1 69N64N65 SETOF 70 CL1 69N64N65PRTLNE ADD 1 PRTLNE CL1 69N64N65 EXSR OVFLO CL1 69N64N65 SETON 56 CL1 69N64N65 EXCPT CL1 69N64N65 SETOF 56 CL1 69N64N65PRTLNE ADD 1 PRTLNE CL1 EXSR OVFLO CL1 SQNO ADD 1 SQNO CL1 SETON 49 CL1 EXCPT CL1 SETOF 49 CL1 PRTLNE ADD 1 PRTLNE CL1 25 PRTLNE ADD 1 PRTLNE CL1N25 33N18PRTLNE ADD 1 PRTLNE CL1 MESNO COMP 0 26 CL1N26 GOTO ENDL1 CL1 MOVELMESNO MESKEY 5 CL1 Z-ADD1 MSEQNO 20 CL1 MOVE MSEQNO MESKEY CL1 MESKEY CHAINMESAGE 48 CL1 48 GOTO ENDL1 CL1 PRTLNE ADD 4 PRTLNE CL1 EXSR OVFLO CL1 SETON 5051 CL1 EXCPT CL1 SETOF 5051 CL1 AGNMES TAG CL1 MSEQNO ADD 1 MSEQNO CL1 MOVE MSEQNO MESKEY CL1 MESKEY CHAINMESAGE 48 CL1N48 EXSR OVFLO CL1N48 SETON 51 CL1N48 EXCPT CL1N48 SETOF 51 CL1N48 PRTLNE ADD 1 PRTLNE CL1N48 GOTO AGNMES CL1 SETON 52 CL1 EXCPT CL1 SETOF 52 CL1 ENDL1 TAG CSR ITEM BEGSR CSR QTYORD SUB QTYINV QUAN 40 2323 CSRN23 GOTO ENDSR1 CSR QUAN SUB QTYBO QTYSHP 40 CSR 09 Z-ADD9 PC CSR 09 Z-ADDMSPPRC PRICE CSR 09 Z-ADD0 PDSPCC CSR 09 MOVE ' ' PZDIS C***** CSR 09 Z-ADD0 PADDOL C***** CSR 09 SETON 37 CSR 09 GOTO ENPRIC CSR Z-ADD1 ITEMSQ 20 CSR MOVE ITEMSQ ITEMLN 9 CSR MOVELITEM ITEMLN CSR ITEMLN CHAINPROD 22 CSRN22 TYPE COMP 'D' 22 CSR 22 GOTO ENDSR1 CSR 29 Z-ADDAOP AP CSR Z-ADD0 PDSPCC CSR MOVE ' ' PZDIS C***** CSR Z-ADD0 PADDOL C***** CSR MOVE HC PC CSR HC COMP '0' 54 54 CSR 54 HC COMP '8' 5454 CSR 54 GOTO PRICE CSR HC COMP '9' 54 CSR 54 Z-ADDHSPPRC PSPPRC CSR 54 GOTO PRICE CSR Z-ADD1 PC CSR Z-ADD0 PSPPRC CSR MOVELCNO PRKEY 14 CSR MOVE 'I 'DUM8 8 CSR MOVE ITEM DUM8 CSR MOVE DUM8 PRKEY CSR PRKEY CHAINPRCTAB 54 CSRN54 GOTO PRICE CSR MOVEL'G 'DUM8 CSR MOVE PRGRP DUM8 CSR MOVE DUM8 PRKEY CSR PRKEY CHAINPRCTAB 54 CSR PRICE TAG CSR PC COMP 9 54 CSR 54 Z-ADDPSPPRC PRICE 94 CSR 54 GOTO ENPRIC CSR PC COMP 0 54 CSR 54 Z-ADD0 PRICE CSR 54 GOTO ENPRIC CSR PC COMP 1 54 54 CSR 54 PC COMP 8 5454 CSRN54 Z-ADD1 PC CSR AP,PC COMP 0 54 CSR 54 Z-ADD1 PC CSR Z-ADDAP,PC PRICE CSR ENPRIC TAG CSR 72 DISC DIV 100 DISPCC 33 CSR 72 1 ADD DISPCC INTPCC 43 CSR 72 Z-ADDINTPCC NETPCC 43 CSR 72 Z-SUBPDSPCC PDSPCC 5454 CSR 72N54 PZDIS COMP 'Z' 54 CSR 72 54 1 ADD PDSPCC PNTPCC 43 CSR 72 54 Z-ADDPNTPCC NETPCC CSR 72 PRICE MULT NETPCC PRICNT 72H CSR 72 Z-ADDPRICNT PRICE C***** CSR 72 PRICE ADD PADDOL PRICE C***** CSR 30 PRICE MULT QUAN AMT H CSRN30 PRICE MULT QTYSHP AMT 92H CSR QUAN COMP 0 22 CSRN22 QTYSHP COMP 0 22 CSR 22 PRICE MULT QTYSHP AMT H CSR 07 43 Z-ADDLIN LINFT CSR LINFT COMP 0 22 CSR 22 AMT MULT LINFT AMT H CSRN15 Z-ADD0 AMT CSR ITEM4 COMP '9999' 54 CSR 54 ITEM3 COMP '999' 5454 CSRN21 15N54INVSUB ADD AMT INVSUB CSR 15 54 INVNTX ADD AMT INVNTX CSR Z-ADD0 TOTFT 50 CSR 30 QUAN MULT LINFT TOTFT CSRN30 QTYSHP MULT LINFT TOTFT CSR MOVE ' ' SWCODE 1 CSRN72 AMT MULT DISC XAMT 92H CSRN72 XAMT DIV 100 XAMT H CSRN72 AMT ADD XAMT AMT CSR 33 AMT MULT HDISC XAMT H CSR 33 XAMT DIV 100 XAMT CSR 33 AMT ADD XAMT AMT CSR 73 Z-ADD0 AMT CSR 07 DEPT COMP 'Z1' 26 CSR 07N26 DEPT COMP 'L4' 26 CSR 07 26 STRAMT ADD AMT STRAMT CSR 07 26 21 Z-ADDINVSUB STRAMT CSR 07 26 MOVE 'S' SWCODE CSR 07 MOVELITEM ITEM1 1 CSR 07 ITEM1 COMP 'V' 26 CSR 07N26 MOVELDEPT DEPT1 1 CSR 07N26 DEPT1 COMP 'V' 26 CSR 07 26 VWNAMT ADD AMT VWNAMT CSR 07 26 21 Z-ADDINVSUB VWNAMT CSR 07 26 MOVE 'W' SWCODE CSR 09 MNDEPT COMP 'Z1' 26 CSR 09N26 MNDEPT COMP 'L4' 26 CSR 09 26 STRAMT ADD AMT STRAMT CSR 09 26 21 Z-ADDINVSUB STRAMT CSR 09 26 MOVE 'S' SWCODE CSR 09 MOVELMNDEPT DEPT1 CSR 09 DEPT1 COMP 'V' 26 CSR 09 26 VWNAMT ADD AMT VWNAMT CSR 09 26 21 Z-ADDINVSUB VWNAMT CSR 09 26 MOVE 'W' SWCODE CSR 73 Z-ADD0 STRAMT CSR 73 Z-ADD0 VWNAMT CSR EXSR OVFLO CSR SQNO ADD 1 SQNO CSR SETON 2737 CSR EXCPT CSR PRTLNE ADD 1 PRTLNE CSR SETOF 27 CSR 07 EXSR PRTITM CSR ENDSR1 ENDSR CSR PRTITM BEGSR CSR AGNITD TAG CSR ITEMSQ ADD 1 ITEMSQ CSR MOVE ITEMSQ ITEMLN CSR ITEMLN CHAINPROD 22 CSR 22 GOTO ENDSR2 CSRN22 TYPE COMP 'D' 22 CSRN22 EXSR OVFLO CSRN22 SQNO ADD 1 SQNO CSRN22 SETON 28 CSRN22 EXCPT CSRN22 PRTLNE ADD 1 PRTLNE CSRN22 SETOF 28 CSR GOTO AGNITD CSR ENDSR2 ENDSR CSR OVFLO BEGSR CSR PAGE COMP 1 91 CSRN54 PRTLNE COMP 43 42 42 CSR 54 PRTLNE COMP 47 42 42 CSR 54 90 Z-ADD0 PAGE CSR 42 EXCPT CSR 42 Z-ADD17 PRTLNE CSR 42 SETOF 4042 CSR ENDSR OPRT E 046 42N40N91 O OR 048 42N40 91 O 84 'CONTINUED' O E 102 42 O N17 69 'PO#' O PONO1 80 O E 01 42 O PONO2 80 O E 01 42 O PONO3 80 O E 02 42 O N59 62 'CONTRACT#' O N59 NJCON L 69 O PONO4 80 O E 01 42 O CNAME 39 O N61 47 'BL/BK' O BLDG 57 O N62 61 'LOT' O LOT 70 O N63 76 'SQ/UN' O BSEQ 81 O E 01 42 O DEVCO 34 O HDES1 76 O E 01 42 O STREET 39 O HDES2 76 O E 0 14 42 O CTY 33 O ZIP 39 O N20 HSE4 53 O N20 54 '-' O N20 HSE2 56 O 02 62 'OPP' O N02 62 'REG' O E 01 42 O LOADNOM 9 O SLSMAN 15 O CNO 25 O 13 38 'CREDIT MEMO' O 14 37 'DEBIT MEMO' O 19N13N14 37 'BACK ORDER' O 34 50 'OF/CR INV' O 35 51 'OF/CR CRED' O INVDATY 61 O INVNO Z 71 O PAGE 79 O 77 'PAGE' O***** START PRINTING BAR CODE AT LINE 17 O E 0 17 42 40 O E 00 42 40 O***** START QMS MODE O 5 'ªPYª-' O E 00 42 40 O***** 0.5"HIGH, 0.0"LONG, 0.0"+0DOTS JUSTIFIED VERTICALLY O 9 'ªM0500000' O***** TAB 03.0" FROM LEFT MARGIN, 0 RANGE FOR DOTS O 15 'ªT0300' O***** B-BARCODE, Y=PRINT AS NUMBER, A=CODE39 O 19 'ªBYA' O ORDNO 25 O***** END SEQUENCE O 27 'ª-' O E 00 42 40 O***** END QMS MODE O 5 'ªPNª-' O***** SINCE PRINT .5" BARCODE, LOSE .5" IN LINE SPACING O E 0 19 42 40 O OR 0 17 42N40 O E 01 27 O QUAN L 5 O QTYSHPL 11 O QTYBO M 17 O ITEM 25 O PC 26 O DESC 54 O N10 LRH 56 O N21 15 AMT A 87 O 21 15 68AMT A 87 O N15 87 'BILLED PREVIOUSLY' O N21 15 PRICE L 74 O 21 15 68PRICE L 74 O TOTFT M 62 O E 01 31 O ITEM 25 O DESC 54 O E 01 28 O DESC 54 O D 01 08 37 O DESC 56 O N10 LRH 58 O E 01 66 O 20 'LOAD#' O AL,LL 27 O 36 'HOUSE#' O AH,LL 43 O 50 'INV#' O AI,LL 57 O AA,LL A 85 O E 01 66 O AD1,LL 64 O E 01 66 O AD2,LL 64 O E 01 56 O E 01 55 O BSESUBA 28 '*' O 14 'BASE SUBTOTAL*' O N18 BSEDISA 57 '*' O N18 45 '% DISCOUNT*' O N18 38 45 '% INCREASE*' O N18 DISC 3 34 O 33 18 HDSAMTA 57 '*' O 33 18 45 '% DISCOUNT*' O 33 18 53 45 '% INCREASE*' O 33 18 HDISC 3 34 O 24 BSETX1A 87 '*' O 24 TX1DES 70 O 24 75 'TAX*' O E 01 55 25 O OR 55 33N18 O 33N18 BSEHDSA 57 '*' O 33N18 45 '% DISCOUNT*' O 33N18 53 45 '% INCREASE*' O 33N18 HDISC 3 34 O 25 BSETX2A 87 '*' O 25 TX2DES 70 O 25 75 'TAX*' O E 01 55 O COESUBA 28 '*' O 14 'NET SUBTOTAL**' O N18 COEDISA 57 '*' O N18 45 '% DISCOUNT*' O N18 38 45 '% INCREASE*' O N18 DISC 3 34 O 33 18 HDSAMTA 57 '*' O 33 18 45 '% DISCOUNT*' O 33 18 53 45 '% INCREASE*' O 33 18 HDISC 3 34 O 24 COETX1A 87 '*' O 24 TX1DES 70 O 24 75 'TAX*' O E 01 55 25 O OR 55 33N18 O 33N18 COEHDSA 57 '*' O 33N18 45 '% DISCOUNT*' O 33N18 53 45 '% INCREASE*' O 33N18 HDISC 3 34 O 25 COETX2A 87 '*' O 25 TX2DES 70 O 25 75 'TAX*' O E 01 70 O 10 'HOUSE#' O HSE4 15 O 16 '-' O HSE2 18 O SGLPR J 29 O 48 'CREDIT' O OFCAMTJ 59 O E 01 49 24 O OR 49N18 32 O OR 49 46 O OR 49 33 O INVSUBA 28 '*' O 14 'NET SUBTOTAL**' O N18 DISAMTA 57 '*' O N18 45 '% DISCOUNT*' O N18 38 45 '% INCREASE*' O N18 DISC 3 34 O 33 18 HDSAMTA 57 '*' O 33 18 45 '% DISCOUNT*' O 33 18 53 45 '% INCREASE*' O 33 18 HDISC 3 34 O 24 TAX1 A 87 '*' O 24 TX1DES 70 O 24 75 'TAX*' O E 01 49 25 O OR 49 33N18 O 33N18 HDSAMTA 57 '*' O 33N18 45 '% DISCOUNT*' O 33N18 53 45 '% INCREASE*' O 33N18 HDISC 3 34 O 25 TAX2 A 87 '*' O 25 TX2DES 70 O 25 75 'TAX*' O E 01 49 71 32 O INVNTXA 87 '*' O 75 'NON TAX ITEMS*' O E 11 50 O 29 '************************' O 53 '************************' O 73 '********************' O E 01 50 O 6 '*' O 73 '*' O E 01 51 O 6 '*' O MESDES 69 O 73 '*' O E 01 52 O 6 '*' O 73 '*' O E 00 52 O 29 '************************' O 53 '************************' O 73 '********************' O T 046 L1 32N91 O OR 048 L1 32 91 O INTOT A 87 OXHINV EADD 42 40 O INVNO 6 O 10 '0011' O CNO 16 O CNAME 46 O DEVCO 71 O EADD 42 40 O INVNO 6 O 10 '0022' O STREET 40 O CTY 64 O STATE 66 O ZIP 71 O EADD 42 40 O INVNO 6 O 10 '0033' O PONO1 20 O PONO2 30 O PONO3 40 O PONO4 50 O BLDG 59 O LOT 67 O BSEQ 71 O EADD 42 40 O INVNO 6 O 10 '0044' O HSENO 16 O HDES1 43 O HDES2 70 O EADD 42 40 O INVNO 6 O 10 '0055' O LOADNO 16 O SLSMAN 18 O 02 19 'O' O N02 19 'R' O 13 20 'C' O 14 20 'D' O 19N13N14 21 'B' O 34 22 'I' O 35 22 'C' O 69 22 'X' O INVDAT 28 O STATE 30 O NJCON 33P O ZERO3 35P O N18 DISC 35P O HDISC 37P O 73 51 'X' O ORDNO 57 O NJ67 58 O EADD 27 O INVNO 6 O SQNO 9 O 10 'I' O QUAN 13P O QTYSHP 16P O QTYBO 19P O ITEM 26 O PC 27 O DESC 54 O N10 LRH 55 O TOTFT 58P O PRICE 63P O AMT 68P O N21 15 69 'X' O 21 15 68 69 'X' O N15 70 'B' O SWCODE 71 O EADD 31 O INVNO 6 O SQNO 9 O 10 'H' O ITEM 26 O DESC 54 O EADD 28 O INVNO 6 O SQNO 9 O 10 'E' O DESC 54 O DADD 08 37 O INVNO 6 O SQNO 9 O 10 'E' O DESC 54 O N10 LRH 55 O EADD 66 O INVNO 6 O SQNO 9 O 10 'C' O AL,LL 16 O AH,LL 22 O AI,LL 28 O AAT,LL 33P O AAN,LL 38P O EADD 55 O INVNO 6 O SQNO 9 O 10 'B' O ZERO3 12P O N18 DISC 12P O TX1ST 14 O TXRAT1 18P O* TX1FIL 18 O TX2ST 20 O TXRAT2 24P O* TX2FIL 24 O BSESUB 29P O ZERO7 33P O N18 BSEDIS 33P O BSETX1 37P O BSETX2 41P O ZERO7 45P O 33 BSEHDS 45P O COESUB 51P O ZERO7 55P O N18 COEDIS 55P O COETX1 59P O COETX2 63P O* COETOT 68P O ZERO7 67P O 33 COEHDS 67P O ZERO3 69P O 33 HDISC 69P O EADD 49 O INVNO 6 O SQNO 9 O 10 'T' O ZERO3 12P O N18 DISC 12P O TX1ST 14 O TXRAT1 18P O* TX1FIL 18 O TX2ST 20 O TXRAT2 24P O* TX2FIL 24 O INVSUB 29P O ZERO9 34P O N18 DISAMT 34P O TAX1 39P O TAX2 44P O INTOT 49P O ZERO9 54P O 21 SGLPR 54P O INVNTX 59P O ZERO9 64P O 33 HDSAMT 64P O ZERO3 66P O 33 HDISC 66P OXREC TADD L1 32 O INVNO 7 O 1 'I' O 13 1 'C' O 14 1 'D' O CNO 13 O INVDAT 19 O INTOT 24P O TAX 29P O ZERO9 35P O ZERO9 40P O ZERO9 45P O INTOT 50P O* DISAMT 55P O TDSAMT 55P O LOADNO 61 O TAXINV 62 O XICOFC 63 O TAX1 68P O TAX2 73P O STATE 75 O VWNAMT 80P O STRAMT 85P O* MANAMT 90P O ZERO9 90P O ZERO9 95P O ZERO7 99P O NJCON 102P O ZERO7 106P O BLDG 115 O LOT 123 O BSEQ 127 O INVSUB 132P O INVNTX 137P O NYCODE 143 O NYTXRT 147P O ZERO9 174P O ORDNO 193 O NJ67 194 O 300 'N' OXFLITM T L1 O INVNO 6 O INFLSR 15 // CEND // COPY LIBRARY-S,NAME-JF0001,RECL-096,REF-000001,DATE-08/06/05,TIME-1136,SUB-RPG H B 1 JF0001 FINP IP F 79 79 KEYBORD FCNTRL IC F 32 32R DISK FCUSMAS UC F 600 600R 6AI 1 DISK A FDISP O F 79 79 CRT FPRT O F 132 132 OV PRINTER E AMS 1 42 79 E AS 12 9 2 E AD 10 3 0 ICNTRL AA 1 C0 2 C0 3 C7 I 4 32 CONAME ICUSMAS AA 01 I 600 600 ACTV C 08 GOTO BEGIN C SETON 08 C Z-ADD0 ZERO6 60 C 7 CHAINCNTRL C SETON 09 C EXCPT C SETOF 09 C BEGIN TAG C Z-ADD0 AS C SETOF 020304 C AMS,1 SET KG C AMS,2 KEY CNO 60 0606 C KG SETON LR C KG GOTO END C 06 SETON 07 C 06 EXCPT C 06 SETOF 07 C 06 GOTO END C CNO CHAINCUSMAS 02 C N02 ACTV COMP 'D' 03 C N02N03 SETON 05 C N02N03 EXCPT C N02N03 SETOF 05 C N02N03 GOTO END C AMS,3 KEY CNM 30 C AMS,4 KEY AD1 30 C AMS,5 KEY AD2 24 C AMS,6 KEY ZIP 5 C AMS,7 KEY DEV 25 C AMS,8 KEY TEL 10 C MOVE TEL TEL3 4 C MOVELTEL TEL1 3 C MOVELTEL TEL4 6 C MOVE TEL4 TEL2 3 C AMS,9 KEY STT 2 C AMS,10 KEY TAX 1 C AMS,11 KEY NYCODE 6 C AMS,12 KEY NYRATE 74 C AMS,13 KEY TER 1 C AMS,14 KEY BOB 1 C AMS,15 KEY DIS 31 C AMS,16 KEY MANDS 1 C AMS,17 KEY BDEBT 112 C AMS,18 KEY GROUP 40 C AMS,19 KEY PO1 1 C AMS,20 KEY NET 1 C AMS,21 KEY SLPITM 1 C AMS,22 KEY SLPHSE 1 C AMS,23 KEY SLPINV 1 C AMS,24 KEY ONEINV 1 C AMS,25 KEY BROKER 3 C AMS,26 KEY BROKRT 31 C AMS,27 KEY SSLMN 2 C AMS,28 KEY SRATE 31 C AMS,29 KEY BSLMN 2 C AMS,30 KEY BRATE 31 C AMS,31 KEY FSLMN 2 C AMS,32 KEY FRATE 31 C AMS,33 KEY SDATE 60 C AMS,34 KEY EDATE 60 C AMS,35 KEY WYLAB 1 C AMS,36 KEY CNLIM 70 C AMS,37 KEY RETCNO 60 C AMS,38 KEY RETPC 31 C AMS,39 KEY FLCHG 42 C AMS,40 KEY NJAFD 1 C AMS,41 KEY XORD 1 C AMS,42 KEY XSLP 1 C SETON 04 C END TAG OPRT E 004 09 O CONAME 29 O 55 'NEW CUSTOMERS ADDED' O UDATE Y 66 OCUSMAS DADD 02 O CNO 6 O CNM 37 O AD1 67 O AD2 91 O ZIP 96 O DEV 121 O WYLAB 131 O NET 132 O STT 134 O TAX 135 O TER 136 O BOB 137 O UDATE 143 O UDATE 149 O MANDS 176 O AS 236P O AS 296P O DIS 298P O SSLMN 300 O TEL 385 O BROKER 426 O BROKRT 428P O SRATE 430P O XORD 431 O PO1 432 O BDEBT 459P O GROUP 488 O SLPITM 489 O SLPHSE 490 O ONEINV 491 O BSLMN 493 O BRATE 495P O FSLMN 497 O FRATE 499P O SDATE 505 O EDATE 511 O SLPINV 512 O ZERO6 518 O ZERO6 524 O NYCODE 530 O NYRATE 534P O AD 554P O CNLIM 558P O RETCNO 564 O RETPC 567 O* FLSUR 568 O NJAFD 569 O XSLP 570 O FLCHG 574 O 600 'A' O D 03 O CNM 37 O AD1 67 O AD2 91 O ZIP 96 O DEV 121 O WYLAB 131 O NET 132 O STT 134 O TAX 135 O TER 136 O BOB 137 O UDATE 143 O UDATE 149 O MANDS 176 O AS 236P O AS 296P O DIS 298P O SSLMN 300 O TEL 385 O BROKER 426 O BROKRT 428P O SRATE 430P O XORD 431 O PO1 432 O BDEBT 459P O GROUP 488 O SLPITM 489 O SLPHSE 490 O ONEINV 491 O BSLMN 493 O BRATE 495P O FSLMN 497 O FRATE 499P O SDATE 505 O EDATE 511 O SLPINV 512 O ZERO6 518 O ZERO6 524 O NYCODE 530 O NYRATE 534P O AD 554P O CNLIM 558P O RETCNO 564 O RETPC 567 O* FLSUR 568 O NJAFD 569 O XSLP 570 O FLCHG 574 O 600 'A' ODISP H 11 1P O 24 'E N T E R N E W C U ' O 37 'S T O M E R S' O E 11 05 O 24 'ALREADY IN CUSTOMER FILE' O E 11 07 O 24 'CANNOT BE 0 OR A NEGATIV' O 32 'E NUMBER' OPRT D 31 04 O 40 'CUSTOMER NUMBER, NAME' O CNO 77 O CNM 110 O D 01 04 O 33 'STREET ADDRESS' O AD1 101 O D 01 04 O 30 'CITY, STATE' O AD2 95 O D 01 04 O 27 'ZIP-CODE' O ZIP 76 O D 01 04 O 33 'DEVELOPMENT CO' O DEV 96 O D 01 04 O 43 'TEL NO (AREA CODE, NO SP' O 44 ')' O 79 '- -' O TEL1 74 O TEL2 78 O TEL3 83 O D 01 04 O 36 'STATE (2 LETTERS)' O STT 73 O D 01 04 O 37 'TAX CODE - T/U/P/N' O TAX 72 O D 01 04 O 43 'NY TAX JURISDICTION CODE' O NYCODE 77 O D 01 04 O 30 'NY TOTAL TAX %' O NYRATEJ 77 O D 01 04 O 38 'TERMS - 1/2/3/4/5/6' O TER 72 O D 01 04 O 43 'BACK ORDER BILLING - 1/2' O BOB 72 O D 01 04 O 29 '% DISCOUNT' O DIS M 74 O D 01 04 O 43 'X=MUST ENTER DIS WHEN IN' O 50 'VOICING' O MANDS 72 O D 01 04 O 40 '$ AMOUNT OF BAD DEBTS' O BDEBT J 79 O D 01 04 O 43 '4 CHAR CUST# OF MAIN CUS' O 53 'T IN GROUP' O GROUP M 76 O D 01 04 O 42 'X=MUST HAVE PO# (BASIC)' O PO1 72 O D 01 04 O 32 'N=NET BILLING' O NET 72 O D 01 04 O 43 'X=SIN/LIN/PRC INV NO ITE' O 51 'M DETAIL' O SLPITM 72 O D 01 04 O 43 'X=SIN/LIN/PRC HOUSES NO ' O 54 'ITEM PRICES' O SLPHSE 72 O D 01 04 O 43 'X=SIN/LIN/PRC INV TO PRI' O 57 'NT ITEM PRICES' O SLPINV 72 O D 01 04 O 43 'X=ONE INVOICE FOR ALL LO' O 46 'ADS' O ONEINV 72 O D 01 04 O 30 'BROKER CODE' O BROKER 74 O D 01 04 O 38 'BROKER COMMISSION %' O BROKRTJ 76 O D 01 04 O 42 'SERVICING SALESMAN CODE' O SSLMN 72 O D 01 04 O 43 'SERVICING SALESMAN COMMI' O 50 'SSION %' O SRATE J 76 O D 01 04 O 39 'BROKER SALESMAN CODE' O BSLMN 72 O D 01 04 O 43 'BROKER SALESMAN COMMISSI' O 47 'ON %' O BRATE J 76 O D 01 04 O 39 'FINDER SALESMAN CODE' O FSLMN 72 O D 01 04 O 43 'FINDER SALESMAN COMMISSI' O 47 'ON %' O FRATE J 76 O D 01 04 O 43 'FINDER SLMN COMM START D' O 57 'ATE (INV DATE)' O SDATE Y 76 O D 01 04 O 43 'FINDER SLMN COMM END DAT' O 55 'E (INV DATE)' O EDATE Y 76 O D 01 04 O 43 'LABEL COLOR (W=WHITE, Y=' O 65 'YELLOW, DEFAULTS TO W)' O WYLAB 72 O D 01 04 O 43 '$ CONTRACT LIMIT (0 = NO' O 49 'LIMIT)' O CNLIM J 76 O D 01 04 O 43 'CUSTOMER# FOR RETAINAGE ' O 51 'INVOICES' O RETCNO 77 O D 01 04 O 43 '% FOR RETAINAGE INVOICES' O RETPC J 76 O D 01 04 O 43 'FUEL SURCHARGE 1% ( ON I' O 56 'TEM #9998000)' O FLCHG J 72 O D 01 04 O 43 'X=REQUIRES NJ URBAN ENTE' O 67 'RPRISE SALES TAX AFFIDAV' O 69 'IT' O NJAFD 72 O D 01 04 O 43 'X=ORDERS NOT ALLOWED FOR' O 57 ' THIS CUSTOMER' O XORD 72 O D 01 04 O 43 'X=SINGLE LINE PRICE CANN' O 67 'OT BE CHANGED AUTOMATICA' O 70 'LLY' O XSLP 72 ** PRESS COMMAND KEY 7 & ENTER IF THERE ARE NO MORE ENTRIES TO BE MADE, OR CUSTOMER NUMBER CUSTOMER NAME CUSTOMER STREET ADDRESS CUSTOMER CITY, STATE CUSTOMER ZIP CODE DEVELOPMENT COMPANY TELEPHONE NUMBER STATE (2 LETTERS, CUSTOMER TAXED BY THIS STATE) HOW TAXABLE - T=STATE, U=URBAN ENT, P=PHILA, N=NONE, R=RESALE, E=EXEMPT IF NY, TAXING JURISDICTION CODE (2 LETTERS, 4 NUMBERS) IF NY, TOTAL TAX % (6 NUMBERS, NO DECIMAL - XX.XXXX) TERMS - 1=NET 2=COD 3=2% 10TH 4=2% 30 5=2% 60 6=2% 90 BACK ORDER BILLING - 1=BILL ON ORIG INVOICE, 2=BILL WHEN SHIPPED CUSTOMER % DISCOUNT (3 NUMBERS, NO DECIMAL XX.X) X IF DISCOUNT MUST BE ENTERED WHEN INVOICING, BLANK IF NOT $ AMOUNT OF BAD DEBTS (TO APPEAR ON AGED A/R LISTING) LISTING GROUP# (1ST 4 DIGITS OF CUST# TO LIST WITH), OR LEAVE BLANK X IF CUSTOMER MUST HAVE PO# (BASIC) ON ORDER N IF CUSTOMER WANTS NET BILLING, OTHERWISE LEAVE BLANK X IF CUSTOMER SINGLE-LINE PRICED INVOICES ARE NOT TO HAVE ITEM DETAIL X IF CUSTOMER SINGLE-LINE PRICED HOUSES ARE NOT TO HAVE ITEM PRICES X IF CUSTOMER SINGLE-LINE PRICED INVOICES ARE TO PRINT ITEM PRICES X IF CUSTOMER TO GET ONE INVOICE FOR ALL LOADS TO BE INVOICED BROKER NAME (E&S, LUM, ETC.) BROKER COMMISSION RATE % (3 NUMBERS, NO DECIMAL - XX.X) SERVICING SALESMAN CODE SERVICING SALESMAN COMMISSION % (3 NUMBERS, NO DECIMAL - XX.X) BROKER SALESMAN CODE BROKER SALESMAN COMMISSION % (3 NUMBERS, NO DECIMAL - XX.X) FINDER SALESMAN CODE FINDER SALESMAN COMMISSION % (3 NUMBERS, NO DECIMAL - XX.X) FINDER SALESMAN COMMISSION START DATE (BY INVOICE DATE) FINDER SALESMAN COMMISSION END DATE (BY INVOICE DATE)(0=FOREVER) W=WHITE LABELS, Y=YELLOW, R=RED (IF NONE, DEFAULTS TO WHITE) ENTER $ (NO CENTS) CONTRACT LIMIT (0 = NO LIMIT) ENTER CUSTOMER# FOR RETAINAGE INVOICES ENTER % FOR RETAINAGE INVOICES (3 NUMBERS, NO DECIMAL - XX.X) FUEL SURCHARGE % (4 NUMBERS, NO DECIMAL-XX.XX, CUS# XXXX00=CORPORATE) X IF CUSTOMER REQUIRES NJ URBAN ENTERPRISE SALES TAX AFFIDAVIT X IF CUSTOMER NOT ALLOWED ANY ORDERS X IF SINGLE LINE PRICE CANNOT BE CHANGED AUTOMATICALLY // CEND // COPY LIBRARY-S,NAME-JF0002,RECL-096,DATE-01/12/19,TIME-1507,SUB-RPG H B 1 JF0002 FCUSMAS IPE F 600 600 6AI 1 DISK FCNTRL IC F 32 32R DISK FINP ID F 79 79 KEYBORD FPRT O F 132 132 OV PRINTER E AMS 1 2 79 ICNTRL AA 1 C0 2 C0 3 C7 I 4 32 CONAME ICUSMAS AA 01 600 CD I BB 02 600 CA I 1 60CNO I 8 37 CNM I 38 67 AD1 I 68 91 AD2 I 92 96 ZIP I 97 121 DEV 13 I 132 132 NET I 133 134 STT I 135 135 TAX I 136 136 TER I 137 137 BOB I 176 176 MANCDS I P 297 2981DIS 1614 I 299 300 SLS I 376 378 TEL1 I 379 381 TEL2 I 382 385 TEL3 I 424 426 BROKER I P 427 4281COMMBR I P 429 4301COMMSM I 525 530 NYCODE I 531 5342NYRATE C 03 GOTO BYEBYE C SETON 03 C AMS,1 KEY CNOL 60 C AMS,2 KEY CNOH 60 C 7 CHAINCNTRL C SETON 23 C BYEBYE TAG C 01 GOTO END C OV SETON 23 C 23 EXCPT C 23 SETOF 23OV C CNO COMP CNOL 04 04 C 04 CNO COMP CNOH 0404 C N04 GOTO END C SETOF 11 C TAX COMP 'N' 05 C TAX COMP 'U' 12 C TAX COMP 'P' 17 C TAX COMP 'T' 18 C TAX COMP 'R' 19 C TAX COMP 'E' 20 C SETOF 21 C N05N12N17 CANN18N19N10 SETON 21 C STT COMP 'NY' 22 C TER COMP '2' 06 C TER COMP '3' 07 C TER COMP '4' 08 C TER COMP '5' 09 C TER COMP '6' 10 C N06N07N08 CANN09N10 SETON 11 C MANCDS COMP 'X' 15 C END TAG OPRT E 103 23 O CONAME 29 O 56 'CUSTOMER LIST -- AS OF' O UDATE Y 65 O PAGE 80 O 76 'PAGE' O D 21 02 04 O 17 'CUST NO' O CNO M 25 O DEV 75 O 13 69 '(NO DEVELOPMENT CO)' O D 01 02 04 O 71 'TELEPHONE - -' O TEL1 66 O TEL2 70 O TEL3 75 O D 01 02 04 O CNM 40 O 58 'SALESMAN' O SLS 61 O COMMSMM 67 O 78 'BROKER' O BROKER 82 O COMMBRM 88 O D 01 02 04 O AD1 40 O 59 'TAX STATE' O STT 62 O 22 100 'NY TAX JURISDICTION' O 22 NYCODE 107 O 22 NYRATEJ 115 O 22 116 '%' O D 01 02 04 O AD2 34 O ZIP 40 O 58 'TAX CODE' O TAX 60 O 05 72 '=NON TAXABLE' O 12 84 '=NJ URBAN ENTERPRISE ZON' O 12 85 'E' O 17 74 '=PHILA TAXABLE' O 18 81 '=NORMAL STATE TAXABLE' O 19 67 '=RESALE' O 20 67 '=EXEMPT' O 21 68 '=UNKNOWN' O D 01 02 04 O 14 61 'NO DISCOUNT' O N14 DIS 65 ' 0. -%&DISCOUNT' O 16 73 '(MINUS)' O 15 101 'MUST ENTER DISCOUNT WHEN' O 15 111 ' INVOICING' O D 01 02 04 O 59 'TERMS:( )' O TER 58 O 11 63 'NET' O 06 63 'COD' O 07 66 '2% EOM' O 08 79 '2% 30 DAYS - NET 31' O 09 79 '2% 60 DAYS - NET 61' O 10 79 '2% 90 DAYS - NET 91' O D 01 02 04 O 62 'BO BILLING -' O BOB 64 O 81 'NET BILLING -' O NET 83 ** ENTER FROM CUSTOMER NUMBER ENTER THROUGH CUSTOMER NUMBER // CEND // COPY LIBRARY-S,NAME-JF0003,RECL-096,REF-000001,DATE-08/06/05,TIME-1138,SUB-RPG H B 1 JF0003 FINP IP F 79 79 KEYBORD FCNTRL IC F 32 32R DISK FCUSMAS UC F 600 600R 6AI 1 DISK FDISP O F 79 79 CRT FPRT O F 132 132 PRINTER E AMS 1 42 79 ICNTRL AA 1 C0 2 C0 3 C7 I 4 32 CONAME ICUSMAS AA 01 I 8 37 CNM I 38 67 AD1 I 68 91 AD2 I 92 96 ZIP I 97 121 DEV I 131 131 WYLAB I 132 132 NET I 133 134 STT I 135 135 TAX I 136 136 TER I 137 137 BOB I 176 176 MANDS I P 297 2981DIS I 299 300 SSLMN I 376 378 TL1 I 379 381 TL2 I 382 385 TL3 I 376 385 TLLNO I 424 426 BRKCD I P 427 4281BRKRT I P 429 4301SRATE I 431 431 XORD I 432 432 PO1 I P 454 4592BDEBT I 485 4880GROUP I 489 489 SLITM I 490 490 SLHSE I 491 491 ONEIN I 492 493 BSLMN I P 494 4951BRATE I 496 497 FSLMN I P 498 4991FRATE I 500 5050SDATE I 506 5110EDATE I 512 512 SLINV I 525 530 NYCOD I P 531 5344NYRAT I P 555 5580CNLIM I 559 5640RETCS I 565 5671RETPC I* 568 568 FLSUR I 568 569 NJAFD I 570 570 XSLP I 571 5742FLCHG C 05 GOTO BEGIN C SETON 05 C MOVE ' ' BLNK10 10 C MOVE ' ' BLNK24 24 C MOVE ' ' BLNK25 25 C MOVE ' ' BLNK30 30 C 7 CHAINCNTRL C SETON 06 C EXCPT C SETOF 06 C BEGIN TAG C SETOF 0203 C AMS,1 SET KG C AMS,2 KEY CNO 60 C KG SETON LR C KG GOTO END C CNO CHAINCUSMAS 03 C 03 GOTO END C CNM SET KA C AMS,3 KEY CNMN 30 C CNMN COMP BLNK30 04 C 04 MOVE CNM CNMN C KA MOVE BLNK30 CNMN C AD1 SET KA C AMS,4 KEY AD1N 30 C AD1N COMP BLNK30 04 C 04 MOVE AD1 AD1N C KA MOVE BLNK30 AD1N C AD2 SET KA C AMS,5 KEY AD2N 24 C AD2N COMP BLNK24 04 C 04 MOVE AD2 AD2N C KA MOVE BLNK24 AD2N C ZIP SET KA C AMS,6 KEY ZIPN 5 C ZIPN COMP ' ' 04 C 04 MOVE ZIP ZIPN C KA MOVE ' ' ZIPN C DEV SET KA C AMS,7 KEY DEVN 25 C DEVN COMP BLNK25 04 C 04 MOVE DEV DEVN C KA MOVE BLNK25 DEVN C TLLNO SET KA C AMS,8 KEY TELN 10 C TELN COMP BLNK10 04 C 04 MOVE TLLNO TELN C KA MOVE BLNK10 TELN C MOVE TELN TL3N 4 C MOVELTELN TL1N 3 C MOVELTELN TELDUM 6 C MOVE TELDUM TL2N 3 C STT SET KA C AMS,9 KEY STTN 2 C STTN COMP ' ' 04 C 04 MOVE STT STTN C KA MOVE ' ' STTN C TAX SET KA C AMS,10 KEY TAXN 1 C TAXN COMP ' ' 04 C 04 MOVE TAX TAXN C KA MOVE ' ' TAXN C NYCOD SET KA C AMS,11 KEY NYCODN 6 C NYCODN COMP ' ' 04 C 04 MOVE NYCOD NYCODN C KA MOVE ' ' NYCODN C NYRAT SET KA C AMS,12 KEY NYRATN 74 04 C 04 Z-ADDNYRAT NYRATN C KA Z-ADD0 NYRATN C TER SET KA C AMS,13 KEY TERN 1 C TERN COMP ' ' 04 C 04 MOVE TER TERN C KA MOVE ' ' TERN C BOB SET KA C AMS,14 KEY BOBN 1 C BOBN COMP ' ' 04 C 04 MOVE BOB BOBN C KA MOVE ' ' BOBN C DIS SET KA C AMS,15 KEY DISN 20 04 C 04 Z-ADDDIS DISN C KA Z-ADD0 DISN C MANDS SET KA C AMS,16 KEY MANDSN 1 C MANDSN COMP ' ' 04 C 04 MOVE MANDS MANDSN C KA MOVE ' ' MANDSN C BDEBT SET KA C AMS,17 KEY BDEBTN 112 04 C 04 Z-ADDBDEBT BDEBTN C KA Z-ADD0 BDEBTN C GROUP SET KA C AMS,18 KEY GROUPN 40 04 C 04 Z-ADDGROUP GROUPN C KA Z-ADD0 GROUPN C PO1 SET KA C AMS,19 KEY PO1N 1 C PO1N COMP ' ' 04 C 04 MOVE PO1 PO1N C KA MOVE ' ' PO1N C NET SET KA C AMS,20 KEY NETN 1 C NETN COMP ' ' 04 C 04 MOVE NET NETN C KA MOVE ' ' NETN C SLITM SET KA C AMS,21 KEY SLITMN 1 C SLITMN COMP ' ' 04 C 04 MOVE SLITM SLITMN C KA MOVE ' ' SLITMN C SLHSE SET KA C AMS,22 KEY SLHSEN 1 C SLHSEN COMP ' ' 04 C 04 MOVE SLHSE SLHSEN C KA MOVE ' ' SLHSEN C SLINV SET KA C AMS,23 KEY SLINVN 1 C SLINVN COMP ' ' 04 C 04 MOVE SLINV SLINVN C KA MOVE ' ' SLINVN C ONEIN SET KA C AMS,24 KEY ONEINN 1 C ONEINN COMP ' ' 04 C 04 MOVE ONEIN ONEINN C KA MOVE ' ' ONEINN C BRKCD SET KA C AMS,25 KEY BRKCDN 3 C BRKCDN COMP ' ' 04 C 04 MOVE BRKCD BRKCDN C KA MOVE ' ' BRKCDN C BRKRT SET KA C AMS,26 KEY BRKRTN 31 04 C 04 Z-ADDBRKRT BRKRTN C KA Z-ADD0 BRKRTN C SSLMN SET KA C AMS,27 KEY SSLMNN 2 C SSLMNN COMP ' ' 04 C 04 MOVE SSLMN SSLMNN C KA MOVE ' ' SSLMNN C SRATE SET KA C AMS,28 KEY SRATEN 31 04 C 04 Z-ADDSRATE SRATEN C KA Z-ADD0 SRATEN C BSLMN SET KA C AMS,29 KEY BSLMNN 2 C BSLMNN COMP ' ' 04 C 04 MOVE BSLMN BSLMNN C KA MOVE ' ' BSLMNN C BRATE SET KA C AMS,30 KEY BRATEN 31 04 C 04 Z-ADDBRATE BRATEN C KA Z-ADD0 BRATEN C FSLMN SET KA C AMS,31 KEY FSLMNN 2 C FSLMNN COMP ' ' 04 C 04 MOVE FSLMN FSLMNN C KA MOVE ' ' FSLMNN C FRATE SET KA C AMS,32 KEY FRATEN 31 04 C 04 Z-ADDFRATE FRATEN C KA Z-ADD0 FRATEN C SDATE SET KA C AMS,33 KEY SDATEN 60 04 C 04 Z-ADDSDATE SDATEN C KA Z-ADD0 SDATEN C EDATE SET KA C AMS,34 KEY EDATEN 60 04 C 04 Z-ADDEDATE EDATEN C KA Z-ADD0 EDATEN C WYLAB SET KA C AMS,35 KEY WYLABN 1 C WYLABN COMP ' ' 04 C 04 MOVE WYLAB WYLABN C KA MOVE ' ' WYLABN C CNLIM SET KA C AMS,36 KEY CNLIMN 70 04 C 04 Z-ADDCNLIM CNLIMN C KA Z-ADD0 CNLIMN C RETCS SET KA C AMS,37 KEY RETCSN 60 04 C 04 Z-ADDRETCS RETCSN C KA Z-ADD0 RETCSN C RETPC SET KA C AMS,38 KEY RETPCN 31 04 C 04 Z-ADDRETPC RETPCN C KA Z-ADD0 RETPCN C FLCHG SET KA C AMS,39 KEY FLCHGN 42 C FLCHGN COMP 0 04 C 04 Z-ADDFLCHG FLCHGN C KA Z-ADD0 FLCHGN C NJAFD SET KA C AMS,40 KEY NJAFDN 1 C NJAFDN COMP ' ' 04 C 04 MOVE NJAFD NJAFDN C KA MOVE ' ' NJAFDN C XORD SET KA C AMS,41 KEY XORDN 1 C XORDN COMP ' ' 04 C 04 MOVE XORD XORDN C KA MOVE ' ' XORDN C XSLP SET KA C AMS,42 KEY XSLPN 1 C XSLPN COMP ' ' 04 C 04 MOVE XSLP XSLPN C KA MOVE ' ' XSLPN C SETON 02 C END TAG OPRT E 003 06 O CONAME 29 O 57 'CUSTOMERS CHANGED' O UDATE Y 68 OCUSMAS D 02 O CNMN 37 O AD1N 67 O AD2N 91 O ZIPN 96 O DEVN 121 O WYLABN 131 O NETN 132 O STTN 134 O TAXN 135 O TERN 136 O BOBN 137 O MANDSN 176 O DISN 298P O SSLMNN 300 O TL1N 378 O TL2N 381 O TL3N 385 O BRKCDN 426 O BRKRTN 428P O SRATEN 430P O XORDN 431 O PO1N 432 O BDEBTN 459P O GROUPN 488 O SLITMN 489 O SLHSEN 490 O ONEINN 491 O BSLMNN 493 O BRATEN 495P O FSLMNN 497 O FRATEN 499P O SDATEN 505 O EDATEN 511 O SLINVN 512 O NYCODN 530 O NYRATN 534P O CNLIMN 558P O RETCSN 564 O RETPCN 567 O* FLSURN 568 O NJAFDN 569 O XSLPN 570 O FLCHGN 574 ODISP H 11 1P O 24 'C H A N G E C U S T O ' O 31 'M E R S' O H 11 1P O 24 'FOR ALL FIELDS: PRES' O 48 'S ENTER TO DUPLICATE EXI' O 72 'STING FIELD (SHOWN ON SC' O 77 'REEN)' O H 01 1P O 44 'PRESS COMMAND KEY 1 TO B' O 58 'LANK OUT FIELD' O H 01 1P O 38 'OR ENTER NEW FIELD' O D 11 03 O 20 'NOT IN CUSTOMER FILE' OPRT D 21 02 O 21 'CUSTOMER NO' O CNO M 32 O 48 'P R E S E N T' O 80 'N E W' O D 01 02 O 34 '************************' O 58 '************************' O 82 '************************' O 90 '********' O D 01 02 O 14 'NAME' O CNM 70 O CNMN 110 O D 01 02 O 24 'STREET ADDRESS' O AD1 60 O AD1N 110 O D 01 02 O 21 'CITY, STATE' O AD2 64 O AD2N 104 O D 01 02 O 18 'ZIP CODE' O ZIP 45 O ZIPN 85 O D 01 02 O 24 'DEVELOPMENT CO' O DEV 65 O DEVN 105 O D 01 02 O 22 'TELEPHONE NO' O 48 '- -' O TL1 43 O TL2 47 O TL3 52 O 88 '- -' O TL1N 83 O TL2N 87 O TL3N 92 O D 01 02 O 15 'STATE' O STT 42 O STTN 82 O D 01 02 O 18 'TAX CODE' O TAX 41 O TAXN 81 O D 01 02 O 34 'NY TAX JURISDICTION CODE' O NYCOD 45 O NYCODN 85 O D 01 02 O 21 'NY TOTAL TAX %' O NYRAT J 45 O NYRATNJ 85 O D 01 02 O 15 'TERMS' O TER 41 O TERN 81 O D 01 02 O 26 'BACK-ORD BILLING' O BOB 41 O BOBN 81 O D 01 02 O 20 '% DISCOUNT' O DIS M 43 O DISN M 83 O D 01 02 O 26 'X=MUST ENTER DIS' O MANDS 41 O MANDSN 81 O D 01 02 O 22 'BAD DEBT AMT' O BDEBT J 50 O BDEBTNJ 90 O D 01 02 O 26 'MAIN GROUP CUST#' O GROUP M 45 O GROUPNM 85 O D 01 02 O 28 'X=PO# (BASIC) REQD' O PO1 41 O PO1N 81 O D 01 02 O 23 'N=NET BILLING' O NET 41 O NETN 81 O D 01 02 O 28 'X=SLP INV NO ITEMS' O SLITM 41 O SLITMN 81 O D 01 02 O 29 'X=SLP HSE NO PRICES' O SLHSE 41 O SLHSEN 81 O D 01 02 O 30 'X=SLP HSE PRT PRICES' O SLINV 41 O SLINVN 81 O D 01 02 O 29 'X=ONE INV-ALL LOADS' O ONEIN 41 O ONEINN 81 O D 01 02 O 21 'BROKER NAME' O BRKCD 43 O BRKCDN 83 O D 01 02 O 29 'BROKER COMMISSION %' O BRKRT J 45 O BRKRTNJ 85 O D 01 02 O 28 'SERV SALESMAN CODE' O SSLMN 41 O SSLMNN 81 O D 01 02 O 30 'SERV SALESMAN COMM %' O SRATE J 45 O SRATENJ 85 O D 01 02 O 28 'BROK SALESMAN CODE' O BSLMN 41 O BSLMNN 81 O D 01 02 O 30 'BROK SALESMAN COMM %' O BRATE J 45 O BRATENJ 85 O D 01 02 O 28 'FIND SALESMAN CODE' O FSLMN 41 O FSLMNN 81 O D 01 02 O 30 'FIND SALESMAN COMM %' O FRATE J 45 O FRATENJ 85 O D 01 02 O 32 'FIND SLSMAN COMM START' O SDATE Y 52 O SDATENY 92 O D 01 02 O 30 'FIND SLSMAN COMM END' O EDATE Y 52 O EDATENY 92 O D 01 02 O 34 'LABEL COLOR (W/Y, DEFAUL' O 38 'T=W)' O EDATE Y 52 O EDATENY 92 O D 01 02 O 34 '$ CONTRACT LIMIT (0 = NO' O 41 ' LIMIT)' O CNLIM J 52 O CNLIMNY 92 O D 01 02 O 34 'CUSTOMER# FOR RETAINAGE ' O 42 'INVOICES' O RETCS 52 O RETCSN 92 O D 01 02 O 34 '% FOR RETAINAGE INVOICES' O RETPC J 52 O RETPCNJ 92 O D 01 02 O 34 'FUEL SURCHARGE 1% (ITEM ' O 43 '#9998000)' O FLCHG J 52 O FLCHGN 92 O D 01 02 O 34 'X=REQUIRES NJ URBAN ENTE' O 40 'RPRISE' O NJAFD 51 O NJAFDN 91 O D 01 02 O 31 ' SALES TAX AFFIDAVIT' O D 01 02 O 30 'X=ORDERS NOT ALLOWED' O XORD 51 O XORDN 91 O D 01 02 O 31 'X=SINGLE LINE PRICE C' O 39 'ANNOT BE' O XSLP 51 O XSLPN 91 O D 01 02 O 31 ' CHANGED AUTOMATICAL' O 33 'LY' ** PRESS COMMAND KEY 7 & ENTER IF THERE ARE NO MORE ENTRIES TO BE MADE, OR CUSTOMER NUMBER CUSTOMER NAME CUSTOMER STREET ADDRESS CUSTOMER CITY, STATE CUSTOMER ZIP CODE DEVELOPMENT COMPANY TELEPHONE NUMBER STATE (2 LETTERS, CUSTOMER TAXED BY THIS STATE) HOW TAXABLE - T=STATE, U=URBAN ENT, P=PHILA, N=NONE, R=RESALE, E=EXEMPT IF NY, TAXING JURISDICTION CODE (2 LETTERS, 4 NUMBERS) IF NY, TOTAL TAX % (6 NUMBERS, NO DECIMAL - XX.XXXX) TERMS - 1=NET 2=COD 3=2% 10TH 4=2% 30 5=2% 60 6=2% 90 BACK ORDER BILLING - 1=BILL ON ORIG INVOICE, 2=BILL WHEN SHIPPED CUSTOMER % DISCOUNT (3 NUMBERS, NO DECIMAL XX.X) X IF DISCOUNT MUST BE ENTERED WHEN INVOICING, BLANK IF NOT $ AMOUNT OF BAD DEBTS (TO APPEAR ON AGED A/R LISTING) LISTING GROUP# (1ST 4 DIGITS OF CUST# TO LIST WITH), OR LEAVE BLANK X IF CUSTOMER MUST HAVE PO# (BASIC) ON ORDER N IF CUSTOMER WANTS NET BILLING, OTHERWISE LEAVE BLANK X IF CUSTOMER SINGLE-LINE PRICED INVOICES ARE NOT TO HAVE ITEM DETAIL X IF CUSTOMER SINGLE-LINE PRICED HOUSES ARE NOT TO HAVE ITEM PRICES X IF CUSTOMER SINGLE-LINE PRICED INVOICES ARE TO PRINT ITEM PRICES X IF CUSTOMER TO GET ONE INVOICE FOR ALL LOADS TO BE INVOICED BROKER NAME (E&S, LUM, ETC.) BROKER COMMISSION RATE % (3 NUMBERS, NO DECIMAL - XX.X) SERVICING SALESMAN CODE SERVICING SALESMAN COMMISSION % (3 NUMBERS, NO DECIMAL - XX.X) BROKER SALESMAN CODE BROKER SALESMAN COMMISSION % (3 NUMBERS, NO DECIMAL - XX.X) FINDER SALESMAN CODE FINDER SALESMAN COMMISSION % (3 NUMBERS, NO DECIMAL - XX.X) FINDER SALESMAN COMMISSION START DATE (BY INVOICE DATE) FINDER SALESMAN COMMISSION END DATE (BY INVOICE DATE)(0=FOREVER) W=WHITE LABELS, Y=YELLOW, R=RED (IF NONE, DEFAULTS TO WHITE) ENTER $ (NO CENTS) CONTRACT LIMIT (0 = NO LIMIT) ENTER CUSTOMER# FOR RETAINAGE INVOICES ENTER % FOR RETAINAGE INVOICES (3 NUMBERS, NO DECIMAL - XX.X) FUEL SURCHARGE % (4 NUMBERS, NO DECIMAL-XX.XX, CUS# XXXX00=CORPORATE) X IF CUSTOMER REQUIRES NJ URBAN ENTERPRISE SALES TAX AFFIDAVIT X IF CUSTOMER NOT ALLOWED ANY ORDERS X IF SINGLE LINE PRICE CANNOT BE CHANGED AUTOMATICALLY // CEND // COPY LIBRARY-S,NAME-JF0004,RECL-096,DATE-01/03/23,TIME-1226,SUB-RPG H B 1 JF0004 FINP IP F 79 79 KEYBORD FCNTRL IC F 32 32R DISK FCUSMAS UC F 600 600R 6AI 1 DISK FDISP O F 79 79 CRT FPRT O F 132 132 OV PRINTER E AMS 1 2 79 ICNTRL AA 1 C0 2 C0 3 C7 I 4 32 CONAME ICUSMAS AA 01 I 8 37 CNM I 38 67 AD1 I 68 91 AD2 I 92 96 ZIP I 97 121 DEV I 600 600 ACTV C N05 7 CHAINCNTRL C N05 SETON 06 C N05 EXCPT C N05 SETOF 06 C N05 SETON 05 C SETOF 0203 C AMS,1 SET KG C AMS,2 KEY CNO 60 C KG SETON LR C KG GOTO END C CNO CHAINCUSMAS 02 C N02 ACTV COMP 'D' 02 C N02 SETON 03 C END TAG OPRT E 203 06 O CONAME 29 O 67 'CUSTOMERS DELETED' O UDATE Y 80 OCUSMAS D 03 O 600 'D' OPRT D 01 03 O 22 'THE FOLLOWING CUSTOMER' O 33 'IS DELETED' O CNO M 41 O CNM 80 O DEV 115 O D 01 03 O AD1 80 O D 02 03 O AD2 74 O ZIP 80 ODISP H 11 1P O 24 'D E L E T E C U S T O ' O 31 'M E R S' O D 11 02 O 20 'NOT IN CUSTOMER FILE' ** PRESS COMMAND KEY 7 & ENTER IF THERE ARE NO MORE ENTRIES TO BE MADE, OR ENTER CUSTOMER NUMBER TO BE DELETED // CEND // COPY LIBRARY-S,NAME-JF0005,RECL-096,REF-000001,DATE-04/10/20,TIME-1004,SUB-RPG H B 1 JF0005 FINP IP F 79 79 KEYBORD FCNTRL IC F 32 32R DISK FPROD UC F 400 400R 9AI 1 DISK A FSBPROD UC F 400 400R 9AI 1 DISK A U1 FDISP O F 79 79 CRT FPRT O F 132 132 OV PRINTER E AMS 1 43 79 E AP 8 9 4 E AOP 8 9 4 ICNTRL AA 1 C0 2 C0 3 C7 I 4 32 CONAME IPROD AA 01 I 11 11 TYPEF ISBPROD AA 10 I 11 11 SBTYPF C 14 GOTO BEGIN C SETON 14 C 7 CHAINCNTRL C SETON 15 C BEGIN TAG C SETOF 25 C OV SETON 15 C 15 EXCPT C 15 SETOF 15OV C SETOF 080911 C SETOF 12 C 05 MOVE 'A' TYPE 1 C 05 LINE ADD 1 LINE 20 C 05 Z-ADD0 LSTPRC 94 C 05 Z-ADD0 AP C 05 Z-ADD0 AOP C 05 Z-ADD0 SQFT 50 C 05 MOVE ' ' DEPT 2 C 05 MOVE ' ' LABL 1 C 05 Z-ADD0 MWRKVL 52 C 05 Z-ADD0 AWRKVL 52 C 05 Z-ADD0 SUBCAT 20 C 05 MOVE ' ' INVCD 1 C 05 Z-ADD0 VNO 60 C 05 Z-ADD0 CST 94 C 05 Z-ADD0 PKG 50 C 05 Z-ADD0 MAX 50 C 05 Z-ADD0 MIN 50 C 05 Z-ADD0 PRES 50 C 05 Z-ADD0 ORD 50 C 05 Z-ADD0 DLDAT 60 C 05 Z-ADD0 PIDAT 60 C 05 Z-ADD0 WASTE 20 C 05 MOVE ' ' SPEC 1 C 05 Z-ADD0 PRGRP 30 C 05 MOVE ' ' BARVEN 5 C 05 MOVE ' ' BARITM 5 C SETOF 020304 C 05 GOTO BYE C AMS,1 SET KG C AMS,2 KEY ITEM 7 C KG SETON LR C KG GOTO END C ITEM COMP ' ' 09 C 09 GOTO END C BYE TAG C N05 Z-ADD1 LINE C MOVE LINE ITMLN 9 C MOVELITEM ITMLN C ITMLN CHAINPROD 04 C N04 TYPEF COMP 'D' 03 C N04N03 SETON 02 C N04N03 GOTO END C N05 AMS,3 KEY TYPE C N05 TYPE COMP 'H' 06 C N05N06 MOVE 'I' TYPE C N05N06 SETON 11 C N05 06 SETON 12 C SETON 07 C EXCPT C SETOF 07 C U1 MOVELITEM ITEM1 1 C U1 ITEM1 COMP 'V' 25 C U1 ITMLN CHAINSBPROD 24 C U1N24 SBTYPF COMP 'D' 23 C 06 Z-ADD0 LSTPRC C 06 Z-ADD0 AP C 06 Z-ADD0 AOP C 06 Z-ADD0 SQFT C 06 MOVE ' ' INVCD C 06 Z-ADD0 VNO C 06 Z-ADD0 CST C 06 Z-ADD0 PKG C 06 Z-ADD0 MAX C 06 Z-ADD0 MIN C 06 Z-ADD0 PRES C 06 Z-ADD0 ORD C 06 Z-ADD0 DLDAT C 06 Z-ADD0 PIDAT C 06 Z-ADD0 WASTE C 06 MOVE ' ' SPEC C 06 Z-ADD0 PRGRP C 06 MOVE ' ' BARVEN C 06 MOVE ' ' BARITM C N05N06 AMS,4 KEY LSTPRC C N05N06 AMS,5 KEY AP,1 C N05N06 AMS,6 KEY AP,2 C N05N06 AMS,7 KEY AP,3 C N05N06 AMS,8 KEY AP,4 C N05N06 AMS,9 KEY AP,5 C N05N06 AMS,10 KEY AP,6 C N05N06 AMS,11 KEY AP,7 C N05N06 AMS,12 KEY AP,8 C N05N06 AMS,13 KEY AOP,1 C N05N06 AMS,14 KEY AOP,2 C N05N06 AMS,15 KEY AOP,3 C N05N06 AMS,16 KEY AOP,4 C N05N06 AMS,17 KEY AOP,5 C N05N06 AMS,18 KEY AOP,6 C N05N06 AMS,19 KEY AOP,7 C N05N06 AMS,20 KEY AOP,8 C AMS,21 KEY DESC 27 C N05N06 AMS,22 KEY SQFT C N05 AMS,23 KEY DEPT C N05 AMS,24 KEY LABL C N05 AMS,25 KEY MWRKVL C N05 AMS,26 KEY AWRKVL C N05 AMS,27 KEY SUBCAT C N05N06 AMS,28 KEY INVCD C N05N06 AMS,29 KEY VNO C N05N06 AMS,30 KEY CST C N05N06 AMS,31 KEY PKG C N05N06 AMS,32 KEY MAX C N05N06 AMS,33 KEY MIN C N05N06 AMS,34 KEY PRES C N05N06 AMS,35 KEY ORD C N05N06 AMS,36 KEY DLDAT C N05N06 AMS,37 KEY PIDAT C N05N06 AMS,38 KEY WASTE C N05N06 AMS,39 KEY SPEC C N05N06 AMS,40 KEY PRGRP C N05N06 AMS,41 KEY BARVEN C N05N06 AMS,42 KEY BARITM C AMS,43 KEY LAST 1 C LAST COMP 'N' 05 C 05 MOVE 'N' STAT 1 C N05 MOVE 'L' STAT C LINE COMP 1 13 C SETON 08 C END TAG OPRT E 103 15 O CONAME 29 O 65 'NEW PRODUCTS ADDED' O UDATE Y 77 O E 01 15 O 82 '-WORK VALUES-' O E 01 15 O 24 'ITEM# TYPE LINE DESCR' O 30 'IPTION' O 74 'SQ/FT DEPT LBL MAIN ' O 95 ' ADD ON SBCT SPEC' O 106 'PR/GROUP' O 116 'BAR CODE' O E 01 15 O 27 'LIST PRICE' O 53 'PRICE #1 PRICE #2' O 79 'PRICE #3 PRICE #4' O 105 'PRICE #5 PRICE #6' O 131 'PRICE #7 PRICE #8' O E 02 15 O 24 '************************' O *PLACE 48 O *PLACE 72 O *PLACE 96 O *PLACE 120 O 132 '************' ODISP H 11 1P O 24 'A D D N E W P R O D ' O 31 'U C T S' O D 11 02 O 23 'ALREADY IN PRODUCT FILE' O D 11 09NLR O 24 'CANNOT BE BLANK ITEM NUM' O 27 'BER' O E 10 07 O 5 'ITEM#' O ITEM 13 O 34 'LINE#' O LINE M 38 OPROD DADD 04 O ITMLN 9 O TYPE 11 O STAT 12 O AP 52P O SQFT 55P O DEPT 57 O LABL 58 O LSTPRC 63P O MWRKVL 79P O AWRKVL 82P O SUBCAT 84 O INVCD 91 O VNO 97 O CST 102P O PKG 105P O MAX 108P O MIN 111P O PRES 114P O ORD 117P O DLDAT 121P O PIDAT 125P O WASTE 127 O SPEC 128 O PRGRP 131 O DESC 160 O AOP 200P O BARVEN 205 O BARITM 210 O D 03 O TYPE 11 O STAT 12 O AP 52P O SQFT 55P O DEPT 57 O LABL 58 O LSTPRC 63P O MWRKVL 79P O AWRKVL 82P O SUBCAT 84 O INVCD 91 O VNO 97 O CST 102P O PKG 105P O MAX 108P O MIN 111P O PRES 114P O ORD 117P O DLDAT 121P O PIDAT 125P O WASTE 127 O SPEC 128 O PRGRP 131 O DESC 160 O AOP 200P O BARVEN 205 O BARITM 210 OSBPROD DADD U1 25 24 O ITMLN 9 O TYPE 11 O STAT 12 O AP 52P O SQFT 55P O DEPT 57 O LABL 58 O LSTPRC 63P O MWRKVL 79P O AWRKVL 82P O SUBCAT 84 O INVCD 91 O VNO 97 O CST 102P O PKG 105P O MAX 108P O MIN 111P O PRES 114P O ORD 117P O DLDAT 121P O PIDAT 125P O WASTE 127 O SPEC 128 O PRGRP 131 O DESC 160 O AOP 200P O BARVEN 205 O BARITM 210 O D U1 25 23 O TYPE 11 O STAT 12 O AP 52P O SQFT 55P O DEPT 57 O LABL 58 O LSTPRC 63P O MWRKVL 79P O AWRKVL 82P O SUBCAT 84 O INVCD 91 O VNO 97 O CST 102P O PKG 105P O MAX 108P O MIN 111P O PRES 114P O ORD 117P O DLDAT 121P O PIDAT 125P O WASTE 127 O SPEC 128 O PRGRP 131 O DESC 160 O AOP 200P O BARVEN 205 O BARITM 210 OPRT D 01 08 O ITEM 7 O TYPE 11 O LINE 16 O DESC 46 O 11 SQFT M 56 O 11 DEPT 60 O 11 LABL 64 O 11 MWRKVLK 74 O 11 AWRKVLK 83 O 11 SUBCATM 88 O 11 SPEC 93 O 11 PRGRP J 104 O 11 BARVEN 113 O 11 BARITM 118 O 12 DEPT 60 O 12 LABL 64 O 12 MWRKVLK 74 O 12 AWRKVLK 83 O 12 SUBCATM 88 O U1 25 132 'ALSO TO SBS' O D 01 08 11 13 O 15 'CURRENT PRICES' O LSTPRCK 28 O AP,1 K 41 O AP,2 K 54 O AP,3 K 67 O AP,4 K 80 O AP,5 K 93 O AP,6 K 106 O AP,7 K 119 O AP,8 K 132 O D 01 08 11 13 O 15 'PREVIOUS PRICES' O AOP,1 K 41 O AOP,2 K 54 O AOP,3 K 67 O AOP,4 K 80 O AOP,5 K 93 O AOP,6 K 106 O AOP,7 K 119 O AOP,8 K 132 O D 01 08N05 ** PRESS COMMAND KEY 7 & ENTER IF THERE ARE NO MORE ENTRIES TO BE MADE, OR ENTER ITEM NUMBER ENTER LINE TYPE (I=ITEM, H=HEADING) ENTER PRESENT LIST PRICE - 4 DECIMALS ENTER PRESENT PRICE #1 - 4 DECIMALS ENTER PRESENT PRICE #2 - 4 DECIMALS ENTER PRESENT PRICE #3 - 4 DECIMALS ENTER PRESENT PRICE #4 - 4 DECIMALS ENTER PRESENT PRICE #5 - 4 DECIMALS ENTER PRESENT PRICE #6 - 4 DECIMALS ENTER PRESENT PRICE #7 - 4 DECIMALS ENTER PRESENT PRICE #8 - 4 DECIMALS ENTER PREVIOUS PRICE #1 - 4 DECIMALS ENTER PREVIOUS PRICE #2 - 4 DECIMALS ENTER PREVIOUS PRICE #3 - 4 DECIMALS ENTER PREVIOUS PRICE #4 - 4 DECIMALS ENTER PREVIOUS PRICE #5 - 4 DECIMALS ENTER PREVIOUS PRICE #6 - 4 DECIMALS ENTER PREVIOUS PRICE #7 - 4 DECIMALS ENTER PREVIOUS PRICE #8 - 4 DECIMALS ENTER ITEM DESCRIPTION ENTER SQUARE FEET ENTER DEPARTMENT CODE ENTER LABEL TYPE ENTER MAIN WORK VALUE TO 2 DECIMAL POSITIONS ENTER ADD ON WORK VALUE TO 2 DECIMAL POSITIONS ENTER DEPT. SUB CATEGORY (1-99, GROUPING FOR DEPT. WORK REPORT) ENTER I = INVENTORY CONTROL ON THIS ITEM, BLANK = NOT ENTER VENDOR NUMBER ENTER UNIT COST - 4 DECIMALS ENTER STANDARD PACKAGE ORDER QUANTITY ENTER MAXIMUM ENTER MINIMUM ENTER QUANTITY PRESENT ENTER QUANTITY ON ORDER ENTER EXPECTED DELIVERY DATE ENTER DATE OF LAST PHYSICAL INVENTORY CHECK ENTER WASTE FACTOR AS A WHOLE PERCENTAGE ENTER S=SPECIAL ITEM, BLANK=NOT ENTER CUSTOMER PRICING GROUP NUMBER ENTER BAR CODE VENDOR NUMBER (5 CHARACTERS) ENTER BAR CODE ITEM NUMBER (5 CHAARACTERS) ENTER WHETHER LAST LINE (N=NO, L=LAST) // CEND // COPY LIBRARY-S,NAME-JF0006,RECL-096,DATE-04/10/14,TIME-1124,SUB-RPG H B 1 JF0006 FINP IP F 79 79 KEYBORD FCNTRL IC F 32 32R DISK FPROD UC F 400 400R 9AI 1 DISK FDISP O F 79 79 CRT FPRT O F 132 132 OV PRINTER E AMS 1 31 79 E AP 8 9 4 E AOP 8 9 4 E APN 8 9 4 E AOPN 8 9 4 ICNTRL AA 1 C0 2 C0 3 C7 I 4 32 CONAME IPROD AA 01 I 11 11 TYPE I P 13 52 AP I P 53 550SQFT I 56 57 DEPT I 58 58 LABL I P 59 634LSPRC I P 77 792MWORK I P 80 822AWORK I 83 840SBCAT I 128 128 SPEC I 129 1310PRGRP I 134 160 DES I P 161 200 AOP I 201 205 BARVN I 206 210 BARIT C N05 MOVE ' ' BLNK27 27 C N05 7 CHAINCNTRL C N05 SETON 0508 C SETOF 020307 C OV SETON 08 C 08 EXCPT C 08 SETOF OV08 C AMS,1 SET KG C AMS,2 KEY ITEM 7 C KG SETON LR C KG GOTO END C AMS,3 KEY LINE 20 C MOVE LINE ITMLN 9 C MOVELITEM ITMLN C ITMLN CHAINPROD 02 C N02 TYPE COMP 'D' 02 C 02 GOTO END C SETON 0307 C TYPE COMP 'I' 06 C TYPE COMP 'H' 09 C TYPE COMP 'A' 10 C N06 Z-ADD0 LSPRCN C N06 Z-ADD0 APN C N06 Z-ADD0 AOPN C N06 Z-ADD0 SQFTN C N06 MOVE ' ' LABLN C N06 Z-ADD0 MWORKN C N06 Z-ADD0 AWORKN C N06 MOVE ' ' SPECN C N06 Z-ADD0 PRGRPN C N06 MOVE ' ' BARVNN C N06 MOVE ' ' BARITN C 10 MOVE ' ' DEPTN C 10 Z-ADD0 SBCATN C N06 GOTO ENDPRC C LSPRC SET KA C AMS,4 KEY LSPRCN 94 04 C 04 Z-ADDLSPRC LSPRCN C KA Z-ADD0 LSPRCN C AP,1 SET KA C AMS,5 KEY APN,1 04 C 04 Z-ADDAP,1 APN,1 C KA Z-ADD0 APN,1 C AP,2 SET KA C AMS,6 KEY APN,2 04 C 04 Z-ADDAP,2 APN,2 C KA Z-ADD0 APN,2 C AP,3 SET KA C AMS,7 KEY APN,3 04 C 04 Z-ADDAP,3 APN,3 C KA Z-ADD0 APN,3 C AP,4 SET KA C AMS,8 KEY APN,4 04 C 04 Z-ADDAP,4 APN,4 C KA Z-ADD0 APN,4 C AP,5 SET KA C AMS,9 KEY APN,5 04 C 04 Z-ADDAP,5 APN,5 C KA Z-ADD0 APN,5 C AP,6 SET KA C AMS,10 KEY APN,6 04 C 04 Z-ADDAP,6 APN,6 C KA Z-ADD0 APN,6 C AP,7 SET KA C AMS,11 KEY APN,7 04 C 04 Z-ADDAP,7 APN,7 C KA Z-ADD0 APN,7 C AP,8 SET KA C AMS,12 KEY APN,8 04 C 04 Z-ADDAP,8 APN,8 C KA Z-ADD0 APN,8 C AOP,1 SET KA C AMS,13 KEY AOPN,1 04 C 04 Z-ADDAOP,1 AOPN,1 C KA Z-ADD0 AOPN,1 C AOP,2 SET KA C AMS,14 KEY AOPN,2 04 C 04 Z-ADDAOP,2 AOPN,2 C KA Z-ADD0 AOPN,2 C AOP,3 SET KA C AMS,15 KEY AOPN,3 04 C 04 Z-ADDAOP,3 AOPN,3 C KA Z-ADD0 AOPN,3 C AOP,4 SET KA C AMS,16 KEY AOPN,4 04 C 04 Z-ADDAOP,4 AOPN,4 C KA Z-ADD0 AOPN,4 C AOP,5 SET KA C AMS,17 KEY AOPN,5 04 C 04 Z-ADDAOP,5 AOPN,5 C KA Z-ADD0 AOPN,5 C AOP,6 SET KA C AMS,18 KEY AOPN,6 04 C 04 Z-ADDAOP,6 AOPN,6 C KA Z-ADD0 AOPN,6 C AOP,7 SET KA C AMS,19 KEY AOPN,7 04 C 04 Z-ADDAOP,7 AOPN,7 C KA Z-ADD0 AOPN,7 C AOP,8 SET KA C AMS,20 KEY AOPN,8 04 C 04 Z-ADDAOP,8 AOPN,8 C KA Z-ADD0 AOPN,8 C ENDPRC TAG C DES SET KA C AMS,21 KEY DESN 27 C DESN COMP BLNK27 04 C 04 MOVE DES DESN C KA MOVE BLNK27 DESN C 10 GOTO END C 09 GOTO ENDFT C SQFT SET KA C AMS,22 KEY SQFTN 50 04 C 04 Z-ADDSQFT SQFTN C KA Z-ADD0 SQFTN C ENDFT TAG C DEPT SET KA C AMS,23 KEY DEPTN 2 C DEPTN COMP ' ' 04 C 04 MOVE DEPT DEPTN C KA MOVE ' ' DEPTN C N06 GOTO ENDSBC C LABL SET KA C AMS,24 KEY LABLN 1 C LABLN COMP ' ' 04 C 04 MOVE LABL LABLN C KA MOVE ' ' LABLN C MWORK SET KA C AMS,25 KEY MWORKN 52 04 C 04 Z-ADDMWORK MWORKN C KA Z-ADD0 MWORKN C AWORK SET KA C AMS,26 KEY AWORKN 52 04 C 04 Z-ADDAWORK AWORKN C KA Z-ADD0 AWORKN C ENDSBC TAG C SBCAT SET KA C AMS,27 KEY SBCATN 20 04 C 04 Z-ADDSBCAT SBCATN C KA Z-ADD0 SBCATN C N06 GOTO END C SPEC SET KA C AMS,28 KEY SPECN 1 C SPECN COMP ' ' 04 C 04 MOVE SPEC SPECN C KA MOVE ' ' SPECN C PRGRP SET KA C AMS,29 KEY PRGRPN 30 04 C 04 Z-ADDPRGRP PRGRPN C KA Z-ADD0 PRGRPN C BARVN SET KA C AMS,30 KEY BARVNN 5 C BARVNN COMP ' ' 04 C 04 MOVE BARVN BARVNN C KA MOVE ' ' BARVNN C BARIT SET KA C AMS,31 KEY BARITN 5 C BARITN COMP ' ' 04 C 04 MOVE BARIT BARITN C KA MOVE ' ' BARITN C END TAG ODISP H 22 1P O 24 'C H A N G E P R O D U ' O 29 'C T S' O H 01 1P O 24 'FOR ALL INPUT FIELDS THE' O 48 ' EXISTING VALUE WILL BE ' O 72 'DISPLAYED ABOVE THE PROM' O 75 'PT.' O H 01 1P O 13 'YOU MAY THEN:' O H 01 1P O 26 '1 - ENTER A NEW VALUE' O H 01 1P O 29 '2 - PRESS ENTER TO LEAVE' O 49 ' THE VALUE UNCHANGED' O H 01 1P O 29 '3 - PRESS COMMAND KEY 1 ' O 51 'TO BLANK OUT THE FIELD' O D 11 02 O 19 'NOT IN PRODUCT FILE' OPRT E 103 08 O CONAME 29 O 55 'PRODUCT BILLING INFORMAT' O 66 'ION CHANGED' O UDATE Y 78 O PAGE 132 O 128 'PAGE' O E 01 08 O 82 '-WORK VALUES-' O E 01 08 O 24 'ITEM# TYPE LINE DESCR' O 30 'IPTION' O 74 'SQ/FT DEPT LBL MAIN ' O 95 ' ADD ON SBCT SPEC' O 106 'PR/GROUP' O 116 'BAR CODE' O E 01 08 O 27 'LIST PRICE' O 53 'PRICE #1 PRICE #2' O 79 'PRICE #3 PRICE #4' O 105 'PRICE #5 PRICE #6' O 131 'PRICE #7 PRICE #8' O E 02 08 O 24 '************************' O *PLACE 48 O *PLACE 72 O *PLACE 96 O *PLACE 120 O 132 '************' O D 01 07 O ITEM 7 O 13 'O L D' O LINE 16 O DES 46 O 06 SQFT M 56 O N10 DEPT 60 O 06 LABL 64 O 06 MWORK K 74 O 06 AWORK K 83 O N10 SBCAT M 88 O 06 SPEC 93 O 06 PRGRP J 104 O 06 BARVN 113 O 06 BARIT 118 O D 01 07 06 O 15 'CURRENT PRICES' O LSPRC K 27 O AP,1 K 41 O AP,2 K 54 O AP,3 K 67 O AP,4 K 80 O AP,5 K 93 O AP,6 K 106 O AP,7 K 119 O AP,8 K 132 O D 01 07 06 O 15 'PREVIOUS PRICES' O AOP,1 K 41 O AOP,2 K 54 O AOP,3 K 67 O AOP,4 K 80 O AOP,5 K 93 O AOP,6 K 106 O AOP,7 K 119 O AOP,8 K 132 O D 01 07 O 13 'N E W' O DESN 46 O 06 SQFTN M 56 O N10 DEPTN 60 O 06 LABLN 64 O 06 MWORKNK 74 O 06 AWORKNK 83 O N10 SBCATNM 88 O 06 SPECN 93 O 06 PRGRPNJ 104 O 06 BARVNN 113 O 06 BARITN 118 O D 01 07 06 O 15 'CURRENT PRICES' O LSPRCNK 27 O APN,1 K 41 O APN,2 K 54 O APN,3 K 67 O APN,4 K 80 O APN,5 K 93 O APN,6 K 106 O APN,7 K 119 O APN,8 K 132 O D 01 07 06 O 15 'PREVIOUS PRICES' O AOPN,1K 41 O AOPN,2K 54 O AOPN,3K 67 O AOPN,4K 80 O AOPN,5K 93 O AOPN,6K 106 O AOPN,7K 119 O AOPN,8K 132 O D 01 07 OPROD D 03 O APN 52P O SQFTN 55P O DEPTN 57 O LABLN 58 O LSPRCN 63P O MWORKN 79P O AWORKN 82P O SBCATN 84 O SPECN 128 O PRGRPN 131 O DESN 160 O AOPN 200P O BARVNN 205 O BARITN 210 ** PRESS COMMAND KEY 7 & ENTER IF THERE ARE NO MORE ENTRIES TO BE MADE, OR ENTER ITEM NUMBER ENTER LINE NUMBER ENTER PRESENT LIST PRICE - 4 DECIMALS ENTER PRESENT PRICE #1 - 4 DECIMALS ENTER PRESENT PRICE #2 - 4 DECIMALS ENTER PRESENT PRICE #3 - 4 DECIMALS ENTER PRESENT PRICE #4 - 4 DECIMALS ENTER PRESENT PRICE #5 - 4 DECIMALS ENTER PRESENT PRICE #6 - 4 DECIMALS ENTER PRESENT PRICE #7 - 4 DECIMALS ENTER PRESENT PRICE #8 - 4 DECIMALS ENTER PREVIOUS PRICE #1 - 4 DECIMALS ENTER PREVIOUS PRICE #2 - 4 DECIMALS ENTER PREVIOUS PRICE #3 - 4 DECIMALS ENTER PREVIOUS PRICE #4 - 4 DECIMALS ENTER PREVIOUS PRICE #5 - 4 DECIMALS ENTER PREVIOUS PRICE #6 - 4 DECIMALS ENTER PREVIOUS PRICE #7 - 4 DECIMALS ENTER PREVIOUS PRICE #8 - 4 DECIMALS ENTER ITEM DESCRIPTION ENTER SQUARE FEET ENTER DEPARTMENT ENTER LABEL TYPE ENTER MAIN WORK VALUE TO 2 DECIMALS ENTER ADD ON WORK VALUE TO 2 DECIMALS ENTER DEPT. SUB CATEGORY (1-99, GROUPING FOR DEPT. WORK REPORT) ENTER S=SPECIAL ITEM, BLANK=NOT ENTER CUSTOMER PRICING GROUP NUMBER ENTER BAR CODE VENDOR NUMBER (5 CHARACTERS) ENTER BAR CODE ITEM NUMBER (5 CHAARACTERS) // CEND // COPY LIBRARY-S,NAME-JF0007,RECL-096,DATE-01/12/18,TIME-1304,SUB-RPG H B 1 JF0007 FPROD UPE F 400 400 9AI 1 DISK FCNTRL IC F 32 32R DISK FINP ID F 79 79 KEYBORD FDISP O F 79 79 CRT FPRT O F 132 132 OV PRINTER E AMS 1 4 79 E AF 30 7 E AT 30 7 IPROD AA 01 11NCD I OR 02 I 1 7 ITEM L1 I 134 160 DESC ICNTRL AA 1 C0 2 C0 3 C7 I 4 32 CONAME C 05 GOTO BEGIN C SETON 05 C 7 CHAINCNTRL C SETON 06 C EXCPT C SETOF 06 C Z-ADD31 I 20 C AGN1 TAG C AMS,1 SET KG C AMS,2 KEY FITEM 7 C KG GOTO BEGIN C AMS,3 KEY TITEM 7 C TITEM COMP ' ' 03 C 03 MOVE FITEM TITEM C AMS,4 KEY YESNO 1 C YESNO COMP 'Y' 03 C N03 GOTO AGN1 C I SUB 1 I 20 C MOVE FITEM AF,I C MOVE TITEM AT,I C I COMP 1 03 C 03 GOTO AGN1 C BEGIN TAG C NL1 GOTO ENDL1 C N01 GOTO ENDL1 C SETOF 04 C I SUB 1 J 20 C AGN2 TAG C J ADD 1 J C J COMP 30 03 C 03 GOTO ENDL1 C ITEM COMP AF,J 04 04 C 04 ITEM COMP AT,J 0404 C 04 GOTO ENDL1 C GOTO AGN2 C ENDL1 TAG OPRT E 103 06 O CONAME 29 O 55 'PRODUCTS DELETED' O UDATE Y 70 O E 02 06 O 55 '****************' O D 11 01 04 O L1 33 'THE FOLLOWING PRODUCT' O L1 45 'IS DELETED:' O L1 ITEM 55 O DESC 85 ODISP H 11 1P O 24 'D E L E T E P R O D U ' O 29 'C T S' OPROD D 01 04 O 11 'D' ** PRESS COMMAND KEY 7 & ENTER IF THERE ARE NO MORE ENTRIES TO BE MADE, OR ENTER FROM ITEM NUMBER OF PRODUCT TO BE DELETED (30 SETS MAXIMUM) ENTER THROUGH ITEM NUMBER (JUST PRESS ENTER IF SAME AS FROM ITEM NUMBER) ENTER WHETHER OR NOT OK (Y=YES, ANYTHING ELSE=NO) // CEND // COPY LIBRARY-S,NAME-JF0008,RECL-096,DATE-01/12/18,TIME-1304,SUB-RPG H B 1 JF0008 FPROD IP F 400 400 9AI 1 DISK FCNTRL IC F 32 32R DISK FINP ID F 79 79 KEYBORD FPRT O F 132 132 OV PRINTER E AMS 1 4 79 E AP 8 9 4 E AOP 8 9 4 IPROD AA 01 11 CD I BB 02 11NCD I 1 3 DUM3 I 1 7 ITEM I 8 90LINE I 11 11 TYPE I P 13 52 AP I 134 160 DESC I P 161 200 AOP ICNTRL AA 1 C0 2 C0 3 C7 I 4 32 CONAME C 03 GOTO BEGIN C SETON 03 C 7 CHAINCNTRL C AMS,1 KEY LOW 7 C AMS,2 KEY HIGH 7 C AMS,3 KEY PRICE 1 C PRICE COMP 'Y' 04 C 04 AMS,4 KEY CUROLD 1 C 04 CUROLD COMP 'O' 08 C SETON 09 C BEGIN TAG C N02 GOTO END C ITEM COMP LOW 02 02 C 02 ITEM COMP HIGH 0202 C N02 GOTO END C OV SETON 09 C N09 DUM3 COMP DUMOLD 09 C 09 EXCPT C 09 SETOF 09OV C LINE COMP 1 05 C 05 TYPE COMP 'I' 06 C 05 TYPE COMP 'H' 07 C MOVE DUM3 DUMOLD 3 C END TAG OPRT E 103 09 O CONAME 29 O E 01 09 O 08 10 'OLD PRICES' O N08 14 'CURRENT PRICES' O 04 102 'PRODUCT LIST -- AS OF' O N04 57 'PRODUCT LIST -- AS OF' O 04 UDATE Y 112 O N04 UDATE Y 67 O PAGE 132 O 128 'PAGE' O E 01 09 O 24 'ITEM# H/I DESCRIPTION' O 04 54 'CURRENT PRICE #1' O 04 76 'PRICE #2 PRICE #3' O 04 98 'PRICE #4 PRICE #5' O 04 120 'PRICE #6 PRICE #7' O 04 131 'PRICE #8' O E 01 09 O 24 '************************' O *PLACE 48 O *PLACE 72 O *PLACE 96 O *PLACE 120 O 132 '************' O D 01 02 05 O ITEM 7 O 06 10 'I' O 07 10 'H' O DESC 40 O 04 06N08AP,1 M 55 O 04 06N08AP,2 M 66 O 04 06N08AP,3 M 77 O 04 06N08AP,4 M 88 O 04 06N08AP,5 M 99 O 04 06N08AP,6 M 110 O 04 06N08AP,7 M 121 O 04 06N08AP,8 M 132 O 04 06 08AOP,1 M 55 O 04 06 08AOP,2 M 66 O 04 06 08AOP,3 M 77 O 04 06 08AOP,4 M 88 O 04 06 08AOP,5 M 99 O 04 06 08AOP,6 M 110 O 04 06 08AOP,7 M 121 O 04 06 08AOP,8 M 132 O D 01 02N05 O DESC 40 ** ENTER FROM ITEM NUMBER ENTER THROUGH ITEM NUMBER PRINT PRICES ? (Y=YES, N=NO) CURRENT OR OLD PRICES ? (C=CURRENT, O=OLD) // CEND // COPY LIBRARY-S,NAME-JF0009,RECL-096,DATE-01/12/18,TIME-1304,SUB-RPG H B 1 JF0009 FINP IP F 79 79 KEYBORD FHOUSE UC F 41 41R 9AI 1 DISK A FCNTRL IC F 32 32R DISK FBSEHSE UC F 13 13R 6AI 1 DISK A U1 FPROD IC F 400 400R 9AI 1 DISK FXHSSL O F 6 6 2 DISK FCHGHS O F 7 7 2 DISK A U1 FDISP O F 79 79 CRT FPRT O F 132 132 OV PRINTER E AMS 1 16 79 IHOUSE AA 01 I 10 10 TYPEF ICNTRL AA 1 C0 2 C0 3 C7 I 4 32 CONAME IBSEHSE AA IPROD AA 20 10 CD I BB C 22 GOTO BEGIN C SETON 22 C 7 CHAINCNTRL C SETON 23 C BEGIN TAG C OV SETON 23 C 23 EXCPT C 23 SETOF 23OV C SETOF 020304 C SETOF 050607 C SETOF 0815 C N09 GOTO ENTHSE C LINE ADD 1 LINE 30 C LINE COMP 0 10 C 10 AMS,6 KEY DESC2 27 C 10 AMS,7 KEY SGLPR 72 C 10 AMS,16 KEY BSEHSE 60 18 C 10 18 HSENO CHAINBSEHSE 11 C 10 MOVE 'B' TYPE C 10 SETON 141512 C 10 EXCPT C 10 SETOF 1412 C 10 GOTO DECIDE C AMS,1 SET KG C AMS,8 KEY TYPE 1 C TYPE COMP 'H' 06 C TYPE COMP 'D' 08 C N06N08NKG SETON 07 C N06N08NKG MOVE 'I' TYPE C 08 MOVE 'E' TYPE C KG SETOF 09 C ENTHSE TAG C 09 GOTO ITEM C SETON 05 C AMS,1 SET KG C AMS,2 KEY HSENO 60 C KG SETON LR C KG GOTO END C Z-SUB1 LINE C MOVE LINE LKEY 90 C MOVELHSENO LKEY C LKEY CHAINHOUSE 02 C N02 TYPEF COMP 'D' 03 C N02N03 SETON 04 C N02N03 EXCPT C N02N03 SETOF 04 C N02N03 GOTO END C AMS,3 KEY CNO 60 C MOVE 'A' TYPE C AMS,4 KEY CUSPR 1 C CUSPR COMP 'N' 2424 C 24 MOVE ' ' PRF 1 C 24 Z-ADD0 SPPR C AMS,5 KEY DESC1 27 C GOTO BEFEND C ITEM TAG C 07 AMS,9 KEY QUAN 40 C AGNITM TAG C 06 COR 07 AMS,10 KEY ITEM 7 C 06 COR 07 MOVE '01' PRDLNE 9 C 06 COR 07 MOVELITEM PRDLNE C 06 COR 07 PRDLNE CHAINPROD 20 C 06 20 COR 07 20 SETON 21 C 06 20 COR 07 20 EXCPT C 06 20 COR 07 20 SETOF 21 C 06 20 COR 07 20 GOTO AGNITM C 07 24 GOTO ENDPRC C 07 AMS,11 KEY PRF C 07 PRF COMP '0' 16 16 C 07 16 PRF COMP '9' 1616 C 07N16 MOVE '1' PRF C 07 PRF COMP '9' 16 C 07N16 Z-ADD0 SPPR 94 C 07 16 AMS,12 KEY SPPR C ENDPRC TAG C N07N08 GOTO ENDRLH C AMS,13 KEY LRF 1 C LRF COMP 'L' 16 C LRF COMP 'R' 17 C N16N17 MOVE ' ' LRF C ENDRLH TAG C 07 AMS,14 KEY LINFT 50 C 08 AMS,15 KEY DESC 27 C SETON 13 C EXCPT C SETOF 13 C DECIDE TAG C MOVE LINE LKEY C LKEY CHAINHOUSE 02 C N02 SETON 03 C BEFEND TAG C SETON 09 C END TAG OPRT E 003 23 O CONAME 29 O 62 'NEW HOUSES ADDED' O U2 74 '(ESTIMATED)' O UDATE Y 87 O E 22 14 O 31 'HOUSE NO CUST NO ' O 55 ' DESCRIPTION ' O 79 ' 1ST LINE ' O 103 '2ND LINE ' O 127 ' SINGLE LINE PRICE BAS' O 132 'E HSE' O E 02 14 O HSENO M 15 O CNO M 33 O DESC1 70 O DESC2 106 O N24 SGLPR A 120 O 24 120 'CUST PRC/TAB' O BSEHSEM 132 O E 02 12 O 31 ' LINE NO TY' O 55 'PE H/I/D QUAN ' O 79 'ITEM NO PRCODE SP ' O 103 'PRICE L/R DE' O 112 'SCRIPTION' O E 02 13 O LINE 23 O TYPE 35 O 07 QUAN J 49 O 06 ITEM 62 O 07 ITEM 62 O 07 PRF 70 O 07 SPPR B 85 O 07 LRF 91 O 08 LRF 91 O 08 DESC 121 OHOUSE DADD 02 O LKEY 9 O TYPE 10 O 05 DESC1 37 O 05 CNO 41P O 06 ITEM 17 O 07 ITEM 17 O 07 QUAN 21 O 07 PRF 22 O 07 LRF 23 O 07 SPPR 28P O 07 LINFT 31P O 08 DESC 37 O 08 LRF 38 O 15 DESC2 37 O 15 SGLPR 41P O D 03 O TYPE 10 O 05 DESC1 37 O 05 CNO 41P O 06 ITEM 17 O 07 ITEM 17 O 07 QUAN 21 O 07 PRF 22 O 07 LRF 23 O 07 SPPR 28P O 07 LINFT 31P O 08 DESC 37 O 08 LRF 38 O 15 DESC2 37 O 15 SGLPR 41P OBSEHSE EADD 14 18 11 O HSENO 6 O BSEHSE 12 O 13 'A' O E 14 18N11 O BSEHSE 12 O 13 'A' OXHSSL D 02 05 O OR 03 05 O HSENO 6 OCHGHS DADD 02 05 O OR 03 05 O HSENO 6 O 7 '9' ODISP E 11 04 O 21 'ALREADY IN HOUSE FILE' O E 11 21 O 24 '************************' O E 01 21 O 24 '***NOT IN PRODUCT FILE**' O E 01 21 O 24 '************************' ** PRESS COMMAND KEY 7 & ENTER IF THERE ARE NO MORE ENTRIES TO BE MADE, OR ENTER HOUSE NUMBER ENTER CUSTOMER NUMBER WILL THE CUSTOMER PRICING TABLE BE USED FOR PRICING (Y OR BLANK=YES, N=NO) ENTER FIRST LINE DESCRIPTION ENTER SECOND LINE DESCRIPTION ENTER SINGLE LINE PRICE ENTER LINE TYPE (H=HEADING, I OR BLANK=ITEM, D=DESC) OR CK7 FOR NEXT HOUSE ENTER ITEM QUANTITY ENTER ITEM NUMBER ENTER PRICE CODE (0=NO CHARGE, 1 OR BLANK=REGULAR, 2-8=REGULAR, 9=SPECIAL) ENTER SPECIAL PRICE TO 4 DECIMAL POSITIONS ENTER L=LEFT HAND, R=RIGHT HAND, OR BLANK IF NOT APPLICABLE ENTER LINEAR FEET ENTER ITEM DESCRIPTION ENTER BASE HOUSE NUMBER // CEND // COPY LIBRARY-S,NAME-JF0010,RECL-096,REF-000001,DATE-06/06/09,TIME-0741,SUB-RPG H B 1 JF0010 FHOUSE UPE F 41 41 9AI 1 DISK FCNTRL IC F 32 32R DISK FINP ID F 79 79 KEYBORD FBSEHSE UC F 13 13R 6AI 1 DISK U1 FCUSMAS IC F 600 600R 6AI 1 DISK FCHGHS O F 7 7 2 DISK A U1 FDISP O F 79 79 CRT FPRT O F 132 132 OV PRINTER E AMS 1 6 79 E AC 30 6 0 E AF 30 6 0 E AT 30 6 0 IHOUSE AA 01 10 CA I 1 60HSENO L1 I 11 37 DESC I P 38 410CNO7 I BB 02 10 CB I 1 60HSENO L1 I 11 37 DESC I CC 03 10NCX I 1 60HSENO L1 I CC 10 10 CX I 1 60HSENO L1 ICNTRL AA 1 C0 2 C0 3 C7 I 4 32 CONAME IBSEHSE AA ICUSMAS AA 04 600NCA I BB I 8 37 CNAME I 97 121 DEVCO C 05 GOTO BEGIN C SETON 05 C MOVE ' ' BLNK30 30 C 7 CHAINCNTRL C SETON 11 C EXCPT C SETOF 11 C AMS,1 KEY HC 1 C HC COMP 'C' 06 C Z-ADD31 I 20 C AGN1 TAG C N06 AMS,2 SET KG C N06 AMS,3 KEY FHSENO 60 C N06 KG GOTO BEGIN C N06 AMS,4 KEY THSENO 60 07 C N06 07 MOVE FHSENO THSENO C 06 AMS,2 SET KG C 06 AMS,5 KEY INPCNO 60 C 06 KG GOTO BEGIN C AMS,6 KEY YESNO 1 C YESNO COMP 'Y' 07 C N07 GOTO AGN1 C I SUB 1 I 20 C N06 Z-ADDFHSENO AF,I C N06 Z-ADDTHSENO AT,I C 06 Z-ADDINPCNO AC,I C I COMP 1 07 C 07 GOTO AGN1 C BEGIN TAG C NL1 GOTO ENDL1 C SETOF 08 C N06 I SUB 1 J 20 C AGN2 TAG C N06 J ADD 1 J C N06 J COMP 30 07 C N06 07 GOTO ENDL1 C N06 HSENO COMP AF,J 08 08 C N06 08 HSENO COMP AT,J 0808 C 06 01 Z-ADDCNO7 CNO 60 C 06 01 Z-ADDI J C 06 01 CNO LOKUPAC,J 08 C 08 MOVE BLNK30 CNAME C 08 MOVE BLNK30 DEVCO C 08 Z-ADDCNO7 CNO 60 C 08 CNO CHAINCUSMAS 04 C 08 HSENO CHAINBSEHSE 09 C 08 GOTO ENDL1 C N06 GOTO AGN2 C ENDL1 TAG ODISP H 11 1P O 24 'D E L E T E E N T I R ' O 39 'E H O U S E S' OPRT E 103 11 O CONAME 29 O 59 'H O U S E S D E L E T ' O 62 'E D' O UDATE Y 78 O E 01 11 O 59 '************************' O 62 '***' O E 01 11 O 10 'HOUSE$' O 26 'DESCRIPTION' O 70 'CUSTOMER#/NAME/DEVEL CO' O E 01 11 O 24 '************************' O *PLACE 48 O *PLACE 72 O *PLACE 96 O *PLACE 120 O 132 '************' O D 11 01 08 O HSENO M 10 O DESC 42 O CNO 53 O CNAME 88 O DEVCO 118 O D 01 02 08 O DESC 42 OCHGHS DADD 01 L1 08 O HSENO 6 O 7 '1' OHOUSE D 01 08 O OR 02 08 O OR 03 08 O OR 10 08 O 10 'D' OBSEHSE D L1 08N09 O 13 'D' ** DO YOU WISH TO DELETE HOUSES BY HOUSE# OR CUSTOMER# ? (ENTER H OR C) PRESS COMMAND KEY 7 & ENTER IF THERE ARE NO MORE ENTRIES TO BE MADE, OR ENTER FROM HOUSE NUMBER TO BE DELETED (30 MAX) ENTER THROUGH HOUSE NUMBER (JUST PRESS ENTER IF SAME AS FROM HOUSE NUMBER) ENTER CUSTOMER# WHOSE HOUSES ARE TO BE DELETED (30 MAX) ENTER WHETHER OR NOT OK (Y=YES,N=NO) // CEND // COPY LIBRARY-S,NAME-JF0011,RECL-096,DATE-01/12/18,TIME-1304,SUB-RPG H B 1 JF0011 FINP IP F 79 79 KEYBORD FCNTRL IC F 32 32R DISK FHOUSE IC F 41 41R 9AI 1 DISK FPROD IC F 400 400R 9AI 1 DISK FXADHS O F 64 64 12AI 1 DISK U FCHGHS O F 7 7 2 DISK A U8 FXHSSL O F 6 6 2 DISK FDISP O F 79 79 CRT FPRT O F 132 132 OV PRINTER E AMS 1 14 79 E AH 50 6 0 ICNTRL AA 1 C0 2 C0 3 C7 I 4 32 CONAME IHOUSE AA 03 10 CD I BB 02 10 CX I CC 01 10NCD 10NCX I 10 41 RECORD IPROD AA 21 10 CD I BB C 23 GOTO BEGIN C SETON 23 C Z-ADD0 Z5 50 C Z-ADD0 Z9 90 C 7 CHAINCNTRL C SETON 24 C BEGIN TAG C OV SETON 24 C 24 EXCPT C 24 SETOF 24OV C SETOF 101112 C 04 GOTO TGTYPE C SETON 04 C TGHSE TAG C SETOF 050603 C Z-ADD0 LINE 60 C AMS,1 SET KG C AMS,2 KEY HOUSE 60 C KG SETON LR C KG GOTO END C HOUSE LOKUPAH 05 C 05 EXCPT C 05 GOTO TGHSE C Z-SUB1 KEY 90 C MOVELHOUSE KEY C KEY CHAINHOUSE 06 C 03 SETON 06 C 06 EXCPT C 06 GOTO TGHSE C I ADD 1 I 20 C I COMP 51 LR C LR SETON 07 C LR EXCPT C LR SETOF 07 C LR GOTO END C Z-ADDHOUSE AH,I C AMS,3 KEY CUSPR 1 C CUSPR COMP 'N' 2525 C 25 MOVE ' ' PRCODE 1 C 25 Z-ADD0 SPPRC C TGLINE TAG C AMS,1 SET KG C AMS,4 KEY PRELNE 30 0808 C KG GOTO TGHSE C 08 Z-ADD0 PRELNE C MOVELPRELNE LINE C TGTYPE TAG C AMS,1 SET KG C AMS,5 KEY TYPEIN 1 C KG GOTO TGLINE C MOVE TYPEIN TYPE 1 C 'H' COMP TYPE 10 C 'D' COMP TYPE 12 C N10N12 MOVE 'I' TYPE C N10N12 SETON 11 C 12 MOVE 'E' TYPE C 12 GOTO TGLRH C 11 AMS,6 KEY QUAN 40 C AGNITM TAG C AMS,7 KEY ITEM 7 C MOVE '01' PRDLNE 9 C MOVELITEM PRDLNE C PRDLNE CHAINPROD 21 C 21 SETON 22 C 21 EXCPT C 21 SETOF 22 C 21 GOTO AGNITM C 10 GOTO ACCEPT C 25 GOTO TGLRH C AMS,8 KEY PRCODE C PRCODE COMP '0' 08 08 C 08 PRCODE COMP '9' 0808 C N08 MOVE '1' PRCODE C PRCODE COMP '9' 08 C N08 Z-ADD0 SPPRC 94 C 08 AMS,9 KEY SPPRC C TGLRH TAG C AMS,10 KEY LR 1 C 'L' COMP LR 08 C 'R' COMP LR 17 C N08N17 MOVE ' ' LR C 11 AMS,11 KEY LNFT 50 C 12 AMS,12 KEY DESC 27 C ACCEPT TAG C AMS,13 KEY REAS 20 C AMS,14 KEY YN 1 C YN COMP 'N' 08 C 08 SETOF 101112 C 08 GOTO TGTYPE C LINE ADD 1 LINE C SETON 09 C EXCPT C SETOF 09 C END TAG CLR Z-ADD0 AKEY 120 CLR LRHSE TAG CLR Z-ADD0 KEY CLR J ADD 1 J 20 CLR J COMP I 08 CLR 08 GOTO LREND CLR MOVELAH,J KEY CLR LRLNE TAG CLR KEY ADD 1 KEY CLR SETOF 01 CLR KEY CHAINHOUSE 08 CLR 08 GOTO LRHSE CLR 01 MOVELKEY AKEY CLR 01 SETON 20 CLR 01 EXCPT CLR 01 SETOF 20 CLR GOTO LRLNE CLR LREND TAG OPRT E 004 24 O CONAME 29 O 71 'A D D L I N E S T O ' O 84 ' H O U S E S' O UDATE Y 99 O 124 'PAGE' O PAGE 128 O E 10 24 O 71 '************************' O 84 '*************' O E 10 24 O 26 'HOUSE NO PRECEDING ' O 32 ' TYPE' O E 10 24 O 24 'LINE NO' O 51 '(H/I/D) QUAN ' O 75 ' ITEM NO PR CODE ' O 99 ' SP PRICE L/R ' O 116 'LIN FT DESCRIPTION' O E 11 24 O 24 '************************' O *PLACE 48 O *PLACE 72 O *PLACE 96 O *PLACE 120 O 132 '************' ODISP H 11 1P O 24 'A D D L I N E S T O ' O 37 ' H O U S E S' O H 01 1P O 30 'DELETED LINES WILL BE RE' O 35 'MOVED' O H 01 1P O 30 'GOOD LINES WILL BE RENUM' O 35 'BERED' O E 11 05 O 24 'HOUSE PREVIOUSLY USED' O E 11 06 O 24 'HOUSE NOT IN FILE' O E 11 07 O 24 'ONLY 50 HOUSES ALLOWED -' O 41 ' PROGRAM WILL END' O E 11 22 O 24 '************************' O E 01 22 O 24 '***NOT IN PRODUCT FILE**' O E 01 22 O 24 '************************' OXADHS D 10 O HOUSE 6 O LINE 12 O TYPE 13 O ITEM 20 O REAS 64 O D 11 O HOUSE 6 O LINE 12 O TYPE 13 O ITEM 20 O QUAN 24 O PRCODE 25 O LR 26 O Z9 31P O SPPRC 31P O LNFT 34P O REAS 64 O D 12 O HOUSE 6 O LINE 12 O TYPE 13 O DESC 40 O LR 41 O REAS 64 O E LR 20 O AKEY 12 O RECORD 44 OCHGHS EADD 09 U8 O HOUSE 6 O 7 '2' OXHSSL E 09 O HOUSE 6 OPRT E 01 09 O HOUSE M 9 O PRELNE 21 O TYPEIN 31 O 11 QUAN J 45 O ITEM 59 O 11 PRCODE 70 O 11 SPPRC B 91 O 11 LR 94 O 12 LR 94 O 11 LNFT J 102 O 12 DESC 132 ** PRESS COMMAND KEY 7 & ENTER IF THERE ARE NO MORE ENTRIES TO BE MADE, OR ENTER HOUSE NUMBER WILL THE CUSTOMER PRICING TABLE BE USED FOR PRICING (Y OR BLANK=YES, N=NO) ENTER PRECEDING LINE NUMBER ENTER LINE TYPE (H=HEADING, I OR BLANK=ITEM, D=DESCRIPTION) ENTER QUANTITY ENTER ITEM NUMBER ENTER PRICE CODE (0=NO CHARGE, 1 OR BLANK=REGULAR, 2-8=REGULAR, 9=SPECIAL) ENTER SPECIAL PRICE ENTER WHETHER LEFT OR RIGHT HAND (L=LEFT, R=RIGHT) ENTER LINEAR FEET ENTER DESCRIPTION ENTER AUTHORIZATION/REASON FOR ADDING LINE ENTER WHETHER OR NOT OK (Y=YES, N=NO) // CEND // COPY LIBRARY-S,NAME-JF0012,RECL-096,REF-000001,DATE-06/03/27,TIME-1006,SUB-RPG H B 1 JF0012 FINP IP F 79 79 KEYBORD FCNTRL IC F 32 32R DISK FHOUSE UC F 41 41R 9AI 1 DISK U1 FXLOADO UC F 100 100R 9AI 1 DISK U2 FPROD IC F 400 400R 9AI 1 DISK FXHSSL O F 6 6 2 DISK U1 FXCHGLD O F 7 7 DISK U3 FHSECHG UC F 80 80R10AI 1 DISK A U8 FCHGHS O F 7 7 2 DISK A U8 FDISP O F 79 79 CRT FPRT O F 132 132 OV PRINTER U1 E AMS 1 26 79 ICNTRL AA 1 C0 2 C0 3 C7 I 4 32 CONAME IHOUSE AA 01 10 CX I OR 10 CD I BB 02 10 CH I 7 41 HSREC I 11 17 ITEM I CC 03 10 CI I 7 41 HSREC I 11 17 ITEM I 18 210QUAN I 22 22 PRCD I 23 23 LRLR I P 24 284PR99 I P 29 310LNFT I DD 04 10 CE I 7 41 HSREC I 11 37 DESC I 38 38 LRLR IXLOADO AA 01 10 CX I OR 10 CD I AA 10 CF I 67 67 OFCRED I BB 02 10 CI 20 CH I 21 27 ITEM I 53 53 XPRLD I 54 54 XPRCR I CC 03 10 CI 20 CI I 21 27 ITEM I 28 310QUAN I 32 32 PRCD I 33 33 LRLR I P 34 384PR99 I P 39 410LNFT I P 52 540QTYIN I P 55 570QTYBO I P 58 600QTYRB I P 61 630OQUAN I DD 04 10 CI 20 CE I 21 47 DESC I 48 48 LRLR I 53 53 XPRLD I 54 54 XPRCR I WW 05 10 CI 20 CM I P 21 230QUAN5 I 24 24 LRLR I P 25 294PR99 I P 30 320LINFT I 33 59 DESC I P 60 620QTYIN I P 63 650QTYBO I P 66 680QTYRB I 69 70 DEPT I 71 71 LABEL I P 72 742MWORK I P 75 772AWORK I 78 790DPCAT IPROD AA 20 10 CD I BB IHSECHG AA C 24 GOTO BEGIN C SETON 24 C Z-ADD0 Z5 50 C MOVE ' ' BLNK27 27 C MOVE ' ' BLNK32 32 C MOVE ' ' BLNK60 60 C 7 CHAINCNTRL C SETON 25 C EXCPT C SETOF 25 C BEGIN TAG C SETOF 1015 C SETOF 070809 C U2 MOVE AMS,3 AMS,2 C AMS,1 SET KG C AMS,2 KEY HSENO 60 C KG SETON LR C KG GOTO END C U2 MOVELHSENO HSELN 9 C U2 MOVE '00I' HSELN C U2 MOVE ' ' OFCRED C U2 HSELN CHAINXLOADO 15 C U2 OFCRED COMP 'X' 11 C AMS,4 KEY CUSPR 1 C CUSPR COMP 'N' 2626 C AMS,5 KEY LINE 30 9999 C 99 Z-ADD1 LINE C MOVE LINE HSELN C MOVELHSENO HSELN C U1 HSELN CHAINHOUSE 15 C U2 HSELN CHAINXLOADO 15 C N15 SETON 06 C N15 EXCPT C N15 SETOF 06 C N15 01 SETON 15 C 15 GOTO END C 02 MOVE 'H' TYPE 1 C 03 MOVE 'I' TYPE C 04 MOVE 'D' TYPE C 05 MOVE 'I' TYPE C 05 Z-ADDQUAN5 QUAN C 05 MOVE '9999999' ITEM C TYPE SET KA C AMS,6 KEY TYPEN 1 C TYPEN COMP ' ' 99 C 99 MOVE TYPE TYPEN C KA MOVE ' ' TYPEN C TYPEN COMP 'H' 07 C TYPEN COMP 'D' 09 C N07N09 SETON 08 C 09 GOTO ENLRLR C 08 QUAN SET KA C 08 AMS,7 KEY QUANN 40 99 C 08 99 Z-ADDQUAN QUANN C 08 KA Z-ADD0 QUANN C AGNOQT TAG C 08 11 OQUAN SET KA C 08 11 AMS,8 KEY OQUANN 50 C 08 11 99 Z-ADDOQUAN OQUANN C 08 11 KA Z-ADD0 OQUANN C 08 11 QUANN COMP OQUANN 13 C 08 11 13 SETON 14 C 08 11 13 EXCPT C 08 11 13 SETOF 14 C 08 11 13 GOTO AGNOQT C 08 U2 QTYIN SET KA C 08 U2 AMS,23 KEY QTYINN 50 99 C 08 U2 99 Z-ADDQTYIN QTYINN C 08 U2 KA Z-ADD0 QTYINN C 08 U2 QTYBO SET KA C 08 U2 AMS,24 KEY QTYBON 50 99 C 08 U2 99 Z-ADDQTYBO QTYBON C 08 U2 KA Z-ADD0 QTYBON C 08 U2 QTYRB SET KA C 08 U2 AMS,25 KEY QTYRBN 50 99 C 08 U2 99 Z-ADDQTYRB QTYRBN C 08 U2 KA Z-ADD0 QTYRBN C AGNITM TAG C MOVE ' ' PRCDN 1 C Z-ADD0 PR99N C ITEM SET KA C AMS,9 KEY ITEMN 7 C ITEMN COMP ' ' 99 C 99 MOVE ITEM ITEMN C KA MOVE ' ' ITEMN C ITEMN COMP '9999999' 10 C U1 10 SETON 17 C U1 10 EXCPT C U1 10 SETOF 17 C U1 10 GOTO END C N10 MOVE '01' PRDLNE 9 C N10 MOVELITEMN PRDLNE C N10 PRDLNE CHAINPROD 20 C N10 20 SETON 21 C N10 20 EXCPT C N10 20 SETOF 21 C N10 20 GOTO AGNITM C 07 11 XPRLD SET KA C 07 11 AMS,10 KEY XPRLDN 1 C 07 11 XPRLDN COMP ' ' 99 C 07 11 99 MOVE XPRLD XPRLDN C 07 11 KA MOVE ' ' XPRLDN C 07 11 XPRCR SET KA C 07 11 AMS,11 KEY XPRCRN 1 C 07 11 XPRCRN COMP ' ' 99 C 07 11 99 MOVE XPRCR XPRCRN C 07 11 KA MOVE ' ' XPRCRN C 09 GOTO ENLRLR C 07 GOTO RECUPD C 10 MOVE '9' PRCDN C 10 GOTO PRICE C 26 GOTO ENLRLR C PRCD SET KA C AMS,12 KEY PRCDN 1 C PRCDN COMP ' ' 99 C 99 MOVE PRCD PRCDN C KA MOVE ' ' PRCDN C PRCDN COMP '0' 16 16 C 16 PRCDN COMP '9' 1616 C N16 MOVE '1' PRCDN C PRICE TAG C PRCDN COMP '9' 23 C N23 Z-ADD0 PR99N C 23 PR99 SET KA C 23 AMS,13 KEY PR99N 94 99 C 23 99 Z-ADDPR99 PR99N C 23 KA Z-ADD0 PR99N C 23 PR99N COMP 0 99 C 23 99 AMS,14 KEY YN 1 C 23 99 YN COMP 'N' 99 C 23 99 GOTO PRICE C ENLRLR TAG C LRLR SET KA C AMS,15 KEY LRLRN 1 C LRLRN COMP ' ' 99 C 99 MOVE LRLR LRLRN C KA MOVE ' ' LRLRN C LRLRN COMP 'L' 18 C LRLRN COMP 'R' 19 C N18N19 MOVE ' ' LRLRN C 09 GOTO DESCR C LNFT SET KA C AMS,16 KEY LNFTN 50 99 C 99 Z-ADDLNFT LNFTN C KA Z-ADD0 LNFTN C DESCR TAG C 08N10 GOTO RECUPD C DESC SET KA C AMS,17 KEY DESCN 27 C DESCN COMP BLNK27 99 C 99 MOVE DESC DESCN C KA MOVE BLNK27 DESCN C N10 GOTO RECUPD C DEPT SET KA C AMS,18 KEY DEPTN 2 C DEPTN COMP ' ' 99 C 99 MOVE DEPT DEPTN C KA MOVE ' ' DEPTN C LABEL SET KA C AMS,19 KEY LABELN 1 C LABELN COMP ' ' 99 C 99 MOVE LABEL LABELN C KA MOVE ' ' LABELN C MWORK SET KA C AMS,20 KEY MWORKN 52 99 C 99 Z-ADDMWORK MWORKN C KA Z-ADD0 MWORKN C AWORK SET KA C AMS,21 KEY AWORKN 52 99 C 99 Z-ADDAWORK AWORKN C KA Z-ADD0 AWORKN C DPCAT SET KA C AMS,22 KEY DPCATN 20 99 C 99 Z-ADDDPCAT DPCATN C KA Z-ADD0 DPCATN C RECUPD TAG C U8 AMS,26 KEY REAS 20 C U1 HSELN CHAINHOUSE C U2 HSELN CHAINXLOADO C SETOF 22 C U8 TYPE COMP TYPEN 2222 C U8N22 07ITEM COMP ITEMN 2222 C U8N22 08QUAN COMP QUANN 2222 C U8N22 08ITEM COMP ITEMN 2222 C U8N22 08PRCD COMP PRCDN 2222 C U8N22 08PR99 COMP PR99N 2222 C U8N22 08LRLR COMP LRLRN 2222 C U8N22 08LNFT COMP LNFTN 2222 C U8N22 09LRLR COMP LRLRN 2222 C U8N22 09DESC COMP DESCN 2222 C 22 MOVELHSENO AHSKYF 10 C 22 MOVELHSENO AHSKYT 10 C 22 Z-ADD0 SQNO4 40 C AGNAHS TAG C 22 SQNO4 ADD 1 SQNO4 C 22 MOVE SQNO4 AHSKYF C 22 AHSKYF CHAINHSECHG 99 C 22N99 GOTO AGNAHS C 22 SQNO4 ADD 1 SQNO4 C 22 MOVE SQNO4 AHSKYT C SETON 12 C EXCPT C SETOF 12 C END TAG OPRT E 304 25 O CONAME 29 O U1 59 'LINES CHANGED IN HOUSES' O U2 60 'LINES CHANGED IN LOADS -' O U2NU3 78 'NOT YET PROCESSED' O U2 U3 78 'ALREADY PROCESSED' O UDATE Y 74 O E 01 25 O 20 'HOUSE LINE' O 57 'TYPE (H/I/D) QUAN ' O 81 ' ITEM NO PRCODE S' O 101 'P PRICE L/R LIN FT' O 116 'DESCRIPTION' O E 02 25 O 24 '************************' O *PLACE 48 O *PLACE 72 O *PLACE 96 O *PLACE 120 O 132 '************' O E 01 12 O HSENO M 12 O LINE 19 O 33 'PRESENT' O TYPE 38 O 02 ITEM 67 O 03 QUAN C 54 O 03 ITEM 67 O 03 PRCD 74 O 03 PR99 B 91 O 03 LRLR 93 O 04 LRLR 93 O 03 LNFT J 101 O 04 DESC 132 O E 02 12 O 29 'NEW' O TYPEN 38 O 07 ITEMN 67 O 08 QUANN C 54 O 08 ITEMN 67 O 08 PRCDN 74 O 08 PR99N B 91 O 08 LRLRN 93 O 09 LRLRN 93 O 08 LNFTN J 101 O 09 DESCN 132 OXHSSL E 12 U1 O HSENO 6 OHSECHG EADD 12 22 O AHSKYF 10 O UDATE 16 O HSREC 51 O 52 'F' O REAS 72 O 80 'A' O EADD 12 22 O AHSKYT 10 O UDATE 16 O LINE 19 O 07 20 'H' O 08 20 'I' O 09 20 'E' O 07 ITEMN 27 O 08 ITEMN 27 O 08 QUANN 31 O 08 PRCDN 32 O 08 LRLRN 33 O 08 PR99N 38P O 08 LNFTN 41P O 09 DESCN 47 O 09 LRLRN 48 O 52 'T' O REAS 72 O 80 'A' OCHGHS EADD 12 U8 O HSENO 6 O 7 '3' OXCHGLD E 12 U2 O HSENO 6 ODISP H 22 1P O 24 'C H A N G E L I N E S ' O U1 43 ' I N H O U S E S' O U2NU3 48 ' I N L O A D S - NOT ' O U2NU3 61 'YET PROCESSED' O U2 U3 48 ' I N L O A D S - ALRE' O U2 U3 61 'ADY PROCESSED' O H 01 1P O 24 'FOR ALL INPUT FIELDS THE' O 48 ' EXISTING VALUE WILL BE ' O 72 'DISPLAYED ABOVE THE PROM' O 75 'PT.' O H 01 1P O 13 'YOU MAY THEN:' O H 01 1P O 26 '1 - ENTER A NEW VALUE' O H 01 1P O 29 '2 - PRESS ENTER TO LEAVE' O 49 ' THE VALUE UNCHANGED' O H 01 1P O 29 '3 - PRESS COMMAND KEY 1 ' O 51 'TO BLANK OUT THE FIELD' O D 11 15 O U1 17 'HOUSE NOT IN FILE' O U2 16 'LOAD NOT IN FILE' O E 11 17 O 23 'CANNOT USE MANUAL ITEM#' O E 11 21 O 24 '************************' O E 01 21 O 24 '***NOT IN PRODUCT FILE**' O E 01 21 O 24 '************************' O E 11 14 O 24 'QUANTITY ORDERED LARGER ' O 48 'THAN ORIGINAL QUANTITY O' O 72 'N HOUSE - PLEASE REENTER' OHOUSE E 06 O E 12 O BLNK32 41 O 07 10 'H' O 08 10 'I' O 09 10 'E' O 07 ITEMN 17 O 08 ITEMN 17 O 08 QUANN 21 O 08 PRCDN 22 O 08 LRLRN 23 O 08 PR99N 28P O 08 LNFTN 31P O 09 DESCN 37 O 09 LRLRN 38 OXLOADO E 06 U2 O E 12 U2 O 07 20 'H' O 08N10 20 'I' O 08 10 20 'M' O 09 20 'E' O 07 ITEMN 27 O 08N10 ITEMN 27 O 08N10 QUANN 31 O 08N10 PRCDN 32 O 08N10 LRLRN 33 O 08N10 PR99N 38P O 08N10 LNFTN 41P O 08N10 QTYINN 54P O 08N10 QTYBON 57P O 08N10 QTYRBN 60P O 08N10 11OQUANN 63P O 08 10 QUANN 23P O 08 10 LRLRN 24 O 08 10 PR99N 29P O 08 10 LNFTN 32P O 08 10 DESCN 59 O 08 10 QTYINN 62P O 08 10 QTYBON 65P O 08 10 QTYRBN 68P O 08 10 DEPTN 70 O 08 10 LABELN 71 O 08 10 MWORKN 74P O 08 10 AWORKN 77P O 08 10 DPCATN 79 O 09 DESCN 47 O 09 LRLRN 48 O 07 11 XPRLDN 53 O 07 11 XPRCRN 54 ** PRESS COMMAND KEY 7 & ENTER IF THERE ARE NO MORE ENTRIES TO BE MADE, OR ENTER HOUSE NUMBER ENTER LOAD NUMBER WILL THE CUSTOMER PRICING TABLE BE USED FOR PRICING (Y OR BLANK=YES, N=NO) ENTER LINE NUMBER ENTER LINE TYPE - H=HEADING, I=ITEM, D=DESCRIPTION ENTER QUANTITY ORDERED ENTER QUANTITY ORIGINALLY ON HOUSE (FOR OFF & CREDIT) ENTER ITEM NUMBER ENTER X IF LINE NOT TO PRINT ON LOAD, BLANK OTHERWISE (FOR OFF & CREDIT) ENTER X IF LINE NOT TO PRINT ON CREDIT, BLANK OTHERWISE (FOR OFF & CREDIT) ENTER PRICE CODE - 0-9 ENTER SPECIAL PRICE ARE YOU SURE THIS ITEM HAS NO PRICE ? (Y=YES, N=NO) ENTER L=LEFT, R=RIGHT HAND ENTER LINEAR FEET ENTER DESCRIPTION ENTER DEPARTMENT ENTER LABEL TYPE ENTER MAIN WORK VALUE (2 DECIMALS) ENTER ADD ON WORK VALUE (2 DECIMALS) ENTER DEPT SUB CATEGORY # ENTER QUANTITY ALREADY INVOICED ENTER QUANTITY BACK ORDERED ENTER QUANTITY RBO ENTER AUTHORIZATION/REASON FOR CHANGING LINE // CEND // COPY LIBRARY-S,NAME-JF0013,RECL-096,DATE-01/10/08,TIME-1357,SUB-RPG H B 1 JF0013 FINP IP F 79 79 KEYBORD FHOUSE UC F 41 41R 9AI 1 DISK FCHGHS O F 7 7 2 DISK A U8 FHSECHG UC F 80 80R10AI 1 DISK A U8 FXHSSL O F 6 6 2 DISK FDISP O F 79 79 CRT E AMS 1 4 79 IHOUSE AA 01 I 7 41 RECORD I 10 10 TYPE IHSECHG AA C SETOF 0203 C AMS,1 SET KG C AMS,2 KEY HSENO 60 C KG SETON LR C KG GOTO END C AMS,3 KEY LINE 30 0303 C 03 GOTO END C MOVE LINE HLN 90 C MOVELHSENO HLN C HLN CHAINHOUSE 03 C N03 TYPE COMP 'D' 03 C N03 TYPE COMP 'X' 03 C N03 SETON 02 C N02 GOTO END C AMS,4 KEY REAS 20 C NU8 GOTO END C MOVELHSENO CKEY 10 C Z-ADD0 CSQNO 40 C AGN1 TAG C CSQNO ADD 1 CSQNO C MOVE CSQNO CKEY C CKEY CHAINHSECHG 04 C N04 GOTO AGN1 C END TAG ODISP H 11 1P O 24 'D E L E T E L I N E S ' O 48 ' F R O M H O U S E S ' O U8 63 '- ACTIVE HOUSES' O NU8 66 '- EXTIMATED HOUSES' O D 11 03 O 22 'LINE NOT IN HOUSE FILE' OHOUSE D 02 O 10 'X' OCHGHS DADD 02 U8 O HSENO 6 O 7 '4' OHSECHG DADD 02 U8 O CKEY 10 O UDATE 16 O RECORD 51 O 52 'D' O REAS 72 O 80 'A' OXHSSL D 02 O HSENO 6 ** PRESS COMMAND KEY 7 & ENTER IF THERE ARE NO MORE ENTRIES TO BE MADE, OR ENTER HOUSE NUMBER ENTER LINE NUMBER TO BE DELETED ENTER AUTHORIZATION/REASON FOR DELETING LINE // CEND // COPY LIBRARY-S,NAME-JF0014,RECL-096,REF-000001,DATE-04/02/04,TIME-1032,SUB-RPG H B 1 JF0014 FHOUSE IP F 41 41 9AI 1 DISK FCNTRL IC F 32 32R DISK FCUSMAS IC F 600 600R 6AI 1 DISK FINP ID F 79 79 KEYBORD FPRT O F 132 132 OV PRINTER E AMS 1 2 79 IHOUSE AA 01 10NCA 10NCB I BB 02 10 CA I 11 37 DESC1 I P 38 410CNO7 I DD 04 10 CB I 1 60HSENO I 11 37 DESC2 ICNTRL AA 1 C0 2 C0 3 C7 I 4 32 CONAME ICUSMAS CC 03 I 8 37 CNAME I 97 121 DEVCO I 600 600 ACTV C 05 GOTO BEGIN C SETON 05 C 7 CHAINCNTRL C AMS,1 KEY LOW 60 C AMS,2 KEY HIGH 60 C SETON 08 C BEGIN TAG C OV SETON 08 C 08 EXCPT C 08 SETOF 08OV C 01 COR 02 GOTO END C HSENO COMP LOW 06 06 C 06 HSENO COMP HIGH LR0606 C N06 GOTO END C MOVELHSENO HSE4 40 C MOVE HSENO HSE2 20 C Z-ADDCNO7 CNO 60 C CNO CHAINCUSMAS 07 C N07 ACTV COMP 'D' 07 C END TAG OPRT E 203 08 O CONAME 29 O* U1 67 'REGULAR' O U2 67 'ESTIMATED' O 92 'HOUSE SUMMARY LIST BY HO' O 96 'USE#' O 105 '-- AS OF' O UDATE Y 115 O E 03 08 O 7 'HOUSE #' O 20 'DESCRIPTION' O 91 'CUSTOMER NUMBER, NAME, &' O 105 'DEVELOPMENT CO' O D 02 04 06 O HSE4 4 O 5 '-' O HSE2 7 O DESC1 36 O DESC2 64 O CNO M 73 O N07 CNAME 105 O 07 99 '(NOT IN CUSTOMER LIST)' O DEVCO 132 ** ENTER FROM HOUSE NUMBER FOR LISTING ENTER THROUGH HOUSE NUMBER FOR LISTING // CEND // COPY LIBRARY-S,NAME-JF0015,RECL-096,REF-000003,DATE-01/03/23,TIME-1226,SUB-RPG H B 1 JF0015 FINP IP F 79 79 KEYBORD FHOUSE IC F 41 41R 9AI 1 DISK FXHSEL O F 47 47 2 DISK FXHSCH O F 4 4 DISK E AMS 1 8 79 E AF 30 7 0 E AT 30 7 0 E AN 30 3 0 IHOUSE AA 01 10 CX I BB 02 10 CD I CC 03 10NCX 10NCD I 1 41 REC C AMS,1 KEY YESNO 1 C YESNO COMP 'Y' 08 C 08 AMS,2 KEY CUROLD 1 C 08 AMS,3 KEY RPNTBL 1 C AMS,4 KEY DATE 60 09 C 09 Z-ADDUDATE DATE C AGN1 TAG C AMS,5 SET KG C AMS,6 KEY HSENO 60 C KG GOTO BEGIN C J ADD 1 J 20 C Z-ADDHSENO AF,J C AMS,7 KEY HSENO 04 C Z-ADDHSENO AT,J C 04 Z-ADDAF,J AT,J C AMS,8 KEY AN,J 04 C 04 Z-ADD1 AN,J C J COMP 30 04 C N04 GOTO AGN1 C BEGIN TAG C I ADD 1 I 30 C I COMP J 04 C 04 SETON LR C 04 GOTO END C AN,I ADD 1 COPIES 30 C COPIES TAG C COPIES SUB 1 COPIES 04 C 04 GOTO BEGIN C AF,I SUB 1 RUNHNO 70 C AGNHNO TAG C RUNHNO ADD 1 RUNHNO C RUNHNO COMP AT,I 04 C 04 GOTO COPIES C Z-ADDRUNHNO HSENO C MOVELHSENO HLN 9 C Z-SUB2 LINE 30 C AGN2 TAG C LINE ADD 1 LINE C MOVE LINE HLN C SETOF 010203 C HLN CHAINHOUSE 04 C 02 COR 04 GOTO AGNHNO C 01 GOTO AGN2 C SETON 05 C EXCPT C SETOF 05 C GOTO AGN2 C END TAG OXHSEL E 05 O REC 41 O DATE 47 OXHSCH T LR O YESNO 1 O CUROLD 2 O RPNTBL 4 ** ENTER WHETHER OR NOT TO PRINT PRICES (Y=YES, N=NO) ENTER WHETHER TO USE CURRENT OR OLD PRICES (C=CURRENT, O=OLD) DO YOU WISH NET BILLING FOR CUSTOMERS AFFECTED ? (N=NO, ANYTHING ELSE=YES) ENTER DATE YOU WISH TO APPEAR ON LISTING (BLANK=TODAY) PRESS COMMAND KEY 7 & ENTER IF THERE ARE NO MORE ENTRIES TO BE MADE, OR ENTER FROM HOUSE NUMBER TO BE LISTED (30 SETS MAXIMUM) ENTER THROUGH HOUSE NUMBER (JUST PRESS ENTER IF SAME AS FROM HOUSE NUMBER) ENTER # OF COPIES TO BE PRINTED (YOU MAY PRESS ENTER IF ONLY ONE) // CEND // COPY LIBRARY-S,NAME-JF0016,RECL-096,REF-000009,DATE-11/10/25,TIME-0700,SUB-RPG H B 1 JF0016 FXHSEL IPE F 47 47 2 DISK FCNTRL IC F 32 32R DISK FXHSCH IC F 4 4R DISK FBSEHSE IC F 13 13R 6AI 1 DISK U1 FCUSMAS IC F 600 600R 6AI 1 DISK FPROD IC F 400 400R 9AI 1 DISK FPRCTAB IC F 35 35R14AI 1 DISK FPRT1 O F 132 132 OV PRINTER U7 FPRT2 O F 132 132 OF LPRINTER U8 E AP 8 9 4 E AOP 8 9 4 LPRT2 51FL 46OL IXHSEL AA 01 10 CA I 1 60HSENO I 1 4 HSE4 I 5 6 HSE2 I 11 37 DESC1 I P 38 410CNO7 I 42 470DATE I BB 02 10 CH I 1 60HSENO I 7 90LINE I 11 17 ITEM I CC 03 10 CI I 1 60HSENO I 7 90LINE I 11 17 ITEM I 18 210QUAN I 22 22 HC I 23 23 LRF 07 I P 24 284HSPPRC I P 29 310HLINFT 08 I DD 04 10 CE I 1 60HSENO I 7 90LINE I 11 37 DESC I 38 38 LRF 07 I GG 21 10 CB I 1 60HSENO I 11 37 DESC2 I P 38 412SGLPR 19 ICNTRL AA 1 C0 2 C0 3 C7 I 4 32 CONAME IXHSCH AA I 1 1 PRTPR I 2 2 CUROLD I* 3 3 EST I 4 4 RPNTBL IBSEHSE AA 18 13NCA I BB I 7 120BSEHSE ICUSMAS EE 05 I 8 37 CUSNM I 97 121 DEVCO I 132 132 NETBIL I 133 134 STATE I 135 135 TAXCD I P 297 2981DISPC I 490 490 SLPRC I P 531 5346NYTXRT I 600 600 CUSTAT IPROD FF 06 I 11 11 TYPE I 12 12 STAT I P 13 52 AP I P 53 550PLINFT I 129 1310PRGRP I 134 160 DES27 I P 161 200 AOP IPRCTAB AA 54 35NCA I BB I 15 150PC I P 16 204PSPPRC I P 21 223PDSPCC I 23 23 PZDIS I***** I P 24 284PADDOL I***** ILDA UDS I 1 1 PRTSLC C N09 MOVE ' ' BLNK14 14 C N09 TIME TIME 60 C N09 MOVELTIME TIMEHM 40 C N09 7 CHAINCNTRL C N09 1 CHAINXHSCH C N09 PRTPR COMP 'Y' 10 C N09 CUROLD COMP 'O' 16 C* N09 EST COMP 'Y' 31 C N09 RPNTBL COMP 'N' 3333 C N09 PRTSLC COMP 'Y' 35 C 01 09 EXSR TOT C SETON 09 C 01 SETOF 232426 C 01 SETOF 272829 C 01 SETOF 303234 C 01 Z-ADDCNO7 CNO 60 C 01 Z-ADD1 CNTPCC C 01 CNO CHAINCUSMAS 11 C 01N11 CUSTAT COMP 'D' 11 C 01 11 GOTO ENDCUS C 01 33 NETBIL COMP 'N' 32 C 01 Z-ADD0 TXRAT1 66 C 01 Z-ADD0 TXRAT2 66 C* 01 Z-ADD0 TXRAT1 44 C* 01 Z-ADD0 TXRAT2 44 C 01 MOVE BLNK14 TX1DES 11 C 01 MOVE BLNK14 TX2DES 14 C* 01 MOVE BLNK11 TX1DES 8 C* 01 MOVE BLNK11 TX2DES 11 C 01 STATE COMP 'NJ' 54 C 01 54 TAXCD COMP 'T' 54 C 01 54 Z-ADD.070000 TXRAT1 C 01 54 MOVEL' 7.0000%'TX1DES C 01 54 MOVE ' NJ' TX1DES C* 01 54 Z-ADD.0700 TXRAT1 C* 01 54 MOVE '7.00% NJ'TX1DES C 01 STATE COMP 'NJ' 54 C 01 54 TAXCD COMP 'U' 54 C 01 54 Z-ADD.035000 TXRAT1 C 01 54 MOVEL' 3.5000%'TX1DES C 01 54 MOVE ' NJ' TX1DES C* 01 54 Z-ADD.0350 TXRAT1 C* 01 54 MOVE '3.50% NJ'TX1DES C 01 STATE COMP 'PA' 54 C 01 54 TAXCD COMP 'T' 54 C 01 54 Z-ADD.060000 TXRAT1 C 01 54 MOVEL' 6.0000%'TX1DES C 01 54 MOVE ' PA' TX1DES C* 01 54 Z-ADD.0600 TXRAT1 C* 01 54 MOVE '6.00% PA'TX1DES C 01 STATE COMP 'PA' 54 C 01 54 TAXCD COMP 'P' 54 C 01 54 Z-ADD.060000 TXRAT1 C 01 54 MOVEL' 6.0000%'TX1DES C 01 54 MOVE ' PA' TX1DES C* 01 54 Z-ADD.0600 TXRAT1 C* 01 54 MOVE '6.00% PA'TX1DES C 01 54 Z-ADD.020000 TXRAT2 C 01 54 MOVEL' 2.0000%'TX2DES C 01 54 MOVE ' PHILA' TX2DES C* 01 54 Z-ADD.0200 TXRAT2 C* 01 54 MOVEL'2.00% PH'TX2DES C* 01 54 MOVE 'ILA' TX2DES C 01 STATE COMP 'MD' 54 C 01 54 TAXCD COMP 'T' 54 C 01 54 Z-ADD.060000 TXRAT1 C 01 54 MOVEL' 6.0000%'TX1DES C 01 54 MOVE ' MD' TX1DES C* 01 54 Z-ADD.0500 TXRAT1 C* 01 54 MOVE '5.00% MD'TX1DES C 01 STATE COMP 'CT' 54 C 01 54 TAXCD COMP 'T' 54 C 01 54 Z-ADD.063500 TXRAT1 C 01 54 MOVEL' 6.3500%'TX1DES C 01 54 MOVE ' CT' TX1DES C* 01 54 Z-ADD.0600 TXRAT1 C* 01 54 MOVE '6.00% CT'TX1DES C 01 STATE COMP 'RI' 54 C 01 54 TAXCD COMP 'T' 54 C 01 54 Z-ADD.070000 TXRAT1 C 01 54 MOVEL' 7.0000%'TX1DES C 01 54 MOVE ' RI' TX1DES C* 01 54 Z-ADD.0700 TXRAT1 C* 01 54 MOVE '7.00% RI'TX1DES C 01 STATE COMP 'MA' 54 C 01 54 TAXCD COMP 'T' 54 C 01 54 Z-ADD.062500 TXRAT1 C 01 54 MOVEL' 6.2500%'TX1DES C 01 54 MOVE ' MA' TX1DES C* 01 54 Z-ADD.0500 TXRAT1 C* 01 54 MOVE '5.00% MA'TX1DES C 01 STATE COMP 'NY' 54 C 01 54 TAXCD COMP 'T' 54 C 01 54 Z-ADDNYTXRT TXRAT1 C 01 54 MOVELTXRAT1 DUM2 2 C 01 54 MOVE TXRAT1 DUM4 4 C 01 54 MOVELDUM2 DUM3 3 C 01 54 MOVE '.' DUM3 C 01 54 MOVELDUM3 DUM7 7 C 01 54 MOVE DUM4 DUM7 C 01 54 MOVELDUM7 TX1DES C 01 54 MOVE '% NY' TX1DES C* 01 54 MOVE TXRAT1 DUM3 3 C* 01 54 MOVELDUM3 DUM2 2 C* 01 54 MOVE '.' DUM2 C* 01 54 MOVELDUM2 DUM4 4 C* 01 54 MOVE DUM3 DUM2 C* 01 54 MOVE DUM2 DUM4 C* 01 54 MOVELDUM4 TX1DES C* 01 54 MOVE '% NY' TX1DES C 01 DISPC COMP 0 2424 C 01 24 Z-SUBDISPC DISPC C 01 24 DISPC DIV 100 DISPCC 33 C 01 24 1 ADD DISPCC CNTPCC 43 C ENDCUS TAG C 01 U1 SETOF 20 C 01 U1 HSENO CHAINBSEHSE 18 C 01 U1N18 SETON 20 C 01 GOTO END C 21N19N35SLPRC COMP 'X' 34 C 21 Z-ADD0 TOTTX 92 C 21 Z-ADD0 TOTNTX 92 C 21 Z-ADD0 PAGE1 C 21 Z-ADD0 PAGE2 C 21 SETON 13 C 21 EXCPT C 21 SETOF 13OV C 21 GOTO END C U7 OV SETON 13 C U8 OF SETON 13 C 13 EXCPT C 13 SETOF 13OVOF C 04 GOTO END C Z-ADD1 ITMSQN 20 C MOVE ITMSQN ITMLN 9 C MOVELITEM ITMLN C ITMLN CHAINPROD 12 C N12 TYPE COMP 'D' 12 C 12 Z-ADD0 UNPR 94 C 12 Z-ADD0 AMT 92 C 12 GOTO ENDITM C 16 Z-ADDAOP AP C Z-ADD0 PDSPCC C MOVE ' ' PZDIS C***** C Z-ADD0 PADDOL C***** C MOVE HC PC C HC COMP '0' 54 54 C 54 HC COMP '8' 5454 C 54 GOTO PRICE C HC COMP '9' 54 C 54 Z-ADDHSPPRC PSPPRC C 54 GOTO PRICE C Z-ADD1 PC C Z-ADD0 PSPPRC C MOVELCNO PRKEY 14 C MOVE 'I 'DUM8 8 C MOVE ITEM DUM8 C MOVE DUM8 PRKEY C PRKEY CHAINPRCTAB 54 C N54 GOTO PRICE C MOVEL'G 'DUM8 C MOVE PRGRP DUM8 C MOVE DUM8 PRKEY C PRKEY CHAINPRCTAB 54 C PRICE TAG C PC COMP 9 54 C 54 Z-ADDPSPPRC UNPR C 54 GOTO ENPRIC C PC COMP 0 54 C 54 Z-ADD0 UNPR C 54 GOTO ENPRIC C PC COMP 1 54 54 C 54 PC COMP 8 5454 C N54 Z-ADD1 PC C AP,PC COMP 0 54 C 54 Z-ADD1 PC C Z-ADDAP,PC UNPR C ENPRIC TAG C 03 32 Z-ADDCNTPCC NETPCC 43 C 03 32 Z-SUBPDSPCC PDSPCC 5454 C 03 32N54PZDIS COMP 'Z' 54 C 03 32 541 ADD PDSPCC PNTPCC 43 C 03 32 54 Z-ADDPNTPCC NETPCC C 03 32 UNPR MULT NETPCC UNPRNT 72H C 03 32 Z-ADDUNPRNT UNPR C***** C 03 32 UNPR ADD PADDOL UNPR C***** C 03 QUAN MULT UNPR AMT H C 03 08 Z-ADDPLINFT HLINFT C 03 HLINFT COMP 0 08 C 03 08 AMT MULT HLINFT AMT H C 03 MOVELITEM ITEM4 4 C 03 MOVE ITEM ITEM3 3 C 03 ITEM4 COMP '9999' 54 C 03 54 ITEM3 COMP '999' 5454 C 03N54 TOTTX ADD AMT TOTTX C 03 54 TOTNTX ADD AMT TOTNTX C 03 QUAN MULT HLINFT TOTFT 50 C ENDITM TAG C OV SETON 13 C 13 EXCPT C 13 SETOF 13OV C SETON 14 C EXCPT C SETOF 14 C 12 GOTO END C MORE TAG C STAT COMP 'N' 17 C 17 ITMSQN ADD 1 ITMSQN C 17 MOVE ITMSQN ITMLN C 17 ITMLN CHAINPROD 12 C 17 OV SETON 13 C 17 13 EXCPT C 17 13 SETOF 13OV C 17N12 SETON 14 C 17N12 EXCPT C 17N12 SETOF 14 C 17N12 GOTO MORE C END TAG CLR EXSR TOT CSR TOT BEGSR CSR Z-ADDTOTTX NET 92 CSRN19 Z-ADDSGLPR NET CSR 32 SETOF 24 CSR 24 DISPCC COMP 0 15 CSR 24 NET MULT DISPCC DIS 82H CSR 24 NET ADD DIS NET CSR NET MULT TXRAT1 TAX1 82H CSR NET MULT TXRAT2 TAX2 82H C********** C********** NEW MARYLAND SALES TAX 6% CSR STATE COMP 'MD' 54 CSR 54 TAXCD COMP 'T' 54 CSRN54 GOTO ENMDTX C*DUMTX4 (10-4) MUST BE 2 LARGER THAN TAX1 (8-2) CSR NET MULT TXRAT1 DUMTX4 104 CSR NET COMP 0 54 CSR 54 Z-SUBDUMTX4 DUMTX4 CSR DUMTX4 COMP .0120 54 CSR 54 Z-ADD.01 TAX1 CSR 54 GOTO ENMDTX CSR DUMTX4 COMP .0120 54 CSR 54 Z-ADD0 TAX1 CSR 54 GOTO ENMDTX CSR MOVELDUMTX4 TAX1 CSR MOVE DUMTX4 DUMTX2 20 CSR DUMTX2 COMP 0 54 CSR 54 TAX1 ADD .01 TAX1 CSR NET COMP 0 54 CSR 54 Z-SUBTAX1 TAX1 CSR ENMDTX TAG C********** C********** CSR NET ADD TAX1 NET CSR NET ADD TAX2 NET CSR TAX1 COMP 0 3636 CSR TAX2 COMP 0 3737 CSR NET ADD TOTNTX NET CSR TOTNTX COMP 0 2222 CSR SETON 25 CSR EXCPT CSR SETOF 25 CSR ENDSR OPRT1 E 103 13 O CONAME 29 O PAGE1 132 O 128 'PAGE' O E 02 13 O 3 'RUN' O UDATE Y 12 O TIMEHM 18 '0 : ' O E 01 13 O U2 9 'ESTIMATED' O U3 9 'OLD' O 18 'HOUSE NO' O HSE4 24 O 25 '-' O HSE2 27 O DESC1 58 O 98 'AS OF' O DATE Y 107 O E 02 13 O DESC2 58 O U1 20 75 'BASE HOUSE#' O U1 20 BSEHSEM 83 O E 02 13 O 17 'CUST NO' O CNO M 29 O N11 CUSNM 60 O 11 56 '(NOT IN CUSTOMER LIST)' O N11 DEVCO 90 O E 01 13 O 30 'LINE TYPE QUAN' O 40 'ITEM NO' O 62 'DESCRIPTION' O 84 'TOT FT' O 10 102 'PRCODE UNIT PR' O 10 116 'AMOUNT' O E 02 13 O 24 '************************' O *PLACE 48 O *PLACE 72 O *PLACE 96 O *PLACE 120 O 132 '************' O D 01 04 O LINE 13 O 21 'DESCR' O DESC 71 O N07 LRF 74 O N07 75 'H' O E 11 25 10N34 O 99 'ITEM TOTAL:' O TOTTX A 118 O E 11 25 10N19 O 99 'SINGLE LINE PRICE' O SGLPR A 118 O E 01 25 24 10 O 99 'MINUS % DISCOUNT' O 15 99 ' PLUS % INCREASE' O DISPC 3 89 O DIS A 118 O E 01 25 36 10 O 83 'PLUS' O* 86 'PLUS' O TX1DES 95 O 99 'TAX' O TAX1 A 118 O E 01 25 37 10 O 80 'PLUS' O* 83 'PLUS' O TX2DES 95 O 99 'TAX' O TAX2 A 118 O E 01 25 22 10 O 99 'PLUS NONTAX LABOR' O TOTNTXA 118 O E 00 25 24 10 O OR 25 36 10 O OR 25 37 10 O OR 25 22 10 O 99 'EQUALS NET AMOUNT' O NET A 118 O E 01 14N17 O LINE 13 O 02 23 'HEADING' O 03 20 'ITEM' O 03 QUAN C 32 O ITEM 40 O N12 DES27 69 O 12 64 '(NOT IN PRODUCT LIST)' O 03N07 LRF 74 O 03N07 75 'H' O 03 TOTFT K 84 O 03 10N34PC 89 O 03 10N34UNPR A 104 O 03 10N34AMT A 118 O E 01 14 17 O DES27 69 OPRT2 E 103 13 O CONAME 29 O PAGE2 132 O 128 'PAGE' O E 02 13 O 3 'RUN' O UDATE Y 12 O TIMEHM 18 '0 : ' O E 01 13 O U2 9 'ESTIMATED' O U3 9 'OLD' O 18 'HOUSE NO' O HSE4 24 O 25 '-' O HSE2 27 O DESC1 58 O 98 'AS OF' O DATE Y 107 O E 02 13 O DESC2 58 O U1 20 75 'BASE HOUSE#' O U1 20 BSEHSEM 83 O E 02 13 O 17 'CUST NO' O CNO M 29 O N11 CUSNM 60 O 11 56 '(NOT IN CUSTOMER LIST)' O N11 DEVCO 90 O E 01 13 O 30 'LINE TYPE QUAN' O 40 'ITEM NO' O 62 'DESCRIPTION' O 84 'TOT FT' O 10 102 'PRCODE UNIT PR' O 10 116 'AMOUNT' O E 02 13 O 33 '************************' O 57 '************************' O 81 '************************' O 84 '***' O 10 108 '************************' O 10 116 '********' O D 01 04 O LINE 13 O 21 'DESCR' O DESC 71 O N07 LRF 74 O N07 75 'H' O E 11 25 10N19 O 99 'SINGLE LINE PRICE' O SGLPR A 118 O E 11 25 10N34 O 99 'ITEM TOTAL:' O TOTTX A 118 O E 01 25 24 10 O 99 'MINUS % DISCOUNT' O 15 99 ' PLUS % INCREASE' O DISPC 3 89 O DIS A 118 O E 01 25 36 10 O 83 'PLUS' O* 86 'PLUS' O TX1DES 95 O 99 'TAX' O TAX1 A 118 O E 01 25 37 10 O 80 'PLUS' O* 83 'PLUS' O TX2DES 95 O 99 'TAX' O TAX2 A 118 O E 01 25 22 10 O 99 'PLUS NONTAX LABOR' O TOTNTXA 118 O E 00 25 24 10 O OR 25 36 10 O OR 25 37 10 O OR 25 22 10 O 99 'EQUALS NET AMOUNT' O NET A 118 O E 01 14N17 O LINE 13 O 02 23 'HEADING' O 03 20 'ITEM' O 03 QUAN C 32 O ITEM 40 O N12 DES27 69 O 12 64 '(NOT IN PRODUCT LIST)' O 03N07 LRF 74 O 03N07 75 'H' O 03 TOTFT K 84 O 03 10N34PC 89 O 03 10N34UNPR A 104 O 03 10N34AMT A 118 O E 01 14 17 O DES27 69 // CEND // COPY LIBRARY-S,NAME-JF0017,RECL-096,DATE-11/10/27,TIME-1331,SUB-RPG H B 1 JF0017 FINP IP F 79 79 KEYBORD FCUSMAS IC F 600 600R 6AI 1 DISK FPRCTAB ID F 35 35L14AI 1 DISK FHOUSE IC F 41 41R 9AI 1 DISK FLOAD IC F 100 100R 9AI 1 DISK FORDER IC F 200 200R 6AI 1 DISK FRELSHT IC F 180 180R 6AI 34 DISK FDISP O F 79 79 CRT FXLODRF O F 100 100 9AI 1 DISK FXMSCSR O F 97 97 7AI 1 DISK E AMS 1 31 79 E AX 7 1 E AM 12 12 2 0 ICUSMAS AA 01 I 8 37 CNM I 299 300 CSM I 431 431 XORD I 432 432 XPO1 I 600 600 ACTV IPRCTAB AA 31 35 CA I 1 60PTBCUS I BB ILOAD AA I 10 10 LODACT IORDER AA IRELSHT AA I 180 180 RELACT IHOUSE BB 12 I 10 10 STAT I 1 41 HSEREC I P 38 410HSCNO7 C MOVE ' ' BLNK10 10 C Z-ADD0 ZERO3 30 C Z-ADD0 ZERO6 60 C Z-SUB1 LINEA 30 C Z-ADD0 LINEB 30 C MOVE '00I' LOADKY 9 C SETOF 02 C AGOREN TAG C N04 AMS,1 KEY ORDNO 60 C N04 ORDNO CHAINORDER 10 C N04N10 SETON 17 C N04N10 EXCPT C N04N10 SETOF 17 C N04N10 AMS,31 KEY YESNO 1 C N04N10 YESNO COMP 'Y' 11 C N04N10N11 GOTO AGOREN C N04 ORDNO SUB 1 ORDNO C AGNLD TAG C 04 LNO ADD 1 LNO 60 C N04 AMS,2 KEY LNO C MOVELLNO LOADKY C LOADKY CHAINLOAD 10 C N10 LODACT COMP 'D' 10 C N10N04 SETON 14 C N10N04 EXCPT C N10N04 SETOF 14 C N10 GOTO AGNLD C LNO CHAINRELSHT 10 C N10 RELACT COMP 'D' 10 C N10N04 SETON 14 C N10N04 EXCPT C N10N04 SETOF 14 C N10 GOTO AGNLD C SETON 04 C AGNCNO TAG C AMS,3 SET KAKG C AMS,4 KEY CNO 60 C KG SETON LR C KG GOTO END C CNO CHAINCUSMAS 07 C N07 ACTV COMP 'D' 07 C N07 XORD COMP 'X' 99 C N07 XPO1 COMP 'X' 98 C SETON 08 C EXCPT C SETOF 08 C 07 GOTO AGNCNO C N07 99 GOTO AGNCNO C AGORNM TAG C NKA ORDNO ADD 1 ORDNO C NKA ORDNO CHAINORDER 10 C NKAN10 SETON 17 C NKAN10 EXCPT C NKAN10 SETOF 17 C NKAN10 AMS,31 KEY YESNO 1 C NKAN10 YESNO COMP 'Y' 11 C NKAN10N11 GOTO AGORNM C MOVELCNO KYPRTB 14 C KYPRTB SETLLPRCTAB C AGNPTB TAG C SETOF 3132 C READ PRCTAB 32 C N32N31 GOTO AGNPTB C 31 CNO COMP PTBCUS 31 C AGNPTM TAG C 32 CORN32N31 SETON 33 C 32 CORN32N31 EXCPT C 32 CORN32N31 SETOF 33 C 32 CORN32N31 AMS,5 KEY YN 1 C 32 CORN32N31 YN COMP 'Y' 11 C 32N11 CORN32N31N11 GOTO AGNPTM C MOVELCNO CNO3 30 C CNO3 COMP 630 15 C 15 AMS,26 KEY CNAM 30 C 15 AMS,27 KEY CADR 30 C 15 AMS,28 KEY CCTST 24 C 15 AMS,29 KEY CZIP 5 C AGNPO1 TAG C AMS,6 KEY PONO1 10 C 98 PONO1 COMP BLNK10 11 C 98 11 SETON 97 C 98 11 EXCPT C 98 11 SETOF 97 C 98 11 GOTO AGNPO1 C AMS,7 KEY PONO2 10 C AMS,8 KEY PONO3 10 C AMS,9 KEY PONO4 10 C AMS,10 KEY NJCON 50 C AGAIN TAG C SETOF 13 C AMS,11 KEY HNO 60 C MOVELHNO HSELN 9 C MOVE LINEA HSELN C SETOF 13 C HSELN CHAINHOUSE 13 C N13 STAT COMP 'D' 13 C N13 MOVE HSEREC HSREC1 41 C 13 SETON 09 C 13 EXCPT C 13 SETOF 09 C 13 GOTO AGAIN C Z-ADDHSCNO7 HSCNO 60 C MOVELHSCNO HSCNO4 40 C MOVE HSCNO HSCNO2 20 C HSCNO2 COMP 0 13 C 13 MOVELCNO CNO4 40 C 13 HSCNO4 COMP CNO4 1111 C N13 HSCNO COMP CNO 1111 C 11 SETON 16 C 11 EXCPT C 11 SETOF 16 C 11 AMS,30 KEY HSLD 1 C 11 HSLD COMP 'X' 13 C 11 13 LNO SUB 1 LNO C 11 13 GOTO AGNLD C 11 HSLD COMP 'H' 13 C 11 13 GOTO AGAIN C MOVE LINEB HSELN C SETOF 13 C HSELN CHAINHOUSE 13 C N13 STAT COMP 'D' 13 C N13 MOVE HSEREC HSREC2 41 C 13 SETON 09 C 13 EXCPT C 13 SETOF 09 C 13 GOTO AGAIN C MOVE ' ' AX C MOVE HNO HSENO6 10 C HSENO6 COMP 5 11 C 11 MOVE 'X' AX,1 C HSENO6 COMP 6 11 11 C 11 HSENO6 COMP 9 1111 C 11 MOVE 'X' AX,2 C HSENO6 COMP 1 11 C 11 MOVE 'X' AX,3 C HSENO6 COMP 2 11 11 C 11 HSENO6 COMP 4 1111 C 11 MOVE 'X' AX,4 C HSENO6 COMP 0 11 C 11 MOVE 'X' AX,5 C AMS,12 KEY REGI 3 C MOVELREGI REGD 1 C REGD COMP 'O' 11 C Z-ADD1 REGF 10 C 11 Z-ADD0 REGF C AMS,13 KEY BLDG 9 C AMS,14 KEY LOT 8 C AMS,15 KEY BSEQ 4 C AMS,16 KEY ORDDAT 60 C AGNDEL TAG C AMS,17 KEY DELDAT 60 C DELDAT COMP 122950 11 C N11 DELDAT COMP 123050 11 C N11 DELDAT COMP 123150 11 C 11 GOTO ENDDEL C MOVELDELDAT DMD 40 C MOVE DELDAT DY 20 C MOVELDMD DM 20 C DM COMP 1 11 C N11 DM COMP 12 11 C 11 GOTO AGNDEL C MOVE DMD DD 20 C Z-ADDDY YR 40 C YR COMP 50 11 C 11 MOVEL'19' YR C N11 MOVEL'20' YR C YR SUB 1 PREVYR 40 C PREVYR DIV 4 LEAPYR 52 C MOVELLEAPYR LEAPS 30 C YR DIV 4 LEAPYR C MOVE LEAPYR DUM2 20 C DUM2 COMP 0 11 C N11 Z-ADD28 AM,2 C 11 Z-ADD29 AM,2 C DD COMP 1 11 C N11 DD COMP AM,DM 11 C 11 GOTO AGNDEL C PREVYR MULT 365 DAYS 60 C DAYS ADD LEAPS DAYS C Z-ADD0 M 20 C AGNMN TAG C M ADD 1 M C M COMP DM 11 C 11 DAYS ADD AM,M DAYS C 11 GOTO AGNMN C DAYS ADD DD DAYS C DAYS DIV 7 WKS 60 C WKS MULT 7 WKDAYS 60 C DAYS SUB WKDAYS DYWK 10 11 C 11 Z-ADD7 DYWK C DYWK COMP 1 11 C N11 DYWK COMP 7 11 C 11 GOTO AGNDEL C ENDDEL TAG C CSM SET KA C AMS,18 KEY SM 2 C SM COMP ' ' 11 C 11 MOVE CSM SM C KA MOVE ' ' SM C AMS,19 KEY RECBY 2 C AMS,20 KEY PROCBY 2 C AMS,21 KEY SPADDR 1 C AMS,22 KEY PRTY 1 C AMS,23 KEY AX,7 C AMS,24 KEY DIS 31 C AMS,25 KEY ACC 1 C ACC COMP 'N' 020203 C 03 LNO SUB 1 LNO C 03 ORDNO SUB 1 ORDNO C END TAG ODISP H 11 1P O 24 'E N T E R R E G U L A ' O 37 'R L O A D S' O E 11 17 O 24 'ORDER# HAS BEEN U' O 38 'SED PREVIOUSLY' O ORDNO M 14 O E 11 14 O 21 'LOAD# USED PREVIOUSLY' O E 11 08 07 O 20 'NOT IN CUSTOMER FILE' O E 11 08N07 99 O 17 'NO ORDERS ALLOWED' O E 11 08N07N99 O CNM 35 O 48 'SALESMAN' O CSM 51 O E 11 33 O 24 '************************' O 39 '***************' O E 01 33 O 24 'WARNING - NO PRICING TAB' O 39 'LE FOR CUSTOMER' O E 01 33 O 24 '************************' O 39 '***************' O E 11 97 O 24 'PO# MUST BE ENTERED FOR ' O 37 'THIS CUSTOMER' O E 11 09 O 17 'NOT IN HOUSE FILE' O E 11 16 O 24 'HOUSE NOT ASSIGNED TO TH' O 35 'IS CUSTOMER' OXLODRF D 02 O LNO 6 O 9 '00I' O 10 'F' O CNO 16 O HNO 22 O REGF 23 O BLDG 32 O LOT 40 O BSEQ 44 O DELDAT 50 O PRTY 54 O ZERO3 59P O AX 67 O ORDDAT 71P O SM 73 O RECBY 75 O PROCBY 77 O SPADDR 78 O ORDNO 85 O ZERO6 91 O D 02 O LNO 6 O LINEA 9 O 10 'I' O HSREC1 51 O PONO1 61 O PONO2 71 O DELDAT 75P O DIS 79P O D 02 O LNO 6 O LINEB 9 O 10 'I' O HSREC2 51 O PONO3 61 O PONO4 71 O NJCON 79P OXMSCSR D 02 15 O 1 'L' O LNO 7 O CNAM 37 O CADR 67 O CCTST 91 O CZIP 96 O 97 'A' ** ENTER FIRST ORDER NUMBER ENTER FIRST LOAD NUMBER PRESS COMMAND KEY 7 & ENTER IF THERE ARE NO MORE ENTRIES TO BE MADE, OR ENTER CUSTOMER NUMBER (PRESS COMMAND KEY 1 BEFORE CUST# IF SAME ORDER#) YOU MUST ENTER Y INDICATING THAT YOU HAVE READ THIS MESSAGE BEFORE CONTINUING ENTER FIRST PURCHASE ORDER NUMBER ENTER SECOND PURCHASE ORDER NUMBER ENTER THIRD PURCHASE ORDER NUMBER ENTER FOURTH PURCHASE ORDER NUMBER ENTER NJ 3% TAX CONTRACT NUMBER ENTER HOUSE NUMBER ENTER R=REGULAR, O=OPPOSITE ENTER BUILDING/BLOCK ENTER LOT ENTER SEQUENCE/UNIT ENTER ORDER DATE-MDY ENTER DELIVERY DATE-MDY ENTER SALESMAN, PRESS ENTER TO USE ABOVE SALESMAN, OR CK1 TO SET TO BLANKS ENTER RECEIVED BY ENTER PROCESSED BY ENTER X IF SPECIAL ADDRESS, BLANK IF NOT ENTER X IF PRIORITY LOAD, BLANK IF NOT ENTER X IF OFF & CREDIT, BLANK IF NOT ENTER % DISCOUNT-1/10% ENTER WHETHER OR NOT OK (Y=YES, N=NO) ENTER MISCELLANEOUS CUSTOMER NAME ENTER MISCELLANEOUS CUSTOMER ADDRESS ENTER MISCELLANEOUS CUSTOMER CITY AND STATE ENTER MISCELLANEOUS CUSTOMER ZIP CODE ENTER: H TO ENTER NEW HOUSE#, A TO ACCEPT HOUSE#, X TO SKIP ORDER FOR NOW DO YOU WISH TO RE-USE SAME ORDER# (Y=YES, N=NO) ? ** 312931303130313130313031 // CEND // COPY LIBRARY-S,NAME-JF0018,RECL-096,REF-000004,DATE-06/08/23,TIME-1032,SUB-RPG H B 1 JF0018 FXLOAD IPE F 100 100 2 DISK FXLMES IC F 3 3R DISK FCUSMAS IC F 600 600R 6AI 1 DISK FMISCUS IC F 97 97R 7AI 1 DISK FPROD IC F 400 400R 9AI 1 DISK FPRCTAB IC F 35 35R14AI 1 DISK FMESAGE IC F 66 66R 5AI 1 DISK FCUSMAP IC F 87 87R 8AI 1 DISK FLOAD UC F 100 100R 9AI 1 DISK FPRT O F 132 132 OV LPRINTER E AX 6 1 E AP 8 9 4 LPRT 51FL 51OL IXLOAD AA 01 10 CF I 1 60LNO L1 I 11 160CNO L2 I 17 200HSE4 08 I 21 220HSE2 I 23 230REGC 09 I 24 32 BLDG 41 I 33 40 LOT 42 I 41 44 BSEQ 43 I 45 500DELDAT I 52 52 RBO I 54 54 PRTY I 61 66 AX I 67 67 OFCRED I P 68 710ORDDAT I 72 73 SM I 74 75 RECBY I 76 77 PROCBY I 78 78 SPADDR I 80 850ORDNO I BB 02 10 CI 20 CA I 21 47 HDES1 I 52 61 PONO1 10 I 62 71 PONO2 I HH 03 10 CI 20 CB I 21 47 HDES2 I 52 61 PONO3 I 62 71 PONO4 I 72 72 REPRNT I P 77 790NJCON I CC 04 10 CI 20 CH I 7 90LINE I 21 27 ITEM I 53 53 DSPRT I DD 05 10 CI 20 CI I 7 90LINE I 21 27 ITEM I 28 310QTYOR4 I 32 32 HC I 33 33 LRH 11 I P 39 410LINFT 20 I P 52 540QTYINV I P 55 570QTYBO I P 58 600QTYRBO I EE 06 10 CI 20 CE I 7 90LINE I 21 47 DESC I 48 48 LRH 11 I FF 07 10 CI 20 CM I 7 90LINE I P 21 230QTYORD I 24 24 LRH 11 I P 25 294HSPPRC I P 30 320LINFT 20 I 33 59 DESC I P 60 620QTYINV I P 63 650QTYBO I P 66 680QTYRBO I 69 70 DEPT I 71 71 LABEL I GG 39 IXLMES AA I 1 30MESNO ICUSMAS AA 12 600NCA I BB I 8 37 CNAM I 97 121 DEVCO I 299 300 SLSC I 386 3950PHONE2 3636 I 436 441 ZONE IMISCUS AA 29 97NCA I BB I 8 37 CNAM I 38 67 CADR I 68 91 CCTST I 92 96 CZIP IPROD GG I 11 11 TYPE I 12 12 STAT I P 13 52 AP I P 53 550LIN I 56 57 DEPT I 58 58 LABEL I P 77 792MWORK I P 80 822AWORK I 129 1310PRGRP I 134 160 DESC IPRCTAB AA 54 35NCA I BB I 15 150PC I P 16 204PSPPRC IMESAGE AA 31 66NCA I BB I 6 65 MESDES ICUSMAP AA 51 87NCA I BB I 9 86 MAPDES ILOAD AA ILDA UDS I 3 40TNUMLD C N30 MOVE ' ' BLNK30 30 C N30 1 CHAINXLMES C N30 SETON 30 C L2 Z-ADD0 NUMLD 20 C L1 NUMLD ADD 1 NUMLD C 39 GOTO END C 04 COR 05 COR 07 SETOF 37 C 01 MOVE BLNK30 CNAM C 01 MOVE BLNK30 DEVCO C 01 MOVE ' ' SLSC C 01 MOVE ' ' ZONE C 01 SETOF 36 C 01 CNO CHAINCUSMAS 12 C 01 MOVELCNO CNO13 30 C 01 CNO13 COMP 630 23 C 01 23 MOVEL'L' MSCSKY 7 C 01 23 MOVE LNO MSCSKY C 01 23 MSCSKY CHAINMISCUS 29 C 01 Z-ADD0 PAGE C 01 RBO COMP 'B' 21 C 01 RBO COMP 'R' 22 C 01 PRTY COMP 'X' 17 C 01 SETOF 24 C 01N21N22OFCRED COMP 'X' 24 C 01 SETON 2737 C 01 Z-ADD51 PRTLNE 20 C 03 REPRNT COMP 'X' 35 C 03 NJCON COMP 0 4040 C 01 COR 02 COR 03 GOTO END C SETOF 26 C 04 24 DSPRT COMP 'X' 26 C 05 24 QTYOR4 COMP 0 26 C 26 SETOF 040506 C 26 GOTO END C 05 Z-ADDQTYOR4 QTYORD C 07 MOVE '9999999' ITEM C 07 Z-ADD9 PC C 06 GOTO LRH C 07 GOTO QUAN C Z-ADD1 LIN2 20 C MOVELITEM ITMLN 9 C MOVE LIN2 ITMLN C ITMLN CHAINPROD 13 C N13 TYPE COMP 'D' 13 C 13 Z-ADD0 PC C 13 Z-ADD0 UNPR C 13 GOTO ENPRIC C N13 MOVE HC PC C N13 HC COMP '0' 54 54 C N13 54 HC COMP '8' 5454 C N13 54 GOTO PRICE C N13 HC COMP '9' 54 C N13 54 Z-ADDHSPPRC PSPPRC C N13 54 GOTO PRICE C N13 Z-ADD1 PC C N13 Z-ADD0 PSPPRC C N13 MOVELCNO PRKEY 14 C N13 MOVE 'I 'DUM8 8 C N13 MOVE ITEM DUM8 C N13 MOVE DUM8 PRKEY C N13 PRKEY CHAINPRCTAB 54 C N13N54 GOTO PRICE C N13 MOVEL'G 'DUM8 C N13 MOVE PRGRP DUM8 C N13 MOVE DUM8 PRKEY C N13 PRKEY CHAINPRCTAB 54 C PRICE TAG C N13 PC COMP 9 54 C N13 54 Z-ADDPSPPRC UNPR 94 C N13 54 GOTO ENPRIC C N13 PC COMP 0 54 C N13 54 Z-ADD0 UNPR C N13 54 GOTO ENPRIC C N13 PC COMP 1 54 54 C N13 54 PC COMP 8 5454 C N13N54 Z-ADD1 PC C N13 AP,PC COMP 0 54 C N13 54 Z-ADD1 PC C N13 Z-ADDAP,PC UNPR C ENPRIC TAG C N13 AX,3 COMP 'X' 25 C N13N25 AX,4 COMP 'X' 25 C N13 25 DEPT COMP 'P1' 25 C N13 25 MOVE 'P2' DEPT C N13 AX,1 COMP 'X' 25 C N13N25 AX,2 COMP 'X' 25 C N13 25 DEPT COMP 'P2' 25 C N13 25 MOVE 'P1' DEPT C QUAN TAG C 04 GOTO PRTITM C U1 QTYORD SUB QTYINV QUAN 40 C U2 21 Z-ADDQTYBO QUAN C U2 22 Z-ADDQTYRBO QUAN C LINFT MULT QUAN TOTFT C 05 20N13LIN MULT QUAN TOTFT 50 C LRH TAG C 09N11 LRH COMP 'L' 16 C 09N11 MOVE 'L' LRH C 09N11 16 MOVE 'R' LRH C PRTITM TAG C 06 37 EXSR OVFLO C 06 37 PRTLNE ADD 1 PRTLNE C 06 GOTO END C EXSR OVFLO C SETON 1437 C EXCPT C PRTLNE ADD 1 PRTLNE C SETOF 14 C 07 COR 13 GOTO END C MORE TAG C STAT COMP 'N' 15 C 15 LIN2 ADD 1 LIN2 C 15 MOVE LIN2 ITMLN C 15 ITMLN CHAINPROD C 15 EXSR OVFLO C 15 SETON 38 C 15 EXCPT C 15 PRTLNE ADD 1 PRTLNE C 15 SETOF 38 C 15 GOTO MORE C END TAG CL1 MOVELLNO LNOKEY 9 CL1 MOVE '000' LNOKEY CL1 LNOKEY CHAINLOAD 28 CL1 CNO13 COMP 630 23 C*1 23 GOTO ENDMAP CL1 U8 NUMLD COMP TNUMLD 54 CL1 U8 54 Z-ADD0 NUMLD CL1 U8 NUMLD COMP 1 54 CL1 U8N54 GOTO ENDMAP CL1 MOVELCNO MAPKEY 8 CL1 Z-ADD1 MSEQNO 20 CL1 MOVE MSEQNO MAPKEY CL1 MAPKEY CHAINCUSMAP 51 CL1 51 GOTO ENDMAP CL1 PRTLNE ADD 2 PRTLNE CL1 EXSR OVFLO CL1 SETON 5253 CL1 EXCPT CL1 SETOF 5253 CL1 AGNMAP TAG CL1 MSEQNO ADD 1 MSEQNO CL1 MOVE MSEQNO MAPKEY CL1 MAPKEY CHAINCUSMAP 51 CL1N51 EXSR OVFLO CL1N51 SETON 53 CL1N51 EXCPT CL1N51 SETOF 53 CL1N51 PRTLNE ADD 1 PRTLNE CL1N51 GOTO AGNMAP CL1 SETON 55 CL1 EXCPT CL1 SETOF 55 CL1 ENDMAP TAG CL1 MESNO COMP 0 25 CL1N25 GOTO ENDMES CL1 MOVELMESNO MESKEY 5 CL1 Z-ADD1 MSEQNO 20 CL1 MOVE MSEQNO MESKEY CL1 MESKEY CHAINMESAGE 31 CL1 31 GOTO ENDMES CL1 PRTLNE ADD 4 PRTLNE CL1 EXSR OVFLO CL1 SETON 3233 CL1 EXCPT CL1 SETOF 3233 CL1 AGNMES TAG CL1 MSEQNO ADD 1 MSEQNO CL1 MOVE MSEQNO MESKEY CL1 MESKEY CHAINMESAGE 31 CL1N31 EXSR OVFLO CL1N31 SETON 33 CL1N31 EXCPT CL1N31 SETOF 33 CL1N31 PRTLNE ADD 1 PRTLNE CL1N31 GOTO AGNMES CL1 SETON 34 CL1 EXCPT CL1 SETOF 34 CL1 ENDMES TAG CSR OVFLO BEGSR CSR PAGE COMP 1 54 CSRN54 PRTLNE COMP 45 19 19 CSR 54 PRTLNE COMP 49 19 19 CSR 19 EXCPT CSR 19 Z-ADD19 PRTLNE CSR 19 SETOF 2719 CSR ENDSR OPRT E 048 19N27N54 O OR 050 19N27 54 O 81 'CONTINUED' O E 104 19 O 35 15 '***************' O E 01 19 O 35 15 '*** REPRINT ***' O E 01 19 O 35 15 '***************' O 40 74 'CONTRACT#' O 40 NJCON L 81 O E 108 19 O 15 'PHONE#' O 36 PHONE2 28 ' - - ' O 17 74 '*** PRIORITY ***' O E 01 19 O N12 CNAM 38 O N08 HSE4 55 O N08 56 '-' O N08 HSE2 58 O 09 66 'OPP' O N09 66 'REG' O 76 'PAGE' O PAGE 80 O E 01 19 O N12 DEVCO 33 O N10 38 'PO#' O PONO1 53 O E 01 19 O PONO2 53 O HDES1 82 O E 01 19 O N41 7 'BLD/BLK' O BLDG 17 O N42 21 'LOT' O LOT 30 O N43 36 'SQ/UN' O BSEQ 41 O PONO3 53 O HDES2 82 O E 0 16 19 O PONO4 53 O E 01 19 O LNO C 10 O N12 SLSC 15 O CNO 24 O N12 ZONE 33 O N21N22 DELDATY 46 O 21 48 'BACK ORDER' O 22 44 'R-BO' O UDATE Y 61 O ORDDATY 70 O 77 '- -' O SM 73 O RECBY 76 O PROCBY 79 O SPADDR 81 O***** START PRINTING BAR CODE AT LINE 19 O E 0 19 19 27 O E 00 19 27 O***** START QMS MODE O 5 'ªPYª-' O E 00 19 27 O***** 0.5"HIGH, 0.0"LONG, 0.0"+0DOTS JUSTIFIED VERTICALLY O 9 'ªM0500000' O***** TAB 03.0" FROM LEFT MARGIN, 0 RANGE FOR DOTS O 15 'ªT0300' O***** B-BARCODE, Y=PRINT AS NUMBER, A=CODE39 O 19 'ªBYA' O ORDNO 25 O***** START PRINTING ORDER NUMBER IN NUMERALS O***** RIGHT AFTER BAR CODE O 34 'ªM0402000' O ORDNO 47 O***** END SEQUENCE O 49 'ª-' O* 27 'ª-' O E 00 19 27 O***** END QMS MODE O 5 'ªPNª-' O***** SINCE PRINT .5" BARCODE, LOSE .5" IN LINE SPACING O E 0 21 19 27 O OR 0 19 19N27 O D 01 06 37 O LINE 4 O DESC 55 O N11 LRH 56 O N11 57 'H' O E 01 14 O LINE 4 O N04 QUAN L 10 O ITEM 24 O N04 PC 25 O 04N13 DESC 53 O 05N13 DESC 53 O 04N13 DEPT 66 O 05N13 DEPT 66 O 07 DEPT 66 O 05N13 LABEL 68 O 07 LABEL 68 O 05N13 AWORK M 82 O 05N13 MWORK M 75 O 07 DESC 53 O N04N11 LRH 56 O N04N11 57 'H' O 05 TOTFT M 63 O 07 TOTFT M 63 O E 01 38 O DESC 53 O E 01 52 O E 01 53 O MAPDES 78 O E 01 55 O E 11 32 O 29 '************************' O 53 '************************' O 73 '********************' O E 01 32 O 6 '*' O 73 '*' O E 01 33 O 6 '*' O MESDES 69 O 73 '*' O E 01 34 O 6 '*' O 73 '*' O E 00 34 O 29 '************************' O 53 '************************' O 73 '********************' OLOAD T L1N28 O 72 'X' // CEND // COPY LIBRARY-S,NAME-JF0019,RECL-096,DATE-06/03/27,TIME-1037,SUB-RPG H B 1 JF0019 FXLOADF IPE F 100 100 9AI 1 DISK FHOUSE IC F 41 41R 9AI 1 DISK FXLOAD O F 100 100 9AI 1 DISK IXLOADF AA 21 10 CF I 1 60LOAD I 1 100 REC100 I 17 220HSENO I 23 230REGOPP I BB 22 10 CI 20 CA I 1 100 REC100 I CC 23 10 CI 20 CB I 1 100 REC100 I BB 24 I 1 100 REC100 IHOUSE BB 02 I 1 41 REC41 I 10 10 TYPE I 11 17 ITEM I 11 12 ITEM12 I 13 13 ITEM3 I 11 15 ITEM15 I 15 15 ITEM5 I 16 16 ITEM6 I 18 210QUAN C Z-ADD0 Z5 50 C SETON 03 C EXCPT C SETOF 03 C 21 HSENO COMP 0 0707 C 21 COR 22 COR 23N07 COR 24 GOTO END C MOVELHSENO HSLN 90 C Z-ADD0 LINE 30 C SETON 04 C MORE TAG C SETOF 1415 C SETOF 1617 C LINE ADD 1 LINE 30 C MOVE LINE HSLN C HSLN CHAINHOUSE 05 C 05 GOTO ENDHSE C TYPE COMP 'D' 06 C 06 GOTO MORE C REGOPP COMP 0 12 C TYPE COMP 'H' 08 C 08 12 ITEM15 COMP '10000' 13 C 08 12 13ITEM6 COMP '0' 14 C 08 12 13ITEM6 COMP '1' 15 C TYPE COMP 'I' 09 C 09 12 ITEM12 COMP '80' 13 C 09 12 13ITEM3 COMP '0' 1313 C 09 12 13'6' COMP ITEM5 16 C 09 12 13'7' COMP ITEM5 17 C EXCPT C GOTO MORE C ENDHSE TAG C SETOF 04 C END TAG OXLOAD E 03 O REC100 100 O E 04 O LOAD 6 O LINE 9 O 10 'I' O REC41 51 O 08 14 26 '1' O 08 15 26 '0' O 09 16 25 '7' O 09 17 25 '6' O 09 Z5 54P O 09 Z5 57P O 09 Z5 60P O 09 QUAN 63P // CEND // COPY LIBRARY-S,NAME-JF0021,RECL-096,REF-000002,DATE-06/03/29,TIME-0921,SUB-RPG H B 1 JF0021 FXLOADS IPE F 100 100 2 DISK FCNTRL IC F 32 32R DISK FCUSMAS UC F 600 600R 6AI 1 DISK FXMSCS IC F 97 97R 7AI 1 DISK FXLOAD IC F 100 100R 9AI 1 DISK FPRT O F 132 132 OV PRINTER E AI 6 1 IXLOADS AA 01 I 1 60LNO I 7 7 XBO I 8 9 CSM I 11 160CNO L1 I 17 20 HS4 I 21 22 HS2 I 23 230REGF 03 I 24 32 BLDG I 33 40 LOT I 41 44 BSEQ I 45 500DELDAT I 54 54 PRTY I 58 58 SMCUS I 59 59 DELOD I 61 66 AI I 67 67 OFCRED I P 68 710ORDDAT I 72 73 SM I 74 75 RECBY I 76 77 PRCBY I 78 78 SPADR I 80 850ORDNO ICNTRL AA 1 C0 2 C0 3 C7 I 4 32 CONAME ICUSMAS BB I 8 37 CNAM I 97 121 DEVCO 07 I 436 441 ZONE I 600 600 ACTV IXMSCS AA 10 97NCA I BB I 8 37 CNAM IXLOAD AA 20 CA I 21 47 HDESC1 I 52 61 PONO1 I 62 71 PONO2 I 78 79 DIS I AA 20 CB I 21 47 HDESC2 I 52 61 PONO3 I 62 71 PONO4 17 I 72 72 PRNT 18 I P 76 780NJCON 20 I AA C 05 GOTO BEGIN C SETON OV05 C MOVE ' ' BLNK27 27 C 7 CHAINCNTRL C BEGIN TAG C OFCRED COMP 'X' 06 C U4 'S' COMP SMCUS 11 C U4 'C' COMP SMCUS 12 C U4 'D' COMP DELOD 13 C U4 'L' COMP DELOD 14 C NUM ADD 1 NUM 40 C CNO CHAINCUSMAS 04 C N04 ACTV COMP 'D' 04 C MOVEL'L' MSCSKY 7 C MOVE LNO MSCSKY C MSCSKY CHAINXMSCS 10 C MOVE BLNK27 HDESC1 C MOVE BLNK27 HDESC2 C MOVELLNO LDKEY 9 C Z-SUB1 SQNO 30 C MOVE SQNO LDKEY C LDKEY CHAINXLOAD 08 C Z-ADD0 SQNO C MOVE SQNO LDKEY C LDKEY CHAINXLOAD 08 C U4 11 CSM COMP OCSM 0909 C U4 11 09 SETON OV C MOVE CSM OCSM 2 OPRT H 204 OV O CONAME 29 O H 02 OV O UDATE Y 10 O U1 54 'REGULAR LOAD TICKET UPDA' O U1 78 'TE REGISTER - BY CUSTOME' O U1 85 'R, LOAD' O U2 54 'ODD LOAD TICKET UPDATE R' O U2 78 'EGISTER - BY CUSTOMER, L' O U2 81 'OAD' O U3 54 'REGULAR LOAD TICKET EDIT' O U3 73 ' REGISTER - BY LOAD' O U4 11 44 'CUSTOMER ASSIGNED SALESM' O U4 11 68 'AN OPEN LOAD LISTING - B' O U4 11 80 'Y SALESMAN, ' O U4 11 13 104 'CUSTOMER#, DELIVERY DATE' O U4 11 13 110 ', LOAD' O U4 11 14 95 'CUSTOMER#, LOAD' O U4 12 54 'CUSTOMER OPEN LOAD LISTI' O U4 12 73 'NG - BY CUSTOMER#, ' O U4 12 13 92 'DELIVERY DATE, LOAD' O U4 12 14 77 'LOAD' O U5 54 'PROCESSED LOAD TICKET RE' O U5 78 'GISTER - BY CUSTOMER, LO' O U5 80 'AD' O PAGE 127 O 123 'PAGE' O H 01 OV O 117 'DEL DATE' O H 01 OV O U4 11 24 'CUSTOMER ASSIGNED SALESM' O U4 11 26 'AN' O U4 11 CSM 29 O 100 'INT EXT' O 130 'ORDER# A P' O U4 132 'B' O H 01 OV O 16 'LOAD# CUSTOMER' O 50 '%DIS PO#' O U1 64 'HOUSE' O U3 64 'HOUSE' O U4 77 'ZONE' O 109 'INT OPT EXT OPT STR MIS ' O 130 'ORD DATE SM OR PR D R' O U4 132 'O' O H 01 OV O 24 '************************' O *PLACE 48 O *PLACE 72 O *PLACE 96 O *PLACE 120 O 132 '************' OCUSMAS D 01N04 U1 O OR 01N04 U2 O UDATE 149 OPRT DF01 01 O LNO 6 O CNO 14 O N04 CNAM 45 O N10 CNAM 45 O PONO1 57 O U1 HS4 63 O U1 64 '-' O U1 HS2 66 O U3 HS4 63 O U3 64 '-' O U3 HS2 66 O NU4 03 72 'OPP' O NU4N03 72 'REG' O U4 03 70 'O' O U4N03 70 'R' O U4N04 ZONE 78 O 109 '| | | | | |' O 129 '| | | | |' O U4 131 '|' O AI,1 87 O AI,2 91 O AI,3 95 O AI,4 99 O AI,5 103 O AI,6 107 O DELDATY 117 O SM 120 O RECBY 123 O PRCBY 126 O SPADR 128 O PRTY 130 O U4 XBO 132 O D 01 01 O 06 10 'OFF/CRED' O N04 DEVCO 40 O 04 37 '---- NO DEVELOPMENT CO' O N04 07 37 '---- NO DEVELOPMENT CO' O DIS 45 O PONO2 57 O HDESC1 86 O 109 '| | | | | |' O 129 '| | | | |' O U4 131 '|' O ORDNO M 117 O D 01 01 O N18 9 'PRINTED' O BLDG 24 O LOT 34 O BSEQ 40 O PONO3 57 O HDESC2 86 O 109 '| | | | | |' O 129 '| | | | |' O U4 131 '|' O ORDDATY 117 O D 01 01N17 O OR 01N20 O N20 30 'NJ 3% CONTRACT#' O N20 NJCON L 37 O N17 PONO4 57 O T 01 L0NL1 O T 01 L1 O 24 '------------------------' O *PLACE 48 O *PLACE 72 O *PLACE 96 O *PLACE 120 O 132 '------------' O T 10 LR O NUM Z 42 O 56 'LOAD TICKETS' // CEND // COPY LIBRARY-S,NAME-JF0022,RECL-096,DATE-11/11/14,TIME-1413,SUB-RPG H B 1 JF0022 FLOAD IPE F 100 100 9AI 1 DISK FXDLOAD O F 7 7 6AI 1 DISK ILOAD AA 01 10 CF I 1 60LOADNOL1 I AA 02 10 CI 20 CI I 1 60LOADNOL1 I 28 310QTYORD I P 52 540QTYINV I BB 03 10 CI 20 CM I 1 60LOADNOL1 I P 21 230QTYOR5 I P 60 620QTYINV I CC 04 I 1 60LOADNOL1 C L1 SETON 10 C L1 01 SETON 11 C L1N01 SETOF 11 C 02 10 QTYORD COMP QTYINV 1010 C 03 10 QTYOR5 COMP QTYINV 1010 OXDLOAD T L1 11 10 O LOADNO 6 // CEND // COPY LIBRARY-S,NAME-JF0023,RECL-096,DATE-06/03/27,TIME-1006,SUB-RPG H B 1 JF0023 FLOAD UPE F 100 100 9AI 1 DISK FXDLOAD IC F 7 7R 6AI 1 DISK ILOAD AA 01 I 1 60LOADNOL1 IXDLOAD AA C L1 LOADNO CHAINXDLOAD 02 OLOAD D 01N02 O 10 'D' // CEND // COPY LIBRARY-S,NAME-JF0024,RECL-096,DATE-01/03/23,TIME-1226,SUB-RPG H B 1 JF0024 FINP IP F 79 79 KEYBORD FCNTRL IC F 32 32R DISK FHOUSE UC F 41 41R 9AI 1 DISK FBSEHSE UC F 13 13R 6AI 1 DISK A U1 FHSECHG UC F 80 80R10AI 1 DISK A U1 FCHGHS O F 7 7 2 DISK A U1 FDISP O F 79 79 CRT FPRT O F 132 132 OV PRINTER E AMS 1 8 79 IHOUSE AA 01 10 CD I BB 02 10 CA I 7 41 HSREC I 11 37 DESC1 I P 38 410CNO I CC 03 10 CB I 7 41 HSREC I 11 37 DESC2 I P 38 412SGL ICNTRL AA 1 C0 2 C0 3 C7 I 4 32 CONAME IBSEHSE AA I 7 120BSEHS I 13 13 BSACT IHSECHG AA C 13 GOTO BEGIN C SETON 13 C MOVE ' ' BLNK27 27 C 7 CHAINCNTRL C SETON 14 C BEGIN TAG C OV SETON 14 C 14 EXCPT C 14 SETOF 14OV C SETOF 06 C Z-SUB1 KEY1 90 C SETOF 0405 C AMS,1 SET KG C AMS,2 KEY HSENO 60 C KG SETON LR C KG GOTO END C MOVELHSENO KEY1 C KEY1 CHAINHOUSE 04 C N04 SETON 07 C N04 EXCPT C N04 SETOF 07 C N04 01 SETON 04 C 04 GOTO END C Z-ADD0 KEY2 90 C MOVELHSENO KEY2 C KEY2 CHAINHOUSE C SETON 07 C EXCPT C SETOF 07 C SETON 05 C CNO SET KA C AMS,3 KEY CNON 60 99 C 99 MOVE CNO CNON C KA Z-ADD0 CNON C DESC1 SET KA C AMS,4 KEY DESC1N 27 C DESC1N COMP BLNK27 99 C 99 MOVE DESC1 DESC1N C KA MOVE BLNK27 DESC1N C DESC2 SET KA C AMS,5 KEY DESC2N 27 C DESC2N COMP BLNK27 99 C 99 MOVE DESC2 DESC2N C KA MOVE BLNK27 DESC2N C SGL SET KA C AMS,6 KEY SGLN 72 99 C 99 Z-ADDSGL SGLN C KA Z-ADD0 SGLN C U1 Z-ADD0 BSEHS C U1 HSENO CHAINBSEHSE 08 C U1N08 BSACT COMP 'A' 0909 C U1N08 09 Z-ADD0 BSEHS C U1N09 SETON 10 C U1N09 EXCPT C U1N08 SETOF 10 C U1 BSEHS SET KA C U1 AMS,7 KEY BSEHSN 60 99 C U1 99 Z-ADDBSEHS BSEHSN C U1 KA Z-ADD0 BSEHSN C U1 BSEHSN COMP 0 0909 C KEY2 CHAINHOUSE C U1 HSENO CHAINBSEHSE 08 C U1 AMS,8 KEY REAS 20 C SETOF 22 C U1 DESC2 COMP DESC2N 2222 C U1N22 SGL COMP SGLN 2222 C 22 MOVELHSENO AHSKYF 10 C 22 MOVELHSENO AHSKYT 10 C 22 Z-ADD0 SQNO4 40 C AGN1 TAG C 22 SQNO4 ADD 1 SQNO4 C 22 MOVE SQNO4 AHSKYF C 22 AHSKYF CHAINHSECHG 99 C 22N99 GOTO AGN1 C 22 SQNO4 ADD 1 SQNO4 C 22 MOVE SQNO4 AHSKYT C SETON 12 C EXCPT C SETOF 12 C KEY1 CHAINHOUSE C SETOF 22 C U1 DESC1 COMP DESC1N 2222 C U1N22 CNO COMP CNON 2222 C 22 MOVELHSENO AHSKYF 10 C 22 MOVELHSENO AHSKYT 10 C 22 Z-ADD0 SQNO4 40 C AGN2 TAG C 22 SQNO4 ADD 1 SQNO4 C 22 MOVE SQNO4 AHSKYF C 22 AHSKYF CHAINHSECHG 99 C 22N99 GOTO AGN2 C 22 SQNO4 ADD 1 SQNO4 C 22 MOVE SQNO4 AHSKYT C END TAG ODISP H 22 1P O 24 'C H A N G E H O U S E ' O 41 ' H E A D I N G S' O H 01 1P O 24 'FOR ALL INPUT FIELDS THE' O 48 ' EXISTING VALUE WILL BE ' O 72 'DISPLAYED ABOVE THE PROM' O 75 'PT.' O H 01 1P O 13 'YOU MAY THEN:' O H 01 1P O 26 '1 - ENTER A NEW VALUE' O H 01 1P O 29 '2 - PRESS ENTER TO LEAVE' O 49 ' THE VALUE UNCHANGED' O H 01 1P O 29 '3 - PRESS COMMAND KEY 1 ' O 51 'TO BLANK OUT THE FIELD' O D 11 04 O 17 'NOT IN HOUSE FILE' OHOUSE E 07 O D 05 O DESC1N 37 O CNON 41P O E 12 O DESC2N 37 O SGLN 41P OBSEHSE E 10 U1 O EADD 12 U1 08 O AND 09 O HSENO 6 O BSEHSN 12 O 13 'A' O E 12 U1N08 O 09 BSEHSN 12 O 09 13 'A' O N09 13 'D' OHSECHG DADD 05 22 O AHSKYF 10 O UDATE 16 O HSREC 51 O 52 'F' O REAS 72 O 80 'A' O DADD 05 22 O AHSKYT 10 O UDATE 16 O HSREC 51 O DESC1N 47 O CNON 51P O 52 'T' O REAS 72 O 80 'A' O EADD 12 22 O AHSKYF 10 O UDATE 16 O HSREC 51 O 52 'F' O REAS 72 O 80 'A' O EADD 12 22 O AHSKYT 10 O UDATE 16 O HSREC 51 O DESC2N 47 O SGLN 51P O 52 'T' O REAS 72 O 80 'A' OCHGHS DADD 05 U1 O HSENO 6 O 7 '5' OPRT E 103 14 O CONAME 29 O 54 'CHANGE HOUSE HEADINGS' O NU1 73 '- ESTIMATED HOUSES' O UDATE Y 82 O E 01 14 O 54 '*********************' O E 01 14 O 6 'HOUSE#' O 27 'DESCRIPTION' O 94 'CUST# PRICE' O 105 'BASE#' O E 02 14 O 24 '************************' O *PLACE 48 O *PLACE 72 O *PLACE 96 O 110 '**************' O E 01 12 O HSENO L 7 O 13 'OLD' O DESC1 43 O DESC2 73 O CNO L 84 O SGL L 97 '$' O BSEHS L 107 O E 02 12 O 13 'NEW' O DESC1N 43 O DESC2N 73 O CNON L 84 O SGLN L 97 '$' O BSEHSNL 107 ** PRESS COMMAND KEY 7 & ENTER IF THERE ARE NO MORE ENTRIES TO BE MADE, OR ENTER HOUSE NUMBER ENTER CUSTOMER # (CMD/KEY 1 & ENTER=BLANK, ENTER=DUP ABOVE) ENTER FIRST LINE OF DESCRIPTION (CMD/KEY 1 & ENTER=BLANK, ENTER=DUP ABOVE) ENTER SECOND LINE OF DESCRIPTION (CMD/KEY 1 & ENTER=BLANK, ENTER=DUP ABOVE) ENTER SINGLE LINE PRICE (CMD/KEY 1 & ENTER=BLANK, ENTER=DUP ABOVE) ENTER BASE HOUSE NUMBER ENTER AUTHORIZATION/REASON FOR CHANGING HEADING LINES // CEND // COPY LIBRARY-S,NAME-JF0026,RECL-096,DATE-06/03/27,TIME-1006,SUB-RPG H B 1 JF0026 FXLOAD IPE F 100 100 9AI 1 DISK FXMSCS IC F 97 97R 7AI 1 DISK FLOAD UC F 100 100R 9AI 1 DISK A FMISCUS UC F 97 97R 7AI 1 DISK A FRELSHT UC F 180 180R 6AI 34 DISK A FINVCB UC F 50 50R30AI 1 DISK A FPRT O F 132 132 PRINTER IXLOAD AA 01 10 CF I 1 100 RECORD I 1 9 LOADKY I 7 90LINE I 1 60LOADNO I 10 10 TYPE I 11 160CUSTNO I 17 220HSENO I 17 200HSE14 I 21 210HSE55 I 22 220HSE66 I 23 23 REGOPP I 24 44 BLLTSQ I 24 32 BUILD I 33 40 LOT I 41 44 BSEQ I 45 500DELDAT I 45 500DELDAT I 54 54 PRTY I P 68 710ORDDAT I 72 73 SM I 74 75 RECBY I 76 77 PROCBY I BB 02 10 CI 20 CA I 1 100 RECORD I 1 9 LOADKY I 7 90LINE I 20 20 TYPE I 21 47 HDESC1 I 52 61 PO1 I 62 71 PO2 I BB 03 10 CI 20 CB I 1 100 RECORD I 1 9 LOADKY I 7 90LINE I 20 20 TYPE I 21 47 HDESC2 I 52 61 PO3 I 62 71 PO4 I P 77 790NJCON I AA 04 I 1 100 RECORD I 1 9 LOADKY I 7 90LINE I 20 20 TYPE IXMSCS AA I 8 97 MSCREC ILOAD AA I 10 10 LODACT IMISCUS AA IRELSHT AA I 180 180 RELACT IINVCB AA C Z-ADD0 Z7 70 C MOVE ' ' BLNK27 27 C LOADKY CHAINLOAD 06 C N06 LODACT COMP 'D' 07 C TYPE COMP 'H' 05 C 01 MOVEL'L' MSCSKY 7 C 01 MOVE LOADNO MSCSKY C 01 MSCSKY CHAINXMSCS 13 C 01N13 MSCSKY CHAINMISCUS 14 C 01 HSENO COMP 0 1010 C 02N10 HDESC1 COMP BLNK27 1010 C 03N10 HDESC1 COMP BLNK27 1010 C 03 10 LOADNO CHAINRELSHT 11 C 03 10N11RELACT COMP 'D' 12 C 03 MOVELCUSTNO DUM27 27 C 03 MOVE BLLTSQ DUM27 C 03 MOVELDUM27 KEY 30 C 03 Z-ADD0 SQNO 30 C AGN1 TAG C 03 SQNO ADD 1 SQNO C 03 MOVE SQNO KEY C 03 KEY CHAININVCB 08 C 03N08 GOTO AGN1 OLOAD DADD 01 06 O OR 02 06 O OR 03 06 O OR 04 06 O RECORD 100 O 05 52 'Y' O D 01N06 07 O OR 02N06 07 O OR 03N06 07 O OR 04N06 07 O RECORD 100 O 05 52 'Y' OMISCUS DADD 01N13 14 O MSCSKY 7 O MSCREC 97 O D 01N13N14 O MSCREC 97 ORELSHT DADD 03 10 11 O CUSTNO 6 O BUILD 15 O LOT 23 O BSEQ 27 O HSE66 28 O HSE55 29 O HSE14 33 O LOADNO 39 O HDESC1 66 O HDESC2 93 O REGOPP 94 O SM 96 O RECBY 98 O PROCBY 100 O PRTY 101 O ORDDAT 105P O DELDAT 109P O Z7 113P O Z7 117P O Z7 121P O Z7 125P O PO1 138 O PO2 148 O PO3 158 O PO4 168 O NJCON 171P O 180 'A' O D 03 10N11 O AND 12 O CUSTNO 6 O BUILD 15 O LOT 23 O BSEQ 27 O HSE66 28 O HSE55 29 O HSE14 33 O HDESC1 66 O HDESC2 93 O REGOPP 94 O SM 96 O RECBY 98 O PROCBY 100 O PRTY 101 O ORDDAT 105P O DELDAT 109P O Z7 113P O Z7 117P O Z7 121P O Z7 125P O PO1 138 O PO2 148 O PO3 158 O PO4 168 O NJCON 171P O 180 'A' OINVCB DADD 03 O KEY 30 O 31 'L' O LOADNO 37 O DELDAT 43 O 50 'A' OPRT D 20 03 10N11 O AND N12 O 5 'LOAD#' O LOADNO 12 O 37 'NOT ADDED TO RELEASE SHE' O 61 'ET FILE - ALREADY EXISTS' O D 20 01N06N07 O OR 02N06N07 O OR 03N06N07 O OR 04N06N07 O 5 'LOAD#' O LOADNO 12 O 18 'LINE#' O LINE 22 O 47 'NOT ADDED TO LOAD FILE -' O 62 ' ALREADY EXISTS' // CEND // COPY LIBRARY-S,NAME-JF0027,RECL-096,DATE-01/03/23,TIME-1226,SUB-RPG H B 1 JF0027 FXPRXX IPE F 156 156 9AI 1 DISK FXEMPL IC F 350 350R 5AI 1 DISK FXFCWG IC F 18 18R DISK FPRT O F 132 132 OV PRINTER E AW 7 7 2 E AM 7 9 2 E AT 7 9 2 IXPRXX AA 01 1 CA 156 CA I 10 150PRDAT I 16 160WKNO I BB 02 1 CB 156 CA I 2 3 DEPT L1 I 2 60ENO I 2 30ENO2 I 4 60ENO3 I 9 90SEQNO I P 38 412EMPGRS I P 58 612PAINC I P 62 652HOSP I P 70 97 AW I 104 104 MSDCOD I 105 105 MSPCOD I 127 127 HSPTX I 139 1440CHKNO I CC 99 IXEMPL AA I 6 20 LNAME I 21 21 FNAME IXFCWG AA I 1 92TXFCWO I 10 182TXFCWH C 01 SETON 04 C 01 EXCPT C 01 SETOF 04OV C 01 GOTO END C 99 GOTO END C 02 SETON 05 C 02 HSPTX COMP 'N' 10 C 02N10 Z-ADD0 HOSP C 02 ENO COMP OENO 0606 C 02 06 TOTEMP ADD 1 TOTEMP 40 C 02 Z-ADDENO OENO 50 C 02 AW,1 COMP 0 0707 C 02 AW,2 COMP 0 0808 C 02 PAINC COMP 0 0909 C 02 09 TXPAIN ADD EMPGRS TXPAIN 102 C L1 Z-ADD0 AM C L1 Z-ADD0 MHOSP 92 C AW,4 ADD AW,5 AW,4 C AW,6 ADD AW,7 AW,6 C AM ADD AW AM C MHOSP ADD HOSP MHOSP C AT ADD AW AT C THOSP ADD HOSP THOSP 92 C ENO CHAINXEMPL 03 C OV SETON 04 C OV EXCPT C OV SETOF 04OV C END TAG CLR 1 CHAINXFCWG OPRT E 303 04 O 39 'P A Y R O L L R E G I' O 58 'S T E R --- PART 3' O 81 'PAYROLL DATE:' O PRDAT Y 90 O 110 '(WEEK # IN MONTH)' O WKNO 100 O 127 'PAGE' O PAGE 131 O E 01 04 O 14 'EMP#/SQ# NAME' O 50 'CHK NO MISC $ AMT/CODE' O 67 'MISC % AMT/CODE' O 91 'EXCHK P EXCHK' O 121 'UNION HOSP NTX' O E 02 04 O 24 '************************' O *PLACE 48 O *PLACE 72 O *PLACE 96 O *PLACE 120 O 132 '************' O D 01 02 O ENO2 M 3 O ENO3 6 O 3 '-' O 7 '/' O SEQNO 8 O FNAME 10 O LNAME 26 O CHKNO M 33 O AW,1 K 46 O 07 MSDCOD 48 O AW,2 K 63 O 08 MSPCOD 65 O AW,3 K 80 O AW,4 K 94 O AW,6 K 108 O HOSP K 122 O T 12 L1 05 O 11 'DEPARTMENT' O DEPT 14 O 23 'TOTALS:' O AM,1 K 46 O AM,2 K 63 O AM,3 K 80 O AM,4 K 94 O AM,6 K 108 O MHOSP K 122 O T 02 LR O 23 'GRAND TOTALS:' O AT,1 K 46 O AT,2 K 63 O AT,3 K 80 O AT,4 K 94 O AT,6 K 108 O THOSP K 122 O T 02 LR O 24 'TOTAL NUMBER OF EMPLOYEE' O 30 'S PAID' O TOTEMPJ 46 O T 01 LR O 24 'TOTAL TAXABLE FICA-OASDI' O 30 ' WAGES' O TXFCWOJ 46 O T 01 LR O 24 'TOTAL TAXABLE FICA-HI WA' O 27 'GES' O TXFCWHJ 46 O T 01 LR O 24 'TOTAL WAGES SUBJECT TO P' O 33 'A INC TAX' O TXPAINJ 46 // CEND // COPY LIBRARY-S,NAME-JF0028,RECL-096,DATE-01/03/23,TIME-1226,SUB-RPG H B 1 JF0028 FINP IP F 79 79 KEYBORD FEMPLYE UC F 350 350R 5AI 1 DISK FDISP O F 79 79 CRT E AMS 1 17 79 E AD 15 9 2 E ADN 15 9 2 IEMPLYE AA 01 I 6 20 LNAM I 21 35 FNAM I P 146 220 AD C SETOF 0203 C AMS,1 SET KG C AMS,2 KEY ENO 50 C KG SETON LR C KG GOTO END C ENO CHAINEMPLYE 02 C SETON 05 C EXCPT C SETOF 05 C 02 GOTO END C AD,1 SET KA C AMS,3 KEY ADN,1 04 C 04 Z-ADDAD,1 ADN,1 C KA Z-ADD0 ADN,1 C AD,2 SET KA C AMS,4 KEY ADN,2 04 C 04 Z-ADDAD,2 ADN,2 C KA Z-ADD0 ADN,2 C AD,3 SET KA C AMS,5 KEY ADN,3 04 C 04 Z-ADDAD,3 ADN,3 C KA Z-ADD0 ADN,3 C AD,14 SET KA C AMS,17 KEY ADN,14 04 C 04 Z-ADDAD,14 ADN,14 C KA Z-ADD0 ADN,14 C AD,4 SET KA C AMS,6 KEY ADN,4 04 C 04 Z-ADDAD,4 ADN,4 C KA Z-ADD0 ADN,4 C AD,5 SET KA C AMS,7 KEY ADN,5 04 C 04 Z-ADDAD,5 ADN,5 C KA Z-ADD0 ADN,5 C AD,6 SET KA C AMS,8 KEY ADN,6 04 C 04 Z-ADDAD,6 ADN,6 C KA Z-ADD0 ADN,6 C AD,7 SET KA C AMS,9 KEY ADN,7 04 C 04 Z-ADDAD,7 ADN,7 C KA Z-ADD0 ADN,7 C AD,15 SET KA C AMS,10 KEY ADN,15 04 C 04 Z-ADDAD,15 ADN,15 C KA Z-ADD0 ADN,15 C AD,8 SET KA C AMS,11 KEY ADN,8 04 C 04 Z-ADDAD,8 ADN,8 C KA Z-ADD0 ADN,8 C AD,9 SET KA C AMS,12 KEY ADN,9 04 C 04 Z-ADDAD,9 ADN,9 C KA Z-ADD0 ADN,9 C AD,10 SET KA C AMS,13 KEY ADN,10 04 C 04 Z-ADDAD,10 ADN,10 C KA Z-ADD0 ADN,10 C AD,11 SET KA C AMS,14 KEY ADN,11 04 C 04 Z-ADDAD,11 ADN,11 C KA Z-ADD0 ADN,11 C AD,12 SET KA C AMS,15 KEY ADN,12 04 C 04 Z-ADDAD,12 ADN,12 C KA Z-ADD0 ADN,12 C AD,13 SET KA C AMS,16 KEY ADN,13 04 C 04 Z-ADDAD,13 ADN,13 C KA Z-ADD0 ADN,13 C ENO CHAINEMPLYE C SETON 03 C END TAG ODISP H 11 1P O 24 'C H A N G E E M P L O ' O 48 'Y E E Y T D T O T A ' O 51 'L S' O E 11 05 02 O 20 'NOT IN EMPLOYEE FILE' O E 11 05N02 O 10 'LAST NAME-' O LNAM 25 O 40 'FIRST NAME-' O FNAM 55 OEMPLYE E 05N02 O D 03 O ADN 220P ** PRESS COMMAND KEY 7 & ENTER IF THERE ARE NO MORE ENTRIES TO BE MADE, OR ENTER EMPLOYEE NUMBER ENTER TOTAL GROSS ENTER FEDERAL WITHHOLDING TAX ENTER FICA - OASDI ENTER N.J. INCOME TAX ENTER N.J. SUI/TDI ENTER PA. INCOME TAX ENTER HOSPITAL - TAXED ENTER HOSPITAL - NOT TAXED ENTER LOANS RECEIVABLE ENTER AMOUNT OF MISCELLANEOUS $ ENTER AMOUNT OF MISCELLANEOUS % ENTER AMOUNT OF EXCHANGE CHECK P $ ENTER AMOUNT OF EXCHANGE CHECK $ ENTER AMOUNT OF UNION PAYMENTS ENTER FICA - HI // CEND // COPY LIBRARY-S,NAME-JF0030,RECL-096,REF-000003,DATE-11/10/31,TIME-1133,SUB-RPG H B 1 JF0030 FXINVC IPE F 150 150 9AI 1 DISK FCUSMAS IC F 600 600R 6AI 1 DISK FLOAD UC F 100 100R 9AI 1 DISK IXINVC AA 01 10 CF I 1 9 INVLN I 11 160CNO I P 62 650LOAD7 I 72 72 XICOFC I 79 79 FLPGBO I CC 05 10 CI 20 CB I 1 9 INVLN I P 48 512SGLPR I BB 06 10 CI 20 CH I 1 9 INVLN I 52 52 HDTYPE I EE 07 10 CI 20 CI I 1 9 INVLN I 28 310QTYORD I P 52 540QTYINV I P 55 570QTYBO I P 58 600QTYRBO I P 61 630QTYHOR I 64 660LLNE I FF 08 10 CI 20 CE I 21 28 DESC8 I FF 09 10 CI 20 CM I 1 9 INVLN I P 21 230QTYOR5 I P 60 620QTYINV I P 63 650QTYBO I P 66 680QTYRBO I EE 39 ICUSMAS AA 11 600NCA I BB I 137 137 BCKBIL ILOAD AA 12 10 CF I AA 14 10 CI 20 CI I P 52 540LQTYIN I AA 15 10 CI 20 CH I CC 16 10 CI 20 CM I P 60 620LQTYIN I DD 17 C 39 GOTO END C 01 XICOFC COMP 'I' 10 C 01 XICOFC COMP 'C' 13 C 01 SETOF 1819 C 01 XICOFC COMP 'X' 18 C 01 FLPGBO COMP 'X' 47 C 05N13 SGLPR COMP 0 3030 C 05N13N30 GOTO END C 05N13 MOVE '00I' INVLN C MOVE INVLN LOADLN 9 C Z-ADDLOAD7 LOAD 60 C MOVELLOAD LOADLN C 18 19 MOVE LLNE LOADLN C LOADLN CHAINLOAD 22 C 01N13 SETOF 30 C 01N13 CNO CHAINCUSMAS 11 C 01N13 BCKBIL COMP '1' 30 C 06N13 HDTYPE COMP 'Y' 02 C 06N13 02 MOVE 'Z' HDTYPE C 06N13 HDTYPE COMP 'X' 02 C 06N13 02 MOVE 'Y' HDTYPE C 08 18N19DESC8 COMP 'OFF & CR' 19 C N07N09 GOTO END C 07 10 Z-ADDQTYHOR QTYORD C 07 13 QTYORD SUB QTYHOR QTYORD C 07 47 COR 09 47 COR 07 13 Z-ADD0 QTYBO C 07 47 COR 09 47 COR 07 13 Z-ADD0 QTYRBO C 09 Z-ADDQTYOR5 QTYORD C QTYORD SUB QTYINV QUAN 50 C 18 19 Z-ADDQTYORD QUAN C QUAN SUB QTYBO QTYSHP 50 C QTYSHP SUB QTYRBO QTYSHP C LQTYIN ADD QTYSHP LQTYIN C Z-ADD0 QTYBO C Z-ADD0 QTYRBO C END TAG OLOAD D 01 12N13 O 30 51 'X' O 52 ' ' O 53 'B' O 79 ' ' O D 05 30N13 O 51 'X' O D 06 15N13 O HDTYPE 52 O D 07 14 O LQTYIN 54P O QTYBO 57P O QTYRBO 60P O D 09 16 O LQTYIN 62P O QTYBO 65P O QTYRBO 68P // CEND // COPY LIBRARY-S,NAME-JF0031,RECL-096,REF-000001,DATE-11/10/31,TIME-1112,SUB-RPG H B 1 JF0031 FINP IP F 79 79 KEYBORD FLOAD IC F 100 100R 9AI 1 DISK FCUSMAS IC F 600 600R 6AI 1 DISK FRECEV IC F 300 300R 6AI 2 DISK FXINVC O F 150 150 9AI 1 DISK FXHINV O F 71 71 9AI 1 DISK FXREC O F 300 300 DISK FDISP O F 79 79 CRT E AMS 1 14 79 E AL 500 6 0 E AC 500 1 E ADI 500 3 1 E ADH 500 3 1 E AT 500 1 E AI 500 6 0 E AB 500 1 E AO 500 1 E ADS 10 3 1 ILOAD AA 01 10 CF I 11 160CNO I 11 130CNO3 I 10 10 TYPE I 17 220LDHOUS I 20 20 TYPEL I 22 220HSE6 I 1 100 RECORD I 51 51 PRVBIL I 53 53 XBCKOR I 67 67 OFCRED I 80 850ORDNO I BB 10 CI 20 CA I 10 10 TYPE I 20 20 TYPEL I 1 100 RECORD I P 78 791LOADIS I CC I 10 10 TYPE I 20 20 TYPEL I 1 100 RECORD I 28 310QTYORD I 54 54 DSPRT I P 61 630QTYHOR ICUSMAS AA 02 600NCA I BB I 133 134 CUSST I 135 135 TAXCD I 135 135 CUSTAX I 176 176 MANCDS I P 297 2981CUSDIS I P 535 554 ADS IRECEV AA C Z-ADD0 ZERO3 30 C Z-ADD0 ZERO7 70 C AGNENT TAG C AMS,1 SET KG C AMS,2 KEY LOADNO 60 C KG GOTO BEGIN C LOADNO LOKUPAL 06 C 06 SETON 07 C 06 EXCPT C 06 SETOF 07 C 06 GOTO AGNENT C MOVE '00I' LOADLN 9 C MOVELLOADNO LOADLN C LOADLN CHAINLOAD 03 C N03 TYPE COMP 'D' 03 C 03 SETON 04 C 03 EXCPT C 03 SETOF 04 C 03 GOTO AGNENT C Z-ADD0 LOADIS C Z-SUB1 LINEA 30 C MOVE LINEA LOADLN C LOADLN CHAINLOAD 03 C XBCKOR COMP 'B' 1515 C 15 OFCRED COMP 'X' 15 C CNO CHAINCUSMAS 02 C 02 SETON 05 C 02 EXCPT C 02 SETOF 05 C 02 GOTO AGNENT C LDHOUS COMP 0 0606 C N06 Z-ADD0 HDIS C 06 HSE6 ADD 1 H6 20 C 06 Z-ADDADS,H6 HDIS 31 C AMS,3 KEY CREDEB 1 C CREDEB COMP 'C' 06 C N06 CREDEB COMP 'D' 06 C N06 MOVE 'I' CREDEB C MOVE ' ' NJ67 1 C CREDEB COMP 'C' 06 C 06 CUSST COMP 'NJ' 06 C 06 AMS,14 KEY NJ67 C 06 NJ67 COMP '6' 16 C 06 16 MOVE 'X' NJ67 C AGNDIS TAG C MANCDS COMP 'X' 16 C SETON 17 C EXCPT C SETOF 17 C 16 CUSDIS SET KA C 16 AMS,13 KEY DIS 31 C 16 DIS COMP 0 06 C 16 06 GOTO AGNDIS C 16 GOTO ENDDIS C CNO3 COMP 630 1616 C 16 LOADIS COMP 0 16 C 16 CUSDIS SET KA C 16 AMS,4 KEY DIS 06 C 16 06 Z-ADDCUSDIS DIS C 16 KA Z-ADD0 DIS C 16 GOTO ENDDIS C LOADIS SET KA C AMS,5 KEY DIS 06 C 06 Z-ADDLOADIS DIS C KA Z-ADD0 DIS C ENDDIS TAG C CUSTAX SET KAKB C AMS,6 KEY TAX 1 C TAX COMP ' ' 06 C NKB MOVE CUSTAX TAX C KB KA MOVE ' ' TAX C AMS,7 KEY OK 1 C OK COMP 'N' 06 C 06 GOTO AGNENT C I ADD 1 I 30 C Z-ADDLOADNO AL,I C MOVE CREDEB AC,I C Z-ADDDIS ADI,I C Z-ADDHDIS ADH,I C MOVE TAX AT,I C MOVE XBCKOR AB,I C 15 MOVE 'X' AO,I C I COMP 500 08 C 08 SETON 09 C 08 EXCPT C 08 SETOF 09 C N08 GOTO AGNENT C BEGIN TAG C SETON LR C AMS,8 KEY RUN0 1 C RUN0 COMP 'Y' 0606 C 06 MOVE ' ' RUN0 C 06 AMS,9 KEY PRSPRV 1 C N06 MOVE 'C' PRSPRV C AGNENI TAG C AMS,10 KEY INVNO 60 C AGENDT TAG C AMS,11 KEY INVDAT 60 C MOVE INVDAT INVYR 20 C INVYR COMP UYEAR 0606 C 06 SETON 25 C 06 EXCPT C 06 SETOF 25 C 06 GOTO AGENDT C AMS,12 KEY MESNO 30 C INVNO CHAINRECEV 10 C N10 SETON 13 C N10 EXCPT C N10 SETOF 13 C N10 GOTO AGNENI C INVNO SUB 1 INVNO C Z-ADD0 J 30 C AGNINV TAG C INVNO ADD 1 INVNO C INVNO CHAINRECEV 10 C N10 SETON 14 C N10 EXCPT C N10 SETOF 14 C N10 GOTO AGNINV C J ADD 1 J C Z-ADDINVNO AI,J C J COMP I 06 C N06 GOTO AGNINV C Z-ADD0 J C AGNADD TAG C J ADD 1 J C J COMP I 06 C 06 GOTO END C MOVE '00I' LOADLN C MOVELAL,J LOADLN C LOADLN CHAINLOAD C SETON 11 C EXCPT C SETOF 11 C Z-SUB2 LINE 30 C AGNADL TAG C LINE ADD 1 LINE C MOVE LINE LOADLN C LOADLN CHAINLOAD 02 C 02 GOTO ADOFCR C TYPE COMP 'D' 02 C 02 GOTO AGNADL C SETOF 21 C AO,J COMP 'X' 02 C 02 TYPEL COMP 'I' 21 C 02 21 Z-ADDQTYHOR QTYORD C SETON 12 C EXCPT C SETOF 12 C GOTO AGNADL C ADOFCR TAG C AO,J COMP 'X' 0202 C 02 GOTO AGNADD C LINE ADD 1 OCLINE 30 C SETON 18 C EXCPT C SETOF 1822 C Z-ADD0 LINE C AGNOFC TAG C LINE ADD 1 LINE C MOVE LINE LOADLN C LOADLN CHAINLOAD 02 C 02 GOTO AGNADD C 22 TYPEL COMP 'E' 02 C 22 02 OCLINE ADD 1 OCLINE C 22 02 SETON 23 C 22 02 EXCPT C 22 02 SETOF 23 C 22 02 GOTO AGNOFC C SETOF 22 C TYPEL COMP 'I' 02 C N02 TYPEL COMP 'H' 02 C N02 GOTO AGNOFC C TYPEL COMP 'I' 02 C 02 QTYORD SUB QTYHOR QTYORD 0202 C 02 Z-ADD0 QTYBO 50 C 02 Z-ADD0 QTYRBO 50 C 02 OCLINE ADD 1 OCLINE C 02 SETON 1922 C 02 EXCPT C 02 SETOF 19 C 02 GOTO AGNOFC C TYPEL COMP 'H' 02 C 02 DSPRT COMP 'X' 0202 C 02 OCLINE ADD 1 OCLINE C 02 SETON 2322 C 02 EXCPT C 02 SETOF 23 C GOTO AGNOFC C END TAG ODISP H 11 1P O 24 'E N T E R L O A D S ' O 48 'T O B E I N V O I C ' O 51 'E D' O E 11 07 O 22 'LOAD# ALREADY INVOICED' O 34 'IN THIS RUN' O E 11 04 O 16 'NOT IN LOAD FILE' O E 11 05 O 9 'CUSTOMER#' O CNO M 17 O 37 'NOT IN CUSTOMER FILE' O E 11 09 O 24 'THE MAXIMUM NUMBER OF LO' O 48 'ADS (500) HAVE BEEN ENTE' O 72 'RED. NO MORE ARE ALLOWE' O 74 'D.' O E 11 13 O 24 'INVOICE# PREVIOUSLY USED' O E 11 25 O 24 'INVOICE YEAR NOT EQUAL T' O 48 'O COMPUTER YEAR - REENTE' O 49 'R' O E 20 17 O 15 'LOAD % DISCOUNT' O LOADISM 21 O 41 'CUSTOMER % DISCOUNT' O CUSDISM 47 O 16 71 '*** DISCOUNT REQUIRED **' O 16 72 '*' O E 11 14 O 24 'INVOICE# WILL BE ' O 48 'SKIPPED, HAS BEEN USED P' O 57 'REVIOUSLY' O INVNO M 16 O T 11 LR O 24 'THE LAST INVOICE NUMBER ' O 32 'USED WAS' O INVNO 39 O T 01 LR O 24 'ADDITIONAL INVOICES MAY ' O 48 'BE REQUIRED FOR RETAINAG' O 49 'E' O T 11 LR O 24 'PRESS ENTER TO RETURN TO' O 29 ' MENU' OXINVC E 11 O RECORD 100 O AI,J 6 O 55 ' ' O RUN0 56 O PRVBIL 57 O PRSPRV 58 O ADI,J 60P O AT,J 61 O AL,J 65P O AC,J 66 O INVDAT 70P O AB,J 71 O AO,J 72 O MESNO 74P O 75 ' ' O ADH,J 77P O 78 ' ' O NJ67 106 O ZERO3 115P O ZERO7 119P O E 12 O RECORD 100 O AI,J 6 O 21 QTYORD 31 O E 18 O AI,J 6 O OCLINE 9 O 10 'I' O 20 'E' O 38 'OFF & CREDIT ITEMS' O E 19 O RECORD 100 O AI,J 6 O OCLINE 9 O QTYORD 31 O QTYBO 57P O QTYRBO 60P O LINE 66 O E 23 O RECORD 100 O AI,J 6 O OCLINE 9 OXHINV T LRNLR OXREC T LRNLR ** PRESS COMMAND KEY 7 & ENTER IF THERE ARE NO MORE ENTRIES TO BE MADE, OR ENTER LOAD NUMBER TO BE INVOICED ENTER TYPE (I=INVOICE, C=CREDIT, D=DEBIT, DEFAULTS TO I) ENTER INVOICE % DISCOUNT-1/10% (CK1=0, ENTER=USE ABOVE DISCOUNT FROM CUST FILE) ENTER INVOICE % DISCOUNT-1/10% (CK1=0, ENTER=USE ABOVE DISCOUNT FROM LOAD FILE) ENTER IF TAXABLE (T/U/P/N/R/E) (CK2=CHANGE, ENTER=USE ABOVE FROM CUST) E) ENTER WHETHER OR NOT ENTRIES ARE OK (Y=YES, N=NO) ARE ALL INVOICES IN THIS RUN TO BE 0 $ AMOUNT (Y=YES, ANYTHING ELSE=NO) ENTER WHETHER TO USE CURRENT OR OLD PRICES (C=CURRENT, O=OLD) ENTER FIRST INVOICE NUMBER ENTER DATE TO APPEAR ON ALL INVOICES ENTER MESSAGE# TO PRINT ON ALL INVOICES (JUST PRESS ENTER IF NONE) ENTER INVOICE % DISCOUNT-1/10% (YOU MUST ENTER A DISCOUNT) ENTER 6 FOR NJ 6% (OR 3%) FORMER TAX RATE, OTHERWISE JUST PRESS ENTER // CEND // COPY LIBRARY-S,NAME-JF0032,RECL-096,DATE-11/11/02,TIME-0619,SUB-RPG H B 1 JF0032 FXINVC IPE F 150 150 9AI 1 DISK FCUSMAS IC F 600 600R 6AI 1 DISK FMISCUS IC F 97 97R 7AI 1 DISK FPROD IC F 400 400R 9AI 1 DISK FPRCTAB IC F 35 35R14AI 1 DISK FBSEHSE IC F 13 13R 6AI 1 DISK FHOUSE IC F 41 41R 9AI 1 DISK FMESAGE IC F 66 66R 5AI 1 DISK FXHINV O F 71 71 9AI 1 DISK A U8 FXREC O F 300 300 DISK A U8 FXFLITM O F 15 15 6AI 1 DISK U7 FPRT O F 132 132 OV LPRINTER U6 E AP 8 9 4 E AOP 8 9 4 E AL 80 6 0 E AH 80 6 0 E AD1 80 27 E AD2 80 27 E AI 80 6 0 E AA 80 9 2 E AAT 80 9 2 E AAN 80 9 2 E* ADS 10 3 1 LPRT 51FL 51OL IXINVC AA 01 10 CF I 1 60INVNO L1 I 11 160CNO I 17 220HSENO 20 I 17 20 HSE4 I 21 22 HSE2 I* 22 220HSE6 I 23 230REGOPP 02 I 24 32 BLDG 61 I 33 40 LOT 62 I 41 44 BSEQ 63 I* 45 500DELDAT I 56 56 RUN0 I 57 57 BOPRBL 15 I 58 58 PRSPRV I P 59 601DISC 18 I 61 61 TAXINV I P 62 650LOAD7 I 66 66 CREDEB I P 67 700INVDT7 I 71 71 XBCKOR I 72 72 XICOFC I P 73 740MESNO I 75 75 ONETWO I P 76 771HDISC 3333 I 79 79 FLPGBO I 80 850ORDNO I 86 910DELDAT 76 I 106 106 NJ67 I 107 107 RETPC I 108 113 RETINV I P 114 1151RDISC I P 116 1192RETAMT I BB 04 10 CI 20 CA I 21 47 HDES1 I 52 61 PONO1 17 I 62 71 PONO2 I CC 05 10 CI 20 CB I 21 47 HDES2 I P 48 512SGLPR I 52 61 PONO3 I 62 71 PONO4 I P 77 790NJCON 59 I DD 06 10 CI 20 CH I 21 27 ITEM I 52 52 HDTYPE I 54 54 DSPRT I EE 07 10 CI 20 CI I 21 24 ITEM4 I 25 27 ITEM3 I 21 27 ITEM I 28 310QTYORD I 32 32 HC I 33 33 LRH 10 I P 34 384HSPPRC I P 39 410LINFT 43 I P 52 540QTYINV I P 55 570QTYBO I P 58 600QTYRBO I P 61 630QTYHOR I FF 08 10 CI 20 CE I 21 28 DESC8 I 21 47 DESC I 48 48 LRH 10 I FF 09 10 CI 20 CM I P 21 230QTYOR5 I 24 24 LRH 10 I P 25 294MSPPRC I P 30 320LINFT I 33 59 DESC I P 60 620QTYINV I P 63 650QTYBO I P 66 680QTYRBO I 69 70 MNDEPT I EE 39 ICUSMAS AA 11 600NCA I BB I 8 37 CNAME I 38 67 STREET I 68 91 CTY I 92 96 ZIP I 97 121 DEVCO I 132 132 NETBIL I 133 134 STATE I 137 137 BCKBIL I 299 300 SLSMAN I 489 489 SLPITM I 512 512 SLITPR I 525 530 NYCODE I P 531 5346NYTXRT IMISCUS AA 57 97NCA I BB I 8 37 CNAME I 38 67 STREET I 68 91 CTY I 92 96 ZIP IPROD GG I 11 11 TYPE I 12 12 STAT I P 13 52 AP I P 53 550LIN I 56 57 DEPT I 129 1310PRGRP I 134 160 DESC I P 161 200 AOP IPRCTAB AA 54 35NCA I BB I 15 150PC I P 16 204PSPPRC I P 21 223PDSPCC I 23 23 PZDIS I***** I P 24 284PADDOL I***** IBSEHSE AA 44 13NCA I BB I 7 120BSEHSE IHOUSE AA 45 10NCB I BB I P 38 412BSESUB IMESAGE AA 48 66NCA I BB I 6 65 MESDES C Z-ADD0 ZERO3 30 C Z-ADD0 ZERO7 70 C Z-ADD0 ZERO9 90 C MOVE ' ' BLNK30 30 C 39 GOTO END C 06 COR 07 COR 09 SETOF 37 C SETON 32 C 01 Z-ADD5 SQNO 30 C 01 RUN0 COMP 'Y' 73 C 01 PRSPRV COMP 'O' 29 C 01 FLPGBO COMP 'X' 47 C 01 ONETWO COMP '1' 64 C 01 ONETWO COMP '2' 65 C 01 NJ67 COMP 'X' 60 C 01 RETPC COMP 'P' 74 C 01 Z-SUBDISC DISC 38 C 01 Z-SUBHDISC HDISC 53 C 01 Z-SUBRDISC RDISC 75 C 01 MOVE '2' BCKBIL C 01 MOVE ' ' SLPITM C 01 CNO CHAINCUSMAS 11 C 01 NETBIL COMP 'N' 72 C 01 72 SETON 18 C 01 SLPITM COMP 'X' 58 C 01 SLITPR COMP 'X' 68 C 01 MOVELCNO CNO3 30 C 01 CNO3 COMP 630 03 C 01 03 MOVE LOAD7 MSCSKY 7 C 01 03 MOVEL'L' MSCSKY C 01 03 MSCSKY CHAINMISCUS 57 C 01 03N57 MOVE BLNK30 DEVCO C 01 BCKBIL COMP '1' 30 C 01 Z-ADD0 TXRAT1 66 C 01 Z-ADD0 TXRAT2 66 C 01 MOVE BLNK30 TX1DES 11 C 01 MOVE BLNK30 TX2DES 14 C 01 MOVE ' ' TX1ST 2 C 01 MOVE ' ' TX2ST 2 C 01 STATE COMP 'NJ' 12 C 01 12 TAXINV COMP 'T' 12 C 01 12 Z-ADD.070000 TXRAT1 C 01 12 MOVEL' 7.0000%'TX1DES C 01 12 60 Z-ADD.060000 TXRAT1 C 01 12 60 MOVEL' 6.0000%'TX1DES C 01 12 MOVE ' NJ' TX1DES C 01 12 MOVE 'NJ' TX1ST C 01 STATE COMP 'NJ' 12 C 01 12 TAXINV COMP 'U' 12 C 01 12 Z-ADD.035000 TXRAT1 C 01 12 MOVEL' 3.5000%'TX1DES C 01 12 60 Z-ADD.030000 TXRAT1 C 01 12 60 MOVEL' 3.0000%'TX1DES C 01 12 MOVE ' NJ' TX1DES C 01 12 MOVE 'NJ' TX1ST C 01 STATE COMP 'PA' 12 C 01 12 TAXINV COMP 'T' 12 C 01 12 Z-ADD.060000 TXRAT1 C 01 12 MOVEL' 6.0000%'TX1DES C 01 12 MOVE ' PA' TX1DES C 01 12 MOVE 'PA' TX1ST C 01 STATE COMP 'PA' 12 C 01 12 TAXINV COMP 'P' 12 C 01 12 Z-ADD.060000 TXRAT1 C 01 12 MOVEL' 6.0000%'TX1DES C 01 12 MOVE ' PA' TX1DES C 01 12 MOVE 'PA' TX1ST C 01 12 Z-ADD.020000 TXRAT2 C 01 12 MOVEL' 2.0000%'TX2DES C 01 12 MOVE ' PHILA' TX2DES C 01 12 MOVE 'PH' TX2ST C 01 STATE COMP 'MD' 12 C 01 12 TAXINV COMP 'T' 12 C 01 12 Z-ADD.060000 TXRAT1 C 01 12 MOVEL' 6.0000%'TX1DES C 01 12 MOVE ' MD' TX1DES C 01 12 MOVE 'MD' TX1ST C 01 STATE COMP 'CT' 12 C 01 12 TAXINV COMP 'T' 12 C 01 12 Z-ADD.063500 TXRAT1 C 01 12 MOVEL' 6.3500%'TX1DES C 01 12 MOVE ' CT' TX1DES C 01 12 MOVE 'CT' TX1ST C 01 STATE COMP 'RI' 12 C 01 12 TAXINV COMP 'T' 12 C 01 12 Z-ADD.070000 TXRAT1 C 01 12 MOVEL' 7.0000%'TX1DES C 01 12 MOVE ' RI' TX1DES C 01 12 MOVE 'RI' TX1ST C 01 STATE COMP 'MA' 12 C 01 12 TAXINV COMP 'T' 12 C 01 12 Z-ADD.062500 TXRAT1 C 01 12 MOVEL' 6.2500%'TX1DES C 01 12 MOVE ' MA' TX1DES C 01 12 MOVE 'MA' TX1ST C 01 STATE COMP 'NY' 12 C 01 12 TAXINV COMP 'T' 12 C 01 12 Z-ADDNYTXRT TXRAT1 C 01 12 MOVELTXRAT1 DUM2 2 C 01 12 MOVE TXRAT1 DUM4 4 C 01 12 MOVELDUM2 DUM3 3 C 01 12 MOVE '.' DUM3 C 01 12 MOVELDUM3 DUM7 7 C 01 12 MOVE DUM4 DUM7 C 01 12 MOVELDUM7 TX1DES C 01 12 MOVE '% NY' TX1DES C 01 12 MOVE 'NY' TX1ST C 01 Z-ADD0 TAX1 92 C 01 Z-ADD0 TAX2 92 C 01 Z-ADD0 TAX 92 C 01 Z-ADD0 INVSUB 92 C 01 Z-ADD0 INVSBB 92 C 01 Z-ADD0 INVNTX 92 C 01 Z-ADD0 DISAMT 92 C 01 Z-ADD0 HDSAMT 92 C 01 Z-ADD0 TDSAMT 92 C 01 Z-ADD0 INTOT 92 C 01 Z-ADD0 VWNAMT 92 C 01 Z-ADD0 STRAMT 92 C* 01 Z-ADD0 MANAMT 92 C 01 Z-ADD0 PAGE C 01 SETOF 21 C 01 CREDEB COMP 'C' 13 C 01 CREDEB COMP 'D' 14 C 01 XBCKOR COMP 'B' 19 C 01 XICOFC COMP 'I' 34 C 01 XICOFC COMP 'C' 35 C 01 XICOFC COMP 'X' 69 C 01 Z-ADDLOAD7 LOADNO 60 C 01 Z-ADDINVDT7 INVDAT 60 C 01 SETON 4041 C 01 Z-ADD51 PRTLNE 20 C 05 15N35 Z-ADDSGLPR INVSUB 2121 C 05N21 SETOF 58 C 06 HDTYPE COMP 'X' 23 C 06N23 HDTYPE COMP 'Y' 23 C 06N23 GOTO END C SETOF 23 C 06 35 DSPRT COMP 'X' 23 C 23 SETOF 06 C 23 GOTO END C 06 Z-ADD1 ITEMSQ C 06 MOVE ITEMSQ ITEMLN C 06 MOVELITEM ITEMLN C 06 ITEMLN CHAINPROD 22 C 06N22 TYPE COMP 'D' 22 C 06N22 EXSR OVFLO C 06N22 SQNO ADD 1 SQNO C 06N22 SETON 3137 C 06N22 EXCPT C 06N22 PRTLNE ADD 1 PRTLNE C 06N22 SETOF 31 C 06N22 EXSR PRTITM C N07N08N09 GOTO END C 02N10 LRH COMP 'L' 16 C 02N10 MOVE 'L' LRH C 02N10 16 MOVE 'R' LRH C 07 34 Z-ADDQTYHOR QTYORD C 07 35 QTYORD SUB QTYHOR QTYORD 36 C 07 35 36 GOTO END C 07 COR 09 QTYBO ADD QTYRBO QTYBO C 07 47 COR 09 47 COR 07 35 Z-ADD0 QTYBO C 07 EXSR ITEM C 08 37 EXSR OVFLO C 08 37 PRTLNE ADD 1 PRTLNE C 08 37 SQNO ADD 1 SQNO C 08 69 DESC8 COMP 'OFF & CR' 26 C 08 69 26 CANN64N65 Z-ADD0 INVSUB C 08 69 26 CANN64N65 Z-ADD0 INVNTX C 08 69 26 SETOF 21 C 08 69 26 Z-ADD51 PRTLNE C 08 69 26 EXSR OVFLO C 09 MOVE '9999999' ITEM C 09 MOVE '9999' ITEM4 C 09 MOVE '999' ITEM3 C 09 MOVE '9' HC C 09 Z-ADDMSPPRC HSPPRC C 09 Z-ADDQTYOR5 QTYORD C 09 EXSR ITEM C END TAG CL1 73 Z-ADD0 INVSUB CL1 73 Z-ADD0 INVNTX CL1 73 GOTO ENDL1 CL1 64 L ADD 1 L 20 CL1 64 Z-ADDLOAD7 AL,L CL1 64 Z-ADDHSENO AH,L CL1 64 MOVE HDES1 AD1,L CL1 64 MOVE HDES2 AD2,L CL1 64 Z-ADDINVNO AI,L CL1 64 Z-ADDINVSUB AAT,L CL1 64 Z-ADDINVNTX AAN,L CL1 64 INVSUB MULT .01 INFLSR CL1 64 Z-ADD0 INVSUB CL1 64 Z-ADD0 INVNTX CL1 64 GOTO ENDL1 CL1 65 Z-ADD50 PRTLNE CL1 65 Z-ADD0 LL 20 CL1 AGNL TAG CL1 65 LL ADD 1 LL CL1 65 SQNO ADD 1 SQNO CL1 65 EXSR OVFLO CL1 65 AAT,LL ADD AAN,LL AA,LL CL1 65 SETON 66 CL1 65 EXCPT CL1 65 SETOF 66 CL1 65 PRTLNE ADD 3 PRTLNE CL1 65 INVSUB ADD AAT,LL INVSUB CL1 65 INVNTX ADD AAN,LL INVNTX CL1 65 LL COMP L 67 CL1 65 67 GOTO AGNL CL1 65 Z-ADD0 L CL1 69N64N65 Z-ADDINVSUB OFCAMT 82 CL1 69N64N65INVSUB ADD SGLPR INVSUB C*1 72 SETON 18 C*1N18 Z-SUBDISC DISC 38 CL1N18 INVSUB MULT DISC DISAMT CL1N18 DISAMT DIV 100 DISAMT H CL1N18 INVSUB ADD DISAMT INTOT 92 CL1 18 Z-ADD0 DISAMT CL1 18 Z-ADDINVSUB INTOT C*1 SETOF 33 C*1 HSE6 ADD 1 H6 20 C*1 ADS,H6 COMP 0 3333 C*1 Z-SUBHDISC HDISC 3333 C*1 HDISC COMP 0 53 CL1 33 Z-ADDINTOT INVSBB CL1 33 INVSBB MULT HDISC HDSAMT CL1 33 HDSAMT DIV 100 HDSAMT H CL1 33 INVSBB ADD HDSAMT INTOT CL1 DISAMT ADD HDSAMT TDSAMT CL1 74 INTOT SUB RETAMT INTOT CL1 74 TDSAMT SUB RETAMT TDSAMT CL1 Z-ADDINTOT INFLSR 92 CL1 INTOT MULT TXRAT1 TAX1 H CL1 INTOT MULT TXRAT2 TAX2 H C********** C********** NEW MARYLAND SALES TAX 6% CL1 STATE COMP 'MD' 54 CL1 54 TAXINV COMP 'T' 54 CL1N54 GOTO ENMDTX C*DUMTX4 (11-4) MUST BE 2 LARGER THAN TAX1 (9-2) CL1 INTOT MULT TXRAT1 DUMTX4 114 CL1 INTOT COMP 0 54 CL1 54 Z-SUBDUMTX4 DUMTX4 CL1 DUMTX4 COMP .0120 54 CL1 54 Z-ADD.01 TAX1 CL1 54 GOTO ENMDTX CL1 DUMTX4 COMP .0120 54 CL1 54 Z-ADD0 TAX1 CL1 54 GOTO ENMDTX CL1 MOVELDUMTX4 TAX1 CL1 MOVE DUMTX4 DUMTX2 20 CL1 DUMTX2 COMP 0 54 CL1 54 TAX1 ADD .01 TAX1 CL1 INTOT COMP 0 54 CL1 54 Z-SUBTAX1 TAX1 CL1 ENMDTX TAG C********** C********** CL1 INTOT ADD TAX1 INTOT CL1 INTOT ADD TAX2 INTOT CL1 INTOT ADD INVNTX INTOT CL1 TAX1 COMP 0 2424 CL1 TAX2 COMP 0 2525 CL1 INVNTX COMP 0 7171 CL1 TAX1 ADD TAX2 TAX CL1 58 Z-ADD50 PRTLNE C*1 58 Z-ADD0 PAGE CL1 58 SETON 90 CL1 58 EXSR OVFLO CL1 58 SETOF 90 CL1 SETON 56 CL1 EXCPT CL1 SETOF 56 CL1 PRTLNE ADD 1 PRTLNE CL1 SETOF 46 CL1 19 GOTO ENBSHS CL1 20 GOTO ENBSHS CL1 HSENO CHAINBSEHSE 44 CL1 44 GOTO ENBSHS CL1 MOVE '000' HSKEY 9 CL1 MOVELBSEHSE HSKEY CL1 HSKEY CHAINHOUSE 45 CL1 45 GOTO ENBSHS CL1 BSESUB COMP 0 46 CL1N46 GOTO ENBSHS CL1N18 BSETOT MULT DISC BSEDIS 72 CL1N18 BSEDIS DIV 100 BSEDIS H CL1N18 BSESUB ADD BSEDIS BSETOT 92 CL1 72 DISC COMP 0 2626 CL1 72 26 BSETOT MULT DISC BSEDIS CL1 72 26 BSEDIS DIV 100 BSEDIS H CL1 72 26 BSESUB ADD BSEDIS BSESUB CL1 18 Z-ADD0 BSEDIS CL1 18 Z-ADDBSESUB BSETOT CL1 33 Z-ADDBSETOT BSESBB 92 CL1 33 BSESBB MULT HDISC BSEHDS 72 CL1 33 BSEHDS DIV 100 BSEHDS H CL1 33 BSESBB ADD BSEHDS BSETOT CL1 BSETOT MULT TXRAT1 BSETX1 72H CL1 BSETOT MULT TXRAT2 BSETX2 72H CL1 BSETOT ADD BSETX1 BSETOT CL1 BSETOT ADD BSETX2 BSETOT CL1 INVSUB SUB BSESUB COESUB 92 CL1N18 COETOT MULT DISC COEDIS 72 CL1N18 COEDIS DIV 100 COEDIS H CL1N18 COESUB ADD COEDIS COETOT 92 CL1 72 DISC COMP 0 2626 CL1 72 26 COETOT MULT DISC COEDIS CL1 72 26 COEDIS DIV 100 COEDIS H CL1 72 26 COESUB ADD COEDIS COESUB CL1 18 Z-ADD0 COEDIS CL1 18 Z-ADDCOESUB COETOT CL1 33 Z-ADDCOETOT COESBB 92 CL1 33 COESBB MULT HDISC COEHDS 72 CL1 33 COEHDS DIV 100 COEHDS H CL1 33 COESBB ADD BSEHDS COETOT CL1 COETOT MULT TXRAT1 COETX1 72H CL1 COETOT MULT TXRAT2 COETX2 72H CL1 COETOT ADD COETX1 COETOT CL1 COETOT ADD COETX2 COETOT CL1 SQNO ADD 1 SQNO CL1 SETON 55 CL1 EXCPT CL1 SETOF 55 CL1 PRTLNE ADD 2 PRTLNE CL1 25 PRTLNE ADD 2 PRTLNE CL1N25 33N18PRTLNE ADD 2 PRTLNE CL1 ENBSHS TAG CL1 69N64N65 EXSR OVFLO CL1 69N64N65 SETON 70 CL1 69N64N65 EXCPT CL1 69N64N65 SETOF 70 CL1 69N64N65PRTLNE ADD 1 PRTLNE CL1 69N64N65 EXSR OVFLO CL1 69N64N65 SETON 56 CL1 69N64N65 EXCPT CL1 69N64N65 SETOF 56 CL1 69N64N65PRTLNE ADD 1 PRTLNE CL1 EXSR OVFLO CL1 SQNO ADD 1 SQNO CL1 SETON 49 CL1 EXCPT CL1 SETOF 49 CL1 PRTLNE ADD 1 PRTLNE CL1 25 PRTLNE ADD 1 PRTLNE CL1N25 33N18PRTLNE ADD 1 PRTLNE CL1 MESNO COMP 0 26 CL1N26 GOTO ENDL1 CL1 MOVELMESNO MESKEY 5 CL1 Z-ADD1 MSEQNO 20 CL1 MOVE MSEQNO MESKEY CL1 MESKEY CHAINMESAGE 48 CL1 48 GOTO ENDL1 CL1 PRTLNE ADD 4 PRTLNE CL1 EXSR OVFLO CL1 SETON 5051 CL1 EXCPT CL1 SETOF 5051 CL1 AGNMES TAG CL1 MSEQNO ADD 1 MSEQNO CL1 MOVE MSEQNO MESKEY CL1 MESKEY CHAINMESAGE 48 CL1N48 EXSR OVFLO CL1N48 SETON 51 CL1N48 EXCPT CL1N48 SETOF 51 CL1N48 PRTLNE ADD 1 PRTLNE CL1N48 GOTO AGNMES CL1 SETON 52 CL1 EXCPT CL1 SETOF 52 CL1 ENDL1 TAG CSR ITEM BEGSR CSR QTYORD SUB QTYINV QUAN 40 2323 CSRN23 GOTO ENDSR1 CSR QUAN SUB QTYBO QTYSHP 40 CSR 09 Z-ADD9 PC CSR 09 Z-ADDMSPPRC PRICE CSR 09 Z-ADD0 PDSPCC CSR 09 MOVE ' ' PZDIS C***** CSR 09 Z-ADD0 PADDOL C***** CSR 09 SETON 37 CSR 09 GOTO ENPRIC CSR Z-ADD1 ITEMSQ 20 CSR MOVE ITEMSQ ITEMLN 9 CSR MOVELITEM ITEMLN CSR ITEMLN CHAINPROD 22 CSRN22 TYPE COMP 'D' 22 CSR 22 GOTO ENDSR1 CSR 29 Z-ADDAOP AP CSR Z-ADD0 PDSPCC CSR MOVE ' ' PZDIS C***** CSR Z-ADD0 PADDOL C***** CSR MOVE HC PC CSR HC COMP '0' 54 54 CSR 54 HC COMP '8' 5454 CSR 54 GOTO PRICE CSR HC COMP '9' 54 CSR 54 Z-ADDHSPPRC PSPPRC CSR 54 GOTO PRICE CSR Z-ADD1 PC CSR Z-ADD0 PSPPRC CSR MOVELCNO PRKEY 14 CSR MOVE 'I 'DUM8 8 CSR MOVE ITEM DUM8 CSR MOVE DUM8 PRKEY CSR PRKEY CHAINPRCTAB 54 CSRN54 GOTO PRICE CSR MOVEL'G 'DUM8 CSR MOVE PRGRP DUM8 CSR MOVE DUM8 PRKEY CSR PRKEY CHAINPRCTAB 54 CSR PRICE TAG CSR PC COMP 9 54 CSR 54 Z-ADDPSPPRC PRICE 94 CSR 54 GOTO ENPRIC CSR PC COMP 0 54 CSR 54 Z-ADD0 PRICE CSR 54 GOTO ENPRIC CSR PC COMP 1 54 54 CSR 54 PC COMP 8 5454 CSRN54 Z-ADD1 PC CSR AP,PC COMP 0 54 CSR 54 Z-ADD1 PC CSR Z-ADDAP,PC PRICE CSR ENPRIC TAG CSR 72 DISC DIV 100 DISPCC 33 CSR 72 1 ADD DISPCC INTPCC 43 CSR 72 Z-ADDINTPCC NETPCC 43 CSR 72 Z-SUBPDSPCC PDSPCC 5454 CSR 72N54 PZDIS COMP 'Z' 54 CSR 72 54 1 ADD PDSPCC PNTPCC 43 CSR 72 54 Z-ADDPNTPCC NETPCC CSR 72 PRICE MULT NETPCC PRICNT 72H CSR 72 Z-ADDPRICNT PRICE C***** CSR 72 PRICE ADD PADDOL PRICE C***** CSR 30 PRICE MULT QUAN AMT H CSRN30 PRICE MULT QTYSHP AMT 92H CSR QUAN COMP 0 22 CSRN22 QTYSHP COMP 0 22 CSR 22 PRICE MULT QTYSHP AMT H CSR 07 43 Z-ADDLIN LINFT CSR LINFT COMP 0 22 CSR 22 AMT MULT LINFT AMT H CSRN15 Z-ADD0 AMT CSR ITEM4 COMP '9999' 54 CSR 54 ITEM3 COMP '999' 5454 CSRN21 15N54INVSUB ADD AMT INVSUB CSR 15 54 INVNTX ADD AMT INVNTX CSR Z-ADD0 TOTFT 50 CSR 30 QUAN MULT LINFT TOTFT CSRN30 QTYSHP MULT LINFT TOTFT CSR MOVE ' ' SWCODE 1 CSRN72 AMT MULT DISC XAMT 92H CSRN72 XAMT DIV 100 XAMT H CSRN72 AMT ADD XAMT AMT CSR 33 AMT MULT HDISC XAMT H CSR 33 XAMT DIV 100 XAMT CSR 33 AMT ADD XAMT AMT CSR 73 Z-ADD0 AMT CSR 07 DEPT COMP 'Z1' 26 CSR 07N26 DEPT COMP 'L4' 26 CSR 07 26 STRAMT ADD AMT STRAMT CSR 07 26 21 Z-ADDINVSUB STRAMT CSR 07 26 MOVE 'S' SWCODE CSR 07 MOVELITEM ITEM1 1 CSR 07 ITEM1 COMP 'V' 26 CSR 07N26 MOVELDEPT DEPT1 1 CSR 07N26 DEPT1 COMP 'V' 26 CSR 07 26 VWNAMT ADD AMT VWNAMT CSR 07 26 21 Z-ADDINVSUB VWNAMT CSR 07 26 MOVE 'W' SWCODE CSR 09 MNDEPT COMP 'Z1' 26 CSR 09N26 MNDEPT COMP 'L4' 26 CSR 09 26 STRAMT ADD AMT STRAMT CSR 09 26 21 Z-ADDINVSUB STRAMT CSR 09 26 MOVE 'S' SWCODE CSR 09 MOVELMNDEPT DEPT1 CSR 09 DEPT1 COMP 'V' 26 CSR 09 26 VWNAMT ADD AMT VWNAMT CSR 09 26 21 Z-ADDINVSUB VWNAMT CSR 09 26 MOVE 'W' SWCODE CSR 73 Z-ADD0 STRAMT CSR 73 Z-ADD0 VWNAMT CSR EXSR OVFLO CSR SQNO ADD 1 SQNO CSR SETON 2737 CSR EXCPT CSR PRTLNE ADD 1 PRTLNE CSR SETOF 27 CSR 07 EXSR PRTITM CSR ENDSR1 ENDSR CSR PRTITM BEGSR CSR AGNITD TAG CSR ITEMSQ ADD 1 ITEMSQ CSR MOVE ITEMSQ ITEMLN CSR ITEMLN CHAINPROD 22 CSR 22 GOTO ENDSR2 CSRN22 TYPE COMP 'D' 22 CSRN22 EXSR OVFLO CSRN22 SQNO ADD 1 SQNO CSRN22 SETON 28 CSRN22 EXCPT CSRN22 PRTLNE ADD 1 PRTLNE CSRN22 SETOF 28 CSR GOTO AGNITD CSR ENDSR2 ENDSR CSR OVFLO BEGSR CSR PAGE COMP 1 91 CSRN54 PRTLNE COMP 43 42 42 CSR 54 PRTLNE COMP 47 42 42 CSR 54 90 Z-ADD0 PAGE CSR 42 EXCPT CSR 42 Z-ADD17 PRTLNE CSR 42 SETOF 4042 CSR ENDSR OPRT E 046 42N40N91 O OR 048 42N40 91 O 84 'CONTINUED' O E 102 42 O N17 69 'PO#' O PONO1 80 O E 01 42 O PONO2 80 O E 01 42 O PONO3 80 O E 02 42 O N59 62 'CONTRACT#' O N59 NJCON L 69 O PONO4 80 O E 01 42 O CNAME 39 O N61 47 'BL/BK' O BLDG 57 O N62 61 'LOT' O LOT 70 O N63 76 'SQ/UN' O BSEQ 81 O E 01 42 O DEVCO 34 O N65 HDES1 76 O 65 70 'THIS IS A SUMMARY FOR' O E 01 42 O STREET 39 O N65 HDES2 76 O 65 71 'THE FOLLOWING INVOICES' O E 01 42 O CTY 33 O ZIP 39 O N20 HSE4 53 O N20 54 '-' O N20 HSE2 56 O 02 62 'OPP' O N02 62 'REG' O E 0 14 42 O 13 38 'CREDIT MEMO' O 14 37 'DEBIT MEMO' O 19N13N14 37 'BACK ORDER' O 34 50 'OF/CR INV' O 35 51 'OF/CR CRED' O E 01 42 O LOADNOM 9 O SLSMAN 15 O CNO 25 O 76 36 'DELIVERED' O 76 DELDATY 45 O INVDATY 61 O INVNO Z 71 O PAGE 79 O 77 'PAGE' O***** START PRINTING BAR CODE AT LINE 17 O E 0 17 42 40 O E 00 42 40 O***** START QMS MODE O 5 'ªPYª-' O E 00 42 40 O***** 0.5"HIGH, 0.0"LONG, 0.0"+0DOTS JUSTIFIED VERTICALLY O 9 'ªM0500000' O***** TAB 03.0" FROM LEFT MARGIN, 0 RANGE FOR DOTS O 15 'ªT0300' O***** B-BARCODE, Y=PRINT AS NUMBER, A=CODE39 O 19 'ªBYA' O ORDNO 25 O***** END SEQUENCE O 27 'ª-' O E 00 42 40 O***** END QMS MODE O 5 'ªPNª-' O***** SINCE PRINT .5" BARCODE, LOSE .5" IN LINE SPACING O E 0 19 42 40 O OR 0 17 42N40 O E 01 27 O QUAN L 5 O QTYSHPL 11 O QTYBO M 17 O ITEM 25 O PC 26 O DESC 54 O N10 LRH 56 O N21 15 AMT A 87 O 21 15 68AMT A 87 O N15 87 'BILLED PREVIOUSLY' O N21 15 PRICE L 74 O 21 15 68PRICE L 74 O TOTFT M 62 O E 01 31 O ITEM 25 O DESC 54 O E 01 28 O DESC 54 O D 01 08 37 O DESC 56 O N10 LRH 58 O E 01 66 O 20 'LOAD#' O AL,LL 27 O 36 'HOUSE#' O AH,LL 43 O 50 'INV#' O AI,LL 57 O AA,LL A 85 O E 01 66 O AD1,LL 64 O E 01 66 O AD2,LL 64 O E 01 56 O E 01 55 O BSESUBA 28 '*' O 14 'BASE SUBTOTAL*' O N18 BSEDISA 57 '*' O N18 45 '% DISCOUNT*' O N18 38 45 '% INCREASE*' O N18 DISC 3 34 O 33 18 HDSAMTA 57 '*' O 33 18 45 '% DISCOUNT*' O 33 18 53 45 '% INCREASE*' O 33 18 HDISC 3 34 O 24 BSETX1A 87 '*' O 24 TX1DES 70 O 24 75 'TAX*' O E 01 55 25 O OR 55 33N18 O 33N18 BSEHDSA 57 '*' O 33N18 45 '% DISCOUNT*' O 33N18 53 45 '% INCREASE*' O 33N18 HDISC 3 34 O 25 BSETX2A 87 '*' O 25 TX2DES 70 O 25 75 'TAX*' O E 01 55 O COESUBA 28 '*' O 14 'NET SUBTOTAL**' O N18 COEDISA 57 '*' O N18 45 '% DISCOUNT*' O N18 38 45 '% INCREASE*' O N18 DISC 3 34 O 33 18 HDSAMTA 57 '*' O 33 18 45 '% DISCOUNT*' O 33 18 53 45 '% INCREASE*' O 33 18 HDISC 3 34 O 24 COETX1A 87 '*' O 24 TX1DES 70 O 24 75 'TAX*' O E 01 55 25 O OR 55 33N18 O 33N18 COEHDSA 57 '*' O 33N18 45 '% DISCOUNT*' O 33N18 53 45 '% INCREASE*' O 33N18 HDISC 3 34 O 25 COETX2A 87 '*' O 25 TX2DES 70 O 25 75 'TAX*' O E 01 70 O 10 'HOUSE#' O HSE4 15 O 16 '-' O HSE2 18 O SGLPR J 29 O 48 'CREDIT' O OFCAMTJ 59 O**********REPLACE FOLLOWING LINES WITH * LINES FOR NEW RETAINAGE O E 01 49 24 O OR 49N18 32 O OR 49 46 O OR 49 33 O INVSUBA 28 '*' O 14 'NET SUBTOTAL**' O N18 DISAMTA 57 '*' O N18 45 '% DISCOUNT*' O N18 38 45 '% INCREASE*' O N18 DISC 3 34 O 33 18 HDSAMTA 57 '*' O 33 18 45 '% DISCOUNT*' O 33 18 53 45 '% INCREASE*' O 33 18 HDISC 3 34 O 24 TAX1 A 87 '*' O 24 TX1DES 70 O 24 75 'TAX*' O* E 00 49 24 O* OR 49N18 32 O* OR 49 46 O* OR 49 33 O* INVSUBA 28 '*' O* 14 'NET SUBTOTAL**' O* E 01 49 74 O* RETAMTA 87 '*' O* 87 'CR' O* 39 'LESS' O* RDISC 3 44 O* 68 '% RETAINAGE ON INVOICE#' O* RETINV 75 O* E 01 49 24 O* OR 49N18 32 O* OR 49 46 O* OR 49 33 O* N18 DISAMTA 57 '*' O* N18 45 '% DISCOUNT*' O* N18 38 45 '% INCREASE*' O* N18 DISC 3 34 O* 33 18 HDSAMTA 57 '*' O* 33 18 45 '% DISCOUNT*' O* O* 33 18 HDISC 3 34 O* 24 TAX1 A 87 '*' O* 24 TX1DES 70 O* 24 75 'TAX*' O* E 01 49 25 O* OR 49 33N18 O* 33N18 HDSAMTA 57 '*' O* 33N18 45 '% DISCOUNT*' O* 33N18 53 45 '% INCREASE*' O* 33N18 HDISC 3 34 O* 25 TAX2 A 87 '*' O* 25 TX2DES 70 O* 25 75 'TAX*' O E 01 49 71 32 O INVNTXA 87 '*' O 75 'NON TAX ITEMS*' O**********REMOVE NEXT 7 LINES FOR NEW RETAINAGE O E 01 49 74 O RETAMTA 87 '*' O 87 'CR' O 39 'LESS' O RDISC 3 44 O 68 '% RETAINAGE ON INVOICE#' O RETINV 75 O E 11 50 O 29 '************************' O 53 '************************' O 73 '********************' O E 01 50 O 6 '*' O 73 '*' O E 01 51 O 6 '*' O MESDES 69 O 73 '*' O E 01 52 O 6 '*' O 73 '*' O E 00 52 O 29 '************************' O 53 '************************' O 73 '********************' O T 048 L1 32N91 O OR 048 L1 32 91 O INTOT A 87 OXHINV EADD 42 40 O INVNO 6 O 10 '0011' O CNO 16 O CNAME 46 O DEVCO 71 O EADD 42 40 O INVNO 6 O 10 '0022' O STREET 40 O CTY 64 O STATE 66 O ZIP 71 O EADD 42 40 O INVNO 6 O 10 '0033' O PONO1 20 O PONO2 30 O PONO3 40 O PONO4 50 O BLDG 59 O LOT 67 O BSEQ 71 O EADD 42 40 O INVNO 6 O 10 '0044' O HSENO 16 O HDES1 43 O HDES2 70 O EADD 42 40 O INVNO 6 O 10 '0055' O LOADNO 16 O SLSMAN 18 O 02 19 'O' O N02 19 'R' O 13 20 'C' O 14 20 'D' O 19N13N14 21 'B' O 34 22 'I' O 35 22 'C' O 69 22 'X' O INVDAT 28 O STATE 30 O NJCON 33P O ZERO3 35P O N18 DISC 35P O HDISC 37P O 73 51 'X' O ORDNO 57 O NJ67 58 O RETPC 59 O RETINV 65 O RDISC 67P O RETAMT 71P O EADD 27 O INVNO 6 O SQNO 9 O 10 'I' O QUAN 13P O QTYSHP 16P O QTYBO 19P O ITEM 26 O PC 27 O DESC 54 O N10 LRH 55 O TOTFT 58P O PRICE 63P O AMT 68P O N21 15 69 'X' O 21 15 68 69 'X' O N15 70 'B' O SWCODE 71 O EADD 31 O INVNO 6 O SQNO 9 O 10 'H' O ITEM 26 O DESC 54 O EADD 28 O INVNO 6 O SQNO 9 O 10 'E' O DESC 54 O DADD 08 37 O INVNO 6 O SQNO 9 O 10 'E' O DESC 54 O N10 LRH 55 O EADD 66 O INVNO 6 O SQNO 9 O 10 'C' O AL,LL 16 O AH,LL 22 O AI,LL 28 O AAT,LL 33P O AAN,LL 38P O EADD 55 O INVNO 6 O SQNO 9 O 10 'B' O ZERO3 12P O N18 DISC 12P O TX1ST 14 O TXRAT1 18P O* TX1FIL 18 O TX2ST 20 O TXRAT2 24P O* TX2FIL 24 O BSESUB 29P O ZERO7 33P O N18 BSEDIS 33P O BSETX1 37P O BSETX2 41P O ZERO7 45P O 33 BSEHDS 45P O COESUB 51P O ZERO7 55P O N18 COEDIS 55P O COETX1 59P O COETX2 63P O* COETOT 68P O ZERO7 67P O 33 COEHDS 67P O ZERO3 69P O 33 HDISC 69P O EADD 49 O INVNO 6 O SQNO 9 O 10 'T' O ZERO3 12P O N18 DISC 12P O TX1ST 14 O TXRAT1 18P O* TX1FIL 18 O TX2ST 20 O TXRAT2 24P O* TX2FIL 24 O INVSUB 29P O ZERO9 34P O N18 DISAMT 34P O TAX1 39P O TAX2 44P O INTOT 49P O ZERO9 54P O 21 SGLPR 54P O INVNTX 59P O ZERO9 64P O 33 HDSAMT 64P O ZERO3 66P O 33 HDISC 66P OXREC TADD L1 32 O INVNO 7 O 1 'I' O 13 1 'C' O 14 1 'D' O CNO 13 O INVDAT 19 O INTOT 24P O TAX 29P O ZERO9 35P O ZERO9 40P O ZERO9 45P O INTOT 50P O* DISAMT 55P O TDSAMT 55P O LOADNO 61 O TAXINV 62 O XICOFC 63 O TAX1 68P O TAX2 73P O STATE 75 O VWNAMT 80P O STRAMT 85P O* MANAMT 90P O ZERO9 90P O ZERO9 95P O ZERO7 99P O NJCON 102P O ZERO7 106P O BLDG 115 O LOT 123 O BSEQ 127 O INVSUB 132P O INVNTX 137P O NYCODE 143 O NYTXRT 147P O ZERO9 174P O ORDNO 193 O NJ67 194 O RETPC 195 O RETINV 201 O RDISC 204 O RETAMT 211 O 300 'N' OXFLITM T L1 O INVNO 6 O INFLSR 15 // CEND // COPY LIBRARY-S,NAME-JF0033,RECL-096,DATE-11/10/21,TIME-0750,SUB-RPG H B 1 JF0033 FXREC IPE F 300 300 DISK FCNTRL IC F 32 32R DISK FCUSMAS UC F 600 600R 6AI 1 DISK FRECEV O F 300 300 6AI 2 DISK A U1 FMISCUS UC F 97 97R 7AI 1 DISK A FPRT O F 132 132 OV PRINTER E AS 12 9 2 E AC 12 9 2 E AKY 10 36 4 E ADS 6 36 10 E ASA 36 11 2 E ATS 36 11 2 E ATX 36 11 2 E ANS 36 11 2 IXREC AA 01 I 1 256 RECRD1 I 257 300 RECRD2 I 1 1 INVTYP I 2 70INVNO I 8 130CNO L1 I 14 190INVDAT I P 20 242INVTOT 0202 I P 25 292INVTAX I P 51 552INVDIS I 56 610LOADNO I 62 62 TAXINV I 63 63 XICOFC I P 64 682TAX1 I P 69 732TAX2 I 74 75 STATE I P 76 802VWNAMT I P 81 852STRAMT I* P 86 902MANAMT I P 128 1322INVSUB I P 133 1372INVNTX I 138 143 NYCODE I P 144 1476NYTXRT I 194 194 NJ67 I 195 195 RETPAR I 300 300 ACT ICNTRL AA 1 C0 2 C0 3 C7 I 4 32 CONAME ICUSMAS CC 07 600NCA I BB I 8 37 CNAME I 97 121 DEVCO I 150 1592TOTSLS I 160 1672CRDLM 09 I 168 1752AMTOW I P 177 236 AS I P 237 296 AC IMISCUS AA I 8 97 MSCSRC I 97 97 MSCACT C 08 GOTO BEGIN C SETON 08 C MOVE ' ' BLNK30 30 C TIME TIME 60 C MOVELTIME TIMEHM 40 C 7 CHAINCNTRL C MOVELINVDAT MN 20 C MOVE INVDAT DAYR 40 C MOVELDAYR DA 20 C DA COMP 25 12 C MN COMP 12 13 C 12N13 MN ADD 1 MN C 12 13 Z-ADD1 MN C SETON 20 C BEGIN TAG C OV SETON 20 C EXCPT C SETOF 20OV C SETOF 1011 C CNO CHAINCUSMAS 07 C ACT COMP 'V' 29 C 29 GOTO END C SETOF 04 C INVTYP COMP 'C' 05 C INVTYP COMP 'D' 06 C XICOFC COMP 'I' 23 C N23 XICOFC COMP 'C' 23 C N05N06 SETON 04 C NJ67 COMP 'X' 16************** C* C* INVTOT SUB INVTAX INVSAL 92 C* INVSAL SUB INVNTX INVSAL C* INVSAL SUB INVDIS INVSUB 92 C* -------------OR------------ C INVTOT COMP 0 12 C 12 INVDIS COMP 0 15 C N12 INVDIS COMP 0 15 C***** ADDED FOR RETAINAGE PARENT INVOICE C RETPAR COMP 'P' 22 C***** C TAX2 COMP 0 2121 C INVSUB ADD INVDIS INVSAL 92 C INVSUB ADD INVNTX INVSBB 92 C********** CHANGED FOR RETAINAGE PARENT INVOICE C* 15 INVSBB ADD INVDIS INVTRG 92 C* N15 Z-ADDINVSBB INVTRG C 15 COR 22 INVSBB ADD INVDIS INVTRG 92 C N15N22 Z-ADDINVSBB INVTRG C********** C MOVE BLNK30 TX1DES 18 C MOVE BLNK30 TX2DES 18 C STATE COMP 'NJ' 12 C 12 TAXINV COMP 'T' 12 C 12 16 MOVEL'NJ 6.00'TX1DES C 12N16 MOVEL'NJ 7.00'TX1DES C 12 MOVEL'00% 'DUM10 10 C 12 MOVE ' ' DUM10 C 12 MOVE DUM10 TX1DES C STATE COMP 'NJ' 12 C 12 TAXINV COMP 'U' 12 C 12 16 MOVEL'NJ 3.00'TX1DES C 12N16 MOVEL'NJ 3.50'TX1DES C 12 MOVEL'00% 'DUM10 C 12 MOVE ' ' DUM10 C 12 MOVE DUM10 TX1DES C STATE COMP 'PA' 12 C 12 TAXINV COMP 'T' 12 C 12 MOVEL'PA 6.00'TX1DES C 12 MOVEL'00% 'DUM10 C 12 MOVE ' ' DUM10 C 12 MOVE DUM10 TX1DES C STATE COMP 'PA' 12 C 12 TAXINV COMP 'P' 12 C 12 MOVEL'PA 6.00'TX1DES C 12 MOVEL'00% 'DUM10 C 12 MOVE ' ' DUM10 C 12 MOVE DUM10 TX1DES C 12 MOVEL'PHILA 2'TX2DES C 12 MOVEL'.0000% 'DUM10 C 12 MOVE ' ' DUM10 C 12 MOVE DUM10 TX2DES C STATE COMP 'MD' 12 C 12 TAXINV COMP 'T' 12 C 12 MOVEL'MD 6.00'TX1DES C 12 MOVEL'00% 'DUM10 C 12 MOVE ' ' DUM10 C 12 MOVE DUM10 TX1DES C STATE COMP 'CT' 12 C 12 TAXINV COMP 'T' 12 C 12 MOVEL'CT 6.35'TX1DES C 12 MOVEL'00% 'DUM10 C 12 MOVE ' ' DUM10 C 12 MOVE DUM10 TX1DES C STATE COMP 'RI' 12 C 12 TAXINV COMP 'T' 12 C 12 MOVEL'RI 7.00'TX1DES C 12 MOVEL'00% 'DUM10 C 12 MOVE ' ' DUM10 C 12 MOVE DUM10 TX1DES C STATE COMP 'MA' 12 C 12 TAXINV COMP 'T' 12 C 12 MOVEL'MA 6.25'TX1DES C 12 MOVEL'00% 'DUM10 C 12 MOVE ' ' DUM10 C 12 MOVE DUM10 TX1DES C STATE COMP 'NY' 12 C 12 TAXINV COMP 'T' 12 C 12 MOVEL'NY' DUM9 9 C 12 MOVE NYCODE DUM9 C 12 MOVELDUM9 DUM12 12 C 12 MOVE NYTXRT DUM6 6 C 12 MOVELDUM6 DUM2 2 C 12 MOVE DUM6 DUM4 4 C 12 MOVE DUM2 DUM12 C 12 MOVELDUM12 DUM13 13 C 12 MOVE '.' DUM13 C 12 MOVELDUM13 DUM17 17 C 12 MOVE DUM4 DUM17 C 12 MOVELDUM17 TX1DES C 12 MOVE '%' TX1DES C N07 TOTSLS ADD INVSUB TOTSLS C N07 04 CORN07 06 AS,MN ADD INVSUB AS,MN C N07 05 AC,MN ADD INVSUB AC,MN C N07 AMTOW ADD INVTOT AMTOW C N09N07 CRDLM SUB AMTOW OVUN 82 10 C N09N07N10CRDLM MULT .1 PERCEN 82 C N09N07N10PERCEN COMP OVUN 11 11 C NUM ADD 1 NUM 40 C TOTSBB ADD INVSBB TOTSBB 92 C TOTTRG ADD INVTRG TOTTRG 92 C 15N22 TOTUPC ADD INVDIS TOTUPC 92 C 22 TOTRET ADD INVDIS TOTRET 92 C N15N22 TOTDIS ADD INVDIS TOTDIS 82 C TOTTX1 ADD TAX1 TOTTX1 82 C TOTTX2 ADD TAX2 TOTTX2 82 C TOTNTX ADD INVNTX TOTNTX 92 C TOTTOT ADD INVTOT TOTTOT 92 C TVWNAM ADD VWNAMT TVWNAM 102 C TSTRAM ADD STRAMT TSTRAM 102 C* TMANAM ADD MANAMT TMANAM 102 C********************OLD TOTALS C* INVSBB COMP 0 26 C* N26 TCHGSB ADD INVSUB TCHGSB 92 C* N26 TCHGSA ADD INVSAL TCHGSA 92 C* 26 TCRDSB ADD INVSUB TCRDSB 92 C* 26 TCRDSA ADD INVSAL TCRDSA 92 C* INVTOT COMP 0 26 C* N26 TCHGIA ADD INVTOT TCHGIA 92 C* 26 TCRDIA ADD INVTOT TCRDIA 92 C********************NEW TOTALS C INVSUB ADD INVNTX AMT9 92 C AMT9 COMP 0 26 C N26 TGRSCH ADD INVSUB TGRSCH 92 C 26 TGRSCR ADD INVSUB TGRSCR 92 C RETPAR COMP 'P' 12 C N26 12 TGRSCH ADD INVDIS TGRSCH 92 C 26 12 TGRSCR ADD INVDIS TGRSCR 92 C RETPAR COMP 'P' 1212 C 12 INVDIS COMP 0 12 12 C N26 12 TGRSCH ADD INVDIS TGRSCH 92 C 26N12 TGRSCR ADD INVDIS TGRSCR 92 C N26 TLABCH ADD INVNTX TLABCH 92 C 26 TLABCR ADD INVNTX TLABCR 92 C RETPAR COMP 'P' 1212 C 12 INVDIS COMP 0 12 C N26 12 COR 26N12 TDIS ADD INVDIS TDIS 92 C TSLTAX ADD TAX1 TSLTAX 92 C TSLTAX ADD TAX2 TSLTAX C TINV ADD INVTOT TINV 92 C********************END NEW TOTALS C 07 MOVE ' ' STATE C Z-ADD1 I 20 C MOVELSTATE ARKY3 3 C MOVE TAXINV ARKY3 C MOVELARKY3 ARKY 4 C ARKY3 COMP 'NJT' 14 C N14 ARKY3 COMP 'NJU' 14 C 14 MOVE NJ67 ARKY C N14 MOVE ' ' ARKY C ARKY LOKUPAKY,I 14 C N14 Z-ADD36 I C I COMP 22 14 DE RESALE C 14 Z-ADD21 I C I COMP 23 14 DE EXEMPT C 14 Z-ADD21 I C I COMP 2 16 PHILA C ASA,I ADD INVSAL ASA,I C 16 ASA,1 ADD INVSAL ASA,1 C INVTAX COMP 0 1414 C 14 ATS,I ADD INVSAL ATS,I C 14 16 ATS,1 ADD INVSAL ATS,1 C 14N16 ATX,I ADD TAX1 ATX,I C 14 16 ATX,I ADD TAX2 ATX,I C 14 16 ATX,1 ADD TAX1 ATX,1 C ANS,I ADD INVNTX ANS,I C 16 ANS,1 ADD INVNTX ANS,1 C SETOF 28 C MOVEL'L' MSCSKY 7 C MOVE LOADNO MSCSKY C MSCSKY CHAINMISCUS 03 C N03 MSCACT COMP 'A' 28 C N03 28 MOVEL'I' MSCSKY C N03 28 MOVE INVNO MSCSKY C N03 28 MSCSKY CHAINMISCUS 03 C N02 MOVE BLNK30 TX1DES C N02 MOVE BLNK30 TX2DES C END TAG CLR SETON 17 CLR EXCPT CLR SETOF 17 CLR Z-ADD0 I CLR AGN TAG CLR I ADD 1 I CLR ASA,I COMP 0 1414 CLRN14 ATS,I COMP 0 1414 CLRN14 ATX,I COMP 0 1414 CLRN14 ANS,I COMP 0 1414 CLR 14 SETON 18 CLR 14 EXCPT CLR 14 SETOF 18 CLR I COMP 36 14 CLRN14 GOTO AGN CLR XFOOTASA TTSAL 112 CLR TTSAL SUB ASA,2 TTSAL CLR XFOOTATS TTTSL 112 CLR TTTSL SUB ATS,2 TTTSL CLR XFOOTATX TTTAX 112 CLR XFOOTANS TTTNS 112 CLR TTTNS SUB ANS,2 TTTNS CLR SETON 19 CLR EXCPT CLR SETOF 19 OPRT E 103 20 O CONAME 29 O* INVDATY 40 O U1 59 'R U N I N V O I C E ' O U1 74 'R E G I S T E R' O U2 57 'D A I L Y I N V O I C ' O U2 76 'E R E G I S T E R' O U1 91 '- INVOICES DATED' O U1 INVDATY 100 O U2 93 '- INVOICES DATED' O U2 INVDATY 102 O PAGE 131 O 128 'PAGE' O E 01 20 O 3 'RUN' O UDATE Y 12 O TIMEHM 18 '0 : ' O U1 59 '************************' O U1 74 '***************' O U2 57 '************************' O U2 76 '*******************' O U2 103 'EXCLUDING PAYMENT RETAIN' O U2 115 'AGE INVOICES' O E 01 20 O 41 'SUB-TOTAL' O E 01 20 O 15 'CUSTOMER #/NAME' O 41 '(INCL NON' O E 01 20 O 12 'INV #/TYPE' O 20 'LOAD#' O 30 'INV DATE' O 42 'TAX LABOR)' O 51 'UPCHARGE' O 61 'RETAINAGE' O 73 'TRUE GROSS' O 83 'DISCOUNT' O 102 'TAX AMT/DESC' O 126 'INVOICE AMT' O 132 'TX-ST' O E 01 20 O 24 '************************' O *PLACE 48 O *PLACE 72 O *PLACE 96 O *PLACE 120 O 132 '************' O* E 11 20NL1 O* CNO M 7 O* 7 '-' O* CNAME 37 ORECEV DADD 01 U1 O RECRD1 256 O RECRD2 300 O 02 300 'N' O N02 300 'P' OCUSMAS D 01N07 U1 O UDATE 149 O TOTSLS 159 O AMTOW 175 O AS 236P O AC 296P OMISCUS DADD 01 U1 28 O AND 03 O 1 'I' O INVNO 7 O MSCSRC 97 O D 01 U1 28 O AND N03 O MSCSRC 97 OPRT D 11 01 L1 O CNO M 7 O 7 '-' O CNAME 37 O DEVCO 64 O D 01 01N29 O INVNO 8 O 04 10 'I' O 05 10 'C' O 06 10 'D' O 23 14 'O/C' O LOADNO 21 O TAX1 K 94 O TX1DES 113 O N15N22 INVDISK 84 O INVTRGK 74 O 22 INVDISK 62 O 15N22 INVDISK 52 O INVSBBK 42 O INVDATY 30 O INVTOTK 126 O N02 126 'N/C' O TAXINV 129 O STATE 132 O D 01 10N29 21 O TAX2 K 94 O TX2DES 113 O D 01 10N29 O OVUN 1 23 '$' O 44 'OVER CREDIT LIMIT OF' O CRDLM J 57 '$' O D 01 11N29 O OVUN 1 23 '$' O 45 'BELOW CREDIT LIMIT OF' O CRDLM J 57 '$' O D 01 01 29 O INVNO 13 O 20 'VOIDED' O E 10 17 O NUM K 10 O 28 'INVOICES - TOTALS:' O TOTTOTK 126 O TOTTX1K 94 O TOTDISK 84 O TOTTRGK 74 O TOTRETK 62 O TOTUPCK 52 O TOTSBBK 42 O E 10 17 O TOTTX2K 94 O E 203 17 O CONAME 29 O 50 'SALES TAX TOTALS' O 67 '- INVOICES DATED' O INVDATY 76 O E 01 17 O E 01 17 O 21 'STATE/RATE-%' O 43 'SALES (INCL DIS/UP)' O 60 'TAXABLE SALES' O 76 'SALES TAX' O 92 'NON TAX LABOR' O E 02 17 O 24 '************************' O *PLACE 48 O *PLACE 72 O *PLACE 96 O E 02 18 O ADS,I 19 O ASA,I K 43 O ATS,I K 60 O ATX,I K 76 O ANS,I K 92 O E 01 19 O 54 '------------------------' O 78 '------------------------' O 92 '--------------' O E 02 19 O 26 'TOTALS' O TTSAL K 43 O TTTSL K 60 O TTTAX K 76 O TTTNS K 92 O* E 02 19 O* 23 'TOTAL CHARGES, SUBTOTAL' O* TCHGSBJ 60 '$' O* E 02 19 O* 24 'TOTAL CHARGES, SALES - I' O* 37 'NCL DIS/UPCHG' O* TCHGSAJ 60 '$' O* E 02 19 O* 24 'TOTAL CHARGES, INVOICE A' O* 29 'MOUNT' O* TCHGIAJ 60 '$' O* E 02 19 O* 24 'TOTAL CREDITS, SUBTOTAL ' O* 46 '(RETURNS & ALLOWANCES)' O* TCRDSBJ 60 '$' O* E 02 19 O* 24 'TOTAL CREDITS, SALES - I' O* 43 'NCL. DIS. (RET/ALL)' O* TCRDSAJ 60 '$' O* E 02 19 O* 24 'TOTAL CREDITS, INVOICE A' O* 45 'MOUNT (SALES CREDITS)' O* TCRDIAJ 60 '$' O* E 02 19 O* 23 'TOTAL NON TAXABLE LABOR' O* TOTNTXJ 60 '$' O***************************************** O E 02 19 O 24 'TOTAL GROSS CHARGES (NOT' O 36 ' INCL LABOR)' O TGRSCHJ 60 '$' O E 02 19 O 24 'TOTAL GROSS CREDITS (NOT' O 36 ' INCL LABOR)' O TGRSCRJ 60 '$' O E 02 19 O 19 'TOTAL LABOR CHARGES' O TLABCHJ 60 '$' O E 02 19 O 19 'TOTAL LABOR CREDITS' O TLABCRJ 60 '$' O E 02 19 O 15 'TOTAL DISCOUNTS' O TDIS J 60 '$' O E 02 19 O 17 'TOTAL SALES TAXES' O TSLTAXJ 60 '$' O E 02 19 O 20 'TOTAL INVOICE AMOUNT' O TINV J 60 '$' O* E 02 19 O* 24 'TOTAL COMPLETE STAIR UNI' O* 48 'TS INVOICED (INCL. TAX, ' O* 52 'DIS)' O* TSTRAMJ 72 '$' O* 81 'BY ITEM#' O* TMANAMJ 101 '$' O* 114 'MANUAL ITEMS' O E 01 19 O 24 'TOTAL VINYL WINDOWS INVO' O 45 'ICED (INCL. TAX, DIS)' O TVWNAMJ 72 '$' O 81 'BY ITEM#' ** PAT PAP PAN PAR PAE NJTXNJUXNJT NJU NJN NJR NJE MDT MDN MDR MDE CTT CTN CTR CTE DEN DER DEE NYT NYN NYR NYE RIT RIN RIR RIE MAT MAN MAR MAE --- ** PA 6% PHILA 2% PA NON TAXPA RESALE PA EXEMPT NJ 6% NJ 3% NJ 7% NJ 3.5% NJ NON TAXNJ RESALE NJ EXEMPT MD 6% MD NON TAXMD RESALE MD EXEMPT CT 6.35% CT NON TAX CT RESALE CT EXEMPT DE NON TAXDE RESALE DE EXEMPT NY TAXABLE NY NON TAXNY RESALE NY EXEMPT RI 7% RI NOT TAXRI RESALE RI EXEMPT MA 6.25% MA NOT TAXMA RESALE MA EXEMPT UNKNOWN // CEND // COPY LIBRARY-S,NAME-JF0034,RECL-096,REF-000001,DATE-07/08/23,TIME-1007,SUB-RPG H B 1 JF0034 FXXDTRC IPE F 420 420 2 DISK FCNTRL IC F 32 32R DISK FINVNOT IC F 87 87R 8AI 1 DISK FPRT O F 132 132 OV PRINTER E AAT 4 9 2 E AAG 4 9 2 E ADT 4 8 2 E ADG 4 8 2 E AMO 6 12 9 IXXDTRC AA 01 I 8 13 CNOCNTL1 I 420 420 INUCNTL1 I 301 330 CNMCNTL1 I 8 110CNO4 I 8 130CNO I 18 190YR I 14 150MO I 16 170DA I 2 70INVN I 1 1 TYPE I P 20 242INVAMT I P 25 292TAX I P 36 402DISTAK I P 46 502BALDUE I 301 330 CNAME I 390 414 DEVCO I 415 415 TERMS I 416 4190YR4 I 420 4200INVUCS ICNTRL AA 1 C0 2 C0 3 C7 I 4 32 CONAME IINVNOT AA 02 87NCA I BB I 9 86 NOTE ILDA UDS I 1 1 NOTES I 2 2 ALLCUS C 03 GOTO BEGIN C SETON 03 C NOTES COMP 'Y' 05 C 7 CHAINCNTRL C Z-ADDUYEAR YXX C UYEAR COMP 70 04 C 04 MOVEL'19' YXX C N04 MOVEL'20' YXX C UMONTH ADD 1 MXX C MXX COMP 13 04 C 04 Z-ADD1 MXX C 04 YXX ADD 1 YXX C MOVELYXX YRM0 60 C MOVE MXX YRM0 C Z-ADDUYEAR YXX 40 C UYEAR COMP 70 04 C 04 MOVEL'19' YXX C N04 MOVEL'20' YXX C Z-ADDUMONTH MXX 20 C Z-ADDUMONTH M1 20 C MXX SUB 1 MXX 04 C 04 Z-ADD12 MXX C 04 YXX SUB 1 YXX C MOVELYXX YRM1 60 C MOVE MXX YRM1 C MOVE MXX M2 20 C MXX SUB 1 MXX 04 C 04 Z-ADD12 MXX C 04 YXX SUB 1 YXX C MOVELYXX YRM2 60 C MOVE MXX YRM2 C MOVE MXX M3 20 C MXX SUB 1 MXX 04 C 04 Z-ADD12 MXX C 04 YXX SUB 1 YXX C MOVELYXX YRM3 60 C MOVE MXX YRM3 C SETON 22 C BEGIN TAG C OV SETON 22 C 22 EXCPT C 22 SETOF 22OV C N19 SETOF 20 C L1 SETON 20 C L1 SETOF 21 C L1 MOVELCNO CNO3 30 C L1 SETOF 06 C L1 TERMS COMP '3' 07 C L1N07 TERMS COMP '4' 07 C L1 TERMS COMP '5' 08 C L1 TERMS COMP '6' 09 C L1N07N08 CANN09 SETON 06 C L1 Z-ADD0 AAT C L1 Z-ADD0 ADT C INVUCS COMP 1 12 C 12 TUNCSH ADD BALDUE TUNCSH 92 C 12 SETON 23 C 12 EXCPT C 12 SETOF 23 C 12 SETON 19 C 12 GOTO END C SETOF 131415 C SETOF 19 C TYPE COMP 'D' 11 C DA COMP 25 18 C MOVELYR4 YRMINV 60 C MOVE MO YRMINV C YRMINV COMP YRM3 1617 C N16N17 YRMINV COMP YRM2 15 C N16N17N15YRMINV COMP YRM1 13 14 C 17N18 SETON 16 C 17 18 SETON 15 C 17 18 SETOF 1718 C 15 18 SETON 14 C 15 18 SETOF 1518 C 14 18 SETON 13 C 14 18 SETOF 1418 C 13 18 SETON 19 C 13 18 SETOF 1318 C SETOF 10 C 13N19 YRMINV COMP YRM0 10 C 10 SETON 19 C 10 SETOF 13 C 13 Z-ADD4 IX 10 C 14 Z-ADD3 IX C 15 Z-ADD2 IX C 16 Z-ADD1 IX C 06 COR 11 Z-ADD0 DISC 82 C 06 COR 11 GOTO END C INVAMT SUB TAX DUM9 92 C DUM9 MULT .02 DISC H C DISC SUB DISTAK DISC C 14 07 COR 15 07 COR 15 08 COR 16 Z-ADD0 DISC C END TAG C 19 GOTO ENDPRT C AAT,IX ADD BALDUE AAT,IX C ADT,IX ADD DISC ADT,IX C SETON 24 C EXCPT C SETOF 24 C SETON 21 C N05 GOTO ENDPRT C MOVELINVN KYNOTE 8 C Z-ADD0 SQNOTE 20 C AGNOTE TAG C SQNOTE ADD 1 SQNOTE C MOVE SQNOTE KYNOTE C KYNOTE CHAININVNOT 02 C 02 GOTO ENDPRT C SETON 25 C EXCPT C SETOF 25 C OV SETON 22 C 22 EXCPT C 22 SETOF 22OV C GOTO AGNOTE C ENDPRT TAG CL1 AAG ADD AAT AAG CL1 ADG ADD ADT ADG CL1 XFOOTAAT CUSA 92 CL1 XFOOTADT CUSD 82 CL1 21 SETON 26 CL1 21 EXCPT CL1 21 SETOF 26 CLR XFOOTAAG GRA 92 CLR XFOOTADG GRD 82 OPRT E 203 22 O CONAME 29 O 62 'DETAILED AGED ACCTS RECE' O 68 'IVABLE' O U1 82 '- CURRENT A/R' O NU1 87 '- END OF MONTH A/R' O UDATE Y 100 O U2 120 '*** BAD DEBTS ***' O PAGE 132 O 128 'PAGE' O E 01 22 O 23 'CUST#/NAME/DEVEL CO' O 38 'PREVIOUS' O AMO,M3 67 O AMO,M2 95 O AMO,M1 123 O E 01 22 O 22 'INV DATE INVNO TYPE' O 46 'AMOUNT-------DISCOUNT' O 74 'AMOUNT-------DISCOUNT' O 102 'AMOUNT-------DISCOUNT' O 130 'AMOUNT-------DISCOUNT' O E 01 22 O 24 '************************' O *PLACE 48 O *PLACE 72 O *PLACE 96 O *PLACE 120 O 132 '************' O E 02 23 O CNO4 M 5 O 8 '(00)' O CNAME 40 O BALDUEB 56 O 71 'UNAPPLIED CASH' O E 01 24 20 O CNO M 7 O CNAME 40 O DEVCO 67 O E 01 24 O MO 6 '0 /' O DA 9 ' /' O YR 11 O INVN Z 18 O TYPE 20 O 16 BALDUEB 35 O 16 DISC B 48 O 15 BALDUEB 63 O 15 DISC B 76 O 14 BALDUEB 91 O 14 DISC B 104 O 13 BALDUEB 119 O 13 DISC B 132 O E 01 25 O NOTE 97 O E 01 26 O 25 'AMOUNT-------DISCOUNT' O 39 'CUST TOTALS' O E 01 26 O CUSA A 14 O CUSD A 27 O E 02 26 O AAT,1 B 35 O ADT,1 B 48 O AAT,2 B 63 O ADT,2 B 76 O AAT,3 B 91 O ADT,3 B 104 O AAT,4 B 119 O ADT,4 B 132 O TF01 LR O 25 'AMOUNT-------DISCOUNT' O 40 'GRAND TOTALS' O T 01 LR O GRA A 14 O GRD A 27 O T 22 LR O AAG,1 B 35 O ADG,1 B 48 O AAG,2 B 63 O ADG,2 B 76 O AAG,3 B 91 O ADG,3 B 104 O AAG,4 B 119 O ADG,4 B 132 O T 00 LR O 20 'TOTAL UNAPPLIED CASH' O TUNCSHB 35 ** JANUARY FEBRUARY MARCH APRIL MAY JUNE JULY AUGUSTSEPTEMBER OCTOBER NOVEMBER DECEMBER // CEND // COPY LIBRARY-S,NAME-JF0035,RECL-096,DATE-03/10/26,TIME-2057,SUB-RPG H B 1 JF0035 FINP IP F 79 79 KEYBORD FXPMTY ID F 66 66 9AI 1 DISK FRECEV UC F 300 300R 6AI 2 DISK FPYMT UC F 57 57R 9AI 1 DISK A FXPMTX O F 50 50 10AI 1 DISK U FPRT O F 132 132 OV PRINTER FDISP O F 79 79 CRT E AMS 1 8 79 IXPMTY BB 12 I 3 3 TYPE I 4 90INVN I 10 150CUSNO I 16 242CAS I 25 332DIS I 34 422ALL I 43 512TOT I 52 540NUMI IRECEV AA 01 I 8 130CUSNOF I P 20 242INVAMT I P 25 292INVTAX I P 31 352CASOLD I P 36 402DISOLD I P 41 452ALLOLD I P 46 502BALOLD IPYMT AA C Z-ADD0 ZER9 90 C SETOF 1415 C N13 READ XPMTY 13 C N13 TYPE COMP '1' 15 14 C N13 15 GOTO HERE C N13 GOTO END C SETOF 020304 C SETOF 05 C AMS,1 SET KG C AMS,2 KEY ENVN 60 C KG SETON LR C KG GOTO END C ENVN CHAINRECEV 02 C 02 SETON 98 C 02 EXCPT C 02 SETOF 98 C 02 GOTO END C AMS,3 KEY CUSNO 60 C CUSNO COMP CUSNOF 0303 C 03 SETON 97 C 03 EXCPT C 03 SETOF 97 C 03 GOTO END C AMS,4 KEY CAS 92 C AMS,5 KEY DIS 92 C AMS,6 KEY ALL 92 C AMS,7 KEY TOT 92 C CAS ADD DIS TOTX 92 C TOTX ADD ALL TOTX C TOTX COMP TOT 0404 C 04 SETON 96 C 04 EXCPT C 04 SETOF 96 C 04 GOTO END C AMS,8 KEY YN 1 C YN COMP 'N' 04 C 04 GOTO END C SETON 05 C CASOLD ADD CAS CASNEW 92 C DISOLD ADD DIS DISNEW 92 C ALLOLD ADD ALL ALLNEW 92 C CASNEW ADD DISNEW TOTX C TOTX ADD ALLNEW TOTX C INVAMT SUB TOTX BALNEW 92 06 C HERE TAG C CASTOT ADD CAS CASTOT 92 C DISTOT ADD DIS DISTOT 92 C ALLTOT ADD ALL ALLTOT 92 C TOTTOT ADD TOT TOTTOT 92 C NUM ADD 1 NUM 40 C Z-ADD0 SEQNO 30 C MOVELENVN KEY 9 C AGN1 TAG C SEQNO ADD 1 SEQNO C MOVE SEQNO KEY C KEY CHAINPYMT 07 C N07 GOTO AGN1 C END TAG ODISP H 11 1P O 24 'E N T E R I N V O I C ' O 43 'E P A Y M E N T S' O E 11 98 O 24 'NOT IN RECEIVABLES FILE-' O 38 'ENTRY REJECTED' O E 11 97 O 24 'INCORRECT CUSTOMER NO-EN' O 36 'TRY REJECTED' O E 11 96 O 24 'INCORRECT TOTAL-ENTRY RE' O 30 'JECTED' OPRT H 301 1P O OR OV O 51 'CASH RECEIPTS AND ALLOWA' O 55 'NCES' O UDATE Y 70 O U2 100 '*** BAD DEBTS ***' O PAGE 128 O 124 'PAGE' O H 01 1P O OR OV O 64 'CURRENT ============' O 88 '=====CREDIT TO ACCTS REC' O 112 'EIVABLE=================' O 126 'NEW' O H 01 1P O OR OV O 26 'INV NO CUST NO IN' O 50 'V AMT BAL DUE ' O 74 ' CASH DISC' O 98 'OUNT ALLOWANCE ' O 122 ' TOTAL B' O 128 'AL DUE' O H 01 1P O OR OV O 26 '************************' O 50 '************************' O 74 '************************' O 98 '************************' O 122 '************************' O 128 '******' O D 20 14 O INVN Z 8 O CUSNO 18 O CAS A 33 O DIS A 49 O 130 'PAID IN FULL' O D 21 15 O 38 'SUB-TOTAL---PREVIOUS' O NUMI Z 42 O 47 'INV:' O CAS A 66 O DIS A 82 O ALL A 98 O TOT A 114 O D 20 05 O ENVN Z 8 O CUSNO 18 O INVAMTA 33 O BALOLDA 49 O CAS A 66 O DIS A 82 O ALL A 98 O TOT A 114 O 06 130 'PAID IN FULL' O N06 BALNEWA 130 O T 20 LR O 47 'TOTALS:' O CASTOTA 66 O DISTOTA 82 O ALLTOTA 98 O TOTTOTA 114 ORECEV D 05 O CASNEW 35P O DISNEW 40P O ALLNEW 45P O BALNEW 50P O 06 300 'P' O N06 300 'N' OPYMT DADD 05 O KEY 9 O CUSNO 15 O UDATE 21 O CAS 26P O DIS 31P O ALL 36P O ZER9 41P O INVAMT 46P O INVTAX 51P O BALOLD 56P O 57 'A' OXPMTX D 05 O OR 15 O CUSNO 6 O NUM 10 O CAS 19 O DIS 28 O ALL 37 O TOT 46 ** PRESS COMMAND KEY 7 & ENTER IF THERE ARE NO MORE ENTRIES TO BE MADE, OR ENTER INVOICE NUMBER ENTER CUSTOMER NUMBER ENTER CASH AMOUNT ENTER DISCOUNT AMOUNT ENTER ALLOWANCE AMOUNT ENTER TOTAL AMOUNT ENTER WHETHER OR NOT OK (Y=YES, N=NO) // CEND // COPY LIBRARY-S,NAME-JF0036,RECL-096,DATE-01/03/23,TIME-1226,SUB-RPG H B 1 JF0036 FXPMTX IPE F 50 50 10AI 1 DISK FCUSMAS UC F 600 600R 6AI 1 DISK FPRT O F 132 132 OV PRINTER E AI 4 9 2 E AC 4 9 2 E AT 4 9 2 E AS 12 9 2 E ACR 12 9 2 IXPMTX AA 01 I 1 60CUSNO L1 I 11 46 AI ICUSMAS BB 02 I 8 37 CUSNM I 135 135 TAXED I 168 1752AMTOW I P 177 236 AS I P 237 296 ACR I 600 600 ACTV C N03 MOVELUDATE MN 20 C N03 MOVE UDATE DAYR 40 C N03 MOVELDAYR DA 20 C N03 DA COMP 25 05 C N03 MN COMP 12 06 C N03 05N06MN ADD 1 MN C N03 05 06 Z-ADD1 MN C N03 SETON 03 C L1 Z-ADD0 AC C AC ADD AI AC C AT ADD AI AT C L1 CUSNO CHAINCUSMAS 04 C L1N04 ACTV COMP 'D' 04 C N04 AMTOW SUB AI,4 AMTOW C N04 AS,MN SUB AI,2 AS,MN C N04 TAXED COMP 'T' 07 C N04 07 AI,3 DIV 1.05 AMT 72 C N04N07 Z-ADDAI,3 AMT C N04 AMT COMP 0 07 C N04 07 AS,MN SUB AMT AS,MN C N04N07 ACR,MN SUB AMT ACR,MN OPRT H 301 OV O OR 1P O 54 'CASH RECEIPTS AND ALLOWA' O 66 'NCES SUMMARY' O UDATE Y 81 O PAGE 116 O 112 'PAGE' O H 01 OV O OR 1P O 29 'CUST NO & NAME' O 80 'CASH DISCOUNT' O 113 'ALLOWANCE TOTAL' O H 02 OV O OR 1P O 34 '************************' O 58 '************************' O 82 '************************' O 106 '************************' O 116 '**********' OCUSMAS T L1N04 O UDATE 149 O AMTOW 175 O AS 236P O ACR 296P OPRT TF02 L1 O CUSNO 15 O N04 CUSNM 48 O AC,1 B 67 O AC,2 B 84 O AC,3 B 101 O AC,4 A 118 O T 10 01 LR O 46 'TOTALS:' O AT,1 B 67 O AT,2 B 84 O AT,3 B 101 O AT,4 A 118 // CEND // COPY LIBRARY-S,NAME-JF0037,RECL-096,REF-000001,DATE-05/06/27,TIME-0847,SUB-RPG H B 1 JF0037 FINP IP F 79 79 KEYBORD FCNTRL IC F 32 32R DISK FRECEV UC F 300 300R 6AI 2 DISK A FCUSMAS UC F 600 600R 6AI 1 DISK FDISP O F 79 79 CRT FPRT O F 132 132 OV PRINTER E AMS 1 29 79 E AS 12 9 2 E AC 12 9 2 ICNTRL AA 1 C0 2 C0 3 C7 I 4 32 CONAME IRECEV AA 01 ICUSMAS BB 02 I 8 37 CNAME I 133 134 STATE I 135 135 TAXCOD I 168 1752AMTOW I P 177 236 AS I P 237 296 AC I 600 600 ACTV C 15 GOTO BEGIN C SETON 15 C Z-ADD0 ZERO6 60 C Z-ADD0 ZERO7 70 C Z-ADD0 ZERO9 90 C 7 CHAINCNTRL C SETON 16 C BEGIN TAG C SETOF 030405 C OV SETON 16 C 16 EXCPT C SETOF 16OV C AMS,1 SET KG C AMS,2 KEY ENVNN 60 C KG SETON LR C KG GOTO END C ENVNN CHAINRECEV 06 C N06 SETON 03 C N06 GOTO END C AMS,3 KEY TYPE 1 C TYPE COMP 'C' 07 C TYPE COMP 'D' 08 C N07N08 MOVE 'I' TYPE C AMS,4 KEY CUSNO 60 C CUSNO CHAINCUSMAS 09 C N09 ACTV COMP 'D' 09 C SETON 98 C EXCPT C SETOF 98 C AMS,5 KEY DAT 60 C AMS,6 KEY AMT 92 C AMS,7 KEY STAX 92 C AMS,8 KEY LTAX 92 C AMS,9 KEY DISAMT 92 C AMS,10 KEY LOAD 60 C 09 AMS,11 KEY STATE 2 C 09 AMS,12 KEY TAXCOD C AMS,13 KEY OFCR 1 C AMS,14 KEY VINWIN 92 C AMS,15 KEY STAIRS 92 C AMS,16 KEY MANITM 92 C AMS,17 KEY NJCON 50 C AMS,18 KEY BUILD 9 C AMS,19 KEY LOT 8 C AMS,20 KEY SQUN 4 C AMS,21 KEY SUBTOT 92 C AMS,22 KEY NONTAX 92 C AMS,23 KEY NYCOD 6 C AMS,24 KEY NYRAT 74 C AMS,25 KEY RETAIN 92 C AMS,26 KEY RETTIN 60 C AMS,27 KEY RETCOD 1 C AMS,28 KEY RETFIN 60 C AMS,29 KEY ACC 1 C ACC COMP 'N' 050504 C 04 GOTO END C STAX ADD LTAX TAX 92 C NUM ADD 1 NUM 40 C TOTAMT ADD AMT TOTAMT 92 C TOTTAX ADD TAX TOTTAX 92 C MOVELDAT MNDA 40 C MOVELMNDA MN 20 C MOVE MNDA DA 20 C MOVE DAT YR 20 C YR COMP UYEAR 10 C 10 MN COMP 12 11 C 10 11 DA COMP 25 1010 C N10 UYEAR SUB 1 PREVYR 20 C N10 YR COMP PREVYR 11 C N10 11 MN COMP 12 11 C N10 11 DA COMP 25 10 C N09 AMTOW ADD AMT AMTOW C N10 GOTO END C DA COMP 25 15 C 15 MN ADD 1 MN C MN COMP 12 15 C 15 Z-ADD1 MN C AMT SUB TAX SUB 92 C N09N07N08 CORN09 08 AS,MN ADD SUB AS,MN C N09 07 AC,MN ADD SUB AC,MN C END TAG ODISP D 11 03 O 15 'ALREADY IN FILE' O E 11 98 O N09 9 'CUST NAME' O N09 CNAME 43 O 09 33 'NOT IN CUSTOMER LIST' OPRT E 304 16 O CONAME 29 O 60 'RECEIVABLES ENTERED' O UDATE Y 72 O U2 100 ' *** BAD DEBTS ***' O E 01 16 O 27 'INV NO TYPE(I/C/D) CU' O 47 'ST NO CUST NAME' O 94 'DATE AMT(INCL TAX)' O 110 'TAX AMT' ORECEV DADD 05 O TYPE 1 O ENVNN 7 O CUSNO 13 O DAT 19 O AMT 24P O TAX 29P O ZERO9 35P O ZERO9 40P O ZERO9 45P O AMT 50P O DISAMT 55P O LOAD 61 O TAXCOD 62 O OFCR 63 O STAX 68P O LTAX 73P O STATE 75 O VINWIN 80P O STAIRS 85P O MANITM 90P O ZERO9 95P O ZERO7 99P O NJCON 102P O ZERO7 106P O********** O********** O BUILD 115 O LOT 123 O SQUN 127 O SUBTOT 132P O NONTAX 137P O NYCOD 143 O NYRAT 147P O 149 ' ' O ZERO6 155 O 157 ' ' O ZERO6 163 O ZERO6 169 O RETAIN 174P O RETTIN 180 O RETCOD 181 O RETFIN 187 O********** O********** O 300 'N' OCUSMAS D N09 05 O AMTOW 175 O AS 236P O AC 296P OPRT T 10 LR O NUM A 49 O 65 'INVOICES ENTERED' O 78 'TOTALS:' O TOTAMTA 95 O TOTTAXA 112 O D 01 05 O ENVNN Z 9 O CUSNO 31 O TYPE 18 O 09 57 '******NOT IN CUSTOMER LI' O 09 65 'ST******' O N09 CNAME 64 O DAT Y 77 O AMT A 95 O TAX A 112 O N09 10 132 'ADDED TO SALES' ** PRESS COMMAND KEY 7 & ENTER IF THERE ARE NO MORE ENTRIES TO BE MADE, OR ENTER INVOICE NUMBER ENTER INVOICE TYPE (I=INVOICE, C=CREDIT, D=DEBIT) ENTER CUSTOMER NUMBER ENTER INVOICE DATE - MDY ENTER TOTAL INVOICE AMOUNT (INCLUDING TAX) - IF CREDIT ENTER AS MINUS # ENTER STATE TAX AMOUNT ENTER LOCAL TAX AMOUNT ENTER DISCOUNT AMOUNT ENTER LOAD NUMBER ENTER STATE (2 CHARACTERS) ENTER TAX TYPE (T=TAX, U=URBAN ENT ZONE, P=PHILA, N=NONE) ENTER I=INVOICE FOR OFF/CREDIT, C=CREDIT FOR OFF/CREDIT, BLANK=NOT OFF/CREDIT ENTER $ AMOUNT OF VINYL WINDOWS (INCL. DISCOUNT AND TAX) ENTER $ AMOUNT OF STAIRS (INCL. DISCOUNT AND TAX) ENTER $ AMOUNT OF MANUAL ITEMS (INCL. DISCOUNT AND TAX) ENTER NJ 3% TAX CONTRACT NUMBER ENTER BUILDING/BLOCK ENTER LOT ENTER SEQUENCE/UNIT ENTER INVOICE SUBTOTAL (EXCL DISCOUNT, TAX, NON-TAX ITEMS) ENTER INVOICE NON-TAXABLE AMOUNT ENTER NY TAX JURISDICTION CODE ENTER NY TOTAL TAX % (6 NUMBERS, NO DECIMAL - XX.XXXX) ENTER RETAINAGE AMOUNT POSTED TO ANOTHER INVOICE ENTER INVOICE# TO WHICH RETAINAGE POSTED ENTER R=RETAINAGE INVOICE, OR BLANK IF NOT ENTER INVOICE# FROM WHICH RETAINAGE TAKEN (IF RETAINAGE INVOICE) ENTER WHETHER OR NOT ENTRIES ARE OK (Y=YES, N=NO) // CEND // COPY LIBRARY-S,NAME-JF0038,RECL-096,REF-000004,DATE-01/03/23,TIME-1226,SUB-RPG H B 1 JF0038 FCUSMAS IPE F 600 600 6AI 1 DISK FCNTRL IC F 32 32R DISK FINP ID F 79 79 KEYBORD FPRT O F 132 132 OV PRINTER E AMS 1 2 79 ICUSMAS AA 01 600 CD I BB 02 600 CA I 1 60CNO I 8 37 CNM I 97 121 DEV 13 I 436 441 ZONE ICNTRL AA 1 C0 2 C0 3 C7 I 4 32 CONAME C 03 GOTO BYEBYE C SETON 03 C AMS,1 KEY CNOL 60 C AMS,2 KEY CNOH 60 C 7 CHAINCNTRL C SETON 05 C BYEBYE TAG C 01 GOTO END C OV SETON 05 C 05 EXCPT C 05 SETOF 05OV C CNO COMP CNOL 04 04 C 04 CNO COMP CNOH 0404 C END TAG OPRT E 103 05 O CONAME 29 O 62 'SUMMARY CUSTOMER LIST --' O 68 ' AS OF' O UDATE Y 77 O E 02 05 O 22 'CUSTOMER#, NAME' O 71 'DEVELOPMENT COMPANY' O 84 'ZONE' O D 02 02 04 O CNO M 13 O CNM 48 O DEV 78 O 13 71 '(NO DEVELOPMENT CO)' O ZONE 86 ** ENTER FROM CUSTOMER NUMBER ENTER THROUGH CUSTOMER NUMBER // CEND // COPY LIBRARY-S,NAME-JF0041,RECL-096,DATE-07/08/30,TIME-1750,SUB-RPG H B 1 JF0041 FXXSTMT IPE F 269 269 2 DISK FLOAD IC F 100 100R 9AI 1 DISK FXSMES IC F 3 3R DISK FMESAGE IC F 66 66R 5AI 1 DISK FPRT O F 132 132 OV LPRINTER LPRT 51FL 45OL IXXSTMT AA 01 I 8 13 CNOCNTL1 I 151 180 CNAME L1 I 8 110CNO4 I 8 130CNO I 18 190YR I 14 150MO I 16 170DA I 14 170MDAY I 2 70INVN I 1 1 TYPE I P 20 242INVAMT I P 25 292TAX I P 31 352DISTAK I P 46 502BALDUE I 56 610LOADNO I 181 210 STR I 211 234 CTY I 235 239 ZIP I 240 264 DEVCO I 265 265 TERMS I 266 2690YR4 ILOAD AA 20 CA I 52 61 PONO1 I 62 71 PONO2 I BB 20 CB I 52 61 PONO3 I 62 71 PONO4 I CC IXSMES AA I 1 30MESNO IMESAGE AA 31 66NCA I BB I 6 65 MESDES C 03 GOTO BEGIN C SETON 03 C MOVE ' ' BLNK10 10 C 1 CHAINXSMES C Z-ADDUYEAR YXX C UYEAR COMP 70 04 C 04 MOVEL'19' YXX C N04 MOVEL'20' YXX C UMONTH ADD 1 MXX C MXX COMP 13 04 C 04 Z-ADD1 MXX C 04 YXX ADD 1 YXX C MOVELYXX YRM0 60 C MOVE MXX YRM0 C Z-ADDUYEAR YXX 40 C UYEAR COMP 70 04 C 04 MOVEL'19' YXX C N04 MOVEL'20' YXX C Z-ADDUMONTH MXX 20 C MXX SUB 1 MXX 04 C 04 Z-ADD12 MXX C 04 YXX SUB 1 YXX C MOVELYXX YRM1 60 C MOVE MXX YRM1 C MXX SUB 1 MXX 04 C 04 Z-ADD12 MXX C 04 YXX SUB 1 YXX C MOVELYXX YRM2 60 C MOVE MXX YRM2 C MXX SUB 1 MXX 04 C 04 Z-ADD12 MXX C 04 YXX SUB 1 YXX C MOVELYXX YRM3 60 C MOVE MXX YRM3 C BEGIN TAG C L1 SETOF 06 C L1 TERMS COMP '3' 07 C L1N07 TERMS COMP '4' 07 C L1 TERMS COMP '5' 08 C L1 TERMS COMP '6' 09 C L1N07N08 CANN09 SETON 06 C L1 Z-ADD0 TOTNOW 82 C L1 Z-ADD0 TOT1 82 C L1 Z-ADD0 TOT2 82 C L1 Z-ADD0 TOT3 82 C L1 Z-ADD0 TOT 92 C L1 Z-ADD0 PAGE C L1 Z-ADD0 PAGE1 C L1 Z-ADD0 DISC 92 C L1 07 MOVE '3' MNUM 1 C L1 08 MOVE '6' MNUM C L1 09 MOVE '9' MNUM C L1 MOVELCNO CNO3 30 C L1 CNO3 COMP 630 05 C L1 SETON 24 C L1 EXCPT C L1 SETOF 2426OV C L1 MOVE BLNK10 PONO1 C L1 MOVE BLNK10 PONO2 C L1 MOVE BLNK10 PONO3 C L1 MOVE BLNK10 PONO4 C L1 MOVELCNO CNO4 40 C L1 CNO4 COMP 6491 04 C L1 04 MOVELLOADNO LOADKY 9 C L1 04 Z-SUB1 DUMNM3 30 C L1 04 MOVE DUMNM3 LOADKY C L1 04 LOADKY CHAINLOAD 17 C L1 04 Z-ADD0 DUMNM3 C L1 04 MOVE DUMNM3 LOADKY C L1 04 LOADKY CHAINLOAD 17 C OV SETON 26 C SETOF 101314 C SETOF 1520 C TYPE COMP 'C' 11 C TYPE COMP 'D' 12 C N11N12 SETON 10 C MOVE YR DAT 60 C MOVELMDAY DAT C DA COMP 25 19 C MOVELYR4 YRMINV 60 C MOVE MO YRMINV C YRMINV COMP YRM3 1618 C N18N16 YRMINV COMP YRM2 15 C N18N16N15YRMINV COMP YRM1 13 14 C 18N19 SETON 16 C 18 19 SETON 15 C 18 19 SETOF 1819 C 15 19 SETON 14 C 15 19 SETOF 1519 C 14 19 SETON 13 C 14 19 SETOF 1419 C 13 19 SETON 20 C 13 19 SETOF 1319 C SETOF 21 C 13N20 YRMINV COMP YRM0 21 C 21 SETON 20 C 21 SETOF 13 C 13 TOTNOW ADD BALDUE TOTNOW C 14 TOT1 ADD BALDUE TOT1 C 15 TOT2 ADD BALDUE TOT2 C 16 TOT3 ADD BALDUE TOT3 C N20 TOT ADD BALDUE TOT C N20 26 SETON 2422 C N20 26 EXCPT C N20 26 SETOF 2422OV C N20 26 SETOF 26 C 06 CORN10 CORN13 GOTO END C INVAMT SUB TAX DUM9 92 C DUM9 MULT .02 DISCI 92H C DISCI SUB DISTAK DISCI C DISCI COMP 0 17 C 17 DISC ADD DISCI DISC C END TAG C 01N20 SETON 27 C 01N20 EXCPT C 01N20 SETOF 27 C 01N20 MOVE PONO1 PONO 10 C 01N20 PONO COMP BLNK10 0404 C 01N20 04 EXSR PRTPO C 01N20 MOVE PONO2 PONO C 01N20 PONO COMP BLNK10 0404 C 01N20 04 EXSR PRTPO C 01N20 MOVE PONO3 PONO C 01N20 PONO COMP BLNK10 0404 C 01N20 04 EXSR PRTPO C 01N20 MOVE PONO4 PONO C 01N20 PONO COMP BLNK10 0404 C 01N20 04 EXSR PRTPO CL1 MESNO COMP 0 25 CL1N25 GOTO ENDMES CL1 MOVELMESNO MESKEY 5 CL1 Z-ADD1 MSEQNO 20 CL1 MOVE MSEQNO MESKEY CL1 MESKEY CHAINMESAGE 31 CL1 31 GOTO ENDMES CL1 OV SETON 2422 CL1 24 EXCPT CL1 24 SETOF 2422OV CL1 SETON 3233 CL1 EXCPT CL1 SETOF 3233 CL1 AGNMES TAG CL1 MSEQNO ADD 1 MSEQNO CL1 MOVE MSEQNO MESKEY CL1 MESKEY CHAINMESAGE 31 CL1N31 OV SETON 2422 CL1N31 24 EXCPT CL1N31 24 SETOF 2422OV CL1N31 SETON 33 CL1N31 EXCPT CL1N31 SETOF 33 CL1N31 GOTO AGNMES CL1 SETON 34 CL1 EXCPT CL1 SETOF 34 CL1 ENDMES TAG CL1 SETON 23 CL1 EXCPT CL1 SETOF 23OV CSR PRTPO BEGSR CSR OV SETON 2422 CSR 24 EXCPT CSR 24 SETOF 2422OV CSR SETON 28 CSR EXCPT CSR SETOF 28 CSR ENDSR OPRT E 050 22 O 59 'CONTINUED' O 81 'CONTINUED' O E 108 24 O CNAME 40 O 53 'CUST NO' O CNO M 61 O E 01 24 O N05 DEVCO 35 O E 01 24 O STR 40 O E 01 24 O CTY 34 O ZIP 40 O E 1215 24 O PAGE 58 O PAGE1 73 O E 0 18 24 O UDATE Y 59 O CNO 69 O UDATE Y 80 O E 01 27 O INVN M 10 O DAT Y 22 O 11 36 'CREDIT MEMO' O 12 35 'DEBIT MEMO' O 10 32 'INVOICE' O BALDUEA 61 O BALDUEA 83 O INVN M 70 O E 01 28 O 29 'PO#' O PONO 40 O E 11 32 O 29 '************************' O 53 '************************' O 73 '********************' O E 01 32 O 6 '*' O 73 '*' O E 01 33 O 6 '*' O MESDES 69 O 73 '*' O E 01 34 O 6 '*' O 73 '*' O E 00 34 O 29 '************************' O 53 '************************' O 73 '********************' O E 050 23 O TOTNOWB 12 O TOT1 B 24 O TOT2 B 36 O TOT3 K 47 O TOT A 61 O TOT A 83 // CEND // COPY LIBRARY-S,NAME-JF0042,RECL-096,REF-000004,DATE-07/08/29,TIME-1210,SUB-RPG H B 1 JF0042 FXRECSM IPE F 308 308 2 DISK FCNTRL IC F 32 32R DISK FINP ID F 79 79 KEYBORD FCUSMAS IC F 600 600R 6AI 1 DISK FUNCASH IC F 32 32R 4AI 1 DISK U3 FCRT O F 79 79 CRT FPRT O F 132 132 OV PRINTER E AMS 1 3 79 E AA 5 9 2 E AT 5 9 2 E AMO 6 12 9 IXRECSM AA 01 I 8 13 CONL1 L1 I 8 130CNO I 8 110CNO4 I 12 13 CNO2 I* 18 190YY I 14 150MM I 16 170DA I P 46 502BALDUE I 305 3080YY4 ICNTRL AA 1 C0 2 C0 3 C7 I 4 32 CONAME ICUSMAS BB 02 I 8 31 CNAME I 97 109 DEVCO I 299 300 SM I P 454 4592BDEBT I 600 600 ACTV IUNCASH AA 16 32 CA I 5 132UNCASH I BB ILDA UDS I 1 1 PRTGRP C 03 GOTO BEGIN C SETON 03 C 7 CHAINCNTRL C TIME TIME 60 C MOVELTIME TIMEHM 40 C PRTGRP COMP 'Y' 19 C AMS,1 KEY IMN 20 C AMS,2 KEY IYR 20 C Z-ADDIYR IYR4 40 C IYR COMP 70 04 C 04 MOVEL'19' IYR4 C N04 MOVEL'20' IYR4 C AMS,3 KEY YESNO 1 C YESNO COMP 'Y' 27 C Z-ADDIYR4 YXX C IMN ADD 1 MXX C MXX COMP 13 04 C 04 Z-ADD1 MXX C 04 YXX ADD 1 YXX C MOVELYXX YRM0 60 C MOVE MXX YRM0 C MOVE IMN MXX 20 C MOVE IMN M1 20 C MOVE IYR4 YXX 40 C MXX SUB 1 MXX 04 C 04 Z-ADD12 MXX C 04 YXX SUB 1 YXX C MOVELYXX YRM1 60 C MOVE MXX YRM1 C MOVE MXX M2 20 C MXX SUB 1 MXX 04 C 04 Z-ADD12 MXX C 04 YXX SUB 1 YXX C MOVELYXX YRM2 60 C MOVE MXX YRM2 C MOVE MXX M3 20 C MXX SUB 1 MXX 04 C 04 Z-ADD12 MXX C 04 YXX SUB 1 YXX C MOVELYXX YRM3 60 C MOVE MXX YRM3 C MOVE MXX M4 20 C MXX SUB 1 MXX 04 C 04 Z-ADD12 MXX C 04 YXX SUB 1 YXX C MOVELYXX YRM4 60 C MOVE MXX YRM4 C SETON 15 C BEGIN TAG C OV SETON 15 C 15 EXCPT C 15 SETOF 15OV C 01 MOVELYY4 YRMX 60 C 01 MOVE MM YRMX C* L1 CNO CHAINCUSMAS 05 C* L1N05 ACTV COMP 'D' 05 C* L1N05 TBDEBT ADD BDEBT TBDEBT 92 C L1 Z-ADD0 AA C L1 SETOF 14 C SETOF 080910 C SETOF 0713 C DA COMP 25 12 C YRMX COMP YRM4 0611 C N11N06 YRMX COMP YRM3 07 C N11N06N07YRMX COMP YRM2 08 C N11N06N07 CANN08 YRMX COMP YRM1 10 09 C 11N12 SETON 06 C 11 12 SETON 07 C 11 12 SETOF 1112 C 07 12 SETON 08 C 07 12 SETOF 0712 C 08 12 SETON 09 C 08 12 SETOF 0812 C 09 12 SETON 10 C 09 12 SETOF 0912 C 10 12 SETON 13 C 10 12 SETOF 1012 C SETOF 24 C 10N13 YRMX COMP YRM0 24 C 24 SETON 13 C 24 SETOF 10 C 06 Z-ADD1 IX 10 C 07 Z-ADD2 IX C 08 Z-ADD3 IX C 09 Z-ADD4 IX C 10 Z-ADD5 IX C N13 AA,IX ADD BALDUE AA,IX C N13 SETON 14 CL1 SETOF 17 CL1 U3 CNO2 COMP ' ' 17 CL1N17 CNO CHAINCUSMAS 02 CL1N17N02 TBDEBT ADD BDEBT TBDEBT 92 CL1 17 MOVE '00' CNO CL1 17 CNO CHAINCUSMAS 02 CL1 17 SETOF 16 CL1 17 CNO4 CHAINUNCASH 18 CL1 17 16 UNCASH COMP 0 1717 CL1 17 16 TUNCSH ADD UNCASH TUNCSH 92 CL1 17 16 SETOF 14 CL1 AT ADD AA AT CL1 XFOOTAA AAT 92 CLR XFOOTAT ATT 92 CLR ATT ADD TUNCSH GRTOT 92 OCRT H 103 1P O 24 'INVOICES DATED UP TO AND' O 48 ' INCLUDING THE 25TH OF T' O 65 'HE MONTH AND YEAR' O H 02 1P O 24 'YOU INDICATE WILL APPEAR' O 40 ' ON THIS LISTING' O H 02 1P U1 O 24 'ALL PAYMENTS UP TO THE C' O 48 'URRENT DATE WILL APPEAR ' O 63 'ON THIS LISTING' O H 02 1PNU1 O 24 'ONLY PAYMENTS UP TO AND ' O 48 'INCLUDING THE 25TH WILL ' O 70 'APPEAR ON THIS LISTING' OPRT E 103 15 O CONAME 29 O 56 'SUMMARY AGED ACCTS RECEI' O 61 'VABLE' O 82 '- INVOICES TO /25/' O IMN 78 O IYR 84 O U2 101 '*** BAD DEBTS ***' O PAGE 132 O 128 'PAGE' O E 01 15 O 3 'RUN' O UDATE Y 12 O TIMEHM 18 '0 : ' O 56 '************************' O 61 '*****' O U1 88 'INCLUDES ALL CASH POSTED' O U1 97 ' TO DATE,' O U1 U3 121 'INCLUDES UPAPPLIED CASH' O U1NU3 121 'EXCLUDES UPAPPLIED CASH' O NU1 88 'INCLUDES CASH ONLY TO EN' O NU1 99 'D OF MONTH,' O NU1 U3 123 'INCLUDES UPAPPLIED CASH' O NU1NU3 123 'EXCLUDES UPAPPLIED CASH' O* U1 88 'INCLUDES ALL CASH POSTED' O* U1 97 ' TO DATE, EXCLUDES UNAPP' O* NU5 121 'LIED CASH' O* U5 88 'INCLUDES CASH ONLY TO EN' O* U5 112 'D OF MONTH, EXCLUDES UNA' O* U5 123 'PPLIED CASH' O E 01 15 O N19 82 'BY CUSTOMER NUMBER' O 19 85 'BY CORPORATE CUSTOMER' O E 01 15 O 24 'CUSTOMER NAME, DEVEL CO,' O 33 ' SALESMAN' O 53 'BAD DEBTS' O 66 'PREVIOUS' O AMO,M4 79 O AMO,M3 92 O AMO,M2 105 O AMO,M1 118 O 131 'TOTAL' O E 01 15 O 24 '************************' O *PLACE 48 O *PLACE 72 O *PLACE 96 O *PLACE 120 O 132 '************' O TF01 L1 17 16 O CNO4 M 5 O 9 '(00)' O N02 CNAME 40 O UNCASHK 132 O 72 'UNAPPLIED CASH' O T 01 L1 14 O 27 CNO M 7 O T 01 L1 14 O N02 CNAME 24 O N02 BDEBT K 54 O N02 DEVCO 38 O N02 SM 41 O AA,1 K 67 O AA,2 K 80 O AA,3 K 93 O AA,4 K 106 O AA,5 K 119 O AAT K 132 O TF20 LR O 40 'TOTALS:' O TBDEBTK 54 O AT,1 K 67 O AT,2 K 80 O AT,3 K 93 O AT,4 K 106 O AT,5 K 119 O ATT K 132 O T 11 LR U3 O 116 'TOTAL UNAPPLIED CASH' O TUNCSHK 132 O T 01 LR U3 O 132 '-------------' O T 00 LR U3 O 116 'GRAND TOTAL' O GRTOT K 132 ** ENTER REPORT MONTH DESIRED (2 DIGITS) ENTER REPORT YEAR DESIRED (2 DIGITS) DO YOU WISH THE CUSTOMER NUMBER TO PRINT ? (Y=YES, N=NO) ** JANUARY FEBRUARY MARCH APRIL MAY JUNE JULY AUGUSTSEPTEMBER OCTOBER NOVEMBER DECEMBER // CEND // COPY LIBRARY-S,NAME-JF0043,RECL-096,DATE-06/03/27,TIME-1006,SUB-RPG H B 1 JF0043 FINP IP F 79 79 KEYBORD FXLOADO UC F 100 100R 9AI 1 DISK FXCHGLD O F 7 7 DISK A U2 FDISP O F 79 79 CRT E AMS 1 3 79 IXLOADO AA 01 I 10 10 TYPE1 I 20 20 TYPE2 C SETOF 0203 C AMS,1 SET KG C AMS,2 KEY LOAD 60 C KG SETON LR C KG GOTO END C AMS,3 KEY LINE 30 0303 C 03 GOTO END C MOVE LINE LOADLN 90 C MOVELLOAD LOADLN C LOADLN CHAINXLOADO 03 C N03 TYPE1 COMP 'D' 03 C N03 TYPE2 COMP 'X' 03 C N03 SETON 02 C END TAG ODISP H 11 1P O 24 'D E L E T E L I N E S ' O 48 ' F R O M L O A D S - ' O U1 65 'NOT YET PROCESSED' O U2 65 'ALREADY PROCESSED' O D 11 03 O 21 'LINE NOT IN LOAD FILE' OXLOADO D 02 O 20 'X' OXCHGLD DADD 02 O LOAD 6 ** PRESS COMMAND KEY 7 & ENTER IF THERE ARE NO MORE ENTRIES TO BE MADE, OR ENTER LOAD NUMBER ENTER LINE NUMBER TO BE DELETED // CEND // COPY LIBRARY-S,NAME-JF0044,RECL-096,REF-000003,DATE-06/03/27,TIME-1006,SUB-RPG H B 1 JF0044 FINP IP F 79 79 KEYBORD FXLOADO IC F 100 100R 9AI 1 DISK FPROD IC F 400 400R 9AI 1 DISK FXADLOD O F 103 103 12AI 1 DISK U FXCHGLD O F 7 7 DISK A U2 FDISP O F 79 79 CRT E AMS 1 17 79 E AL 50 6 0 IXLOADO AA 03 10 CD I BB 02 20 CX I CC 01 10NCD 20NCX I 10 100 RECORD I 67 67 OFCRED IPROD AA 21 10 CD I BB C Z-ADD0 Z2 20 C Z-ADD0 Z5 50 C Z-ADD0 Z9 90 C 04 GOTO TGTYPE C SETON 04 C TGLOAD TAG C SETOF 050603 C Z-ADD0 LINE 60 C AMS,1 SET KG C AMS,2 KEY LOAD 60 C KG SETON LR C KG GOTO END C LOAD LOKUPAL 05 C 05 EXCPT C 05 GOTO TGLOAD C MOVE '00I' KEYCHK 9 C MOVELLOAD KEYCHK C KEYCHK CHAINXLOADO 06 C 03 COR 02 SETON 06 C 06 EXCPT C 06 GOTO TGLOAD C OFCRED COMP 'X' 13 C I ADD 1 I 20 C I COMP 51 LR C LR SETON 07 C LR EXCPT C LR SETOF 07 C LR GOTO END C Z-ADDLOAD AL,I C AMS,3 KEY CUSPR 1 C CUSPR COMP 'N' 2323 C 23 MOVE ' ' PRCODE 1 C 23 Z-ADD0 SPPRC C TGLINE TAG C AMS,1 SET KG C AMS,4 KEY PRELNE 30 0808 C KG GOTO TGLOAD C 08 Z-ADD0 PRELNE C MOVELPRELNE LINE C TGTYPE TAG C SETOF 101112 C SETOF 14 C AMS,1 SET KG C AMS,5 KEY TYPEIN 1 C KG GOTO TGLINE C MOVE TYPEIN TYPE 1 C 'H' COMP TYPE 10 C 'D' COMP TYPE 12 C N10N12 MOVE 'I' TYPE C N10N12 SETON 11 C 12 MOVE 'E' TYPE C 12 GOTO TGLRH C 11 AMS,6 KEY QUAN 40 C 11 Z-ADDQUAN OQUAN 50 C AGNOQT TAG C 11 13 AMS,7 KEY OQUAN C 11 13 QUAN COMP OQUAN 08 C 11 13 08 SETON 15 C 11 13 08 EXCPT C 11 13 08 SETOF 15 C 11 13 08 GOTO AGNOQT C AGNITM TAG C MOVE ' ' PRCODE C Z-ADD0 SPPRC C AMS,8 KEY ITEM 7 C ITEM COMP '9999999' 0808 C 08 MOVE '01' PRDLNE 9 C 08 MOVELITEM PRDLNE C 08 PRDLNE CHAINPROD 21 C 08 21 SETON 22 C 08 21 EXCPT C 08 21 SETOF 22 C 08 21 GOTO AGNITM C 10 MOVE ' ' XPRLD 1 C 10 MOVE ' ' XPRCR 1 C 10 13 AMS,9 KEY XPRLD C 10 13 AMS,10 KEY XPRCR C 10 GOTO ACCEPT C ITEM COMP '9999999' 19 C 11 19 MOVE '9' PRCODE C 11 19 GOTO PRICE C 23 GOTO TGLRH C AMS,11 KEY PRCODE C PRCODE COMP '0' 08 08 C 08 PRCODE COMP '9' 0808 C N08 MOVE '1' PRCODE C PRICE TAG C PRCODE COMP '9' 14 C N14 Z-ADD0 SPPRC C 14 AMS,12 KEY SPPRC 94 08 C 14 08 AMS,13 KEY YN 1 C 14 08 YN COMP 'N' 08 C 14 08 GOTO PRICE C TGLRH TAG C AMS,14 KEY LR 1 C 'L' COMP LR 08 C 'R' COMP LR 17 C N08N17 MOVE ' ' LR C 11 AMS,15 KEY LNFT 50 C 11 19 COR 12 AMS,16 KEY DESC 27 C ACCEPT TAG C AMS,17 KEY YN 1 C YN COMP 'N' 08 C 08 GOTO TGTYPE C LINE ADD 1 LINE C SETON 09 C EXCPT C SETOF 09 C END TAG CLR Z-ADD0 AKEY 120 CLR LRLOAD TAG CLR Z-ADD0 KEY 90 CLR J ADD 1 J 20 CLR J COMP I 08 CLR 08 GOTO LREND CLR MOVELAL,J KEY CLR LRLNE TAG CLR KEY ADD 1 KEY CLR SETOF 01 CLR KEY CHAINXLOADO 08 CLR 08 GOTO LRLOAD CLR 01 MOVELKEY AKEY CLR 01 SETON 20 CLR 01 EXCPT CLR 01 SETOF 20 CLR GOTO LRLNE CLR LREND TAG ODISP H 11 1P O 24 'A D D L I N E S T O ' O U1 48 ' L O A D S - NOT YET PR' O U2 48 ' L O A D S - ALREADY PR' O 55 'OCESSED' O H 01 1P O 30 'DELETED LINES WILL BE RE' O 35 'MOVED' O H 01 1P O 30 'GOOD LINES WILL BE RENUM' O 35 'BERED' O E 11 05 O 23 'LOAD PREVIOUSLY USED' O E 11 06 O 16 'LOAD NOT IN FILE' O E 11 07 O 23 'ONLY 50 LOADS ALLOWED -' O 40 ' PROGRAM WILL END' O E 11 15 O 24 'QUANTITY ORDERED LARGER ' O 48 'THAN ORIGINAL QUANTITY O' O 72 'N HOUSE - PLEASE REENTER' O E 11 22 O 24 '************************' O E 01 22 O 24 '***NOT IN PRODUCT FILE**' O E 01 22 O 24 '************************' OXADLOD D 10 O LOAD 6 O LINE 12 O 13 'I' O TYPE 23 O ITEM 30 O XPRLD 56 O XPRCR 57 O D 11 O LOAD 6 O LINE 12 O 13 'I' O N19 TYPE 23 O N19 ITEM 30 O N19 QUAN 34 O N19 PRCODE 35 O N19 LR 36 O N19 SPPRC 41P O N19 LNFT 44P O N19 Z5 57P O N19 Z5 60P O N19 Z5 63P O N19 OQUAN 66P O 19 23 'M' O 19 QUAN 26P O 19 LR 27 O 19 SPPRC 32P O 19 LNFT 35P O 19 DESC 62 O 19 Z5 65P O 19 Z5 68P O 19 Z5 71P O 19 Z5 77P O 19 Z5 80P O 19 Z2 82 O D 12 O LOAD 6 O LINE 12 O 13 'I' O TYPE 23 O DESC 50 O LR 51 O E LR 20 O AKEY 12 O RECORD 103 OXCHGLD EADD 09 O LOAD 6 ** PRESS COMMAND KEY 7 & ENTER IF THERE ARE NO MORE ENTRIES TO BE MADE, OR ENTER LOAD NUMBER WILL THE CUSTOMER PRICING TABLE BE USED FOR PRICING (Y OR BLANK=YES, N=NO) ENTER PRECEDING LINE NUMBER ENTER LINE TYPE (H=HEADING, I=ITEM, D=DESCRIPTION) ENTER QUANTITY ORDERED ENTER QUANTITY ORIGINALLY ON HOUSE (FOR OFF & CREDIT) ENTER ITEM NUMBER ENTER X IF LINE NOT TO PRINT ON LOAD, BLANK OTHERWISE (FOR OFF & CREDIT) ENTER X IF LINE NOT TO PRINT ON CREDIT, BLANK OTHERWISE (FOR OFF & CREDIT) ENTER PRICE CODE (0=NO CHARGE, 1 OR BLANK=REGULAR, 2-8=REGULAR, 9=SPECIAL) ENTER SPECIAL PRICE ARE YOU SURE THIS ITEM HAS NO PRICE ? (Y=YES, N=NO) ENTER WHETHER LEFT OR RIGHT HAND (L=LEFT, R=RIGHT) ENTER LINEAR FEET ENTER DESCRIPTION ENTER WHETHER OR NOT OK (Y=YES, N=NO) // CEND // COPY LIBRARY-S,NAME-JF0045,RECL-096,REF-000005,DATE-01/12/18,TIME-1304,SUB-RPG H B 1 JF0045 FPROD UPE F 400 400 9AI 1 DISK FCNTRL IC F 32 32R DISK FINP ID F 79 79 KEYBORD FPROD2 IC F 400 400R 9AI 1 DISK FDISP O F 79 79 CRT FPRT O F 132 132 OV PRINTER E AMS 1 15 79 E AIL 15 7 E AIH 15 7 E AC 15 1 E AP1 15 11 6 E AP2 15 11 6 E AP3 15 11 6 E AP4 15 11 6 E AP5 15 11 6 E AP6 15 11 6 E AP7 15 11 6 E AP8 15 11 6 E AP 8 9 4 E AOP 8 9 4 E APN 8 9 4 IPROD AA 01 11NCI I BB 02 11 CI I 1 7 ITEM I P 13 52 AP I 134 160 DESC I P 161 200 AOP ICNTRL AA 1 C0 2 C0 3 C7 I 4 32 CONAME IPROD2 AA I 11 11 TYPE C 13 GOTO BEGIN C SETON 13 C 7 CHAINCNTRL C SETON 14 C BEGIN TAG C OV SETON 14 C 14 EXCPT C 14 SETOF 14OV C 03 GOTO ENDSEL C SETON OV C MORE TAG C AMS,1 SET KG C AMS,2 KEY ITEMIN 7 C KG SETON 03 C KG GOTO BEGRND C MOVE '01' ITEMLN 9 C MOVELITEMIN ITEMLN C ITEMLN CHAINPROD2 07 C N07 TYPE COMP 'D' 08 C N07 TYPE COMP 'I' 0909 C 07 CORN07 08 CORN07 09 EXCPT C 07 GOTO MORE C NL ADD 1 NL 20 C MOVE ITEMIN AIL,NL C AMS,3 KEY XY 7 C MOVE XY AIH,NL C AIH,NL COMP ' ' 04 C 04 MOVE ITEMIN AIH,NL C AMS,4 KEY CHANGE 1 C CHANGE COMP '%' 06 C 06 MOVE '%' AC,NL C AMS,5 KEY YY 94 C Z-ADDYY AP1,NL C AMS,6 KEY YY C Z-ADDYY AP2,NL C AMS,7 KEY YY C Z-ADDYY AP3,NL C AMS,8 KEY YY C Z-ADDYY AP4,NL C AMS,9 KEY YY C Z-ADDYY AP5,NL C AMS,10 KEY YY C Z-ADDYY AP6,NL C AMS,11 KEY YY C Z-ADDYY AP7,NL C AMS,12 KEY YY C Z-ADDYY AP8,NL C 06 AP1,NL DIV 100 AP1,NL H C 06 AP2,NL DIV 100 AP2,NL H C 06 AP3,NL DIV 100 AP3,NL H C 06 AP4,NL DIV 100 AP4,NL H C 06 AP5,NL DIV 100 AP5,NL H C 06 AP6,NL DIV 100 AP6,NL H C 06 AP7,NL DIV 100 AP7,NL H C 06 AP8,NL DIV 100 AP8,NL H C AMS,13 KEY YESNO 1 C YESNO COMP 'N' 11 C 11 MOVE ' ' AIL,NL C 11 MOVE ' ' AIH,NL C 11 MOVE ' ' AC,NL C 11 Z-ADD0 AP1,NL C 11 Z-ADD0 AP2,NL C 11 Z-ADD0 AP3,NL C 11 Z-ADD0 AP4,NL C 11 Z-ADD0 AP5,NL C 11 Z-ADD0 AP6,NL C 11 Z-ADD0 AP7,NL C 11 Z-ADD0 AP8,NL C 11 NL SUB 1 NL C 11 GOTO MORE C NL COMP 15 03 C N03 GOTO MORE C BEGRND TAG C AMS,14 KEY YESNO C YESNO COMP 'Y' 10 C AGNCO TAG C AMS,15 KEY CUROLD 1 C CUROLD COMP 'C' 15 C N15 CUROLD COMP 'O' 15 C N15 GOTO AGNCO C CUROLD COMP 'O' 15 C ENDSEL TAG C SETOF 04 C 01 GOTO END C Z-ADDNL IX 20 C AGAIN TAG C IX COMP 0 05 C 05 GOTO END C ITEM COMP AIL,IX 04 04 C 04 ITEM COMP AIH,IX 0404 C N04 IX SUB 1 IX C N04 GOTO AGAIN C 15 Z-ADDAOP AP C Z-ADDAP1,IX CHNG1 94 C Z-ADDAP2,IX CHNG2 94 C Z-ADDAP3,IX CHNG3 94 C Z-ADDAP4,IX CHNG4 94 C Z-ADDAP5,IX CHNG5 94 C Z-ADDAP6,IX CHNG6 94 C Z-ADDAP7,IX CHNG7 94 C Z-ADDAP8,IX CHNG8 94 C AC,IX COMP '%' 06 C 06 AP1,IX MULT AP,1 CHNG1 H C 06 AP2,IX MULT AP,2 CHNG2 H C 06 AP3,IX MULT AP,3 CHNG3 H C 06 AP4,IX MULT AP,4 CHNG4 H C 06 AP5,IX MULT AP,5 CHNG5 H C 06 AP6,IX MULT AP,6 CHNG6 H C 06 AP7,IX MULT AP,7 CHNG7 H C 06 AP8,IX MULT AP,8 CHNG8 H C AP,1 ADD CHNG1 APN,1 C AP,2 ADD CHNG2 APN,2 C AP,3 ADD CHNG3 APN,3 C AP,4 ADD CHNG4 APN,4 C AP,5 ADD CHNG5 APN,5 C AP,6 ADD CHNG6 APN,6 C AP,7 ADD CHNG7 APN,7 C AP,8 ADD CHNG8 APN,8 C 06 Z-ADDAPN,1 CHNG 94 C 06 EXSR ROUND C 06 Z-ADDCHNG APN,1 C 06 Z-ADDAPN,2 CHNG C 06 EXSR ROUND C 06 Z-ADDCHNG APN,2 C 06 Z-ADDAPN,3 CHNG C 06 EXSR ROUND C 06 Z-ADDCHNG APN,3 C 06 Z-ADDAPN,4 CHNG C 06 EXSR ROUND C 06 Z-ADDCHNG APN,4 C 06 Z-ADDAPN,5 CHNG C 06 EXSR ROUND C 06 Z-ADDCHNG APN,5 C 06 Z-ADDAPN,6 CHNG C 06 EXSR ROUND C 06 Z-ADDCHNG APN,6 C 06 Z-ADDAPN,7 CHNG C 06 EXSR ROUND C 06 Z-ADDCHNG APN,7 C 06 Z-ADDAPN,8 CHNG C 06 EXSR ROUND C 06 Z-ADDCHNG APN,8 C END TAG CSR ROUND BEGSR CSRN10 Z-ADDCHNG CHNGR2 72H CSRN10 Z-ADDCHNGR2 CHNG CSRN10 GOTO ENDSR CSR MOVE CHNG CENTS 40 CSR MOVELCHNG DOLS 50 CSR CENTS COMP 0000 12 12 CSR 12 CENTS COMP 1000 1212 CSR 12 Z-ADD0000 CENTS CSR 12 GOTO ENDRND CSR CENTS COMP 1100 12 12 CSR 12 CENTS COMP 5000 1212 CSR 12 Z-ADD5000 CENTS CSR 12 GOTO ENDRND CSR DOLS ADD 1 DOLS CSR Z-ADD0000 CENTS CSR ENDRND TAG CSR MOVE CENTS CHNG CSR MOVELDOLS CHNG CSR ENDSR ENDSR ODISP H 11 1P O 24 'C H A N G E P R O D U ' O 41 'C T P R I C E S' O E 11 07 O OR N07 08 O 19 'NOT IN PRODUCT FILE' O E 11 N07 09 O 24 'NOT AN ITEM RECORD IN TH' O 38 'E PRODUCT FILE' OPRT E 203 14 O CONAME 29 O 67 'PRODUCT PRICES CHANGED' O UDATE Y 82 O E 01 14 O 24 'ITEM# DESCRIPTION (F' O 34 'IRST LINE)' O E 01 14 O 53 'PRICE #1 PRICE #2' O 79 'PRICE #3 PRICE #4' O 105 'PRICE #5 PRICE #6' O 131 'PRICE #7 PRICE #8' O E 02 14 O 24 '************************' O *PLACE 48 O *PLACE 72 O *PLACE 96 O *PLACE 120 O 132 '************' OPROD D 04 O N15 APN 52P O 15 APN 200P OPRT D 01 04 O ITEM 7 O DESC 37 O D 01 04 O N15 27 'CURRENT PRICES' O 15 27 'OLD PRICES' O AP,1 K 41 O AP,2 K 54 O AP,3 K 67 O AP,4 K 80 O AP,5 K 93 O AP,6 K 106 O AP,7 K 119 O AP,8 K 132 O D 02 04 O 27 'CHANGED TO' O APN,1 K 41 O APN,2 K 54 O APN,3 K 67 O APN,4 K 80 O APN,5 K 93 O APN,6 K 106 O APN,7 K 119 O APN,8 K 132 ** PRESS COMMAND KEY 7 & ENTER IF THERE ARE NO MORE ENTRIES TO BE MADE, OR ENTER FROM ITEM NUMBER (15 SETS MAXIMUM) ENTER TO ITEM NUMBER (JUST PRESS ENTER IF SAME AS FROM ITEM NUMBER) ENTER WHETHER % OR $ CHANGE (% OR $) ENTER AMOUNT OF PRICE #1 CHANGE (4 DECIMAL POSITIONS) ENTER AMOUNT OF PRICE #2 CHANGE (4 DECIMAL POSITIONS) ENTER AMOUNT OF PRICE #3 CHANGE (4 DECIMAL POSITIONS) ENTER AMOUNT OF PRICE #4 CHANGE (4 DECIMAL POSITIONS) ENTER AMOUNT OF PRICE #5 CHANGE (4 DECIMAL POSITIONS) ENTER AMOUNT OF PRICE #6 CHANGE (4 DECIMAL POSITIONS) ENTER AMOUNT OF PRICE #7 CHANGE (4 DECIMAL POSITIONS) ENTER AMOUNT OF PRICE #8 CHANGE (4 DECIMAL POSITIONS) ENTER WHETHER OK (N=NO, ENTER=YES) DO YOU WISH NEW PRICES ROUNDED TO NEAREST 50› (Y=YES, N=NO) DO YOU WISH TO CHANGE CURRENT OR OLD PRICES ? (C=CURRENT, O=OLD) // CEND // COPY LIBRARY-S,NAME-JF0046,RECL-120,DATE-03/11/11,TIME-0948,SUB-RPG H B 1 JF0046 FINP IP F 1 1 KEYBORD FCNTRL OC F 32 32R DISK FCRT O F 79 79 CRT E MSG 1 1 79 ILDA UDS I 1 2 CO C MSG,1 KEY GO 1 C AGAIN TAG C I ADD 1 I 30 C I CHAINCNTRL C EXCPT C I COMP 80 01 C N01 GOTO AGAIN C SETON LR OCRT H 20 1P O 24 'YOU WILL BE CREATING FIL' O 38 'ES FOR COMPANY' O CO 41 OCNTRL E O I 3 ** PRESS ENTER TO TO BEGIN BY FIRST CREATING THE CNTRL FILE // CEND // COPY LIBRARY-S,NAME-JF0048,RECL-096,DATE-10/11/22,TIME-1055,SUB-RPG H B 1 JF0048 FRECEV IP F 300 300 2 DISK FRECBD IS F 300 300 2 DISK FINP ID F 79 79 KEYBORD FCUSMAS IC F 600 600R 6AI 1 DISK FMISCUS IC F 97 97R 7AI 1 DISK FXSTMT O F 269 269 2 DISK FXSMES O F 3 3 DISK FDISP O F 79 79 CRT E AMS 1 6 79 E ACI1 50 6 0 E ACI2 50 6 0 E ACE 50 4 0 IRECEV AA 01 300NCN I BB 02 300 CN I 1 150 RECORD I 2 70INO I 8 110CNO4 I 8 130CNO I 18 190INVY IRECBD AA 03 300NCN I BB 04 300 CN I 1 150 RECORD I 8 110CNO4 I 8 130CNO I 18 190INVY ICUSMAS AA 12 600NCA I BB I 8 37 CNAME I 38 67 STR I 68 91 CTY I 92 96 ZIP I 97 121 DEVCO I 136 136 TERMS IMISCUS AA 13 97NCA I BB I 8 37 CNAME I 38 67 STR I 68 91 CTY I 92 96 ZIP C 05 GOTO BEGIN C SETON 05 C MOVE ' ' BLNK30 30 C AGN1 TAG C AMS,1 KEY TYPE 10 C TYPE COMP 1 06 C TYPE COMP 2 07 C TYPE COMP 3 08 C N06N07N08 GOTO AGN1 C 08 GOTO MESAGE C Z-ADD51 I 20 C Z-ADD51 J 20 C AGN2 TAG C 06 AMS,2 SET KG C 06 AMS,3 KEY CNOI1 60 C 07 AMS,2 SET KG C 07 AMS,4 KEY CNOE 40 C KG GOTO MESAGE C U1 06 AMS,5 KEY CNOI2 60 C 06 I SUB 1 I C 06 Z-ADDCNOI1 ACI1,I C 07 J SUB 1 J C 07 Z-ADDCNOE ACE,J C U1 06 Z-ADDCNOI2 ACI2,I C I COMP 1 09 C N09 J COMP 1 09 C N09 GOTO AGN2 C MESAGE TAG C AMS,6 KEY MESNO 30 C BEGIN TAG C SETOF 1011 C 01 COR 03 GOTO END C 06 Z-ADDI K 20 C 06 CNO LOKUPACI1,K 09 C 07 Z-ADDJ K C 07 CNO4 LOKUPACE,K 09 C NU1 06 02 CAN 09 SETON 10 C NU1 07 02 CANN09 SETON 10 C NU1 08 02 SETON 10 C U1 06 04 CAN 09 SETON 10 C U1 06 04 CAN 09 ACI2,K COMP 0 1111 C U1 07 04 CANN09 SETON 10 C U1 08 04 SETON 10 C U1 06 02 Z-ADDI K C U1 06 02CNO LOKUPACI2,K 09 C U1 06 02 CAN 09 SETON 10 C N10 GOTO END C Z-ADDINVY INVY4 40 C INVY COMP 70 16 C 16 MOVEL'19' INVY4 C N16 MOVEL'20' INVY4 C MOVE BLNK30 CNAME C MOVE BLNK30 STR C MOVE BLNK30 CTY C MOVE ' ' ZIP C MOVE BLNK30 DEVCO C MOVE '1' TERMS C CNO CHAINCUSMAS 12 C MOVELCNO CNO3 30 C CNO3 COMP 630 14 C N14 GOTO END C MOVEL'I' MSCSKY 7 C MOVE INO MSCSKY C MSCSKY CHAINMISCUS 13 C END TAG ODISP H 101 1P O 18 'RUN TYPE 1,2,OR 3' O H 01 1P O 34 '1=PRINT STATEMENTS FOR O' O 58 'NLY THOSE CUSTOMERS TO B' O 66 'E LISTED' O H 01 1P O 34 '2=PRINT STATEMENTS FOR A' O 58 'LL CUSTOMERS EXCEPT THOS' O 72 'E TO BE LISTED' O H 02 1P O 34 '3=PRINT STATEMENTS FOR A' O 46 'LL CUSTOMERS' OXSTMT D 10 O RECORD 150 O 11 ACI2,K 13 O CNAME 180 O STR 210 O CTY 234 O ZIP 239 O DEVCO 264 O TERMS 265 O INVY4 269 OXSMES T LR O MESNO 3 ** PLEASE ENTER TYPE DESIRED (1-3) PRESS COMMAND KEY 7 AND ENTER IF THERE ARE NO MORE ENTRIES, OR ENTER CUSTOMER# TO BE INCLUDED (6 DIGITS) ENTER CORPORATE CUSTOMER# TO BE EXCLUDED (4 DIGITS) ENTER CUSTOMER# IN BAD DEBT FILE IF YOU WISH THESE INVOICES ALSO ENTER MESSAGE# TO PRINT ON STATEMENTS (JUST PRESS ENTER IF NONE) // CEND // COPY LIBRARY-S,NAME-JF0049,RECL-096,DATE-01/03/23,TIME-1226,SUB-RPG H B 1 JF0049 FINP IP F 79 79 KEYBORD FXPRXX UC F 156 156R 9AI 1 DISK A FDISP O F 79 79 CRT E AMS 1 3 79 IXPRXX AA I 10 150PRDAT I 16 160WKNO I 17 220CHKNO C MOVEL'A' KEY 9 C KEY CHAINXPRXX 01 C PRDAT SET KA C AMS,1 KEY NPRDAT 60 02 C 02 Z-ADDPRDAT NPRDAT C KA Z-ADD0 NPRDAT C WKNO SET KA C AMS,2 KEY NWKNO 10 02 C 02 Z-ADDWKNO NWKNO C KA Z-ADD0 NWKNO C N01 CHKNO ADD 1 CHKNO C CHKNO SET KA C AMS,3 KEY NCHKNO 60 02 C 02 Z-ADDCHKNO NCHKNO C KA Z-ADD0 NCHKNO C NCHKNO SUB 1 NCHKNO C SETON 03LR ODISP H 11 1P O 24 'E N T E R P A Y R O L ' O 48 'L G E N E R A L I N ' O 65 'F O R M A T I O N' O H 11 1P O 24 'FOR ALL FIELDS: PRES' O 48 'S ENTER TO DUPLICATE EXI' O 72 'STING FIELD (SHOWN ON SC' O 77 'REEN)' O H 01 1P O 44 'PRESS COMMAND KEY 1 TO B' O 58 'LANK OUT FIELD' O H 01 1P O 38 'OR ENTER NEW FIELD' OXPRXX DADD 03 01 O KEY 9 O NPRDAT 15 O NWKNO 16 O NCHKNO 22 O 156 'A' O D 03N01 O NPRDAT 15 O NWKNO 16 O NCHKNO 22 O 156 'A' ** ENTER PAYROLL DATE ENTER NUMBER OF WEEK IN MONTH ENTER STARTING CHECK NUMBER // CEND // COPY LIBRARY-S,NAME-JF0050,RECL-096,REF-000001,DATE-01/03/23,TIME-1226,SUB-RPG H B 1 JF0050 FWK CP F 100 WORKSTN FEMPLYE IC F 350 350R 5AI 1 DISK FXPRXX UC F 156 156R 9AI 1 DISK A E AZ8 8 7 2 IWK AA 01 1 C1 I 2 100 RECORD I 2 60ENO I 2 30ENO2 I 37 370SEQNO I 38 420REGHR I 43 470REGRAT I 48 520OVTHR I 53 590SALRY I 60 660HOSP I 67 730LOAN I 74 800MISCD I 81 81 MSDCD I 82 880EXCPD I 89 950EXCHD I 96 970MISCP I 98 98 MSPCD I 99 1000EXCHP I BB 02 IEMPLYE AA 03 350NCA I BB I 6 20 LNAM I 21 35 FNAM I 41 41 MS I 42 430DEP I 87 88 STATE I P 91 940ADFTAX I P 95 980ADSTAX I P 99 1020EHOSP I P 103 1060ELOAN I P 107 1100EMISCD I P 111 1140EEXCPD I P 115 1180EEXCHD I 121 1220EMISCP I 123 1240EEXCHP I 125 125 EMSDCD I 126 126 EMSPCD I 127 127 HOSPWM I 128 128 NJTXBL I 129 129 PATXBL I 130 130 EUNDPD I 131 131 UNMEM I P 132 1340UNIT I 135 1380UMNYR I 139 139 MISDWM I 140 140 MISPWM I 141 141 HSPTX I P 221 2230EREGHR I P 224 2260EREGRT I P 227 2290EOVTHR I P 233 2360ESALRY IXPRXX AA 04 156NCA I BB 05 156 CA I P 18 200XREGHR I P 21 230XREGRT I P 24 260XOVTHR I P 62 650XHOSP I P 66 690XLOAN I P 70 730XMISCD I P 78 810XEXCPD I P 82 850XEXCHD I 100 1010XMISCP I 102 1030XEXCHP I 104 104 XMSDCD I 105 105 XMSPCD I P 152 1550XSALRY C SETOF 07 C SETON 99 C KD SETOF 99 C KD GOTO END C KG SETOF 0102 C KG SETON LR C N01 GOTO END C MOVEL'B' BENO 6 C MOVE ENO BENO C MOVELBENO BEMPSQ 9 C MOVE SEQNO SEQNO3 30 C MOVE SEQNO3 BEMPSQ C BEMPSQ CHAINXPRXX 06 C KA 04 COR KA 06 COR KB 05 COR KC 05 SETON 07 C KC GOTO END C ENO CHAINEMPLYE 03 C 03 07 SETOF 07 C 07 REGRAT MULT 1.5 OVTRAT 50H C 07 EUNDPD COMP 'Y' 08 C 07 08 MOVE 'N' CUNDPD 1 C 07N08 MOVE 'Y' CUNDPD C END TAG OWK D 02 O OR 01 07 O K8 'JF005001' O D 01 KAN07 O OR 01 KBN07 O OR 01 KCN07 O OR 01 KD O K8 'JF005001' O RECORD 99 O D 01NKANKB O AND NKCNKDN07 O K8 'JF005001' O ENO 5 O 03 20 '**NOT IN FILE**' O N03 FNAM 20 O N03 LNAM 35 O SEQNO 36 O 05 XREGHR 41 O 05 XREGRT 46 O 05 XOVTHR 51 O 05 XSALRY 58 O 05 XHOSP 65 O 05 XLOAN 72 O 05 XMISCD 79 O 05 XMSDCD 80 O 05 XEXCPD 87 O 05 XEXCHD 94 O 05 XMISCP 96 O 05 XMSPCD 97 O 05 XEXCHP 99 O N03N05 EREGHR 41 O N03N05 EREGRT 46 O N03N05 EOVTHR 51 O N03N05 ESALRY 58 O N03N05 EHOSP 65 O N03N05 ELOAN 72 O N03N05 EMISCD 79 O N03N05 EMSDCD 80 O N03N05 EEXCPD 87 O N03N05 EEXCHD 94 O N03N05 EMISCP 96 O N03N05 EMSPCD 97 O N03N05 EEXCHP 99 OXPRXX DADD 01 07 06 O AND NKC O 1 'B' O ENO 6 O SEQNO3 9 O REGHR 20P O REGRAT 23P O OVTHR 26P O OVTRAT 29P O AZ8 61P O HOSP 65P O LOAN 69P O MISCD 73P O AZ8,1 77P O EXCPD 81P O EXCHD 85P O AZ8,1 89P O AZ8,1 93P O AZ8,1 97P O HOSPWM 98 O UNMEM 99 O MISCP 101 O EXCHP 103 O MSDCD 104 O MSPCD 105 O STATE 107 O MS 108 O DEP 110 O ADFTAX 114P O ADSTAX 118P O NJTXBL 119 O PATXBL 120 O MISDWM 121 O MISPWM 122 O HSPTX 127 O CUNDPD 128 O ENO2 130 O UMNYR 148 O UNIT 151P O SALRY 155P O 156 'A' O D 01 07N06 O AND NKC O REGHR 20P O REGRAT 23P O OVTHR 26P O OVTRAT 29P O AZ8 61P O HOSP 65P O LOAN 69P O MISCD 73P O AZ8,1 77P O EXCPD 81P O EXCHD 85P O AZ8,1 89P O AZ8,1 93P O AZ8,1 97P O HOSPWM 98 O UNMEM 99 O MISCP 101 O EXCHP 103 O MSDCD 104 O MSPCD 105 O STATE 107 O MS 108 O DEP 110 O ADFTAX 114P O ADSTAX 118P O NJTXBL 119 O PATXBL 120 O MISDWM 121 O MISPWM 122 O HSPTX 127 O CUNDPD 128 O ENO2 130 O UMNYR 148 O UNIT 151P O SALRY 155P O 156 'A' O D 01 07N06 O AND KC O 156 'D' // CEND // COPY LIBRARY-S,NAME-JF005001,RECL-096,DATE-01/03/27,TIME-1340,SUB-FMT 0001 SJF005001 0124 0002 DH1 1 1 2Y Y Y Y 1 0003 D 78 2 2Y Y E N T E R W E E K L YX 0004 D P A Y R O L L D A T A ENTER = GET INFO FROM FILE 0005 D 75 3 2Y Y ***********************X 0006 D************************** CK1 = ADD TO PAY FILE 0007 D 24 456Y Y CK2 = CHANGE IN PAY FILX 0008 DE 0009 D 9 5 2Y Y EMPLOYEE# 0010 DEMPNO 6 513Y YS B Y Y 0011 D 12 556Y Y CK3 = DELETE 0012 DFNAM 15 613Y Y Y Y 0013 D 22 656Y Y CK4 = CHANGE RATE, DED 0014 DLNAM 15 713Y Y Y Y 0015 D 9 756Y Y CK7 = END 0016 D 37 9 2Y Y EMPLOYEE CHECK SEQUENCEX 0017 D# (1,2,3,ETC.) 0018 DSEQNO 2 944Y YS B Y Y 0019 D 1311 2Y Y REGULAR HOURS 0020 DREGHR 61121Y YS B Y Y 0021 D 1212 2Y Y REGULAR RATE 0022 DREGRAT 61221Y YS B Y 99 Y 0023 D 1413 2Y Y OVERTIME HOURS 0024 DOVTHR 61321Y YS B Y Y 0025 D 614 2Y Y SALARY 0026 DSALARY 81421Y YS B Y 99 Y 0027 D 1016 2Y Y DEDUCTIONS 0028 D 1017 6Y Y HOSPITAL $ 0029 DHOSP 81731Y YS B Y 99 Y 0030 D 1818 6Y Y LOANS/RECEIVABLE $ 0031 DLOAN 81831Y YS B Y 99 Y 0032 D 619 6Y Y MISC $ 0033 DMISCD 81931Y YS B Y 99 Y 0034 D 41950Y Y CODE 0035 DMISDCD 11957Y Y Y 99 Y 0036 D 1820 6Y Y EXCHANGE CHECK P $ 0037 DEXCHPD 82031Y YS B Y 99 Y 0038 D 1621 6Y Y EXCHANGE CHECK $ 0039 DEXCHD 82131Y YS B Y 99 Y 0040 D 622 6Y Y MISC % 0041 DMISCP 32231Y YS B Y 99 Y 0042 D 42250Y Y CODE 0043 DMISPCD 12257Y Y Y 99 Y 0044 D 1623 6Y Y EXCHANGE CHECK % 0045 DEXCHPC 32331Y YS B Y 99 Y // CEND // COPY LIBRARY-S,NAME-JF0051,RECL-096,DATE-01/03/23,TIME-1226,SUB-RPG H B 1 JF0051 FXPRXX UPE F 156 156 9AI 1 DISK IXPRXX AA 01 1 CA 156 CA I 10 110PRMO I 14 150PRYR I 16 160WKNO I 17 220CHKNO I BB 02 1 CB 156 CA I 2 60ENO I P 18 202REGHRS I P 21 232REGRT I P 24 262OVTHRS I P 27 292OVTRT I P 62 652HOSP I P 66 692LOANS I P 70 732MISCDL I P 78 812EXCHPD I P 82 852EXCHD I 98 98 HOSPWM I 99 99 UNMEM I 100 1012MISCPC I 102 1032EXCHPC I 121 121 MISDWM I 122 122 MISPWM I 128 128 CUNDPD I 145 1460MOIPD I 147 1480YRIPD I P 149 1512UNTG I P 152 1552SALRY I CC 03 C 03 GOTO END C 01 WKNO COMP 1 13 C 01 WKNO COMP 2 04 C 01 WKNO COMP 1 11 11 C 01 11 WKNO COMP 3 1111 C 01 WKNO COMP 4 12 C 01 GOTO END C REGHRS MULT REGRT REGAMT 72H C REGAMT ADD SALRY REGAMT C OVTHRS MULT OVTRT OVTAMT 72H C REGAMT ADD OVTAMT TOTAMT 72 C CHKNO ADD 1 CHKNO C ENO COMP ENOLST 08 C MOVE ENO ENOLST 50 C 08 Z-ADD0 HOSP C 08 Z-ADD0 LOANS C 08 Z-ADD0 MISCDL C 08 Z-ADD0 MISCPD C 08 Z-ADD0 EXCHPD C 08 Z-ADD0 EXCHD C 08 Z-ADD0 EXCHDP C 08 Z-ADD0 UNTG C 08 Z-ADD0 MISCPC C 08 Z-ADD0 EXCHPC C 08 MOVE ' ' UNMEM C 08 Z-ADD0 UNDAMT C 08 Z-ADD0 UNIAMT C 08 GOTO END C HOSPWM COMP 'M' 10 C 10N04 Z-ADD0 HOSP C MISDWM COMP 'M' 10 C 10N13 Z-ADD0 MISCDL C MISPWM COMP 'M' 10 C 10N13 Z-ADD0 MISCPC C TOTAMT MULT MISCPC MISCPD 72H C TOTAMT MULT EXCHPC EXCHDP 72H C UNMEM COMP 'Y' 06 C N06 Z-ADD0 UNIAMT 72 C N06 Z-ADD0 UNDAMT 72 C N06 Z-ADD0 UNTG C N06 GOTO END C UNTG COMP 0 06 C N06 Z-ADD10 UNIAMT C N06 Z-ADD0 UNDAMT C N06 UNTG COMP UNIAMT 0707 C N06 07 MOVE UNTG UNIAMT C N06 GOTO END C CUNDPD COMP 'Y' 06 C 13 SETON 06 C 06 Z-ADD21.50 UNDAMT C N06 Z-ADD0 UNDAMT C Z-ADD0 UNIAMT C YRIPD COMP PRYR 06 C 06 MOIPD COMP PRMO 06 C 06 Z-ADD0 UNDAMT C END TAG OXPRXX D 02 O REGAMT 33P O OVTAMT 37P O TOTAMT 41P O HOSP 65P O LOANS 69P O MISCDL 73P O MISCPD 77P O EXCHPD 81P O EXCHD 85P O EXCHDP 89P O UNIAMT 93P O UNDAMT 97P O UNMEM 99 O MISCPC 101 O EXCHPC 103 O UNTG 151P // CEND // COPY LIBRARY-S,NAME-JF0052,RECL-096,DATE-01/03/23,TIME-1226,SUB-RPG H B 1 JF0052 FXPRXX UPE F 156 156 9AI 1 DISK FXEMPL UC F 350 350R 5AI 1 DISK FXFCWG O F 18 18 DISK E ASWW 5 5 5 0 E AMWW 5 5 5 0 E ASAW 5 5 6 2 E AMAW 5 5 6 2 E ASP 5 5 3 3 E AMP 5 5 3 3 E AJ1 6 6 5 0 E AJ2 6 6 5 0 E AJ3 6 6 6 2 E AJ4 6 6 6 2 E AJ5 6 6 3 3 E AJ6 6 6 3 3 E AW 6 5 0 E APC 6 3 3 E AA 6 6 2 E AH 4 5 2 E AFW 11 7 2 E AFY 11 9 2 IXPRXX AA 01 1 CA 156 CA I 10 110PRMN I 14 150PRYR I 17 220CHKNO I BB 02 1 CB 156 CA I 2 60ENO I P 18 29 AH I P 38 81 AFW I P 82 852EXCHD I P 86 892EXCHDP I P 90 932UNIAMT I P 94 972UNDAMT I 99 99 UNMEM I 108 108 MS I 109 1100DEP I P 111 1142ADFTX I P 115 1182ADSTX I 119 119 NJTXBL I 120 120 PATXBL I P 123 1262WFICHI I 127 127 HSPTX I CC 04 IXEMPL AA I P 132 1342UNILFT I P 146 200 AFY I P 201 2052YEXCH I P 206 2102YUNAMT I P 211 2152YFICHI I P 216 2202YHSPNT C 04 GOTO END C 01 GOTO END C Z-ADD0 AFW,2 C Z-ADD0 AFW,3 C Z-ADD0 AFW,4 C Z-ADD0 AFW,5 C Z-ADD0 AFW,6 C Z-ADDAFW,1 GROSS 72 C HSPTX COMP 'N' 05 C 05 GROSS SUB AFW,7 GROSS C ENO CHAINXEMPL C DEP MULT 48.08 EXMP 72 C GROSS SUB EXMP GRSADJ 82 C MS COMP 'M' 15 C Z-ADDASWW AW C 15 Z-ADDAMWW AW C Z-ADDASAW AA C 15 Z-ADDAMAW AA C Z-ADDASP APC C 15 Z-ADDAMP APC C Z-ADD5 I 10 C AGNFWT TAG C AW,I COMP GRSADJ 12 C N12 I SUB 1 I 13 C N12 13 GOTO FICA C N12 GOTO AGNFWT C GRSADJ SUB AW,I AMT 92 C AMT MULT APC,I AMT H C Z-ADDAMT AFW,2 C AFW,2 ADD AA,I AFW,2 C FICA TAG C AFW,2 ADD ADFTX AFW,2 C GROSS MULT .062 AFW,3 H C AFY,3 ADD AFW,3 DUM8 82 C DUM8 COMP 3794.40 03 C 03 3794.40 SUB AFY,3 AFW,3 C N03 Z-ADDGROSS ETXFC 92 C AFY,1 SUB YHSPNT YNTGRS 92 C 03 YNTGRS COMP 61200.00 08 C 03N08 Z-ADD0 ETXFC C 03 08 61200.00 SUB YNTGRS ETXFC C TTXFCO ADD ETXFC TTXFCO 92 C GROSS MULT .0145 WFICHI H C TTXFCH ADD GROSS TTXFCH 92 C AFW,1 MULT .01125 AFW,5 H C AFY,5 ADD AFW,5 DUM8 C DUM8 COMP 198.00 03 C 03 198.00 SUB AFY,5 AFW,5 C PATXBL COMP 'Y' 03 C N03 GOTO NOPA C AFW,1 MULT .028 AFW,6 H C AFW,6 ADD ADSTX AFW,6 C NOPA TAG C NJTXBL COMP 'Y' 03 C N03 GOTO NONJ C Z-ADDADSTX AFW,4 C DEP MULT 19.20 EXMP C AFW,1 SUB EXMP GRSADJ C Z-ADDAJ1 AW C 15 Z-ADDAJ2 AW C Z-ADDAJ3 AA C 15 Z-ADDAJ4 AA C Z-ADDAJ5 APC C 15 Z-ADDAJ6 APC C Z-ADD6 I C AGNNJ TAG C AW,I COMP GRSADJ 12 C N12 I SUB 1 I 13 C N12 13 GOTO NONJ C N12 GOTO AGNNJ C GRSADJ SUB AW,I AMT C AMT MULT APC,I AMT H C Z-ADDAMT AFW,4 C AFW,4 ADD AA,I AFW,4 C NONJ TAG C AFW,4 ADD ADSTX AFW,4 C AFY ADD AFW AFY C 05 AFY,7 SUB AFW,7 AFY,7 C 05 YHSPNT ADD AFW,7 YHSPNT C YFICHI ADD WFICHI YFICHI C YEXCH ADD EXCHD YEXCH C YEXCH ADD EXCHDP YEXCH C UNMEM COMP 'Y' 16 C 16 UNILFT SUB UNIAMT UNILFT 17 C 16 YUNAMT ADD UNIAMT YUNAMT C 16 YUNAMT ADD UNDAMT YUNAMT C CHKNO ADD 1 CHKNO C END TAG OXPRXX D 02 O AFW 81P O WFICHI 126P O CHKNO 144 OXEMPL D 02 O 16 UNILFT 134P O 16 17 PRMN 136 O 16 17 PRYR 138 O AFY 200P O YEXCH 205P O YUNAMT 210P O YFICHI 215P O YHSPNT 220P O AH 232P OXFCWG T LR O TTXFCO 9 O TTXFCH 18 ** 0005000476009990229504960 ** 0012300828016640283905011 ** 000000006390021034061210157150 ** 000000010575033983070408148600 ** 150280310360396 ** 150280310360396 ** 000000000000384006730076901442 ** 000000038400961013460153802885 ** 000000000000000730001423001874006384 ** 000000000730002114003385004287013306 ** 000019024047067072 ** 019024033047067072 // CEND // COPY LIBRARY-S,NAME-JF0053,RECL-096,DATE-01/03/23,TIME-1226,SUB-RPG H B 1 JF0053 FXPRXX IPE F 156 156 9AI 1 DISK FXEMPL IC F 350 350R 5AI 1 DISK FPRT O F 132 132 OV PRINTER E AW 7 7 2 E AM 7 8 2 E AT 7 8 2 IXPRXX AA 01 1 CA 156 CA I 10 150PRDAT I 16 160WKNO I BB 02 1 CB 156 CA I 2 3 DEPT L1 I 2 60ENO I 2 30ENO2 I 4 60ENO3 I 9 90SEQNO I P 42 69 AW I P 123 1262WFICHI I 127 127 HSPTX I 139 1440CHKNO I CC 99 IXEMPL AA I 6 20 LNAME I 21 21 FNAME C 01 SETON 04 C 01 EXCPT C 01 SETOF 04OV C 01 GOTO END C 99 GOTO END C 02 SETON 05 C 02 HSPTX COMP 'N' 07 C 02 07 Z-ADD0 AW,6 C 02 ENO COMP OENO 0606 C 02 06 TOTEMP ADD 1 TOTEMP 40 C 02 Z-ADDENO OENO 50 C L1 Z-ADD0 AM C L1 Z-ADD0 MFICHI 82 C AM ADD AW AM C MFICHI ADD WFICHI MFICHI C AT ADD AW AT C TFICHI ADD WFICHI TFICHI 82 C ENO CHAINXEMPL 03 C OV SETON 04 C OV EXCPT C OV SETOF 04OV C END TAG OPRT E 303 04 O 39 'P A Y R O L L R E G I' O 58 'S T E R --- PART 2' O 81 'PAYROLL DATE:' O PRDAT Y 90 O 110 '(WEEK # IN MONTH)' O WKNO 100 O 127 'PAGE' O PAGE 131 O E 01 04 O 14 'EMP#/SQ# NAME' O 44 'CHK NO FED WITH' O 68 'FICA-OA FICA-HI' O 92 'NJ INC NJ UI' O 104 'PA INC' O 128 'HOSP TX LOAN REC' O E 02 04 O 24 '************************' O *PLACE 48 O *PLACE 72 O *PLACE 96 O *PLACE 120 O 132 '************' O D 01 02 O ENO2 M 3 O ENO3 6 O 3 '-' O 7 '/' O SEQNO 8 O FNAME 10 O LNAME 26 O CHKNO M 33 O AW,1 K 46 O AW,2 K 58 O WFICHIK 70 O AW,3 K 82 O AW,4 K 94 O AW,5 K 106 O AW,6 K 118 O AW,7 K 130 O T 12 L1 05 O 11 'DEPARTMENT' O DEPT 14 O 23 'TOTALS:' O AM,1 K 46 O AM,2 K 58 O MFICHIK 70 O AM,3 K 82 O AM,4 K 94 O AM,5 K 106 O AM,6 K 118 O AM,7 K 130 O T 02 LR O 23 'GRAND TOTALS:' O AT,1 K 46 O AT,2 K 58 O TFICHIK 70 O AT,3 K 82 O AT,4 K 94 O AT,5 K 106 O AT,6 K 118 O AT,7 K 130 O T 03 LR O 24 'TOTAL NUMBER OF EMPLOYEE' O 30 'S PAID' O TOTEMPJ 36 // CEND // COPY LIBRARY-S,NAME-JF0054,RECL-096,DATE-01/03/23,TIME-1226,SUB-RPG H B 1 JF0054 FXPRXX IPE F 156 156 9AI 1 DISK FXEMPL IC F 350 350R 5AI 1 DISK FPRT O F 132 132 OV PRINTER E AH 4 5 2 E AD 3 7 2 E AMH 4 7 2 E AMD 3 9 2 E ATH 4 7 2 E ATD 3 9 2 E ADC 14 7 2 IXPRXX AA 01 1 CA 156 CA I 10 150PRDAT I 16 160WKNO I BB 02 1 CB 156 CA I 2 3 DEPT L1 I 2 60ENO I 2 30ENO2 I 4 60ENO3 I 9 90SEQNO I P 18 29 AH I P 30 41 AD I P 42 97 ADC I P 123 1262FICAHI I 127 127 HSPTX I 139 1440CHKNO I CC 99 IXEMPL AA I 6 20 LNAME I 21 21 FNAME C 01 SETON 04 C 01 EXCPT C 01 SETOF 04OV C 01 GOTO END C 99 GOTO END C 02 SETON 05 C 02 Z-ADDAD,3 NETGRS 72 C 02 HSPTX COMP 'N' 07 C 02 07 NETGRS SUB ADC,6 NETGRS C 02 ENO COMP OENO 0606 C 02 06 TOTEMP ADD 1 TOTEMP 40 C 02 Z-ADDENO OENO 50 C L1 Z-ADD0 AMH C L1 Z-ADD0 AMD C L1 Z-ADD0 MNTGRS 92 C L1 Z-ADD0 MNET 92 C XFOOTADC TOTDED 92 C TOTDED ADD FICAHI TOTDED C AD,3 SUB TOTDED NET 92 C AMH ADD AH AMH C AMD ADD AD AMD C MNTGRS ADD NETGRS MNTGRS C MNET ADD NET MNET C ATH ADD AH ATH C ATD ADD AD ATD C TNTGRS ADD NETGRS TNTGRS 92 C TNET ADD NET TNET 92 C ENO CHAINXEMPL 03 C OV SETON 04 C OV EXCPT C OV SETOF 04OV C END TAG OPRT E 203 04 O 39 'P A Y R O L L R E G I' O 58 'S T E R --- PART 1' O 81 'PAYROLL DATE:' O PRDAT Y 90 O 110 '(WEEK # IN MONTH)' O WKNO 100 O 127 'PAGE' O PAGE 131 O E 01 04 O 55 '---------REGULAR--------' O 79 '- ---------OVERTIME-' O 98 '------- STATE' O 130 'FED NET CHECK' O E 01 04 O 14 'EMP#/SQ# NAME' O 55 'HOURS RATE GROS' O 79 'S HOURS RATE ' O 103 ' GROSS GROSS ' O 127 ' GROSS AMOUNT NUM' O 130 'BER' O E 02 04 O 24 '************************' O *PLACE 48 O *PLACE 72 O *PLACE 96 O *PLACE 120 O 132 '************' O D 01 02 O ENO2 M 3 O ENO3 6 O 3 '-' O 7 '/' O SEQNO 8 O FNAME 10 O LNAME 26 O AH,1 K 37 O AH,2 K 45 O AD,1 K 57 O AH,3 K 67 O AH,4 K 75 O AD,2 K 87 O AD,3 K 99 O NETGRSK 111 O NET K 123 O CHKNO M 131 O T 12 L1 05 O 11 'DEPARTMENT' O DEPT 14 O 22 'TOTALS:' O AMH,1 K 37 O AMD,1 K 57 O AMH,3 K 67 O AMD,2 K 87 O AMD,3 K 99 O MNTGRSK 111 O MNET K 123 O T 02 LR O 23 'GRAND TOTALS:' O ATH,1 K 37 O ATD,1 K 57 O ATH,3 K 67 O ATD,2 K 87 O ATD,3 K 99 O TNTGRSK 111 O TNET K 123 O T 03 LR O 24 'TOTAL NUMBER OF EMPLOYEE' O 30 'S PAID' O TOTEMPJ 36 // CEND // COPY LIBRARY-S,NAME-JF0055,RECL-096,DATE-01/03/23,TIME-1226,SUB-RPG H B 1 JF0055 FXPRXX IPE F 156 156 9AI 1 DISK FXEMPL IC F 350 350R 5AI 1 DISK FPRT O F 132 132 OV PRINTER E AW 15 9 2 E AY 15 9 2 IXPRXX AA 01 1 CA 156 CA I 10 150PRDAT I 16 160WKNO I BB 02 1 CB 156 CA I 2 60ENO L1 I 2 30ENO2 I 4 60ENO3 I BB IXEMPL BB 02 I 6 20 LNM I 21 21 FNM I 125 125 YMSDCD I 126 126 YMSPCD I P 146 220 AW C 01 SETON 04 C 01 EXCPT C 01 SETOF 04OV C OV SETON 04 C OV EXCPT C OV SETOF 04OV C N02 CORNL1 GOTO END C ENO CHAINXEMPL 05 C 05 GOTO END C AW,1 SUB AW,15 NETGRS 92 C AY ADD AW AY C TNTGRS ADD NETGRS TNTGRS 92 C XFOOTAW NET 92 C NET SUB AW,1 NET C AW,1 SUB NET NET C END TAG CLR XFOOTAY YNET 92 CLR YNET SUB AY,1 YNET CLR AY,1 SUB YNET YNET OPRT E 103 04 O 51 'E M P L O Y E E Y T D ' O 64 ' T O T A L S' O 81 'PAYROLL DATE:' O PRDAT Y 90 O 110 '(WEEK # IN MONTH)' O WKNO 100 O 127 'PAGE' O PAGE 131 O E 01 04 O 51 '************************' O 64 '*************' O E 01 04 O 12 'EMP# NAME' O 53 'STA GROSS FED GROSS' O 79 'FED WITH FICA-OA' O 105 'FICA-HI NJ INC' O 131 'NJ SUI PA INC' O E 01 04 O 40 'HOSP-TX HOSP-NTX' O 66 'LOANS/REC MISC $' O 92 'MISC % EXCHK P $' O 118 'EXCHK $ UNION' O 131 'NET PAY' O E 01 04 O 24 '************************' O *PLACE 48 O *PLACE 72 O *PLACE 96 O *PLACE 120 O 132 '************' O D 01 L1 05 O ENO M 6 O 28 'NOT IN EMPLOYEE FILE' O D 01 L1N05 O ENO2 M 3 O ENO3 6 O 3 '-' O FNM 9 O LNM 25 O AW,6 K 132 O AW,5 K 119 O AW,4 K 106 O AW,14 K 93 O AW,3 K 80 O AW,2 K 67 O NETGRSK 54 O AW,1 K 41 O D 01 L1N05 O NET K 132 O AW,13 K 119 O AW,12 K 106 O AW,11 K 93 O AW,10 K 80 O YMSPCD 81 O AW,9 K 67 O YMSDCD 68 O AW,8 K 54 O AW,15 K 41 O AW,7 K 28 O T 11 LR O 25 'TOTALS' O AY,6 K 132 O AY,5 K 119 O AY,4 K 106 O AY,14 K 93 O AY,3 K 80 O AY,2 K 67 O TNTGRSK 54 O AY,1 K 41 O T 01 LR O YNET K 132 O AY,13 K 119 O AY,12 K 106 O AY,11 K 93 O AY,10 K 80 O AY,9 K 67 O AY,8 K 54 O AY,15 K 41 O AY,7 K 28 // CEND // COPY LIBRARY-S,NAME-JF0056,RECL-096,DATE-01/03/23,TIME-1226,SUB-RPG H B 1 1 JF0056 FXPRXX IPE F 156 156 9AI 1 DISK FEMPLYE UC F 350 350R 5AI 1 DISK FPAYRL O F 140 140 DISK A FPRT O F 132 132 OV LPRINTER E AH 4 5 2 E AW 17 7 2 E AY 15 9 2 E AF 15 1 E AL 15 1 E ANM 31 1 E AN 80 240 1 E AB 51 1 LPRT 42FL 40OL IXPRXX AA 01 1 CA 156 CA I 10 150PRDAT I 10 110PRMN I 14 150PRYR I 16 160WKNO I BB 02 1 CB 156 CA I 2 60ENO I P 18 29 AH I 18 138 RECORD I P 30 97 AW I 99 99 UNMEM I P 123 1262WFICHI I 127 127 HSPTX I 139 1440CHKNO I P 152 1552SALRY I CC 06 IEMPLYE CC 03 I 6 20 AL I 21 35 AF I 44 63 ADD1 I 64 83 ADD2 I P 84 860ZIP I 130 130 EUNDPD I P 132 1342UNILFT I P 146 220 AY C 01 COR 06 GOTO END C ENO CHAINEMPLYE C AY,1 ADD AW,3 AY,1 C AY,2 ADD AW,4 AY,2 C AY,3 ADD AW,5 AY,3 C AY,4 ADD AW,6 AY,4 C AY,5 ADD AW,7 AY,5 C AY,6 ADD AW,8 AY,6 C AY,1 SUB AY,15 NTGRS C HSPTX COMP 'N' 34 C 34 NTGRS SUB AW,9 NTGRS 82 C N34 AY,7 ADD AW,9 AY,7 C 34 AY,15 ADD AW,9 AY,15 C AY,8 ADD AW,10 AY,8 C AY,9 ADD AW,11 AY,9 C AY,10 ADD AW,12 AY,10 C AY,11 ADD AW,13 AY,11 C AY,12 ADD AW,14 AY,12 C AY,12 ADD AW,15 AY,12 C UNMEM COMP 'Y' 04 C 04 UNILFT SUB AW,16 UNILFT 05 C 04 AY,13 ADD AW,16 AY,13 C 04 AY,13 ADD AW,17 AY,13 C 04 AW,17 COMP 0 07 C 04 07 MOVE 'Y' EUNDPD C AY,14 ADD WFICHI AY,14 C 04 05 AW,16 COMP 0 05 C MOVE ' ' ANM C MOVELAF ANM C Z-ADD15 IX 30 C MORENM TAG C ANM,IX COMP ' ' 03 C 03 IX SUB 1 IX C 03 IX COMP 0 07 C 03 07 GOTO MORENM C IX ADD 2 IX C Z-ADD1 IY 30 C AGAIN TAG C MOVE AL,IY ANM,IX C IX ADD 1 IX C IY ADD 1 IY C IY COMP 16 07 C 07 GOTO AGAIN C AW,5 ADD WFICHI WFICA 72 C AW,6 ADD AW,8 STATWH 72 C AW,16 ADD AW,17 UNDAMT 72 C AW,11 ADD AW,12 MISCAM 72 C AW,14 ADD AW,15 EXCHAM 72 C XFOOTAW TOTDED 72 C TOTDED SUB AW,1 TOTDED C TOTDED SUB AW,2 TOTDED C TOTDED SUB AW,3 TOTDED C TOTDED ADD WFICHI TOTDED C AW,3 SUB TOTDED NET 72 C AY,3 ADD AY,14 YFICA 72 C AY,4 ADD AY,6 YSTAWH 82 C MOVE NET CTS 20 C MOVELNET N15 50 C MOVE N15 N1 10 C MOVE N15 N12 20 C MOVE N15 N13 30 C MOVELN15 DUM4 40 C MOVE DUM4 N2 10 C MOVELDUM4 DUM3 30 C MOVE DUM3 N3 10 C MOVELDUM3 N45 20 C MOVE N45 N4 10 C MOVELN45 N5 10 C MOVE ' ' AB C Z-ADD51 IX 20 C NET COMP 0 31 C 31 GOTO LEO3 C N15 COMP 0 32 C 32 Z-ADD240 IY 30 C 32 EXSR FILL C 32 GOTO FILAS C N2 COMP 1 33 32 C 32 N1 MULT 10 IY C 32 IY ADD 128 IY C 32 EXSR FILL C 32 GOTO LEO1 C N1 COMP 0 32 C 32 N1 MULT 6 IY C 32 EXSR FILL C 33 32 MOVE '-' AB,IX C 33 32 IX SUB 1 IX C 33 N2 MULT 8 IY C 33 IY ADD 46 IY C 33 EXSR FILL C LEO1 TAG C N3 COMP 0 32 C 32 N12 COMP 0 33 C 32 33 IX SUB 1 IX C 32 Z-ADD226 IY C 32 EXSR FILL C 32 IX SUB 1 IX C 32 N3 MULT 6 IY C 32 EXSR FILL C N45 COMP 0 32 C 32 N13 COMP 0 33 C 32 33 IX SUB 1 IX C 32 Z-ADD235 IY C 32 EXSR FILL C 32 IX SUB 1 IX C N5 COMP 1 33 32 C 32 N4 MULT 10 IY C 32 IY ADD 128 IY C 32 EXSR FILL C 32 GOTO LEO2 C N4 COMP 0 32 C 32 N4 MULT 6 IY C 32 EXSR FILL C 33 32 MOVE '-' AB,IX C 33 32 IX SUB 1 IX C 33 N5 MULT 8 IY C 33 IY ADD 46 IY C 33 EXSR FILL C LEO2 TAG C FILAS TAG C MOVE '*' AB,IX C IX SUB 1 IX 32 C N32 GOTO FILAS C LEO3 TAG C END TAG CSR FILL BEGSR CSR MORE TAG CSR MOVE AN,IY AB,IX CSR IY SUB 1 IY CSR IX SUB 1 IX CSR AN,IY COMP '+' 30 CSRN30 GOTO MORE CSR ENDSR OEMPLYE D 02 O 04 EUNDPD 130 O 04 UNILFT 134P O 04 05 PRMN 136 O 04 05 PRYR 138 O AY 220P O AH 232P O SALRY 236P OPAYRL DADD 02 O ENO 5 O PRDAT 11 O CHKNO 17 O RECORD 138 O 140 'A' OPRT H 0701 1P O 13 '**********' O D 0712 02 O PRDAT Y 12 O ENO M 24 O AH,1 K 35 O AW,1 K 46 O AW,3 K 81 O AW,2 K 68 O AH,3 K 55 O D 03 02 O WFICA K 16 O AW,4 K 29 O STATWHK 43 O AW,7 K 56 O AW,9 K 69 O TOTDEDK 81 O D 0 20 02 O UNDAMTK 16 O AW,10 K 29 O AW,13 K 43 O EXCHAMK 56 O MISCAMK 69 O NET K 81 O D 01 02 O AY,1 K 16 O 34 2 'ST' O YFICA K 29 O AY,2 K 43 O YSTAWHK 56 O AY,5 K 69 O CHKNO 79 O D 0 27 02 O 34 NTGRS K 16 O 34 3 'FED' O D 02 02 O CHKNO 71 O D 0 33 02 O AB 57 O 65 'DOLLARS' O CTS 69 O 75 'CENTS' O D 02 02 O PRDAT Y 63 O NET K 81 '*' O D 11 02 O ANM 41 O D 01 02 O ADD1 30 O D 01 02 O ADD2 30 O ZIP 37 ** +++ONE+++TWO+THREE++FOUR++FIVE+++SIX+SEVEN+EIGHT++NINE++TWENTY++THIRTY+++FORTY++ +FIFTY+++SIXTY+SEVENTY++EIGHTY++NINETY+++++++TEN++++ELEVEN++++TWELVE++THIRTEEN++ FOURTEEN+++FIFTEEN+++SIXTEEN+SEVENTEEN++EIGHTEEN++NINETEEN+HUNDRED+THOUSAND+ZERO // CEND // COPY LIBRARY-S,NAME-JF0057,RECL-096,REF-000001,DATE-04/11/23,TIME-1156,SUB-RPG H B 1 JF0057 FINP IP F 79 79 KEYBORD FEMPLYE UC F 350 350R 5AI 1 DISK A FPRT O F 132 132 OV PRINTER FDISP O F 79 79 CRT E AMS 1 42 79 E AD 7 7 2 E AY 5 1 E AZ9 15 9 0 E AZ5 4 5 0 IEMPLYE AA C Z-ADD0 ZERO7 70 C SETOF 04 C AMS,1 SET KG C AMS,2 KEY ENO 50 C KG SETON LR C KG GOTO END C ENO CHAINEMPLYE 05 C N05 SETON 02 C N05 EXCPT C N05 SETOF 02 C N05 GOTO END C AMS,3 KEY LNAM 15 C AMS,4 KEY FNAM 15 C AMS,5 KEY ADD1 20 C AMS,6 KEY ADD2 20 C AMS,7 KEY CTST 20 C AMS,8 KEY ZIP 50 C AMS,9 KEY PHONE 100 C AMS,10 KEY BIRDAT 60 C AMS,11 KEY HIRDAT 60 C AMS,12 KEY JOBDES 20 C AMS,13 KEY SSNO 90 C AMS,14 KEY MST 1 C MST COMP 'M' 05 C N05 MOVE 'S' MST C AMS,15 KEY EXMP 20 C ENSTAT TAG C AMS,16 KEY STATE 2 C STATE COMP 'NJ' 13 C N13 STATE COMP 'PA' 13 C N13 GOTO ENSTAT C ENPROF TAG C AMS,17 KEY PROF 1 C PROF COMP 'P' 13 C N13 PROF COMP ' ' 13 C N13 GOTO ENPROF C AMS,18 KEY AD,1 C AMS,19 KEY AD,2 C AMS,20 KEY UNMEM 1 C UNMEM COMP 'Y' 05 C N05 Z-ADD0 YRUN 20 C N05 Z-ADD0 UNINIT 52 C N05 MOVE 'N' UNMEM C 05 AMS,21 KEY UNINIT C AMS,22 KEY AY,4 C AY,4 COMP 'Y' 05 C N05 MOVE 'N' AY,4 C AMS,23 KEY AY,5 1 C AY,5 COMP 'Y' 05 C N05 MOVE 'N' AY,5 C AMS,24 KEY HOSPID 12 C AMS,25 KEY HOSDAT 60 C AMS,26 KEY HOSPLN 3 C AMS,27 KEY AD,3 C AMS,28 KEY AY,3 C AMS,29 KEY HSPTX 1 C AMS,30 KEY AD,4 C AMS,31 KEY AD,6 C AMS,32 KEY AD,7 C AMS,33 KEY EXCHPC 20 C AMS,34 KEY AD,5 C AMS,35 KEY AY,1 C AMS,36 KEY MISDWM 1 C AMS,37 KEY MISCPC 20 C AMS,38 KEY AY,2 C AMS,39 KEY MISPWM 1 C AMS,40 KEY RATE 52 C AMS,41 KEY SALRY 72 C AMS,42 KEY ACC 1 C ACC COMP 'N' 040403 C END TAG ODISP H 11 1P O 24 'E N T E R N E W E M ' O 37 'P L O Y E E S' O E 11 02 O 15 'ALREADY IN FILE' OPRT H 203 1P O OR OV O 65 'NEW EMPLOYEES ENTERED' O UDATE Y 77 O PAGE 132 O 128 'PAGE' O H 01 1P O OR OV O 16 'EMP# LAST NAME' O 33 'FIRST NAME' O 55 'STREET ADDRESS' O 77 'STREET ADDRESS' O 96 'CITY, STATE' O 124 'ZIP PHONE#' O H 01 1P O OR OV O 22 'JOB DESCRIPTION' O 55 'SOC SEC# S/M EXMP STA' O 79 'TE PROF/SHR ADL FWT A' O 103 'DL STATE UNION INIT ' O 119 'MNPD NJ-TAX-PA' O 127 'BORN' O H 02 1P O OR OV O 26 'HOSPITAL ID# PLAN EFF ' O 50 'DATE AMT W/M T/' O 74 'N LOAN REC EXCH P $ ' O 98 ' EXCH $ EXCH % MIS' O 122 'C $-CD-W/M MISC %-CD-W/' O 131 'M HIRED' O DF01 04 O ENO 5 O LNAM 22 O FNAM 39 O ADD1 61 O ADD2 83 O CTST 105 O ZIP 112 O PHONE 126 '0 - - ' O D 01 04 O JOBDES 22 O SSNO 40 '0 - - ' O MST 43 O EXMP M 50 O STATE 56 O PROF 64 O AD,1 M 77 O AD,2 M 88 O UNMEM 92 O UNINITM 103 O AY,4 111 O AY,5 118 O BIRDATY 128 O D 02 04 O HOSPID 14 O HOSPLN 20 O HOSDATY 30 O AD,3 M 42 O AY,3 45 O HSPTX 50 O AD,4 M 62 O AD,6 M 73 O AD,7 M 84 O EXCHPCM 91 O AD,5 M 102 O AY,1 104 O MISDWM 107 O MISCPCM 117 O AY,2 119 O MISPWM 122 O HIRDATY 132 OEMPLYE DADD 04 O ENO 5 O LNAM 20 O FNAM 35 O SSNO 40P O MST 41 O EXMP 43 O ADD1 63 O CTST 83 O ZIP 86P O STATE 88 O PROF 89 O AD 118P O MISCPC 122 O EXCHPC 124 O AY 129 O 130 'N' O UNMEM 131 O UNINIT 134P O YRUN 136 O YRUN 138 O MISDWM 139 O MISPWM 140 O HSPTX 141 O AZ9 220P O AZ5 232P O RATE 226P O SALRY 236P O PHONE 246 O JOBDES 266 O BIRDAT 272 O HIRDAT 278 O HOSPID 290 O HOSDAT 296 O HOSPLN 299 O ADD1 319 O 350 'A' ** PRESS COMMAND KEY 7 & ENTER IF THERE ARE NO MORE ENTRIES TO BE MADE, OR ENTER EMPLOYEE NUMBER ENTER LAST NAME ENTER FIRST NAME ENTER STREET ADDRESS - LINE 1 ENTER STREET ADDRESS - LINE 2 ENTER CITY, STATE ENTER ZIP CODE ENTER PHONE NUMBER ENTER BIRTH DATE ENTER DATE HIRED ENTER JOB DESCRIPTION ENTER SOCIAL SECURITY NUMBER ENTER WHETHER SINGLE OR MARRIED (S=SINGLE, M=MARRIED) ENTER NUMBER OF EXEMPTIONS CLAIMED ENTER STATE CODE (2 LETTERS) ENTER P IF PARTICIPATES IN PROFIT SHARING, BLANK IF NOT ENTER $ AMOUNT OF ANY ADDITIONAL FEDERAL INCOME TAX TO BE WITHHELD EACH PERIOD ENTER $ AMOUNT OF ANY ADDITIONAL STATE INCOME TAX TO BE WITHHELD EACH PERIOD ENTER WHETHER OR NOT UNION MEMBER (Y=YES, N=NO) ENTER $ AMOUNT OF UNION INITIATION FEE DUE ENTER WHETHER OR NOT SUBJECT TO N.J. INCOME TAX (Y=YES, N=NO) ENTER WHETHER OR NOT SUBJECT TO P.A. INCOME TAX (Y=YES, N=NO) ENTER HOSPITAL IDENTIFICATION NUMBER ENTER EFFECTIVE DATE OF HOSPITAL COVERAGE ENTER TYPE OF HOSPITAL PLAN - F, H/W, P/C, S ENTER $ AMOUNT OF HOSPITAL DEDUCTION TO BE WITHHELD ENTER WHETHER HOSPITAL DEDUCTION TO BE WEEKLY OR MONTHLY (W=WEEKLY, M=MONTHLY) ENTER WHETHER HOSPITAL DEDUCTION IS TO BE TAXED-FWT, SS (T=TAXED, N=NOT) ENTER $ AMOUNT OF LOANS RECEIVABLE DEDUCTION TO BE WITHHELD EACH PERIOD ENTER $ AMOUNT OF EXCHANGE CHECK P DEDUCTION TO BE WITHHELD EACH PERIOD ENTER $ AMOUNT OF EXCHANGE CHECK DEDUCTION TO BE WITHELD EACH PERIOD ENTER EXCHANGE CHECK % OF GROSS TO BE WITHHELD EACH PERIOD ENTER MISCELLANEOUS DEDUCTION $ AMOUNT TO BE WITHHELD EACH PERIOD ENTER MISCELLANEOUS $ DEDUCTION CODE ENTER WHETHER MISC $ DEDUCTION TO BE WEEKLY OR MONTHLY (W=WEEKLY, M=MONTHLY) ENTER MISCELLANEOUS DEDUCTION % OF GROSS TO BE WITHHELD EACH PERIOD ENTER MISCELLANEOUS % DEDUCTION CODE ENTER WHETHER MISC % DEDUCTION TO BE WEEKLY OR MONTHLY (W=WEEKLY, M=MONTHLY) ENTER HOURLY PAY RATE ENTER SALARY ENTER WHETHER OR NOT OK (Y=YES, N=NO) // CEND // COPY LIBRARY-S,NAME-JF0058,RECL-096,REF-000003,DATE-04/11/23,TIME-1156,SUB-RPG H B 1 JF0058 FINP IP F 79 79 KEYBORD FEMPLYE UC F 350 350R 5AI 1 DISK FPRT O F 132 132 OV PRINTER FDISP O F 79 79 CRT E AMS 1 43 79 E AD 7 7 2 E ADN 7 7 2 E AY 5 1 E AYN 5 1 IEMPLYE AA 01 I 6 20 LNAM I 21 35 FNAM I P 36 400SSNO I 41 41 MST I 42 430EXMP I 44 63 ADD1 I 64 83 CTST I P 84 860ZIP I 87 88 STATE I 89 89 PROF I P 91 118 AD I 121 1220MISPC I 123 1240EXPC I 125 129 AY I 130 130 UNDPD I 131 131 UNMEM I P 132 1342UNINT I 139 139 MSDWM I 140 140 MSPWM I 141 141 HSPTX I P 224 2262RATE I P 233 2362SALRY I 237 2460PHONE I 247 266 JOBDS I 267 2720BIRDT I 273 2780HIRDT I 279 290 HOSID I 291 2960HOSDT I 297 299 HOSPL I 300 319 ADD2 I 350 350 ACT C MOVE ' ' BLNK12 12 C MOVE ' ' BLNK15 15 C MOVE ' ' BLNK20 20 C SETOF 0203 C AMS,1 SET KG C AMS,2 KEY ENO 50 C KG SETON LR C KG GOTO END C ENO CHAINEMPLYE 02 C N02 SETON 04 C N02 EXCPT C N02 SETOF 04 C 02 SETON 05 C 02 EXCPT C 02 SETOF 05 C 02 GOTO END C MOVE LNAM LNAMN C MOVE FNAM FNAMN C MOVE ADD1 ADD1N C MOVE ADD2 ADD2N C MOVE CTST CTSTN C Z-ADDZIP ZIPN C Z-ADDPHONE PHONEN C Z-ADDBIRDT BIRDTN C Z-ADDHIRDT HIRDTN C MOVE JOBDS JOBDSN C Z-ADDSSNO SSNON C MOVE MST MSTN C Z-ADDEXMP EXMPN C MOVE STATE STATEN C MOVE PROF PROFN C Z-ADDAD ADN C MOVE UNMEM UNMEMN C Z-ADDUNINT UNINTN C MOVE UNDPD UNDPDN C MOVE AY AYN C MOVE HOSID HOSIDN C Z-ADDHOSDT HOSDTN C MOVE HOSPL HOSPLN C MOVE HSPTX HSPTXN C Z-ADDEXPC EXPCN C MOVE MSDWM MSDWMN C Z-ADDMISPC MISPCN C MOVE MSPWM MSPWMN C Z-ADDRATE NRATE C Z-ADDSALRY NSALRY C AGNACT TAG C ACT SET KA C AMS,42 KEY ACTN 1 C ACTN COMP ' ' 06 C 06 MOVE ACT ACTN C KA MOVE ' ' ACTN C ACTN COMP 'A' 06 C N06 ACTN COMP 'T' 06 C N06 GOTO AGNACT C ACTN COMP 'T' 06 C 06 GOTO EMPCHN C LNAM SET KA C AMS,3 KEY LNAMN 15 C LNAMN COMP BLNK15 06 C 06 MOVE LNAM LNAMN C KA MOVE BLNK15 LNAMN C FNAM SET KA C AMS,4 KEY FNAMN 15 C FNAMN COMP BLNK15 06 C 06 MOVE FNAM FNAMN C KA MOVE BLNK15 FNAMN C ADD1 SET KA C AMS,5 KEY ADD1N 20 C ADD1N COMP BLNK20 06 C 06 MOVE ADD1 ADD1N C KA MOVE BLNK20 ADD1N C ADD2 SET KA C AMS,6 KEY ADD2N 20 C ADD2N COMP BLNK20 06 C 06 MOVE ADD2 ADD2N C KA MOVE BLNK20 ADD2N C CTST SET KA C AMS,7 KEY CTSTN 20 C CTSTN COMP BLNK20 06 C 06 MOVE CTST CTSTN C KA MOVE BLNK20 CTSTN C ZIP SET KA C AMS,8 KEY ZIPN 50 06 C 06 Z-ADDZIP ZIPN C KA Z-ADD0 ZIPN C PHONE SET KA C AMS,9 KEY PHONEN 100 06 C 06 Z-ADDPHONE PHONEN C KA Z-ADD0 PHONEN C BIRDT SET KA C AMS,10 KEY BIRDTN 60 06 C 06 Z-ADDBIRDT BIRDTN C KA Z-ADD0 BIRDTN C HIRDT SET KA C AMS,11 KEY HIRDTN 60 06 C 06 Z-ADDHIRDT HIRDTN C KA Z-ADD0 HIRDTN C JOBDS SET KA C AMS,12 KEY JOBDSN 20 C JOBDSN COMP BLNK20 06 C 06 MOVE JOBDS JOBDSN C KA MOVE BLNK20 JOBDSN C SSNO SET KA C AMS,13 KEY SSNON 90 06 C 06 Z-ADDSSNO SSNON C KA Z-ADD0 SSNON C MST SET KA C AMS,14 KEY MSTN 1 C MSTN COMP ' ' 06 C 06 MOVE MST MSTN C KA MOVE ' ' MSTN C EXMP SET KA C AMS,15 KEY EXMPN 20 06 C 06 Z-ADDEXMP EXMPN C KA Z-ADD0 EXMPN C AGNSTA TAG C STATE SET KA C AMS,16 KEY STATEN 2 C STATEN COMP ' ' 06 C 06 MOVE STATE STATEN C KA MOVE ' ' STATEN C STATEN COMP 'NJ' 06 C N06 STATEN COMP 'PA' 06 C N06 GOTO AGNSTA C AGNPRF TAG C PROF SET KA C AMS,17 KEY PROFN 1 C PROFN COMP ' ' 06 C 06 MOVE PROF PROFN C KA MOVE ' ' PROFN C PROFN COMP 'P' 06 C N06 PROFN COMP ' ' 06 C N06 GOTO AGNPRF C AD,1 SET KA C AMS,18 KEY ADN,1 04 C 04 Z-ADDAD,1 ADN,1 C KA Z-ADD0 ADN,1 C AD,2 SET KA C AMS,19 KEY ADN,2 04 C 04 Z-ADDAD,2 ADN,2 C KA Z-ADD0 ADN,2 C UNMEM SET KA C AMS,20 KEY UNMEMN 1 C UNMEMN COMP ' ' 04 C 04 MOVE UNMEM UNMEMN C KA MOVE ' ' UNMEMN C UNINT SET KA C AMS,21 KEY UNINTN 52 04 C 04 Z-ADDUNINT UNINTN C KA Z-ADD0 UNINTN C UNDPD SET KA C AMS,22 KEY UNDPDN 1 C UNDPDN COMP ' ' 04 C 04 MOVE UNDPD UNDPDN C KA MOVE ' ' UNDPDN C AY,4 SET KA C AMS,23 KEY AYN,4 C AYN,4 COMP ' ' 04 C 04 MOVE AY,4 AYN,4 C KA MOVE ' ' AYN,4 C AY,5 SET KA C AMS,24 KEY AYN,5 C AYN,5 COMP ' ' 04 C 04 MOVE AY,5 AYN,5 C KA MOVE ' ' AYN,5 C HOSID SET KA C AMS,25 KEY HOSIDN 12 C HOSIDN COMP BLNK12 04 C 04 MOVE HOSID HOSIDN C KA MOVE BLNK12 HOSIDN C HOSDT SET KA C AMS,26 KEY HOSDTN 60 04 C 04 Z-ADDHOSDT HOSDTN C KA Z-ADD0 HOSDTN C HOSPL SET KA C AMS,27 KEY HOSPLN 3 C HOSPLN COMP ' ' 04 C 04 MOVE HOSPL HOSPLN C KA MOVE ' ' HOSPLN C AD,3 SET KA C AMS,28 KEY ADN,3 04 C 04 Z-ADDAD,3 ADN,3 C KA Z-ADD0 ADN,3 C AY,3 SET KA C AMS,29 KEY AYN,3 C AYN,3 COMP ' ' 04 C 04 MOVE AY,3 AYN,3 C KA MOVE ' ' AYN,3 C HSPTX SET KA C AMS,30 KEY HSPTXN 1 C HSPTXN COMP ' ' 04 C 04 MOVE HSPTX HSPTXN C KA MOVE ' ' HSPTXN C AD,4 SET KA C AMS,31 KEY ADN,4 04 C 04 Z-ADDAD,4 ADN,4 C KA Z-ADD0 ADN,4 C AD,6 SET KA C AMS,32 KEY ADN,6 04 C 04 Z-ADDAD,6 ADN,6 C KA Z-ADD0 ADN,6 C AD,7 SET KA C AMS,33 KEY ADN,7 04 C 04 Z-ADDAD,7 ADN,7 C KA Z-ADD0 ADN,7 C EXPC SET KA C AMS,34 KEY EXPCN 20 04 C 04 Z-ADDEXPC EXPCN C KA Z-ADD0 EXPCN C AD,5 SET KA C AMS,35 KEY ADN,5 04 C 04 Z-ADDAD,5 ADN,5 C KA Z-ADD0 ADN,5 C AY,1 SET KA C AMS,36 KEY AYN,1 C AYN,1 COMP ' ' 04 C 04 MOVE AY,1 AYN,1 C KA MOVE ' ' AYN,1 C MSDWM SET KA C AMS,37 KEY MSDWMN 1 C MSDWMN COMP ' ' 04 C 04 MOVE MSDWM MSDWMN C KA MOVE ' ' MSDWMN C MISPC SET KA C AMS,38 KEY MISPCN 20 04 C 04 Z-ADDMISPC MISPCN C KA Z-ADD0 MISPCN C AY,2 SET KA C AMS,39 KEY AYN,2 C AYN,2 COMP ' ' 04 C 04 MOVE AY,2 AYN,2 C KA MOVE ' ' AYN,2 C MSPWM SET KA C AMS,40 KEY MSPWMN 1 C MSPWMN COMP ' ' 04 C 04 MOVE MSPWM MSPWMN C KA MOVE ' ' MSPWMN C RATE SET KA C AMS,41 KEY NRATE 52 04 C 04 Z-ADDRATE NRATE C KA Z-ADD0 NRATE C SALRY SET KA C AMS,42 KEY NSALRY 72 04 C 04 Z-ADDSALRY NSALRY C KA Z-ADD0 NSALRY C EMPCHN TAG C ENO CHAINEMPLYE C SETON 03 C END TAG ODISP H 11 1P O 24 'C H A N G E E M P L O ' O 48 'Y E E I N F O R M A T ' O 72 'I O N - PERSONAL INFORMA' O 76 'TION' O E 11 05 O 20 'NOT IN EMPLOYEE FILE' OPRT H 203 1P O OR OV O 66 'EMPLOYEES CHANGED' O UDATE Y 80 O H 01 1P O OR OV O 16 'EMP# LAST NAME' O 33 'FIRST NAME' O 55 'STREET ADDRESS' O 77 'STREET ADDRESS' O 96 'CITY, STATE' O 124 'ZIP PHONE#' O H 01 1P O OR OV O 22 'JOB DESCRIPTION' O 55 'SOC SEC# S/M EXMP STA' O 79 'TE PROF/SHR ADL FWT A' O 103 'DL STATE UNION INIT ' O 119 'MNPD NJ-TAX-PA' O 127 'BORN' O 131 'ACT' O H 02 1P O OR OV O 26 'HOSPITAL ID# PLAN EFF ' O 50 'DATE AMT W/M T/' O 74 'N LOAN REC EXCH P $ ' O 98 ' EXCH $ EXCH % MIS' O 122 'C $-CD-W/M MISC %-CD-W/' O 131 'M HIRED' O H 02 1P O OR OV O 24 '************************' O *PLACE 48 O *PLACE 72 O *PLACE 96 O *PLACE 120 O 132 '************' O DF21 03 O ENO 5 O LNAM 22 O FNAM 39 O ADD1 61 O ADD2 83 O CTST 105 O ZIP 112 O PHONE 126 '0 - - ' O D 01 03 O JOBDS 22 O SSNO 40 '0 - - ' O MST 43 O EXMP M 50 O STATE 56 O PROF 64 O AD,1 M 77 O AD,2 M 88 O UNMEM 92 O UNINT M 103 O UNDPD 106 O AY,4 111 O AY,5 118 O BIRDT Y 128 O ACT 131 O D 02 03 O HOSID 14 O HOSPL 20 O HOSDT Y 30 O AD,3 M 42 O AY,3 45 O HSPTX 50 O AD,4 M 62 O AD,6 M 73 O AD,7 M 84 O EXPC M 91 O AD,5 M 102 O AY,1 104 O MSDWM 107 O MISPC M 117 O AY,2 119 O MSPWM 122 O HIRDT Y 132 O D 01 03 O 73 'C H A N G E D T O' O DF21 03 O ENO 5 O LNAMN 22 O FNAMN 39 O ADD1N 61 O ADD2N 83 O CTSTN 105 O ZIPN 112 O PHONEN 126 '0 - - ' O D 01 03 O JOBDSN 22 O SSNON 40 '0 - - ' O MSTN 43 O EXMPN M 50 O STATEN 56 O PROFN 64 O ADN,1 M 77 O ADN,2 M 88 O UNMEMN 92 O UNINTNM 103 O UNDPDN 106 O AYN,4 111 O AYN,5 118 O BIRDTNY 128 O ACTN 131 O D 02 03 O HOSIDN 14 O HOSPLN 20 O HOSDTNY 30 O ADN,3 M 42 O AYN,3 45 O HSPTXN 50 O ADN,4 M 62 O ADN,6 M 73 O ADN,7 M 84 O EXPCN M 91 O ADN,5 M 102 O AYN,1 104 O MSDWMN 107 O MISPCNM 117 O AYN,2 119 O MSPWMN 122 O HIRDTNY 132 OEMPLYE E 04 O D 03 O LNAMN 20 O FNAMN 35 O SSNON 40P O MSTN 41 O EXMPN 43 O ADD1N 63 O CTSTN 83 O ZIPN 86P O STATEN 88 O PROFN 89 O ADN 118P O MISPCN 122 O EXPCN 124 O AYN 129 O UNDPDN 130 O UNMEMN 131 O UNINTN 134P O MSDWMN 139 O MSPWMN 140 O HSPTXN 141 O NRATE 226P O NSALRY 236P O PHONEN 246 O JOBDSN 266 O BIRDTN 272 O HIRDTN 278 O HOSIDN 290 O HOSDTN 296 O HOSPLN 299 O ADD2N 319 O ACTN 350 ** PRESS COMMAND KEY 7 & ENTER IF THERE ARE NO MORE ENTRIES TO BE MADE, OR ENTER EMPLOYEE NUMBER ENTER LAST NAME ENTER FIRST NAME ENTER STREET ADDRESS - LINE 1 ENTER STREET ADDRESS - LINE 2 ENTER CITY, STATE ENTER ZIP CODE ENTER PHONE NUMBER ENTER BIRTH DATE ENTER DATE HIRED ENTER JOB DESCRIPTION ENTER SOCIAL SECURITY NUMBER ENTER WHETHER SINGLE OR MARRIED (S=SINGLE, M=MARRIED) ENTER NUMBER OF EXEMPTIONS CLAIMED ENTER STATE CODE (2 LETTERS) ENTER P IF PARTICIPATES IN PROFIT SHARING, BLANK IF NOT ENTER $ AMOUNT OF ANY ADDITIONAL FEDERAL INCOME TAX TO BE WITHHELD EACH PERIOD ENTER $ AMOUNT OF ANY ADDITIONAL STATE INCOME TAX TO BE WITHHELD EACH PERIOD ENTER WHETHER OR NOT UNION MEMBER (Y=YES, N=NO) ENTER $ AMOUNT OF UNION INITIATION FEE DUE ENTER WHETHER OR NOT UNION DUES ALREADY PAID THIS MONTH (Y=YES, N=NO) ENTER WHETHER OR NOT SUBJECT TO N.J. INCOME TAX (Y=YES, N=NO) ENTER WHETHER OR NOT SUBJECT TO P.A. INCOME TAX (Y=YES, N=NO) ENTER HOSPITAL IDENTIFICATION NUMBER ENTER EFFECTIVE DATE OF HOSPITAL COVERAGE ENTER TYPE OF HOSPITAL PLAN - F, H/W, P/C, S ENTER $ AMOUNT OF HOSPITAL DEDUCTION TO BE WITHHELD ENTER WHETHER HOSPITAL DEDUCTION TO BE WEEKLY OR MONTHLY (W=WEEKLY, M=MONTHLY) ENTER WHETHER HOSPITAL DEDUCTION IS TO BE TAXED-FWT, SS (T=TAXED, N=NOT) ENTER $ AMOUNT OF LOANS RECEIVABLE DEDUCTION TO BE WITHHELD EACH PERIOD ENTER $ AMOUNT OF EXCHANGE CHECK P DEDUCTION TO BE WITHHELD EACH PERIOD ENTER $ AMOUNT OF EXCHANGE CHECK DEDUCTION TO BE WITHELD EACH PERIOD ENTER EXCHANGE CHECK % OF GROSS TO BE WITHHELD EACH PERIOD ENTER MISCELLANEOUS DEDUCTION $ AMOUNT TO BE WITHHELD EACH PERIOD ENTER MISCELLANEOUS $ DEDUCTION CODE ENTER WHETHER MISC $ DEDUCTION TO BE WEEKLY OR MONTHLY (W=WEEKLY, M=MONTHLY) ENTER MISCELLANEOUS DEDUCTION % OF GROSS TO BE WITHHELD EACH PERIOD ENTER MISCELLANEOUS % DEDUCTION CODE ENTER WHETHER MISC % DEDUCTION TO BE WEEKLY OR MONTHLY (W=WEEKLY, M=MONTHLY) ENTER HOURLY PAY RATE ENTER SALARY ENTER ACTIVITY (A=ACTIVE, T=TERMINATED) // CEND // COPY LIBRARY-S,NAME-JF0059,RECL-096,REF-000001,DATE-04/12/03,TIME-1218,SUB-RPG H B 1 JF0059 FEMPLYE IP F 350 350 5AI 1 DISK U1 FXAEMP IS F 350 350 2 DISK U2 FPRT O F 132 132 OV PRINTER E AD 7 7 2 E AY 5 1 IEMPLYE AA 01 I 1 50ENO I 1 20ENO2 I 3 50ENO3 I 6 20 LNAM I 21 35 FNAM I P 36 400SSNO I 41 41 MST I 42 430EXMP I 44 63 ADD1 I 64 83 CTST I P 84 860ZIP I 87 88 STATE I 89 89 PROF I P 91 118 AD I 121 1220MISCPC I 123 1240EXCHPC I 125 129 AY I 131 131 UNMEM I P 132 1342UNINIT I 135 1380MNYR I 139 139 MISDWM I 140 140 MISPWM I 141 141 HSPTX I 237 2460PHONE I 300 319 ADD2 I 350 350 ACT IXAEMP AA 01 I 1 50ENO I 1 20ENO2 I 3 50ENO3 I 6 20 LNAM I 21 35 FNAM I P 36 400SSNO I 41 41 MST I 42 430EXMP I 44 63 ADD1 I 64 83 CTST I P 84 860ZIP I 87 88 STATE I 89 89 PROF I P 91 118 AD I 121 1220MISCPC I 123 1240EXCHPC I 125 129 AY I 131 131 UNMEM I P 132 1342UNINIT I 135 1380MNYR I 139 139 MISDWM I 140 140 MISPWM I 141 141 HSPTX I 237 2460PHONE I 300 319 ADD2 02 I 350 350 ACT OPRT H 203 1P O OR OV O U1 98 'NUMERIC' O U2 98 'ALPHABETIC' O 120 'EMPLOYEE LIST---AS OF' O UDATE Y 130 O H 01 1P O OR OV O 16 'EMP# LAST NAME' O 34 'FIRST NAME' O 55 'STREET ADDRESS' O 74 'CITY, STATE' O 87 'ZIP' O 99 'SOC SEC#' O U1 121 'S/M EXMP STATE' O U1 127 'PROF' O U2 117 'PHONE NUM' O 132 'ACT' O H 02 1P U1 O OR OV U1 O 18 'ADL FWT ADL ST' O 46 'HOSP-W/M-T/N LOAD/REC ' O 70 'EXCH P $ EXCH $ EXCH ' O 94 '% MISC $-CD-W/M MISC %' O 118 '-CD-W/M NJ-TAX-PA UNIO' O 131 'N INIT PAID' O H 01 1P O OR OV O 24 '************************' O *PLACE 48 O *PLACE 72 O *PLACE 96 O *PLACE 120 O 132 '************' O DF01 01 O ENO2 M 3 O ENO3 6 O 3 '-' O LNAM 22 O FNAM 39 O ADD1 61 O CTST 82 O ZIP 89 O SSNO 102 '0 - - ' O U1 MST 107 O U1 EXMP M 114 O U1 STATE 120 O U1 PROF 126 O U2 PHONE 118 ' - - 0' O ACT 131 O D 01 01N02 O ADD2 61 O D 02 01 U1 O AD,1 M 9 O AD,2 M 19 O AD,3 M 28 O AY,3 30 O HSPTX 34 O AD,4 M 45 O AD,6 M 55 O AD,7 M 65 O EXCHPCM 70 O AD,5 M 80 O AY,1 82 O MISDWM 85 O MISCPCM 93 O AY,2 97 O MISPWM 100 O AY,4 105 O AY,5 112 O UNMEM 117 O UNINITM 125 O MNYR 132 '0 / ' // CEND // COPY LIBRARY-S,NAME-JF0060,RECL-096,DATE-05/01/20,TIME-1441,SUB-RPG H B 1 JF0060 FVENDOR IP F 300 300 6AI 1 DISK FCNTRL IC F 32 32R DISK FPRINT O F 132 132 OV PRINTER IVENDOR AA 01 300 CA I 1 60VEND I 11 40 NAME I P 181 1862PURCH I P 187 1890NUMINV I BB 02 ICNTRL AA 1 C0 2 C0 3 C7 I 4 32 CONAME C 03 GOTO BEGIN C SETON 03 C 7 CHAINCNTRL C SETON 04 C BEGIN TAG C OV SETON 04 C 04 EXCPT C 04 SETOF 04 C 02 GOTO END C VEND COMP 50000 02 02 C 02 VEND COMP 59999 0202 C 02 SETOF 01 C 02 GOTO END C TOTVEN ADD 1 TOTVEN 40 C TNUMIN ADD NUMINV TNUMIN 60 C TPURCH ADD PURCH TPURCH 112 C END TAG OPRINT E 103 04 O CONAME 29 O E 02 04 O 24 'VENDOR YEAR TO DATE ACTI' O 36 'VITY LISTING' O 45 'DATE' O UDATE Y 54 O 64 'PAGE' O PAGE 68 O E 01 04 O 24 'VENDOR# 50,000-59,999 EX' O 30 'CLUDED' O E 01 04 O 14 'VENDOR#, NAME' O 50 'YTD INVOICES' O 75 'YTD $ PURCHASES' O E 01 04 O 24 '************************' O *PLACE 48 O *PLACE 72 O 75 '***' O D 01 01 O VEND M 7 O NAME 39 O NUMINVK 48 O PURCH K 75 O T 11 LR O 34 'TOTALS' O TNUMINJ 48 O TPURCHJ 75 // CEND // COPY LIBRARY-S,NAME-JF0062,RECL-096,DATE-01/03/23,TIME-1226,SUB-RPG H B 1 JF0062 FYPAYRL IP F 140 140 2 DISK FPAYRL IS F 140 140 DISK FPAYRL2 ID F 140 140 DISK FEMPLYE IC F 350 350R 5AI 1 DISK FINP ID F 79 79 KEYBORD FPRT O F 198 198 OV PRINTER FDISP O F 79 79 CRT E AMS 1 1 79 E AD 100 6 0 E AW 17 7 2 E AQ 17 8 2 IYPAYRL AA 09 140 CA I 1 50ENO I 6 110PRDAT I 10 110PRYR I 12 170CHKNO I P 18 202REGHR I P 24 262OTHR I P 30 97 AW I 104 104 MSDCOD I 105 105 MSPCOD I P 123 1262WFICHI I 127 127 HSPTX I BB IPAYRL AA 01 140 CA I 1 50ENO I 6 110PRDAT I 12 170CHKNO I P 18 202REGHR I P 24 262OTHR I P 30 97 AW I 104 104 MSDCOD I 105 105 MSPCOD I P 123 1262WFICHI I 127 127 HSPTX I BB IPAYRL2 AA 07 140 CA I 10 110REPYR I BB IEMPLYE BB 02 I 6 20 LNM I 21 35 FNM I P 36 400SSNO I 41 41 MSTA I 42 430EXM I 44 63 STR I 64 83 CTY I P 84 860ZIP C 03 GOTO BEGIN C SETON 03 C SETOF 07 C AGN TAG C READ PAYRL2 08 C N07N08 GOTO AGN C N07 Z-ADDUYEAR REPYR C AMS,1 KEY ENOX 50 C ENOX CHAINEMPLYE 04 C SETON 06 C BEGIN TAG C OV SETON 06 C EXCPT C SETOF 06OV C N09N01 GOTO END C 09 PRYR COMP REPYR 09 C N01N09 GOTO END C ENO COMP ENOX 05 C N05 GOTO END C PRDAT LOKUPAD 10 C N10 D ADD 1 D 30 C N10 Z-ADDPRDAT AD,D C Z-ADDAW,3 NTGRS 92 C HSPTX COMP 'N' 11 C 11 NTGRS SUB AW,9 NTGRS C AW,14 ADD AW,15 EXCHK 82 C AW,16 ADD AW,17 UNAMT 62 C XFOOTAW NET 92 C NET SUB AW,1 NET C NET SUB AW,2 NET C NET SUB AW,3 NET C NET ADD WFICHI NET C AW,3 SUB NET NET C 01 COR 09 QREGHR ADD REGHR QREGHR 72 C 01 COR 09 QOTHR ADD OTHR QOTHR 72 C 01 11 COR 09 11 QHOSPN ADD AW,9 QHOSPN 92 C 01N11 COR 09N11 QHOSPT ADD AW,9 QHOSPT 92 C 01 COR 09 AQ ADD AW AQ C 01 COR 09 QFICHI ADD WFICHI QFICHI 82 C 01 COR 09 QNTGRS ADD NTGRS QNTGRS 82 C 01 COR 09 QNET ADD NET QNET 82 C END TAG CLR AQ,14 ADD AQ,15 QEXCHK 82 CLR AQ,16 ADD AQ,17 QUNAMT 72 ODISP H 11 1P O 24 'Y T D E M P L O Y E E ' O 37 ' L E D G E R' OPRT E 103 06 O 35 'Y E A R T O D A T E ' O 59 ' E M P L O Y E E L E ' O 77 'D G E R -- AS OF' O UDATE Y 87 O PAGE 132 O 128 'PAGE' O E 01 06 O 35 '************************' O 59 '************************' O 66 '*******' O E 01 06 O 16 'DATE CHECK#' O 38 'REG HOURS OT HOURS' O 64 'REG GROSS OT GROSS' O 92 'STA GROSS FED GROSS' O 118 'FED WITH FICA-OA' O 144 'FICA-HI NJ INC' O E 01 06 O 27 'NJ SUI PA INC' O 51 'HOSP TX LOANS/REC' O 78 'MISC $ MISC %' O 105 'HOSP NTX EXCHK P' O 131 'EXCHK UNION' O 144 'NET PAY' O E 02 06 O 24 '************************' O *PLACE 48 O *PLACE 72 O *PLACE 96 O *PLACE 120 O *PLACE 144 O 150 '******' O E 01 06 O 33 '--' O 23 'EMPL NO' O ENOX 30 O 04 55 'NOT IN EMPLOYEE LIST' O N04 LNM 46 O N04 FNM 62 O N04 MSTA 75 O 76 '-' O N04 EXM J 79 O 91 'SS NO' O N04 SSNO 103 '0 - - ' O E 01 06 O N04 STR 54 O E 02 06 O N04 CTY 54 O N04 ZIP 61 O D 01 01 05 O OR 09 05 O PRDAT Y 8 O CHKNO M 17 O REGHR K 28 O OTHR K 39 O AW,1 K 52 O AW,2 K 65 O AW,3 K 79 O NTGRS K 93 O AW,4 K 106 O AW,5 K 119 O WFICHIK 132 O AW,6 K 145 O D 02 01 05 O OR 09 05 O AW,7 K 17 O AW,8 K 28 O N11 AW,9 K 39 O AW,10 K 52 O AW,11 K 65 O MSDCOD 66 O AW,12 K 79 O MSPCOD 80 O 11 AW,9 K 93 O AW,13 K 106 O EXCHK K 119 O UNAMT K 132 O NET K 145 O T 02 LR O 15 '***************' O T 01 LR O 15 'YEAR TO DATE' O QREGHRK 28 O QOTHR K 39 O AQ,1 K 52 O AQ,2 K 65 O AQ,3 K 79 O QNTGRSK 93 O AQ,4 K 106 O AQ,5 K 118 O QFICHIK 132 O AQ,6 K 145 O T 02 LR O AQ,7 K 17 O AQ,8 K 28 O QHOSPTK 39 O AQ,10 K 52 O AQ,11 K 65 O MSDCOD 66 O AQ,12 K 79 O MSPCOD 80 O QHOSPNK 93 O AQ,13 K 106 O QEXCHKK 118 O QUNAMTK 132 O QNET K 145 O T 02 LR O 24 'TOTAL # OF PAY DATES' O D J 29 ** ENTER EMPLOYEE # // CEND // COPY LIBRARY-S,NAME-JF0063,RECL-096,DATE-01/03/23,TIME-1226,SUB-RPG H B 1 JF0063 FPAYRL UPE F 140 140 DISK FEMPLYE UC F 350 350R 5AI 1 DISK FINP ID F 79 79 KEYBORD FPRT O F 1 132 PRINTER FDISP O F 79 79 CRT E AMS 1 1 79 E AP 15 7 2 E AY 15 9 2 IPAYRL AA 01 140 CD I BB 02 140 CA I 1 5 ENO I 6 110PRDAT I 6 70PRMN I 12 170CHKNO I P 38 97 AP I P 123 1262PFICHI I 127 127 HSPTX IEMPLYE CC 03 I 6 20 LNM I 21 35 FNM I 130 130 EUNDPD I P 132 1342UNTG I P 146 220 AY C SETOF 05 C 04 GOTO END C 06 GOTO BEGIN C AMS,1 KEY CHKIN 60 C SETON 06 C EXCPT C BEGIN TAG C CHKNO COMP CHKIN 05 C N05 GOTO END C SETON 04 C ENO CHAINEMPLYE 07 C UNTG ADD AP,14 UNTG C AY,1 SUB AP,1 AY,1 C AY,2 SUB AP,2 AY,2 C AY,3 SUB AP,3 AY,3 C AY,4 SUB AP,4 AY,4 C AY,5 SUB AP,5 AY,5 C AY,6 SUB AP,6 AY,6 C HSPTX COMP 'N' 08 C N08 AY,7 SUB AP,7 AY,7 C 08 AY,15 SUB AP,7 AY,15 C AY,8 SUB AP,8 AY,8 C AY,9 SUB AP,9 AY,9 C AY,10 SUB AP,10 AY,10 C AY,11 SUB AP,11 AY,11 C AY,12 SUB AP,12 AY,12 C AY,12 SUB AP,13 AY,12 C AY,13 SUB AP,14 AY,13 C AY,13 SUB AP,15 AY,13 C AY,14 SUB PFICHI AY,14 C AP,15 COMP 0 08 C 08 PRMN COMP UMONTH 08 C 08 MOVE 'N' EUNDPD C END TAG ODISP H 11 1P O 24 'C A N C E L L A T I O N ' O 37 ' O F P A Y' O T 11 LRN04 O 13 'PAY NOT FOUND' OPRT H 304 1P O 43 'C A N C E L L A T I O N' O 57 'O F P A Y' O H 02 1P O 40 'THE FOLLOWING PAY IS CAN' O 59 'CELLED ON :' O UDATE Y 58 O E 0 06 O 28 'CHECK NO' O CHKIN 35 OPAYRL D 02 05 O 140 'D' OEMPLYE D 05 O EUNDPD 130 O UNTG 134P O AY 220P OPRT D 22 05 O 32 'PAYROLL DATE' O PRDAT Y 54 O D 01 05 O 39 'EMPL NO ----' O ENO 34 O FNM 55 O LNM 73 O D 02 05 O 32 'GROSS AMOUNT' O AP,1 A 56 ** ENTER CHECK# TO BE CANCELLED // CEND // COPY LIBRARY-S,NAME-JF0064,RECL-096,DATE-01/03/23,TIME-1226,SUB-RPG H B 1 JF0064 FINP IP F 79 79 KEYBORD FDISP O F 79 79 CRT FXPMTY O F 66 66 9AI 1 DISK E AMS 1 7 79 C SETOF 0102 C IX COMP 20 LR C LR GOTO END C AMS,1 SET KG C AMS,2 KEY CNO 60 C KG SETON LR C KG GOTO END C AMS,3 KEY FRINV 60 C AMS,4 KEY TOINV 60 C AMS,5 KEY DISC 92 C AMS,6 KEY ALL 92 C AMS,7 KEY ACC 1 C ACC COMP 'N' 010102 C 01 IX ADD 1 IX 20 C END TAG ODISP H 11 1P O 24 'E N T E R G R O U P ' O 39 'P A Y M E N T S' OXPMTY D 01 O IX 2 O 9 '2000000' O CNO 15 O DISC 33 O ALL 42 O FRINV 60 O TOINV 66 ** PRESS COMMAND KEY 7 & ENTER IF THERE ARE NO MORE ENTRIES TO BE MADE, OR ENTER CUSTOMER NUMBER ENTER FROM INVOICE NUMBER ENTER THROUGH INVOICE NUMBER ENTER TOTAL DISCOUNT AMOUNT FOR ALL INVOICES IN GROUP ENTER TOTAL ALLOWANCE AMOUNT FOR ALL INVOICES IN GROUP ENTER WHETHER OR NOT OK ? (Y=YES, N=NO) // CEND // COPY LIBRARY-S,NAME-JF0065,RECL-096,DATE-03/10/26,TIME-2057,SUB-RPG H B 1 JF0065 FRECEV IPE F 300 300 DISK FXPMTY UC F 66 66R 9AI 1 DISK A E ACU 20 6 0 E AFI 20 6 0 E ATI 20 6 0 IRECEV AA 01 300NCN I BB 02 300 CN I 2 70INVN I 8 130CNO IXPMTY CC 03 I 10 150CNOIN I 55 600FRINV I 61 660TOINV C SETOF 04 C N05 Z-ADD2000000 LKEY 90 C MORE TAG C N05 TL ADD 1 TL 20 C N05 MOVELTL LKEY C N05 LKEY CHAINXPMTY 05 C N05 MOVE CNOIN ACU,TL C N05 MOVE FRINV AFI,TL C N05 MOVE TOINV ATI,TL C N05 GOTO MORE C 01 GOTO END C Z-ADD0 IX 20 C AGAIN TAG C IX ADD 1 IX C IX COMP TL 06 C 06 CNO COMP ACU,IX 04 C 06 04 INVN COMP AFI,IX 04 04 C 06 04 INVN COMP ATI,IX 0404 C 06N04 GOTO AGAIN C END TAG OXPMTY DADD 04 O IX 2 O 3 '1' O INVN 9 O CNO 15 // CEND // COPY LIBRARY-S,NAME-JF0066,RECL-096,DATE-03/10/26,TIME-2057,SUB-RPG H B 1 JF0066 FXPMTY UPE F 66 66 9AI 1 DISK FRECEV UC F 300 300R 6AI 2 DISK FPYMT UC F 57 57R 9AI 1 DISK A IXPMTY AA 01 3 C1 I 4 90INVN I BB 02 3 C2 I 25 332DISC I 34 422ALL IRECEV CC 03 I 8 130CNO I P 20 242INVAMT I P 25 292INVTAX I P 31 352CASPD I P 46 502BALDUE IPYMT AA C 01 INVN CHAINRECEV C 01 NUM ADD 1 NUM 30 C 01 TOT ADD BALDUE TOT 92 C 01 CASPD ADD BALDUE CASPD C 01 Z-ADD0 ZER9 92 C 01 Z-ADD0 SEQNO 30 C 01 MOVELINVN KEY 9 C AGN1 TAG C 01 SEQNO ADD 1 SEQNO C 01 MOVE SEQNO KEY C 01 KEY CHAINPYMT 04 C 01N04 GOTO AGN1 C 02 TOT SUB DISC CASH 92 C 02 CASH SUB ALL CASH OXPMTY D 01 O INVAMT 24 O BALDUE 33 O D 02 O CASH 24 O TOT B 51 O NUM B 54 ORECEV D 01 03 O CASPD 35P O ZER9 50P O 300 'P' OPYMT DADD 01 O KEY 9 O CNO 15 O UDATE 21 O BALDUE 26P O ZER9 31P O ZER9 36P O ZER9 41P O INVAMT 46P O INVTAX 51P O BALDUE 56P O 57 'A' // CEND // COPY LIBRARY-S,NAME-JF0068,RECL-096,DATE-01/03/23,TIME-1226,SUB-RPG H B 1 JF0068 FXUNREP IPE F 17 17 DISK FEMPLYE IC F 350 350R 5AI 1 DISK FINP ID F 79 79 KEYBORD FPRT O F 132 132 OV PRINTER FDISP O F 79 79 CRT E AMS 1 2 79 E AMO 6 12 9 IXUNREP AA 01 I 1 5 ENO L1 I 1 20ENO2 I 3 50ENO3 I 6 70MOIN I 8 90YRIN I P 14 172DUES IEMPLYE BB I 6 20 LNM I 21 35 FNM C 99 SETOF 99 C 03 GOTO BEGIN C AMS,1 KEY MO 20 C AMS,2 KEY YR 20 C SETON 0399 C BEGIN TAG C L1 Z-ADD0 AMT 62 C MOIN COMP MO 04 C 04 YRIN COMP YR 04 C 04 AMT ADD DUES AMT CL1 AMT COMP 0 0505 CL1 05 NUM ADD 1 NUM 60 CL1 05 TOTAMT ADD AMT TOTAMT 92 CL1 05 ENO CHAINEMPLYE 02 ODISP H 11 1P O 23 'U N I O N R E P O R T' OPRT H 203 99 O OR OV O 24 'JOFFE LUMBER & SUPPLY CO' O 31 '., INC,' O 57 'U N I O N R E P O R T' O PAGE 67 O 65 'PG' O H 2 99 O OR OV O AMO,MO 47 O 51 ', 19' O YR 53 O H 1 99 O OR OV O 25 'EMPL' O 67 'UNION AMT' O H 1 99 O OR OV O 24 'NO' O 37 'NAME' O 67 'WITHHELD' O H 2 99 O OR OV O 44 '************************' O 67 '***********************' O TF01 L1 05 O ENO2 M 22 O ENO3 25 O 22 '-' O N02 LNM 41 O N02 FNM 58 O AMT A 69 O T 2 01 LR O NUM A 34 O 53 'EMPLOYEES----TOTAL:' O TOTAMTA 69 '$' ** ENTER MONTH # FOR REPORT (1 - 12) ENTER YEAR # FOR REPORT ** JANUARY FEBRUARY MARCH APRIL MAY JUNE JULY AUGUSTSEPTEMBER OCTOBER NOVEMBER DECEMBER // CEND // COPY LIBRARY-S,NAME-JF0069,RECL-096,DATE-01/03/23,TIME-1226,SUB-RPG H B 1 1 JF0069 FEMPLYE IPE F 350 350 5AI 1 DISK FXESTWG IC F 15 15R 5AI 1 DISK FPRT O F 132 132 OV LPRINTER LPRT 33FL 33OL IEMPLYE AA 01 350NCD I 1 50EMPNO I 1 20EMPNO1 I 3 50EMPNO2 I 6 20 LNAM I 21 35 FNAM I P 36 400SSNO I 41 41 MRST I 44 63 STREET I 64 83 CITY I 87 88 STATE I P 84 860ZIP I 89 89 PROF I P 146 1502GRSGRS 02 I P 151 1552FEDIN I P 156 1602FICOA I P 161 1652NJINC 0505 I P 166 1702NJSUI 0303 I P 171 1752PAINC 0606 I P 211 2152FICHI I P 216 2202HSPNTX I BB IXESTWG AA I P 6 102NJGRS I P 11 152PAGRS C N01 GOTO END C N02 SETOF 01 C N01 GOTO END C GRSGRS SUB HSPNTX NETGRS 92 C PROF COMP 'P' 08 C CNT ADD 1 CNT 30 C CNT COMP 42 07 C 07 SETON 90 C 07 EXCPT C 07 SETOF 90 C 07 Z-ADD0 TFEDIN 102 C 07 Z-ADD0 TNTGRS 102 C 07 Z-ADD0 TFICOA 102 C 07 Z-ADD0 TFOAWG 102 C 07 Z-ADD0 TFICHI 102 C 07 Z-ADD0 TFHIWG 102 C 07 Z-ADD1 CNT C 07 Z-ADD0 CT 20 C CT ADD 1 CT C CT COMP 3 07 C 07 Z-ADD1 CT C TFEDIN ADD FEDIN TFEDIN C TNTGRS ADD NETGRS TNTGRS C TFICOA ADD FICOA TFICOA C NETGRS COMP 60600.00 07 07 C N07 TFOAWG ADD NETGRS TFOAWG C 07 TFOAWG ADD 60600.00 TFOAWG C TFICHI ADD FICHI TFICHI C TFHIWG ADD NETGRS TFHIWG C NJSUI MULT .55555 EMPUI 52H0909 C NJSUI SUB EMPUI EMPTDI 52 1010 C Z-ADDNJINC NJINCP 72 C Z-ADDPAINC PAINCP 72 C Z-ADD0 NJGRS C Z-ADD0 PAGRS C EMPNO CHAINXESTWG 04 C END TAG CLR CT COMP 2 07 CLR 07 SETON 91 CLR 07 EXCPT CLR 07 SETOF 91 CLR SETON 90 CLR EXCPT CLR SETOF 90 OPRT H 0533 1P O 13 'FEDERAL ID#' O D 203 01 O EMPNO1Z 6 O 7 '-' O EMPNO2 10 O D 02 01 O 12 '21-0607164' O NETGRSJ 49 O FEDIN J 63 O D 01 01 O 27 'JOFFE LUMBER & SUPPLY CO' O 33 '.,INC.' O N07 NETGRSJ 49 O 07 48 '60,600.00' O FICOA J 63 O D 01 01 O 18 '18 BURNS AVENUE' O D 01 01 O 13 'P.O. BOX K' O NETGRSJ 49 O FICHI J 63 O D 01 01 O 27 'VINELAND, NEW JERSEY 083' O 29 '60' O D 02 01 O D 02 01 O SSNO 15 '0 - - ' O D 01 01 O FNAM 18 O LNAM 34 O D 01 01 O STREET 23 O D 01 01 O CITY 23 O ZIP 29 O D 01 01 O 09 EMPUI J 66 O 09 58 'NJ WD/HC' O D 03 01 O 10 EMPTDIJ 66 O 10 58 'NJ DI' O D 02 01 O 08 46 'X' O D 02 01 O 05 3 'NJ' O 06N05 3 'PA' O 05 NJINCPJ 40 O 06N05 PAINCPJ 40 O 05 NJGRS J 31 O 06N05 PAGRS J 31 O 05 19 '210-607-164/000' O 06N05 15 '21-060 7164' O D 01 01 O 3 'NJ' O 05 06 PAINCPJ 40 O 05 06 PAGRS J 31 O 15 '051364-00-5' O E 316 91 O E 205 90 O TNTGRSK 49 O TFEDINK 63 O E 02 90 O TFOAWGK 49 O TFICOAK 63 O E 0 22 90 O TFHIWGK 49 O TFICHIK 63 O E 00 09 O 57 'X' // CEND // COPY LIBRARY-S,NAME-JF0070,RECL-096,DATE-01/03/23,TIME-1226,SUB-RPG H B 1 JF0070 FXPRLST IPE F 140 140 DISK FEMPLYE IC F 350 350R 5AI 1 DISK FINP ID F 79 79 KEYBORD FPRT O F 1 132 OV PRINTER FDISP O F 79 79 CRT E AMS 1 5 79 IXPRLST AA 99 I 1 50ENO L1 I 1 20ENO2 I 3 50ENO3 I P 38 412GRS I P 62 652HOSP I 127 127 HSPCOD IEMPLYE BB 98 I 6 20 LNAM I 21 35 FNAM I P 36 400SSNUM I P 146 1502GRSTD I P 216 2202HPNTTD C 01 SETOF 97 C 01 GOTO BEGIN C SETON 0197 C AMS,1 KEY QRYR 30 C U1 AMS,2 KEY TXGRS 50 C U1 AMS,3 KEY TXRT 66 C U2 AMS,4 KEY TXGRS C U2 AMS,5 KEY TXRT C BEGIN TAG C L1 Z-ADD0.00 EGRS 82 C U1 HSPCOD COMP 'N' 09 C U1 09 GRS SUB HOSP GRS C GRS ADD EGRS EGRS CL1 ENO CHAINEMPLYE 05 CL1 05 GOTO END CL1 U1 GRSTD SUB HPNTTD GRSTD CL1 GRSTD SUB TXGRS OVER 82 070606 CL1 06 Z-ADDEGRS EGRSU 82 CL1 06 Z-ADD0.00 EGRSO 82 CL1 07 EGRS SUB OVER EGRSU 0808 CL1 07 08 Z-ADD0.00 EGRSU CL1 07 08 Z-ADDEGRS EGRSO CL1 07N08 Z-ADDOVER EGRSO CL1 EGRS ADD TGRS TGRS 92 CL1 EGRSU ADD TGRSU TGRSU 92 CL1 EGRSO ADD TGRSO TGRSO 92 CL1 END TAG CLR TGRSU MULT TXRT TXEMCN 82 ODISP H 11 1P O U1 24 'F E D E R A L U N E M ' O U1 48 'P L O Y M E N T R E P ' O U1 53 'O R T' O U2 24 'S T A T E U N E M P L ' O U2 48 'O Y M E N T R E P O R ' O U2 49 'T' OPRT H 103 97 O OR OV O 15 'QUARTER/YEAR' O QRYR 20 ' / ' O U1 63 'F E D E R A L U N E M ' O U1 87 'P L O Y M E N T R E P ' O U1 92 'O R T' O U2 65 'S T A T E U N E M P L ' O U2 89 'O Y M E N T R E P O R ' O U2 90 'T' O UDATE Y 114 O 128 'PAGE' O PAGE 132 O H 01 97 O OR OV O U1 63 '************************' O U1 87 '************************' O U1 92 '*****' O U2 65 '************************' O U2 89 '************************' O U2 90 '*' O H 01 97 O OR OV O 24 'EMP NO LAST NAME' O 60 'FIRST NAME SOC' O U1 85 'SEC NO TOTAL NET GR' O U2 85 'SEC NO TOTAL GRS GR' O 102 'OSS GROSS TO' O 125 'GROSS OVER' O TXGRS C 111 '$' O TXGRS 3 132 '$' O H 01 97 O OR OV O 24 '************************' O *PLACE 48 O *PLACE 72 O *PLACE 96 O *PLACE 120 O 132 '***********' O T 01 L1 05 O 121 'NO SUCH NUMBER IN EMPLOY' O 128 'EE FILE' O TF01 L1N05 O ENO2 M 3 O ENO3 6 O 3 '-' O LNAM 30 O FNAM 51 O SSNUM 69 '0 - - -' O EGRS B 90 '$' O EGRSU B 109 '$' O EGRSO B 131 '$' O T 12 LR O 71 'TOTALS' O TGRS B 90 '$' O TGRSU B 109 '$' O TGRSO B 131 '$' O T 10 LR O 44 'EMPLOYER CONTRIBUTION TO' O 69 'UNEMPLOYMENT INSURANCE =' O TXRT 79 ' 0. -%' O 97 'X =' O TGRSU J 96 '$' O TXEMCNA 111 '$' ** ENTER QUARTER/YEAR (3 DIGITS) FOR REPORT ENTER MAXIMUM NET GROSS SUBJECT TO FEDERAL UNEMPLOYMENT TAX (NO CENTS) ENTER FEDERAL UNEMPLOYMENT TAX RATE IN % WITH 4 DECIMAL POSITIONS ENTER MAXIMUM GROSS GROSS SUBJECT TO STATE UNEMPLOYMENT TAX (NO CENTS) ENTER STATE UNEMPLOYMENT TAX RATE IN % WITH 4 DECIMAL POSITIONS // CEND // COPY LIBRARY-S,NAME-JF0072,RECL-096,DATE-01/03/23,TIME-1226,SUB-RPG H B 1 JF0072 FXPRLST IPE F 140 140 2 DISK FXQRTDT IC F 16 16R DISK FPRT O F 1 132 PRINTER FEMPLYE IC F 350 350R 5AI 1 DISK IXQRTDT CC I 1 60DAT IXPRLST AA 99 I 1 50ENO L1 I 1 20ENO2 I 3 50ENO3 I P 38 412GRS I P 62 652HOSP I 127 127 HSPCOD IEMPLYE BB 98 I 6 20 LNAM I 21 35 FNAM I P 36 400SSNO I P 146 1502GRSTD I P 216 2202HPNTTD C N01 1 CHAINXQRTDT C N01 SETON 0102 C OV SETON 02 C EXCPT C SETOF 02OV C L1 Z-ADD0 EGRS C HSPCOD COMP 'T' 09 C N09 GRS SUB HOSP GRS C GRS ADD EGRS EGRS 92 CL1 ENO CHAINEMPLYE 03 CL1 03 EXCPT CL1 03 GOTO END CL1 GRSTD SUB HPNTTD GRSTD CL1 GRSTD COMP 61200 04 CL1N04 Z-ADDEGRS EOGRS 92 CL1 04 GRSTD SUB 61200 OVER 92 CL1 04 EGRS SUB OVER EOGRS CL1 04 EOGRS COMP 0 0404 CL1 04 Z-ADD0 EOGRS CL1N04 TOGRS ADD EOGRS TOGRS 102 CL1 Z-ADDEGRS EHGRS 92 CL1 THGRS ADD EHGRS THGRS 102 CL1 END TAG OPRT E 103 02 O 24 'T A X A B L E F I C A ' O 35 ' W A G E S' O 55 'QUARTER ENDING' O DAT Y 64 O PAGE 84 O 81 'PAGE' O E 01 02 O 24 '************************' O 35 '***********' O E 01 02 O 78 '--- TAXABLE WAGES --' O E 01 02 O 5 'EMP#' O 20 'SOC SEC #' O 34 'FIRST NAME' O 47 'LAST NAME' O 65 'FICA-OA' O 78 'FICA-HI' O E 01 02 O 24 '************************' O *PLACE 48 O *PLACE 72 O *PLACE 96 O T 01 L1 O ENO2 M 3 O ENO3 6 O 3 '-' O SSNO 21 '0 - - ' O FNAM 39 O LNAM 53 O EOGRS J 66 '$' O EHGRS J 79 '$' O T 11 LR O TOGRS J 66 '$' O THGRS J 79 '$' // CEND // COPY LIBRARY-S,NAME-JF0073,RECL-096,DATE-01/03/23,TIME-1226,SUB-RPG H B 1 JF0073 FXPRLST IPE F 140 140 DISK FINP ID F 79 79 KEYBORD FEMPLYE IC F 350 350R 5AI 1 DISK FPRT O F 198 198 OV PRINTER E AMS 1 1 79 E AW 17 7 2 E AQ 17 8 2 E AY 15 9 2 E AD 100 6 0 IXPRLST AA 01 I 1 50ENO L1 I 6 110PRDAT I 12 170CHKNO I P 18 202REGHR I P 24 262OTHR I P 30 97 AW I 104 104 MSDCOD I 105 105 MSPCOD I P 123 1262WFICHI I 127 127 HSPTX IEMPLYE BB 02 I 6 20 LNM I 21 35 FNM I P 36 400SSNO I 41 41 MSTA I 42 430EXM I 44 63 STR I 64 83 CTY I P 84 860ZIP I 125 125 YMSDCD I 126 126 YMSPCD I P 146 220 AY C N03 AMS,1 KEY QYR 30 C SETON 03 C L1 Z-ADD0 QREGHR 72 C L1 Z-ADD0 QOTHR 72 C L1 Z-ADD0 AQ C L1 Z-ADD0 QFICHI 82 C L1 Z-ADD0 QHOSPN 82 C L1 Z-ADD0 QHOSPT 82 C L1 Z-ADD0 QNTGRS 82 C L1 Z-ADD0 AD C L1 Z-ADD0 D 20 C L1 ENO CHAINEMPLYE 04 C L1 04 Z-ADD0 AY C L1 COR OV SETON 05 C 05 EXCPT C 05 SETOF 05OV C PRDAT LOKUPAD 06 C N06 D ADD 1 D 20 C N06 Z-ADDPRDAT AD,D C Z-ADDAW,3 NTGRS C HSPTX COMP 'N' 11 C 11 NTGRS SUB AW,9 NTGRS 82 C QREGHR ADD REGHR QREGHR C QOTHR ADD OTHR QOTHR C AW ADD AQ AQ C QFICHI ADD WFICHI QFICHI C AW,14 ADD AW,15 EXCHK 82 C AW,16 ADD AW,17 UNAMT 72 C QNTGRS ADD NTGRS QNTGRS 82 C 11 QHOSPN ADD AW,9 QHOSPN 82 C N11 QHOSPT ADD AW,9 QHOSPT 82 C XFOOTAW NET 82 C NET ADD WFICHI NET C NET SUB AW,1 NET C NET SUB AW,2 NET C NET SUB AW,3 NET C AW,3 SUB NET NET CL1 AQ,14 ADD AQ,15 QEXCHK 82 CL1 AQ,16 ADD AQ,17 QUNAMT 72 CL1 XFOOTAQ QNET 92 CL1 QNET ADD QFICHI QNET CL1 QNET SUB AQ,1 QNET CL1 QNET SUB AQ,2 QNET CL1 QNET SUB AQ,3 QNET CL1 AQ,3 SUB QNET QNET CL1 XFOOTAY YNET 92 CL1 YNET SUB AY,1 YNET CL1 AY,1 SUB YNET YNET CL1 AY,1 SUB AY,15 YNTGRS 82 OPRT E 103 05 O 60 'E M P L O Y E E L E D ' O 82 'G E R -- QUARTER/YEAR ' O QYR 86 ' / ' O E 20 05 O 23 'EMPL NO' O ENO 30 O 33 '--' O 04 55 'NOT IN EMPLOYEE LIST' O N04 LNM 46 O N04 FNM 62 O N04 MSTA 75 O 76 '-' O N04 EXM J 79 O 91 'SS NO' O N04 SSNO 103 '0 - - ' O E 10 05 O N04 STR 54 O E 10 05 O N04 CTY 54 O N04 ZIP 61 O E 21 05 O 16 'DATE CHECK#' O 38 'REG HOURS OT HOURS' O 64 'REG GROSS OT GROSS' O 92 'STA GROSS FED GROSS' O 118 'FED WITH FICA-OA' O 144 'FICA-HI NJ INC' O E 01 05 O 27 'NJ SUI PA INC' O 51 'HOSP TX LOANS/REC' O 78 'MISC $ MISC %' O 105 'HOSP NTX EXCHK P' O 131 'EXCHK UNION' O 144 'NET PAY' O E 01 05 O 24 '************************' O *PLACE 48 O *PLACE 72 O *PLACE 96 O *PLACE 120 O *PLACE 144 O 150 '******' O D 11 01 O PRDAT Y 8 O CHKNO M 17 O REGHR K 28 O OTHR K 39 O AW,1 K 52 O AW,2 K 65 O AW,3 K 79 O NTGRS K 93 O AW,4 K 106 O AW,5 K 119 O WFICHIK 132 O AW,6 K 145 O D 01 01 O AW,7 K 17 O AW,8 K 28 O N11 AW,9 K 39 O AW,10 K 52 O AW,11 K 65 O MSDCOD 66 O AW,12 K 79 O MSPCOD 80 O 11 AW,9 K 93 O AW,13 K 106 O EXCHK K 119 O UNAMT K 132 O NET K 145 O T 11 L1 O 15 'THIS QUARTER' O QREGHRK 28 O QOTHR K 39 O AQ,1 K 52 O AQ,2 K 65 O AQ,3 K 79 O QNTGRSK 93 O AQ,4 K 106 O AQ,5 K 118 O QFICHIK 132 O AQ,6 K 145 O T 02 L1 O AQ,7 K 17 O AQ,8 K 28 O QHOSPTK 39 O AQ,10 K 52 O AQ,11 K 65 O MSDCOD 66 O AQ,12 K 79 O MSPCOD 80 O QHOSPNK 93 O AQ,13 K 106 O QEXCHKK 118 O QUNAMTK 132 O QNET K 145 O T 01 L1 O 15 'YEAR TO DATE' O AY,4 K 145 O AY,14 K 132 O AY,3 K 118 O AY,2 K 106 O YNTGRSK 93 O AY,1 K 79 O T 02 L1 O YNET K 145 O AY,13 K 132 O AY,12 K 118 O AY,11 K 106 O AY,15 K 93 O YMSPCD 80 O AY,10 K 79 O YMSDCD 66 O AY,9 K 65 O AY,8 K 52 O AY,7 K 39 O AY,6 K 28 O AY,5 K 17 O T 02 L1 O 14 '# OF PAY DATES' O D J 19 ** EMPLOYEE LEDGER REPORT FOR WHICH QUARTER/YEAR? (3 DIGITS) // CEND // COPY LIBRARY-S,NAME-JF0074,RECL-096,DATE-01/03/23,TIME-1226,SUB-RPG H B 1 JF0074 FEMPLYE IPE F 350 350 5AI 1 DISK FPRT O F 132 132 OV PRINTER E AT 15 9 2 E ATT 15 10 2 IEMPLYE AA 01 I 1 50ENO I 1 20ENO2 I 3 50ENO3 I 6 20 LNAM I 21 35 FNAM I P 146 220 AT I 256 256 STAT C AT,1 SUB AT,15 NTGRS 92 C 01 AT ADD ATT ATT C TNTGRS ADD NTGRS TNTGRS 102 C 01 STAT COMP 'T' 02 OPRT H 103 1P O OR OV O 57 'E M P L O Y E E Y E A ' O 81 'R T O D A T E T O ' O 88 'T A L S' O UDATE Y 106 O 121 'PAGE' O PAGE 125 O H 01 1P O OR OV O 57 '************************' O 81 '************************' O 88 '*******' O H 01 1P O OR OV O 24 ' EMP# LAST NAME ' O 48 ' FIRST NAME STA ' O 72 'GROSS FED GROSS F' O 96 'ED WITH FICA-OA ' O 120 ' FICA-HI NJ INC ' O 131 ' NJ SUI' O H 01 1P O OR OV O 45 'PA INC HOSP-TX ' O 69 'HOSP-NTX LOANS/REC ' O 93 ' MISC-$ MISC-% ' O 117 ' EXCHK P $ EXCHK ' O 131 '$ UNION' O H 02 1P O OR OV O 24 '************************' O *PLACE 48 O *PLACE 72 O *PLACE 96 O *PLACE 120 O 132 '************' O D 01 01 O AT,5 K 132 O AT,4 K 119 O AT,14 K 106 O AT,3 K 93 O AT,2 K 80 O NTGRS K 67 O AT,1 K 54 O ENO2 M 3 O ENO3 6 O 3 '-' O 02 7 '*' O LNAM 23 O FNAM 40 O D 02 01 O AT,13 K 132 O AT,12 K 119 O AT,11 K 106 O AT,10 K 93 O AT,9 K 80 O AT,8 K 67 O AT,15 K 54 O AT,7 K 41 O AT,6 K 28 O T 01 LR O 6 'TOTALS' O ATT,5 K 132 O ATT,4 K 119 O ATT,14K 106 O ATT,3 K 93 O ATT,2 K 80 O TNTGRSK 67 O ATT,1 K 54 O T 01 LR O ATT,13K 132 O ATT,12K 119 O ATT,11K 106 O ATT,10K 93 O ATT,9 K 80 O ATT,8 K 67 O ATT,15K 54 O ATT,7 K 41 O ATT,6 K 28 // CEND // COPY LIBRARY-S,NAME-JF0075,RECL-096,DATE-01/03/23,TIME-1226,SUB-RPG H B 1 JF0075 FEMPLYE IPE F 350 350 5AI 1 DISK FINP ID F 79 79 KEYBORD FPRT O F 1 132 OV PRINTER E AMS 1 1 79 IEMPLYE AA 99 I 1 50ENO I 1 20ENO2 I 3 50ENO3 I 6 20 LNAM I 21 35 FNAM I P 36 400SSNO I 44 63 ST I 64 83 CITY I P 84 860ZIP I 135 1380MNYR I 267 2720BIRDAT C 98 SETOF 98 C 01 GOTO BYE C AMS,1 KEY MNYRKY 40 C N01 SETON 0198 C BYE TAG C MNYR COMP MNYRKY 03 OPRT H 103 98 O OR OV O 24 'JOFFE LUMBER & SUPPLY CO' O 31 '., INC,' O 60 'C O M P L E T I O N O ' O 84 'F U N I O N I N I T ' O 103 'I A T I O N F E E' O UDATE Y 121 O 127 'PAGE' O PAGE 132 O H 01 98 O OR OV O 60 '************************' O 84 '************************' O 103 '*******************' O H 01 98 O OR OV O 70 'IN MONTH' O MNYRKY 76 '0 / ' O H 01 98 O OR OV O 76 '**************' O H 01 98 O OR OV O 20 'EMP NO LAST NAME' O 40 'FIRST NAME' O 55 'STREET' O 84 'CITY, STATE' O 115 'ZIP BIRTHDATE' O 129 'SOC SEC NUM' O H 01 98 O OR OV O 24 '************************' O *PLACE 48 O *PLACE 72 O *PLACE 96 O *PLACE 120 O 132 '************' O DF10 03 O ENO2 M 4 O ENO3 7 O 4 '-' O LNAM 26 O FNAM 45 O ST 69 O CITY 93 O ZIP 102 O BIRDATY 114 O SSNO 129 '0 - - ' ** ENTER MONTH/YEAR (4 DIGITS) FOR COMPLETION OF PAYMENTS OF UNION INITIATION FEE // CEND // COPY LIBRARY-S,NAME-JF0076,RECL-096,DATE-01/03/23,TIME-1226,SUB-RPG H B 1 JF0076 FXITORS IPE F 220 220 2 DISK FCUSMAS IC F 600 600R 6AI 1 DISK FXITHD IC F 42 42R 7AI 1 DISK FPRT O F 132 132 OV PRINTER U8 E ADA 12 12 1 E ADL 12 1 IXITORS AA 01 167 CI I OR 02 167 CE I 1 2 DEPT L2 I 1 1 DEPT1 I 2 2 DEPT2 I 3 9 ITEM I 17 220LOAD L1 I 23 250LINE I 26 270LIN2 I 28 330CNO I 34 390HSENO 0808 I 34 37 HSE4 I 38 39 HSE2 I 40 66 HDES1 I 67 93 HDES2 I 94 940REGC 09 I 95 103 BLDG I 104 111 LOT I 112 115 BSEQ I 116 1210DELDAT I 128 128 BORBO I 136 136 PRTY I P 137 1400ORDDAT I 141 142 SM I 143 144 RECBY I 145 146 PROCBY I 147 147 SPADDR I 148 148 FPAGE I 168 1680PRCECD I P 172 1740QTYBO I P 175 1770QTYRBO I 181 207 DESC I 208 208 LRH 11 I 209 2130LINFT I 214 214 LABEL I 215 215 DSPRLD I 216 2200HEADNO ICUSMAS AA 12 600NCA I BB I 8 37 CNAME I 97 121 DEVCO I 299 300 CSM I 442 453 ADL IXITHD AA I 15 41 HDESC I 42 42 HLRH 10 C SETON 99 C MOVE ' ' BLNK27 27 C L2 BORBO COMP 'R' 03 C L2 COR OV SETON 30 C EXCPT C SETOF 30OV C L1 PRTY COMP 'X' 17 C L1 FPAGE COMP 'X' 18 C L1 CNO CHAINCUSMAS 12 C L1N12 Z-ADD0 I 20 C AGNDEL TAG C L1N12 I ADD 1 I C L1N12 ADL,I COMP 'X' 15 C L1N12N15 MOVE '-' ADL,I C L1N12 15 MOVE ADA,I ADL,I C L1N12 I COMP 12 15 C L1N12N15 GOTO AGNDEL C L1 Z-ADD0 PRTLIN 20 C L1 SETON 13 C LINFT MULT QTYBO TOTFT 50 C DSPRLD COMP 'L' 07 C 01 QTYBO ADD QTYRBO QTYBO C 01 HEADNO COMP 0 0404 C 01N04 GOTO ENDHD C 01 Z-ADD0 HDKEY 70 C 01 MOVELHEADNO HDKEY C AGNHD TAG C 01 HDKEY ADD 1 HDKEY C 01 HDKEY CHAINXITHD 05 C 01 05 GOTO ENDHD C 01 SETON 06 C 01 EXCPT C 01 SETOF 06 C 01 EXSR LINENO C 01 GOTO AGNHD C ENDHD TAG C SETON 20 C EXCPT C SETOF 20 C EXSR LINENO C END TAG CL1 99 EXSR PRINT CSR LINENO BEGSR CSR PRTLIN ADD 1 PRTLIN CSR PRTLIN COMP 1 21 CSR PRTLIN COMP 2 22 CSR PRTLIN COMP 3 23 CSR PRTLIN COMP 4 24 CSR PRTLIN COMP 5 25 CSR PRTLIN COMP 6 27 26 CSR EXCPT CSR SETOF 212223 CSR SETOF 242526 CSR SETOF 2713 CSR ENDSR CSR PRINT BEGSR CSR AGN TAG CSR PRTLIN ADD 1 PRTLIN CSR PRTLIN COMP 2 22 CSR PRTLIN COMP 3 23 CSR PRTLIN COMP 4 24 CSR PRTLIN COMP 5 25 CSR PRTLIN COMP 6 27 26 CSR 27 GOTO ENDPRT CSR EXCPT CSR SETOF 2223 CSR GOTO AGN CSR ENDPRT TAG CSR SETOF 222324 CSR SETOF 252627 CSR Z-ADD0 PRTLIN 20 CSR ENDSR OPRT E 103 30 O UDATE Y 35 O 60 'D E P A R T M E N T' O DEPT1 64 O DEPT2 66 O 90 'B A C K O R D E R S' O N03 112 '- REGULAR BACK ORDERS' O 03 99 '- R-BO''S' O 127 'PAGE' O PAGE 131 O E 01 30 O 65 '************************' O 89 '************************' O 90 '*' O E 01 30 O 17 'ITEM# QTY BO' O 30 'DESCRIPTION' O 69 'TOT FT LABEL LINE' O 79 'CUSTOMER' O 109 'LOAD' O E 01 30 O 24 '************************' O *PLACE 48 O *PLACE 72 O *PLACE 96 O *PLACE 120 O 132 '************' O E 30 06 13 O OR 00 06N13 O HDESC 45 O N10 HLRH 50 O N10 51 'H' O E 30 20 13 O OR 00 20N13 O N02 ITEM 8 O 01 QTYBO J 17 O N07 DESC 45 O 07 DESC 47 O N11 LRH 50 O N11 51 'H' O 01 TOTFT K 59 O E 01 21 O 74 'CUST#' O CNO M 82 O 108 'LOAD#' O LOAD 115 O 09 121 'OPP' O N09 121 'REG' O 17 132 'PRIORITY' O E 01 22 O N12 CNAME 99 O BLDG 112 O LOT 122 O BSEQ 128 O E 01 23 O 75 'DEV CO' O N12 DEVCO 101 O 106 'DEL' O DELDATY 115 O 121 'ORD' O ORDDATY 130 O E 01 24 O 72 'SM-' O CSM 74 O N08 111 'NO HOUSE' O 08 115 'HOUSE# -' O 08 HSE4 114 O 08 HSE2 117 O E 01 25 O 88 'DEL,REG OPT' O N12 ADL,1 78 O N12 ADL,2 79 O N12 ADL,3 80 O N12 ADL,4 81 O N12 ADL,5 82 O N12 ADL,6 83 O N12 ADL,7 90 O N12 ADL,8 91 O N12 ADL,9 92 O N12 ADL,10 93 O N12 ADL,11 94 O N12 ADL,12 95 O HDES1 130 O E 01 26 O 78 '- - -' O SM 71 O RECBY 74 O PROCBY 77 O SPADDR 79 O 18 91 'FULL/PAGE' O HDES2 130 O E 01 27 ** MTWTFSMTWTFS // CEND // COPY LIBRARY-S,NAME-JF0077,RECL-096,DATE-01/03/23,TIME-1226,SUB-RPG H B 1 JF0077 FYPAYRL IP F 140 140 2 DISK FPAYRL IS F 140 140 2 DISK FINP ID F 79 79 KEYBORD FXPRLS O F 140 140 2 DISK FDISP O F 79 79 CRT E AMS 1 1 79 IYPAYRL AA 03 140NCA I BB 01 140 CA I 6 70MN I 10 110YR I 1 140 REC IPAYRL CC 03 140NCA I DD 02 140 CA I 1 140 REC C 04 GOTO BEGIN C SETON 04 C AMS,1 KEY QTRYR 30 C MOVELQTRYR QTR 10 C MOVE QTRYR LYR 20 C LYR SUB 1 LYR C 1 COMP QTR 11 C 2 COMP QTR 12 C 3 COMP QTR 13 C 4 COMP QTR 14 C 11 Z-ADD3 LMN 20 C 12 Z-ADD6 LMN C 13 Z-ADD9 LMN C 14 Z-ADD12 LMN C MOVELLYR LYRMN 40 C MOVE LMN LYRMN C BEGIN TAG C 01 MOVELYR YRMN 40 C 01 MOVE MN YRMN C 01 YRMN COMP LYRMN 06 OXPRLS D 01 06 O OR 02 O REC 140 ** PLEASE ENTER QUARTER/YEAR JUST ENDED (THREE DIGITS) // CEND // COPY LIBRARY-S,NAME-JF0078,RECL-096,DATE-01/03/23,TIME-1226,SUB-RPG H B 1 JF0078 FPAYRL IPE F 140 140 DISK FINP ID F 79 79 KEYBORD FPRT O F 132 132 PRINTER E AMS 1 1 79 E AP 17 7 2 E APT 17 10 2 IPAYRL AA 02 140NCA I BB 01 140 CA I P 30 97 AP I P 123 1262FICAHI I 127 127 HSPCOD C 03 GOTO BEGIN C SETON 03 C AMS,1 KEY QYR 30 C BEGIN TAG C 01 HSPCOD COMP 'T' 04 C 01 04 THSPT ADD AP,9 THSPT 102 C 01N04 THSPNT ADD AP,9 THSPNT 102 C 01 AP ADD APT APT C 01 TNTGRS ADD AP,3 TNTGRS 102 C 01N04 TNTGRS SUB AP,9 TNTGRS C 01 TFICHI ADD FICAHI TFICHI 102 CLR APT,14 ADD APT,15 EXCHK 102 CLR APT,16 ADD APT,17 UNAMT 102 CLR XFOOTAPT NET 102 CLR NET SUB APT,1 NET CLR NET SUB APT,2 NET CLR NET SUB APT,3 NET CLR NET ADD TFICHI NET CLR APT,3 SUB NET NET OPRT T 103 LR O 77 'P A Y R O L L T O T A ' O 80 'L S' O UDATE Y 97 O T 10 LR O 77 '************************' O 80 '***' O T 10 LR O 71 'FOR QUARTER/YEAR' O QYR 76 ' / ' O T 10 LR O 76 '*********************' O T 20 LR O 65 'REGULAR STATE GROSS:' O APT,1 J 91 '$' O T 20 LR O 65 'OVERTIME STATE GROSS:' O APT,2 J 91 '$' O T 20 LR O 65 'TOTAL STATE GROSS:' O APT,3 J 91 '$' O T 20 LR O 65 'TOTAL FED GROSS:' O TNTGRSJ 91 '$' O T 20 LR O 65 'FEDERAL WITHHOLDING:' O APT,4 J 91 '$' O T 20 LR O 65 'FICA-OASDI:' O APT,5 J 91 '$' O T 20 LR O 65 'FICA-HI:' O TFICHIJ 91 '$' O T 20 LR O 65 'NEW JERSEY INCOME TAX:' O APT,6 J 91 '$' O T 20 LR O 65 'NEW JERSEY UI/TDI:' O APT,7 J 91 '$' O T 20 LR O 65 'PENNSYLVANIA INCOME TAX:' O APT,8 J 91 '$' O T 20 LR O 65 'HOSPITAL-TAXED:' O THSPT J 91 '$' O T 20 LR O 65 'HOSPITAL-NOT TAXED:' O THSPNTJ 91 '$' O T 20 LR O 65 'LOANS RECEIVABLE:' O APT,10J 91 '$' O T 20 LR O 65 'MISCELLANEOUS:' O APT,11J 91 '$' O T 20 LR O 65 'MISCELLANEOUS %:' O APT,12J 91 '$' O T 2 LR O 65 'EXCHANGE CHECK P $:' O APT,13J 91 '$' O T 20 LR O 65 'EXCHANGE CHECK $:' O EXCHK J 91 '$' O T 20 LR O 65 'UNION AMOUNT:' O UNAMT J 91 '$' O T 20 LR O 65 'NET AMOUNT:' O NET J 91 '$' ** ENTER QUARTER/YEAR FOR WHICH YOU WISH PAYROLL TOTALS (3 DIGITS) // CEND // COPY LIBRARY-S,NAME-JF0079,RECL-096,DATE-01/03/23,TIME-1226,SUB-RPG H B 1 JF0079 FINP IP F 79 79 KEYBORD FCUSMAS UC F 600 600R 6AI 1 DISK FDISP O F 79 79 CRT E AMS 1 3 79 ICUSMAS AA 99 I 8 37 NAME I 160 1672OLDLIM I 600 600 ACTV C SETOF 03 C AMS,1 SET KG C AMS,2 KEY CNO 60 C KG SETON LR C KG GOTO END C CNO CHAINCUSMAS 01 C N01 ACTV COMP 'D' 01 C SETON 99 C EXCPT C SETOF 99 C 01 GOTO END C AMS,3 KEY NEWLIM 82 C SETON 03 C END TAG ODISP H 11 1P O 24 'C H A N G E C U S T O ' O 48 'M E R C R E D I T L ' O 57 'I M I T S' O E 11 99 01 O 23 'CUSTOMER IS NOT IN FILE' O E 11 99N01 O 13 'CUSTOMER NAME' O NAME 46 O E 11 99N01 O 9 'OLD LIMIT' O OLDLIM3 22 OCUSMAS D 03 O NEWLIM 167 ** PRESS COMMAND KEY 7 & ENTER IF THERE ARE NO MORE ENTRIES TO BE MADE, OR ENTER CUSTOMER NUMBER ENTER NEW CREDIT LIMIT (0=UNLIMITED) // CEND // COPY LIBRARY-S,NAME-JF0080,RECL-096,REF-000001,DATE-07/10/02,TIME-0738,SUB-RPG H B 1 JF0080 FINP IP F 79 79 KEYBORD FCNTRL IC F 32 32R DISK FRECEV UC F 300 300R 6AI 2 DISK FRECVNC UC F 300 300R 6AI 2 DISK U3 FCUSMAS UC F 600 600R 6AI 1 DISK FDISP O F 79 79 CRT FPRT O F 132 132 OV PRINTER E AMS 1 4 79 E AS 12 9 2 ICNTRL AA 1 C0 2 C0 3 C7 I 4 32 CONAME IRECEV AA 01 300 CD I BB I 8 130CNO I 14 190INVDAT I P 20 242INVAMT I P 25 292INVTAX I P 46 502BALDUE I P 51 552INVDIS I 300 300 RECCOD IRECVNC AA ICUSMAS BB I 168 1752AMTOW I P 177 236 AS C N10 TIME TIME 60 C N10 MOVELTIME TIMEHM 40 C N10 7 CHAINCNTRL C N10 MOVELUDATE MN 20 C N10 MOVE UDATE DAYR 40 C N10 MOVELDAYR DA 20 C N10 DA COMP 25 08 C N10 MN COMP 12 09 C N10 08N09MN ADD 1 MN C N10 08 09 Z-ADD1 MN C N10 SETON 1011 C SETOF 05 C OV SETON 11 C 11 EXCPT C 11 SETOF 11OV C AMS,1 SET KG C AMS,2 KEY INVNO 60 C KG SETON LR C KG GOTO END C INVNO CHAINRECEV 01 C N01 RECCOD COMP 'V' 12 C N01 INVAMT COMP BALDUE 1313 C SETON 02 C EXCPT C SETOF 02 C 01 GOTO END C 13 GOTO END C N12 AMS,3 KEY OK 1 C 12 AMS,4 KEY OK C OK COMP 'Y' 05 C N05 GOTO END C CNO CHAINCUSMAS 06 C N06N12 AMTOW SUB INVAMT AMTOW C N06N12 AS,MN SUB INVAMT AS,MN C N06N12 AS,MN ADD INVTAX AS,MN C N06N12 AS,MN ADD INVDIS AS,MN C N06 12 AMTOW ADD INVAMT AMTOW C N06 12 AS,MN ADD INVAMT AS,MN C N06 12 AS,MN SUB INVTAX AS,MN C N06 12 AS,MN SUB INVDIS AS,MN C U1 INVNO CHAINRECVNC 07 C END TAG OPRT E 103 11 O CONAME 29 O 57 'V O I D / R E O P E N ' O 80 'A / R I N V O I C E S' O U2 92 '*** BAD DEBTS ***' O 129 'PAGE' O PAGE 132 O E 01 11 O 3 'RUN' O UDATE Y 12 O TIMEHM 18 '0 : ' O 57 '************************' O 81 '************************' O 94 '*************' O E 01 11 O 33 'INVOICE NO' O 56 'INV DATE' O 81 'INV AMOUNT' O 106 'BALANCE DUE' O E 01 11 O 24 '************************' O *PLACE 48 O *PLACE 72 O *PLACE 96 O *PLACE 120 O 132 '************' ORECEV D 05 O N12 UDATE 155 O N12 157 '02' O N12 300 'V' O 12 300 'N' ORECVNC D 05 U3N07 O N12 UDATE 155 O N12 157 '02' O N12 300 'V' O 12 300 'N' OCUSMAS D 05N06 O AMTOW 175 O AS 236P ODISP E 11 02 01 O 24 'INVALID INVOICE NUMBER' O E 11 02N01 12 O AND 13 O 24 'CANNOT BE REOPENED-BALA' O 48 'NCE DUE DOES NOT EQUAL ' O 62 'INVOICE AMOUNT' O E 11 02N01 12 O AND N13 O 24 'CAN BE REOPENED-WAS PRE' O 38 'VIOUSLY VOIDED' O E 11 02N01N12 O AND 13 O 24 'CANNOT BE VOIDED-HAS PAY' O 29 'MENTS' O E 11 02N01N12 O AND N13 O 24 'CAN BE VOIDED-HAS BALA' O 34 'NCE DUE OF' O BALDUEA 49 '$' O D 11 05 O 12 16 'INVOICE REOPENED' O N12 14 'INVOICE VOIDED' OPRT D 01 05 O INVNO M 30 O INVDATY 58 O INVAMTA 83 '$' O BALDUEA 108 '$' O N12 114 'VOIDED' O 12 116 'REOPENED' ** PRESS COMMAND KEY 7 & ENTER IF THERE ARE NO MORE ENTRIES TO BE MADE, OR ENTER INVOICE NUMBER IS IT OK TO VOID THIS INVOICE ? (Y=YES, N=NO) IS IT OK TO REOPEN THIS INVOICE ? (Y=YES, N=NO) // CEND // COPY LIBRARY-S,NAME-JF0081,RECL-096,REF-000002,DATE-01/03/23,TIME-1226,SUB-RPG H B 1 JF0081 FINP IP F 79 79 KEYBORD FCNTRL IC F 32 32R DISK FSALMEN UC F 32 32R 2AI 1 DISK A FPRT O F 132 132 OV PRINTER E AMS 1 4 79 ICNTRL AA 1 C0 2 C0 3 C7 I 4 32 CONAME ISALMEN AA 99 I 3 31 NAME I 32 32 ACT C 02 GOTO BEGIN C SETON 02 C MOVE ' ' BLNK29 29 C 7 CHAINCNTRL C SETON 03 C BEGIN TAG C OV SETON 03 C 03 EXCPT C 03 SETOF 03OV C SETOF 0105 C AMS,1 SET KG C AMS,2 KEY CODE 2 C KG SETON LR C KG GOTO END C MOVE BLNK29 NAME C MOVE ' ' ACT C CODE CHAINSALMEN 01 C NAME SET KA C AMS,3 KEY KNAME 29 C KNAME COMP BLNK29 04 C 04 MOVE NAME KNAME C KA MOVE BLNK29 KNAME C ACT SET KA C AMS,4 KEY KACT 1 C KACT COMP ' ' 04 C 04 MOVE ACT KACT C KACT COMP 'D' 0404 C 04 MOVE 'A' KACT C SETON 05 C END TAG OPRT E 103 03 O CONAME 29 O UDATE Y 40 O 68 'S A L E S M E N F I L ' O 92 'E M A I N T E N A N C ' O 93 'E' O 108 'PAGE' O PAGE 112 O E 01 03 O 68 '************************' O 92 '************************' O 93 '*' O E 01 03 O 58 'SALEMAN CODE SALESMA' O 64 'N NAME' O 97 'ACTIVITY A/D' O E 02 03 O 58 '************************' O 82 '************************' O 97 '***************' O D 01 05N01 O 30 'PREVIOUS:' O CODE 41 O NAME 81 O ACT 92 O D 02 05 O 25 'NEW:' O CODE 41 O KNAME 81 O KACT 92 OSALMEN DADD 05 01 O CODE 2 O KNAME 31 O KACT 32 O D 05N01 O KNAME 31 O KACT 32 ** PRESS COMMAND KEY 7 & ENTER IF THERE ARE NO MORE ENTRIES TO BE MADE, OR ENTER SALESMAN CODE ENTER SALESMAN NAME (CMD/KEY 1 & ENTER=BLANK, ENTER=DUPLICATE ABOVE) ENTER ACTIVITY (A=ACTIVE, D=DELETED, ENTER=DUPLICATE ABOVE) // CEND // COPY LIBRARY-S,NAME-JF0083,RECL-096,DATE-04/12/20,TIME-1153,SUB-RPG H B 1 JF0083 FXXCUSS IPE F 600 600 2 DISK FCNTRL IC F 32 32R DISK FSALMEN IC F 32 32R 2AI 1 DISK FPRT O F 132 132 OV PRINTER E ASR 12 9 2 E ACR 12 9 2 E AS 12 7 0 E AC 12 7 0 E AN 12 7 0 E AST 12 7 0 E ACT 12 7 0 E ANT 12 7 0 E ASG 12 8 0 E ACG 12 8 0 E ANG 12 8 0 IXXCUSS AA 01 I 1 40CCNO I 5 60JCNO I 8 37 CUS L1 I 97 121 JOB I 299 300 SLMNCDL2 I P 177 236 ASR I P 237 296 ACR ICNTRL AA 1 C0 2 C0 3 C7 I 4 32 CONAME ISALMEN BB 99 I 3 31 SALMAN ILDA UDS I 1 1 CS C 11 GOTO BEGIN C SETON 11 C MOVE ' ' BLNK29 29 C 7 CHAINCNTRL C TIME TIME 60 C MOVELTIME TIMEHM 40 C CS COMP 'S' 13 C BEGIN TAG C Z-ADD0 S 80 C Z-ADD0 C 80 C L2 SETON 12 C L2 Z-ADD0 AST C L2 Z-ADD0 ACT C L2 Z-ADD0 ANT C L2 Z-ADD0 ST 80 C L2 Z-ADD0 CT 80 C L2 Z-ADD0 NT 80 C L2 MOVE BLNK29 SALMAN C L2 SLMNCD CHAINSALMEN 03 C OV SETON 12 C 12 EXCPT C 12 SETOF 12OV C Z-ADDASR AS H C Z-ADDACR AC H C AS ADD AC AN C Z-ADD0 I 20 C AGAINS TAG C I ADD 1 I C AS,I ADD S S C I COMP 12 02 C N02 GOTO AGAINS C Z-ADD0 I C AGAINC TAG C I ADD 1 I C AC,I ADD C C C I COMP 12 02 C N02 GOTO AGAINC C S ADD C N 80 C AS ADD AST AST C AC ADD ACT ACT C AN ADD ANT ANT C S ADD ST ST C C ADD CT CT C N ADD NT NT C AS ADD ASG ASG C AC ADD ACG ACG C AN ADD ANG ANG C S ADD STT STT 90 C C ADD CTT CTT 90 C N ADD NTT NTT 90 CL2 OV SETON 12 CL2 12 EXCPT CL2 12 SETOF 12OV CL2 SETON 04 CL2 EXCPT CL2 SETOF 04 CLR OV SETON 12 CLR 12 EXCPT CLR 12 SETOF 12OV CLR SETON 05 CLR EXCPT OPRT E 003 12 O CONAME 29 O 56 'S A L E S A N A L Y S ' O 80 'I S - GROSS SALES BEFORE' O 104 ' DISCOUNT, TAX, NON TAX ' O 109 'ITEMS' O 128 'PAGE' O PAGE 132 O E 10 12 O 3 'RUN' O UDATE Y 12 O TIMEHM 18 '0 : ' O 56 '************************' O 59 '***' O 86 'LISTED BY SALESMAN, CUST' O 97 'OMER NAME/#' O* E 10 12 O* 86 'INCLUDES DISCOUNT ON PAY' O* 110 'MENTS, BUT NOT ALLOWANCE' O* 125 ' OR BACK CHARGE' O* E 10 12 O* 76 'INCLUDES VOIDS' O E 10 12 O 28 'TOTAL JANUARY FEBR' O 52 'UARY MARCH APRIL ' O 76 ' MAY JUNE ' O 100 ' JULY AUGUST SEPTEM' O 124 'BER OCTOBER NOVEMBER ' O 132 'DECEMBER' O E 11 12 O 24 '************************' O *PLACE 48 O *PLACE 72 O *PLACE 96 O *PLACE 120 O 132 '************' O D 10 01 O L2 9 'SALESMAN-' O L2 SLMNCD 11 O L2 SALMAN 41 O L1 49 'CUST' O L1 CCNO 54 O L1 55 '-' O L1 CUS 85 O 102 'JOB' O JCNO 105 O 106 '-' O JOB 131 O D 10 01 O 2 'S:' O AS,12 K 132 O AS,11 K 122 O AS,10 K 112 O AS,9 K 102 O AS,8 K 92 O AS,7 K 82 O AS,6 K 72 O AS,5 K 62 O AS,4 K 52 O AS,3 K 42 O AS,2 K 32 O AS,1 K 22 O S K 12 O D 10 01 O 2 'C:' O AC,12 K 132 O AC,11 K 122 O AC,10 K 112 O AC,9 K 102 O AC,8 K 92 O AC,7 K 82 O AC,6 K 72 O AC,5 K 62 O AC,4 K 52 O AC,3 K 42 O AC,2 K 32 O AC,1 K 22 O C K 12 O D 11 01 O 2 'N:' O AN,12 K 132 O AN,11 K 122 O AN,10 K 112 O AN,9 K 102 O AN,8 K 92 O AN,7 K 82 O AN,6 K 72 O AN,5 K 62 O AN,4 K 52 O AN,3 K 42 O AN,2 K 32 O AN,1 K 22 O N K 12 O E 10 04 O 7 'TOTALS:' O N03 SALMAN 38 O 03 SLMNCD 9 O E 10 04 O 2 'S:' O AST,12K 132 O AST,11K 122 O AST,10K 112 O AST,9 K 102 O AST,8 K 92 O AST,7 K 82 O AST,6 K 72 O AST,5 K 62 O AST,4 K 52 O AST,3 K 42 O AST,2 K 32 O AST,1 K 22 O ST K 12 O E 10 04 O 2 'C:' O ACT,12K 132 O ACT,11K 122 O ACT,10K 112 O ACT,9 K 102 O ACT,8 K 92 O ACT,7 K 82 O ACT,6 K 72 O ACT,5 K 62 O ACT,4 K 52 O ACT,3 K 42 O ACT,2 K 32 O ACT,1 K 22 O CT K 12 O E 12 04 O 2 'N:' O ANT,12K 132 O ANT,11K 122 O ANT,10K 112 O ANT,9 K 102 O ANT,8 K 92 O ANT,7 K 82 O ANT,6 K 72 O ANT,5 K 62 O ANT,4 K 52 O ANT,3 K 42 O ANT,2 K 32 O ANT,1 K 22 O NT K 12 O E 10 05 O 12 'GRAND TOTALS' O E 10 05 O 1 'S' O ASG,12K 132 O ASG,11K 122 O ASG,10K 112 O ASG,9 K 102 O ASG,8 K 92 O ASG,7 K 82 O ASG,6 K 72 O ASG,5 K 62 O ASG,4 K 52 O ASG,3 K 42 O ASG,2 K 32 O ASG,1 K 22 O STT K 12 O E 10 05 O 1 'C' O ACG,12K 132 O ACG,11K 122 O ACG,10K 112 O ACG,9 K 102 O ACG,8 K 92 O ACG,7 K 82 O ACG,6 K 72 O ACG,5 K 62 O ACG,4 K 52 O ACG,3 K 42 O ACG,2 K 32 O ACG,1 K 22 O CTT K 12 O E 10 01 05 O 1 'N' O ANG,12K 132 O ANG,11K 122 O ANG,10K 112 O ANG,9 K 102 O ANG,8 K 92 O ANG,7 K 82 O ANG,6 K 72 O ANG,5 K 62 O ANG,4 K 52 O ANG,3 K 42 O ANG,2 K 32 O ANG,1 K 22 O NTT K 12 // CEND // COPY LIBRARY-S,NAME-JF0084,RECL-096,REF-000001,DATE-06/11/28,TIME-1114,SUB-RPG H B 1 JF0084 FINP IP F 79 79 KEYBORD FLOAD UC F 100 100R 9AI 1 DISK FCUSMAS IC F 600 600R 6AI 1 DISK FPRCTAB ID F 35 35L14AI 1 DISK FHOUSE IC F 41 41R 9AI 1 DISK FMISCUS UC F 97 97R 7AI 1 DISK A FRELSHT UC F 180 180R 6AI 34 DISK U1 FORDER UC F 200 200R 6AI 1 DISK A FXCHGLD O F 7 7 DISK U1 FDISP O F 79 79 CRT E AMS 1 45 79 E AX 7 1 E AXN 7 1 E AD 4 7 0 E AM 12 12 2 0 ILOAD AA 01 10 CF I 11 160CNO I 17 220HSENO I 23 23 REGOP I 24 32 BLDG I 33 40 LOT I 41 44 BSEQ I 45 500DELDT I 52 52 BO I 54 54 PRTY I 56 57 TRUCK I P 58 590SEQNO I 61 67 AX I P 68 710ORDDT I 72 73 SM I 74 75 RECBY I 76 77 PRCBY I 78 78 SPAD I 79 79 FULPG I 80 850ORDNO I BB 02 10 CI 20 CA I 21 47 DESC1 I 52 61 PONO1 I 62 71 PONO2 I P 72 750MFDAT I P 78 791DIS I CC 03 10 CI 20 CB I 21 47 DESC2 I P 48 512SGL I 52 61 PONO3 I 62 71 PONO4 I 72 72 TPRNT I 73 73 LPRNT I P 77 790NJCON I DD 08 10 CI 20 CH I OR 09 10 CI 20 CI I 21 22 ITEM12 I 23 23 ITEM3 I 21 25 ITEM15 I 25 25 ITEM5 I 26 26 ITEM6 I DD ICUSMAS AA 11 600NCA I BB I 432 432 XPO1 IPRCTAB AA 31 35 CA I 1 60PTBCUS I BB IHOUSE AA I 10 10 STAT I P 38 410HSCNO7 IMISCUS AA 18 97 CA I 8 37 CNAM I 38 67 CADR I 68 91 CCTST I 92 96 CZIP I BB IRELSHT AA 06 180NCA I BB I P 106 121 AD IORDER AA C MOVE ' ' BLNK9 9 C MOVE ' ' BLNK10 10 C MOVE ' ' BLNK24 24 C MOVE ' ' BLNK27 27 C MOVE ' ' BLNK30 30 C MOVE ' ' BLNK56 56 C Z-SUB1 LINEA 30 C Z-ADD0 LINEB 30 C U1 MOVE BLNK56 AMS,24 C MOVE '00I' KEY 9 C AMS,1 SET KG C AMS,2 KEY LOAD 60 C KG SETON LR C KG GOTO END C SETOF 010203 C MOVELLOAD KEY C KEY CHAINLOAD 04 C N04 SETON 07 C N04 EXCPT C N04 SETOF 07 C N04N01 SETON 04 C 04 GOTO END C MOVE LINEA KEY C KEY CHAINLOAD 04 C N04 SETON 07 C N04 EXCPT C N04 SETOF 07 C N04N02 SETON 04 C 04 GOTO END C MOVE LINEB KEY C KEY CHAINLOAD 04 C N04 SETON 07 C N04 EXCPT C N04 SETOF 07 C N04N03 SETON 04 C 04 GOTO END C AGNCNO TAG C CNO SET KA C AMS,3 KEY CNON 60 99 C 99 MOVE CNO CNON C KA Z-ADD0 CNON C SETOF 98 C CNON CHAINCUSMAS 11 C 11 SETON 96 C 11 EXCPT C 11 SETOF 96 C 11 GOTO AGNCNO C N11 XPO1 COMP 'X' 98 C MOVELCNON KYPRTB 14 C KYPRTB SETLLPRCTAB C AGNPTB TAG C SETOF 3132 C READ PRCTAB 32 C N32N31 GOTO AGNPTB C 31 CNON COMP PTBCUS 31 C 32 CORN32N31 SETON 33 C 32 CORN32N31 EXCPT C 32 CORN32N31 SETOF 33 C MOVEL'L' MSCSKY 7 C MOVE LOAD MSCSKY C MOVE BLNK30 CNAM C MOVE BLNK30 CADR C MOVE BLNK30 CCTST C MOVE ' ' CZIP C MOVELCNO CNO3 C CNO3 COMP 630 16 C 16 SETOF 18 C 16 MSCSKY CHAINMISCUS 17 C 16N17 SETON 19 C 16N17 EXCPT C 16N17 SETOF 19 C MOVELCNON CNO3 30 C CNO3 COMP 630 16 C N16 GOTO ENMSCS C CNAM SET KA C AMS,40 KEY CNAMN 30 C CNAMN COMP BLNK30 99 C 99 MOVE CNAM CNAMN C KA MOVE BLNK30 CNAMN C CADR SET KA C AMS,41 KEY CADRN 30 C CADRN COMP BLNK30 99 C 99 MOVE CADR CADRN C KA MOVE BLNK30 CADRN C CCTST SET KA C AMS,42 KEY CCTSTN 24 C CCTSTN COMP BLNK24 99 C 99 MOVE CCTST CCTSTN C KA MOVE BLNK24 CCTSTN C CZIP SET KA C AMS,43 KEY CZIPN 5 C CZIPN COMP ' ' 99 C 99 MOVE CZIP CZIPN C KA MOVE ' ' CZIPN C MSCSKY CHAINMISCUS 17 C SETON 20 C EXCPT C SETOF 20 C ENMSCS TAG C AGNPO1 TAG C PONO1 SET KA C AMS,4 KEY PONO1N 10 C PONO1N COMP BLNK10 99 C 99 MOVE PONO1 PONO1N C KA MOVE BLNK10 PONO1N C 98 PONO1N COMP BLNK10 99 C 98 99 SETON 97 C 98 99 EXCPT C 98 99 SETOF 97 C 98 99 GOTO AGNPO1 C PONO2 SET KA C AMS,5 KEY PONO2N 10 C PONO2N COMP BLNK10 99 C 99 MOVE PONO2 PONO2N C KA MOVE BLNK10 PONO2N C PONO3 SET KA C AMS,6 KEY PONO3N 10 C PONO3N COMP BLNK10 99 C 99 MOVE PONO3 PONO3N C KA MOVE BLNK10 PONO3N C PONO4 SET KA C AMS,7 KEY PONO4N 10 C PONO4N COMP BLNK10 99 C 99 MOVE PONO4 PONO4N C KA MOVE BLNK10 PONO4N C NJCON SET KA C AMS,8 KEY NJCONN 50 99 C 99 Z-ADDNJCON NJCONN C KA Z-ADD0 NJCONN C ENTHSE TAG C HSENO SET KA C AMS,9 KEY HSENON 60 99 C 99 Z-ADDHSENO HSENON C KA Z-ADD0 HSENON C HSENON COMP 0 99 C 99 GOTO ENTDES C MOVELHSENON HSELN 9 C MOVE LINEA HSELN C HSELN CHAINHOUSE 99 C N99 STAT COMP 'D' 99 C 99 SETON 21 C 99 EXCPT C 99 SETOF 21 C 99 GOTO ENTHSE C Z-ADDHSCNO7 HSCNO 60 C MOVELHSCNO HSCNO4 40 C MOVE HSCNO HSCNO2 20 C HSCNO2 COMP 0 99 C 99 MOVELCNON CNO4 40 C 99 HSCNO4 COMP CNO4 1515 C N99 HSCNO COMP CNON 1515 C 15 SETON 22 C 15 EXCPT C 15 SETOF 22 C 15 AMS,44 KEY HX 1 C 15 HX COMP 'H' 99 C 15 99 GOTO ENTHSE C ENTDES TAG C DESC1 SET KA C AMS,10 KEY DESC1N 27 C DESC1N COMP BLNK27 99 C 99 MOVE DESC1 DESC1N C KA MOVE BLNK27 DESC1N C DESC2 SET KA C AMS,11 KEY DESC2N 27 C DESC2N COMP BLNK27 99 C 99 MOVE DESC2 DESC2N C KA MOVE BLNK27 DESC2N C SGL SET KA C AMS,12 KEY SGLN 72 99 C 99 Z-ADDSGL SGLN C KA Z-ADD0 SGLN C AX,1 SET KA C AMS,13 KEY AXN,1 C AXN,1 COMP ' ' 99 C 99 MOVE AX,1 AXN,1 C KA MOVE ' ' AXN,1 C AX,2 SET KA C AMS,14 KEY AXN,2 C AXN,2 COMP ' ' 99 C 99 MOVE AX,2 AXN,2 C KA MOVE ' ' AXN,2 C AX,3 SET KA C AMS,15 KEY AXN,3 C AXN,3 COMP ' ' 99 C 99 MOVE AX,3 AXN,3 C KA MOVE ' ' AXN,3 C AX,4 SET KA C AMS,16 KEY AXN,4 C AXN,4 COMP ' ' 99 C 99 MOVE AX,4 AXN,4 C KA MOVE ' ' AXN,4 C AX,5 SET KA C AMS,17 KEY AXN,5 C AXN,5 COMP ' ' 99 C 99 MOVE AX,5 AXN,5 C KA MOVE ' ' AXN,5 C AX,6 SET KA C AMS,18 KEY AXN,6 C AXN,6 COMP ' ' 99 C 99 MOVE AX,6 AXN,6 C KA MOVE ' ' AXN,6 C REGOP COMP '0' 99 C MOVE 'R' REGOP C 99 MOVE 'O' REGOP C REGOP SET KA C AMS,19 KEY REGOPN 1 C REGOPN COMP ' ' 99 C 99 MOVE REGOP REGOPN C KA MOVE ' ' REGOPN C REGOPN COMP 'O' 99 C MOVE '1' REGOPN C 99 MOVE '0' REGOPN C BLDG SET KA C AMS,20 KEY BLDGN 9 C BLDGN COMP BLNK9 99 C 99 MOVE BLDG BLDGN C KA MOVE BLNK9 BLDGN C LOT SET KA C AMS,21 KEY LOTN 8 C LOTN COMP ' ' 99 C 99 MOVE LOT LOTN C KA MOVE ' 'LOTN C BSEQ SET KA C AMS,22 KEY BSEQN 4 C BSEQN COMP ' ' 99 C 99 MOVE BSEQ BSEQN C KA MOVE ' ' BSEQN C AGNORD TAG C ORDNO SET KA C AMS,23 KEY ORDNON 60 99 C 99 Z-ADDORDNO ORDNON C KA Z-ADD0 ORDNON C ORDNO COMP ORDNON 2323 C 23 ORDNO CHAINORDER 99 C 23N99 SETON 24 C 23N99 EXCPT C 23N99 SETOF 24 C 23N99 AMS,45 KEY YESNO 1 C 23N99 YESNO COMP 'Y' 15 C 23N99N15 GOTO AGNORD C ORDDT SET KA C AMS,24 KEY ORDDTN 60 99 C 99 Z-ADDORDDT ORDDTN C KA Z-ADD0 ORDDTN C AGDLDT TAG C DELDT SET KA C AMS,25 KEY DELDTN 60 99 C 99 Z-ADDDELDT DELDTN C KA Z-ADD0 DELDTN C SETOF 99 C DELDT COMP 122950 15 C N15 DELDT COMP 123050 15 C N15 DELDT COMP 123150 15 C N15 MOVELDELDTN DMD 40 C N15 MOVE DELDTN DY 20 C N15 EXSR CHKDAT C 99 GOTO AGDLDT C U1 DELDT COMP DELDTN 9999 C U1 99 Z-ADDDELDTN MFDAT C AGMFDT TAG C U1 MFDAT SET KA C U1 AMS,26 KEY MFDATN 60 99 C U1 99 Z-ADDMFDAT MFDATN C U1 KA Z-ADD0 MFDATN C U1 SETOF 99 C U1 DELDT COMP 122950 15 C U1N15 DELDT COMP 123050 15 C U1N15 DELDT COMP 123150 15 C U1N15 MOVELMFDATN DMD C U1N15 MOVE MFDATN DY C U1N15 EXSR CHKDAT C U1 99 GOTO AGMFDT C SM SET KA C AMS,27 KEY SMN 2 C SMN COMP ' ' 99 C 99 MOVE SM SMN C KA MOVE ' ' SMN C RECBY SET KA C AMS,28 KEY RECBYN 2 C RECBYN COMP ' ' 99 C 99 MOVE RECBY RECBYN C KA MOVE ' ' RECBYN C PRCBY SET KA C AMS,29 KEY PRCBYN 2 C PRCBYN COMP ' ' 99 C 99 MOVE PRCBY PRCBYN C KA MOVE ' ' PRCBYN C SPAD SET KA C AMS,30 KEY SPADN 1 C SPADN COMP ' ' 99 C 99 MOVE SPAD SPADN C KA MOVE ' ' SPADN C PRTY SET KA C AMS,31 KEY PRTYN 1 C PRTYN COMP ' ' 99 C 99 MOVE PRTY PRTYN C KA MOVE ' ' PRTYN C AX,7 SET KA C AMS,32 KEY AXN,7 C AXN,7 COMP ' ' 99 C 99 MOVE AX,7 AXN,7 C KA MOVE ' ' AXN,7 C DIS SET KA C AMS,33 KEY DISN 31 99 C 99 Z-ADDDIS DISN C KA Z-ADD0 DISN C NU1 GOTO UPDTLD C BO SET KA C AMS,34 KEY BON 1 C BON COMP ' ' 99 C 99 MOVE BO BON C KA MOVE ' ' BON C TRUCK SET KA C AMS,35 KEY TRUCKN 2 C TRUCKN COMP ' ' 99 C 99 MOVE TRUCK TRUCKN C KA MOVE ' ' TRUCKN C SEQNO SET KA C AMS,36 KEY SEQNON 30 99 C 99 Z-ADDSEQNO SEQNON C KA Z-ADD0 SEQNON C FULPG SET KA C AMS,37 KEY FULPGN 1 C FULPGN COMP ' ' 99 C 99 MOVE FULPG FULPGN C KA MOVE ' ' FULPGN C TPRNT SET KA C AMS,38 KEY TPRNTN 1 C TPRNTN COMP ' ' 99 C 99 MOVE TPRNT TPRNTN C KA MOVE ' ' TPRNTN C LPRNT SET KA C AMS,39 KEY LPRNTN 1 C LPRNTN COMP ' ' 99 C 99 MOVE LPRNT LPRNTN C KA MOVE ' ' LPRNTN C UPDTLD TAG C MOVE '00I' KEY C KEY CHAINLOAD C SETON 12 C EXCPT C SETOF 12 C MOVE LINEA KEY C KEY CHAINLOAD C SETON 13 C EXCPT C SETOF 13 C MOVE LINEB KEY C KEY CHAINLOAD C SETON 14 C EXCPT C SETOF 14 C REGOP COMP '1' 15 C 15 REGOPN COMP '0' 15 C REGOP COMP '0' 99 C 99 REGOPN COMP '1' 99 C N15N99 GOTO STOPPR C Z-ADD0 LINE 30 C AGNLNE TAG C LINE ADD 1 LINE C MOVE LINE KEY C SETOF 080915 C KEY CHAINLOAD 15 C 15 GOTO STOPPR C N08N09 GOTO AGNLNE C 08 MOVE ITEM6 ITEM6N 1 C 08 ITEM15 COMP '10000' 15 C 08 15 ITEM6 COMP '0' 99 C 08 15 99 MOVE '1' ITEM6N C 08 15 ITEM6 COMP '1' 99 C 08 15 99 MOVE '0' ITEM6N C 09 MOVE ITEM5 ITEM5N 1 C 09 ITEM12 COMP '80' 15 C 09 15 ITEM3 COMP '0' 1515 C 09 15 ITEM5 COMP '6' 99 C 09 15 99 MOVE '7' ITEM5N C 09 15 ITEM5 COMP '7' 99 C 09 15 99 MOVE '6' ITEM5N C SETON 10 C EXCPT C SETOF 10 C GOTO AGNLNE C STOPPR TAG C NU1 GOTO END C LOAD CHAINRELSHT 06 C 06 GOTO END C MOVE HSENON HSE66 10 C MOVE HSENON HSE56 20 C MOVELHSE56 HSE55 10 C MOVELHSENON HSE14 40 C MOVE ' ' MORDAT 1 C DELDT COMP DELDTN 15 C 15 GOTO UPDREL C AD,2 COMP 0 15 C 15 Z-ADDDELDTN AD,2 C 15 GOTO UPDREL C AD,3 COMP 0 15 C 15 Z-ADDDELDTN AD,3 C 15 GOTO UPDREL C AD,4 COMP 0 15 C 15 Z-ADDDELDTN AD,4 C 15 GOTO UPDREL C Z-ADDDELDTN AD,4 C MOVE 'X' MORDAT C UPDREL TAG C SETON 05 C EXCPT C SETOF 05 C END TAG CSR CHKDAT BEGSR CSR MOVELDMD DM 20 CSR DM COMP 1 99 CSRN99 DM COMP 12 99 CSR 99 GOTO ENDSR CSR MOVE DMD DD 20 CSR Z-ADDDY YR 40 CSR YR COMP 50 99 CSR 99 MOVEL'19' YR CSRN99 MOVEL'20' YR CSR YR SUB 1 PREVYR 40 CSR PREVYR DIV 4 LEAPYR 52 CSR MOVELLEAPYR LEAPS 30 CSR YR DIV 4 LEAPYR CSR MOVE LEAPYR DUM2 20 CSR DUM2 COMP 0 99 CSRN99 Z-ADD28 AM,2 CSR 99 Z-ADD29 AM,2 CSR DD COMP 1 99 CSRN99 DD COMP AM,DM 99 CSR 99 GOTO ENDSR CSR PREVYR MULT 365 DAYS 60 CSR DAYS ADD LEAPS DAYS CSR Z-ADD0 M 20 CSR AGNMN TAG CSR M ADD 1 M CSR M COMP DM 99 CSR 99 DAYS ADD AM,M DAYS CSR 99 GOTO AGNMN CSR DAYS ADD DD DAYS CSR DAYS DIV 7 WKS 60 CSR WKS MULT 7 WKDAYS 60 CSR DAYS SUB WKDAYS DYWK 10 99 CSR 99 Z-ADD7 DYWK CSR DYWK COMP 1 99 CSRN99 DYWK COMP 7 99 CSR ENDSR ENDSR ODISP H 22 1P O 24 'C H A N G E H E A D I ' O 48 'N G S I N L O A D S ' O U1 67 '- ALREADY PROCESSED' O U2 67 '- NOT YET PROCESSED' O H 01 1P O 24 'FOR ALL INPUT FIELDS THE' O 48 ' EXISTING VALUE WILL BE ' O 72 'DISPLAYED ABOVE THE PROM' O 75 'PT.' O H 01 1P O 13 'YOU MAY THEN:' O H 01 1P O 26 '1 - ENTER A NEW VALUE' O H 01 1P O 29 '2 - PRESS ENTER TO LEAVE' O 49 ' THE VALUE UNCHANGED' O H 02 1P O 29 '3 - PRESS COMMAND KEY 1 ' O 51 'TO BLANK OUT THE FIELD' O H 01 1P O 24 'NOTE THAT IF YOU CHANGE ' O 48 'THE HOUSE# THE ITEMS ON ' O 72 'THE LOAD REMAIN THE SAME' O 73 ';' O H 01 1P O 24 'THEY ARE NOT CHANGED TO ' O 48 'THOSE FOR THE NEW HOUSE#' O H 01 1P O 24 'IF YOU WANT THE ITEMS CH' O 48 'ANGED TO THE NEW HOUSE# ' O 72 'YOU MUST DELETE THE LOAD' O H 02 1P O 24 'AND REENTER A NEW LOAD (' O 48 'YOU MAY USE THE SAME LOA' O 51 'D#)' O H 02 1P U1 O 24 'NOTE THAT ANY CHANGES WI' O 48 'LL BE MADE TO BOTH THE L' O 72 'OAD AND RELEASE SHEET FI' O 75 'LES' O D 11 04 O 16 'NOT IN LOAD FILE' O E 11 96 O 20 'NOT IN CUSTOMER FILE' O E 11 33 O 24 '************************' O 39 '***************' O E 01 33 O 24 'WARNING - NO PRICING TAB' O 39 'LE FOR CUSTOMER' O E 01 33 O 24 '************************' O 39 '***************' O E 11 97 O 24 'PO# MUST BE ENTERED FOR ' O 37 'THIS CUSTOMER' O E 11 21 O 17 'NOT IN HOUSE FILE' O E 11 22 O 24 'HOUSE NOT ASSIGNED TO TH' O 35 'IS CUSTOMER' O E 11 24 O 24 'ORDER# HAS BEEN U' O 38 'SED PREVIOUSLY' O ORDNO M 14 OMISCUS E 19 O 97 'D' O EADD 20 17 O MSCSKY 7 O CNAMN 37 O CADRN 67 O CCTSTN 91 O CZIPN 96 O 97 'A' O E 20N17 O CNAMN 37 O CADRN 67 O CCTSTN 91 O CZIPN 96 O 97 'A' OLOAD E 07 O E 12 O CNON 16 O HSENON 22 O REGOPN 23 O BLDGN 32 O LOTN 40 O BSEQN 44 O DELDTN 50 O BON 52 O PRTYN 54 O TRUCKN 57 O SEQNON 59P O AXN 67 O ORDDTN 71P O SMN 73 O RECBYN 75 O PRCBYN 77 O SPADN 78 O FULPGN 79 O ORDNON 85 O E 13 O DESC1N 47 O CNON 51P O PONO1N 61 O PONO2N 71 O DELDTN 75P O U1 MFDATN 75P O DISN 79P O E 14 O DESC2N 47 O SGLN 51P O PONO3N 61 O PONO4N 71 O TPRNTN 72 O LPRNTN 73 O NJCONN 79P O E 10 O 09 ITEM5N 25 O 08 ITEM6N 26 ORELSHT E U1 05 O CNON 6 O BLDGN 15 O LOTN 23 O BSEQN 27 O HSE66 28 O HSE55 29 O HSE14 33 O DESC1N 66 O DESC2N 93 O REGOPN 94 O SMN 96 O RECBYN 98 O PRCBYN 100 O PRTYN 101 O ORDDTN 105P O AD 121P O MORDAT 126 O PONO1 138 O PONO2 148 O PONO3 158 O PONO4 168 O NJCONN 171P OORDER EADD U1 05 23 O ORDNON 6 OXCHGLD E U1 12 O LOAD 6 ** PRESS COMMAND KEY 7 & ENTER IF THERE ARE NO MORE ENTRIES TO BE MADE, OR ENTER LOAD NUMBER ENTER CUSTOMER NUMBER ENTER FIRST PURCHASE ORDER NUMBER ENTER SECOND PURCHASE ORDER NUMBER ENTER THIRD PURCHASE ORDER NUMBER ENTER FOURTH PURCHASE ORDER NUMBER ENTER NJ 3% TAX CONTRACT NUMBER ENTER HOUSE NUMBER - NOTE THAT ONLY ITEMS FROM NEW HOUSE WILL BE ON LOAD ENTER FIRST LINE OF DESCRIPTION ENTER SECOND LINE OF DESCRIPTION ENTER SINGLE LINE PRICE ENTER X IF INTERIOR ENTER X IF INTERIOR OPTION ENTER X IF EXTERIOR ENTER X IF EXTERIOR OPTION ENTER X IF STAIRS ENTER X IF MISCELLANEOUS ENTER R=REGULAR, O=OPPOSITE ENTER BUILDING/BLOCK ENTER LOT ENTER SEQUENCE/UNIT ENTER ORDER NUMBER ENTER ORDER DATE-MDY ENTER DELIVERY DATE-MDY (IF CHANGED, THE MANUFACTURE DATE WILL ALSO CHANGE) ENTER MANUFACTURE DATE (IF CHANGED, WILL NOT CHANGE DELIVERY DATE) ENTER SALESMAN ENTER RECEIVED BY ENTER PROCESSED BY ENTER X IF SPECIAL ADDRESS, BLANK IF NOT ENTER X IF PRIORITY LOAD, BLANK IF NOT ENTER X IF OFF & CREDIT, BLANK IF NOT ENTER % DISCOUNT-1/10% ENTER B IF BACK ORDERS PRESENT, R IF RBO'S, BLANK IF NEITHER ENTER TRUCK NUMBER ENTER SEQUENCE # IN WHICH TO BE LOADED ONTO TRUCK ENTER X IF FULL PAGE BACK ORDER, BLANK IF NOT ENTER X IF LOAD TICKET HAS BEEN PRINTED, BLANK IF NOT ENTER X IF LOAD LABEL HAS BEEN PRINTED, BLANK IF NOT ENTER MISCELLANEOUS CUSTOMER NAME ENTER MISCELLANEOUS CUSTOMER ADDRESS ENTER MISCELLANEOUS CUSTOMER CITY AND STATE ENTER MISCELLANEOUS CUSTOMER ZIP CODE ENTER: H TO ENTER NEW HOUSE#, A TO ACCEPT HOUSE# DO YOU WISH TO RE-USE SAME ORDER# (Y=YES, N=NO) ? ** 312931303130313130313031 // CEND // COPY LIBRARY-S,NAME-JF0085,RECL-096,REF-000002,DATE-01/03/23,TIME-1226,SUB-RPG H B 1 JF0085 FXADHS IPE F 64 64 12AI 1 DISK FHOUSE UC F 41 41R 9AI 1 DISK A FHSECHG UC F 80 80R10AI 1 DISK A U8 IXADHS AA 01 I 1 60HOUSE L1 I* 7 90ADLNE I 10 120ADSLNE I 13 44 RECORD I 45 64 REAS IHOUSE BB IHSECHG AA C L1 Z-ADD0 KEY 90 C L1 MOVELHOUSE KEY C KEY ADD 1 KEY C KEY CHAINHOUSE 02 C NU8 GOTO END C ADSLNE COMP 0 04 C N04 GOTO END C MOVE KEY NLINE 30 C MOVELHOUSE ADHSKY 10 C Z-ADD0 SQNO4 40 C AGN1 TAG C SQNO4 ADD 1 SQNO4 C MOVE SQNO4 ADHSKY C ADHSKY CHAINHSECHG 05 C N05 GOTO AGN1 C END TAG CL1 L1BEG TAG CL1N02 KEY ADD 1 KEY CL1N02 KEY CHAINHOUSE 03 CL1N02N03 EXCPT CL1N02N03 GOTO L1BEG OHOUSE D 01N02 O RECORD 41 O DADD 01 02 O KEY 9 O RECORD 41 O E L1 O 10 'X' OHSECHG DADD 01 04 U8 O ADHSKY 10 O UDATE 16 O NLINE 19 O RECORD 51 O 52 'A' O REAS 72 O 80 'A' // CEND // COPY LIBRARY-S,NAME-JF0091,RECL-096,DATE-06/03/27,TIME-1006,SUB-RPG H B 1 JF0091 FXADLOD IPE F 103 103 12AI 1 DISK FXLOADO UC F 100 100R 9AI 1 DISK A IXADLOD AA 01 I 1 60LOAD L1 I 13 103 RECORD IXLOADO BB 99 C L1 Z-ADD0 KEY 90 C L1 MOVELLOAD KEY C KEY ADD 1 KEY C MOVE KEY LINE 30 C KEY CHAINXLOADO 02 CL1 L1BEG TAG CL1N02 KEY ADD 1 KEY CL1N02 KEY CHAINXLOADO 03 CL1N02N03 EXCPT CL1N02N03 GOTO L1BEG OXLOADO D 01N02 O RECORD 100 O LINE 19 O DADD 01 02 O KEY 9 O RECORD 100 O LINE 19 O E L1 O 10 'D' // CEND // COPY LIBRARY-S,NAME-JF0092,RECL-096,DATE-01/03/23,TIME-1226,SUB-RPG H B 1 JF0092 FINP IP F 79 79 KEYBORD FCNTRL IC F 32 32R DISK FPRT O F 132 132 OV PRINTER E AMS 1 9 79 ICNTRL AA 1 C0 2 C0 3 C7 I 4 32 CONAME C N13 7 CHAINCNTRL C N13 SETON 1113 C SETOF 07 C AMS,1 SET KAKG C AMS,2 KEY PCBUND 30 01 C KG SETON LR C KG GOTO END C KA SETON 1112 C OV SETON 11 C EXCPT C SETOF 1112OV C KA GOTO END C 01 Z-ADD1 PCBUND C AMS,3 KEY THCKK 5 C THCKK COMP ' ' 02 C N02 MOVELTHCKK THCKIN 10 C N02 MOVE THCKK DUM3 3 C N02 DUM3 COMP ' ' 01 C N02 01 Z-ADD0 THCKFR 32 C N02N01 MOVELDUM3 NUMER 10 C N02N01 MOVE DUM3 DENOM 10 C N02N01 NUMER DIV DENOM THCKFR H C N02 THCKIN ADD THCKFR THCK 32 C 02 Z-ADD1 THCK C 02 Z-ADD1 WDTH C 02 GOTO ENWDTH C AMS,4 KEY WDTH 20 C ENWDTH TAG C AMS,5 KEY LEN 40 03 C 03 Z-ADD1 LEN C AMS,6 KEY QUAN 50 C 02 AMS,7 KEY UNCST 84 C N02 AMS,8 KEY UNCST C PCBUND MULT THCK INCST 124H C WDTH MULT INCST INCST H C LEN MULT INCST INCST H C QUAN MULT INCST INCST H C UNCST MULT INCST INCST H C N02 INCST DIV 12 INCST H C Z-ADDINCST TCST 82H C AMS,9 KEY YN 1 C YN COMP 'N' 07 C N07 TTCST ADD TCST TTCST 102 C N07 TTTCST ADD TCST TTTCST 102 C N07 SETON 06 C N07 EXCPT C N07 SETOF 06 C END TAG OPRT E 11 12 O 98 'GROUP TOTAL' O TTCST AB 115 '$' O E 103 11 O CONAME 29 O UDATE Y 44 O 72 'P H Y S I C A L I N V ' O 83 'E N T O R Y' O 91 'PAGE' O PAGE 95 O E 01 11 O 72 '************************' O 83 '***********' O E 01 11 O 39 'PCS/BUNDLE THICKNESS-I' O 63 'N WIDTH-IN LENGTH-F' O 87 'T QUANTITY UN' O 111 'IT COST TOTAL CO' O 113 'ST' O E 02 11 O 24 '************************' O *PLACE 48 O *PLACE 72 O *PLACE 96 O *PLACE 120 O 132 '************' O E 02 06 O PCBUNDZ 21 O N02 THCKK 37 O N02 WDTH Z 49 O N03 LEN K 62 O QUAN J 78 O UNCST A 97 '$' O TCST A 115 '$' O T 11 LR O 98 'GRAND TOTAL' O TTTCSTAB 115 '$' ** PRESS COMMAND KEY 1 FOR NEW PAGE, COMMAND KEY 7 IF NO MORE ENTRIES, OR ENTER PIECES PER BUNDLE (IF BLANK PIECES = 1) ENTER THICKNESS IN INCHES (IN FORMAT X X/X) ENTER WIDTH IN WHOLE INCHES ENTER LENGTH IN WHOLE INCHES (IF BLANK LENGTH = 1) ENTER QUANTITY ENTER UNIT COST ENTER UNIT COST IN BOARD FEET ENTER WHETHER OR NOT OK (N=NO, ENTER=YES) // CEND // COPY LIBRARY-S,NAME-JF0094,RECL-096,DATE-04/12/07,TIME-1200,SUB-RPG H B 1 JF0094 FCHKFLE UPE F 60 60 DISK FCNTRL IC F 32 32R DISK FINP ID F 79 79 KEYBORD FPRT O F 132 132 OF PRINTER FDISP O F 79 79 CRT E AMS 1 3 79 E AC 300 6 0 ICHKFLE AA 01 I 33 380CHKNO ICNTRL AA 1 C0 2 C0 3 C7 I 4 32 CONAME C 02 GOTO BEGIN C SETON 02 C 7 CHAINCNTRL C SETON 06 C EXCPT C SETOF 06 C AGN TAG C AMS,1 SET KG C AMS,2 KEY CKNUM 60 C KG GOTO BEGIN C AMS,3 KEY YN 1 C YN COMP 'N' 03 C 03 GOTO AGN C I ADD 1 I 30 C Z-ADDCKNUM AC,I C SETON 98 C EXCPT C SETOF 98 C I COMP 300 03 C N03 GOTO AGN C BEGIN TAG C CHKNO LOKUPAC 05 OPRT E 103 06 O CONAME 29 O UDATE Y 42 O 71 'E N T E R V O I D E D ' O 84 ' C H E C K S' O E 02 06 O 71 '***********************' O 84 '*************' O E 01 06 O 60 'PLEASE NOTE THAT YOU MUS' O 84 'T ALSO ENTER THE RESPECT' O 103 'IVE JOURNAL ENTRIES' O E 01 06 O 60 'TO REMOVE THESE FROM THE' O 76 ' GENERAL LEDGER.' O E 1 98 O AC,I 61 ODISP H 12 1P O 24 'E N T E R V O I D E D ' O 35 'C H E C K S' O H 01 1P O 24 'PLEASE NOTE THAT YOU MUS' O 48 'T ALSO ENTER THE RESPECT' O 67 'IVE JOURNAL ENTRIES' O H 01 1P O 24 'TO REMOVE THESE FROM THE' O 40 ' GENERAL LEDGER.' OCHKFLE D 01 05 O 60 'V' ** PRESS COMMAND KEY 7 & ENTER IF THERE ARE NO MORE ENTRIES TO BE MADE, OR ENTER CHECK NUMBER ENTER WHETHER OR NOT OK (Y=YES,N=NO) // CEND // COPY LIBRARY-S,NAME-JF0096,RECL-096,DATE-01/12/18,TIME-1304,SUB-RPG H B 1 JF0096 FXPROD IPE F 400 400 2 DISK FCNTRL IC F 32 32R DISK FPRT O F 132 132 OV PRINTER IXPROD AA 01 I 1 7 ITEMNO I 134 160 DESC L1 ICNTRL AA 1 C0 2 C0 3 C7 I 4 32 CONAME C 04 GOTO BEGIN C SETON 04 C 7 CHAINCNTRL C SETON 05 C BEGIN TAG C OV SETON 05 C 05 EXCPT C 05 SETOF 05OV C SETOF 03 C SETON 02 C NL1 SETON 03 CL1 SETOF 02 OPRT E 004 05 O CONAME 29 O 52 'D U P L I C A T E D E ' O 76 'S C R I P T I O N S I ' O 100 'N P R O D U C T L I ' O 103 'S T' O UDATE Y 115 O PAGE 130 O 127 'PAGE' O E 10 05 O 52 '************************' O 76 '************************' O 100 '************************' O 103 '***' O E 10 05 O 68 'DESCRIPTION - FIRST LINE' O 97 'DUPLICATE PRODUCT NOS' O E 10 05 O 39 '************************' O 63 '************************' O 87 '************************' O 111 '************************' O 116 '*****' O D 10 01 03 O ITEMNO 90 O T 20 01 02N03 O DESC 70 O ITEMNO 90 // CEND // COPY LIBRARY-S,NAME-JF0097,RECL-096,DATE-06/03/27,TIME-1006,SUB-RPG H B 1 JF0097 FHOUSE UP F 41 41 9AI 1 DISK FLOAD US F 100 100 9AI 1 DISK U8 FCNTRL IC F 32 32R DISK FINP ID F 79 79 KEYBORD FHSECHG UC F 80 80R10AI 1 DISK A U8 FCHGHS O F 7 7 2 DISK A U8 FXHSSL O F 6 6 2 DISK FXCHGLD O F 7 7 2 DISK U8 FPRT O F 132 132 OV PRINTER E AMS 1 8 79 E AO 50 7 E AN 50 7 E AH 50 6 0 IHOUSE AA 01 10 CA I 1 60HSENO I P 38 410CUSNO7 I AA 02 10 CI I OR 10 CH I 7 41 HSREC I 11 17 ITEMNO I AA ICNTRL AA 1 C0 2 C0 3 C7 I 4 32 CONAME ILOAD AA 31 10 CF I 1 60LOADNO I 11 160CUSNO I 17 220HSENO I AA 32 10 CI 20 CI I OR 10 CI 20 CH I 21 27 ITEMNO I AA IHSECHG AA C 03 GOTO BEGIN C SETON 03 C 7 CHAINCNTRL C AGN1 TAG C I ADD 1 I 30 C AMS,1 SET KG C AMS,2 KEY AA 7 C KG GOTO AGN2 C MOVE AA AO,I C AMS,3 KEY AA C MOVE AA AN,I C I COMP 50 07 C N07 GOTO AGN1 C AGN2 TAG C AMS,4 KEY AHC 1 C AHC COMP 'A' 21 C AHC COMP 'H' 22 C AHC COMP 'C' 23 C N21N22N23 GOTO AGN2 C 21 GOTO AGN4 C AGN3 TAG C H ADD 1 H 30 C 22 AMS,1 SET KG C 22 AMS,5 KEY AH,H C 23 AMS,1 SET KG C 23 AMS,6 KEY AH,H C NKG H COMP 50 07 C N07NKG GOTO AGN3 C AGN4 TAG C U8 AMS,7 KEY LOADYN 1 C NU8 MOVE 'N' LOADYN C LOADYN COMP 'Y' 24 C LOADYN COMP 'N' 25 C N24N25 GOTO AGN4 C U8 AMS,8 KEY REAS 20 C SETON 04 C BEGIN TAG C OV SETON 04 C 04 EXCPT C 04 SETOF 04OV C SETOF 09 C N01N02 GOTO CHKLD C 01 SETON 30 C 01 Z-ADDCUSNO7 CUSNO 60 C 01 GOTO END C Z-ADD1 I C ITEMNO LOKUPAO,I 09 C 09 22 HSENO LOKUPAH 09 C 09 23 CUSNO LOKUPAH 09 C 09 U8 MOVELHSENO AHSKYF 10 C 09 U8 MOVELHSENO AHSKYT 10 C 09 U8 Z-ADD0 SQNO4 40 C AGNAHS TAG C 09 U8 SQNO4 ADD 1 SQNO4 C 09 U8 MOVE SQNO4 AHSKYF C 09 U8 AHSKYF CHAINHSECHG 99 C 09 U8N99 GOTO AGNAHS C 09 U8 SQNO4 ADD 1 SQNO4 C 09 U8 MOVE SQNO4 AHSKYT C 09 SETON 05 C 09 EXCPT C 09 SETOF 0530 C GOTO END C CHKLD TAG C N31N32 GOTO END C N24 SETON LR C N24 GOTO END C 31 SETON 30 C 31 GOTO END C Z-ADD1 I C ITEMNO LOKUPAO,I 09 C 09 22 HSENO LOKUPAH 09 C 09 23 CUSNO LOKUPAH 09 C 09 SETON 05 C 09 EXCPT C 09 SETOF 0530 C END TAG OPRT E 103 04 O CONAME 29 O E 01 04 O UDATE Y 25 O 54 'C H A N G E P R O D U ' O 78 'C T N U M B E R S I ' O 102 'N H O U S E S / L O A ' O 105 'D S' O 120 'PAGE' O PAGE 124 O E 01 04 O 54 '************************' O 78 '************************' O 102 '************************' O 105 '***' O E 01 04 O 62 'OLD NUMBER' O 82 'NEW NUMBER' O E 02 04 O 41 '************************' O 65 '************************' O 89 '************************' O 113 '************************' O 124 '***********' O E 01 05 O AO,I 60 O AN,I 80 O 02 102 'HOUSE#' O 02 HSENO 109 O 32 102 'LOAD#' O 32 LOADNO 109 OHOUSE E 05 02 O AN,I 17 OLOAD E 05 32 O AN,I 27 OHSECHG EADD 05 02 U8 O AHSKYF 10 O UDATE 16 O HSREC 51 O 52 'F' O REAS 72 O 80 'A' O EADD 05 02 U8 O AHSKYT 10 O UDATE 16 O HSREC 51 O AN,I 27 O 52 'T' O REAS 72 O 80 'A' OCHGHS EADD 05 30 02 O AND U8 O HSENO 6 O 7 '6' OXHSSL E 05 30 02 O HSENO 6 OXCHGLD E 05 30 32 O AND U8 O LOADNO 6 ** PRESS COMMAND KEY 7 & ENTER IF THERE ARE NO MORE ENTRIES TO BE MADE, OR ENTER OLD PRODUCT NUMBER (50 MAX) ENTER NEW PRODUCT NUMBER WHICH HOUSES ? (A=ALL HOUSES, H=SELECTED HOUSES, C=SELECTED CUSTOMERS) PLEASE ENTER HOUSES TO BE CHANGED (50 MAX) PLEASE ENTER CUSTOMERS FOR WHICH HOUSES ARE TO BE CHANGED (50 MAX) DO YOU WISH PRODUCT NUMBERS TO BE CHANGED ALSO IN LOADS ? (Y=YES,N=NO) ENTER AUTHORIZATION/REASON FOR CHANGING PRODUCT NUMBERS // CEND // COPY LIBRARY-S,NAME-JF0099,RECL-096,DATE-11/10/31,TIME-1129,SUB-RPG H B 1 JF0099 FXINVC UPE F 150 150 9AI 1 DISK FXHINV ID F 71 71 9AI 1 DISK FXREC ID F 300 300 2 DISK FINP ID F 79 79 KEYBORD FXINVC2 IC F 150 150R 9AI 1 DISK FDISP O F 79 79 CRT FXXHIN O F 71 71 9AI 1 DISK FXXREC O F 300 300 2 DISK E AMS 1 3 79 E AI 100 6 0 IXINVC AA 11 I 1 60INVNO L1 IXINVC2 AA 01 10 CD I BB 02 10NCD I 11 160CNO I 17 220HSENO I 24 32 BLDG I 33 40 LOT I 41 44 BSEQ I 45 500DELDAT I 51 56 PONO I P 62 650LOADNO IXHINV AA I 1 60HINV I 1 71 HINREC IXREC AA I 1 256 RECRD1 I 257 300 RECRD2 I 2 70RINV C 05 GOTO BEGIN C SETON 05 C AGN TAG C AMS,1 SET KG C AMS,2 KEY IINVNO 60 C KG GOTO BEGIN C MOVE '00I' INVLN 9 C MOVELIINVNO INVLN C INVLN CHAINXINVC2 03 C N03 01 SETON 03 C SETON 04 C EXCPT C SETOF 04 C 03 GOTO AGN C AMS,3 KEY YESNO 1 C YESNO COMP 'N' 09 C 09 GOTO AGN C I ADD 1 I 30 C Z-ADDIINVNO AI,I C I COMP 100 09 C N09 GOTO AGN C BEGIN TAG C L1 INVNO LOKUPAI 10 CLR AGNIRD TAG CLR READ XHINV 17 CLRN17 HINV LOKUPAI 08 CLRN17N08 SETON 18 CLRN17N08 EXCPT CLRN17N08 SETOF 18 CLRN17 GOTO AGNIRD CLR AGNRRD TAG CLR READ XREC 14 CLRN14 RINV LOKUPAI 08 CLRN14N08 SETON 15 CLRN14N08 EXCPT CLRN14N08 SETOF 15 CLRN14 GOTO AGNRRD ODISP H 11 1P O 24 'D E L E T E E N T I R ' O 43 'E I N V O I C E S' O E 11 04 03 O 19 'NOT IN INVOICE FILE' O E 11 04N03 O 19 'CUSTOMER#' O CNO M 57 O E 01 04N03 O 16 'LOAD#' O LOADNOM 57 O E 01 04N03 O 16 'HOUSE#' O HSENO M 57 O E 01 04N03 O 24 'BUILDING/BLOCK' O BLDG 56 O E 01 04N03 O 12 'LOT' O LOT 55 O E 01 04N03 O 22 'SEQUENCE/UNIT' O BSEQ 51 O E 01 04N03 O 22 'DELIVERY DATE' O DELDATY 58 O E 01 04N03 O 13 'PO#' O PONO 56 OXINVC D 11 10 O 10 'D' OXXHIN E 18 O HINREC 71 OXXREC E 15 O RECRD1 256 O RECRD2 300 ** PRESS COMMAND KEY 7 & ENTER IF THERE ARE NO MORE ENTRIES TO BE MADE, OR ENTER INVOICE NUMBER TO BE DELETED (100 MAX) ENTER WHETHER OR NOT OK (Y=YES,N=NO) // CEND // COPY LIBRARY-S,NAME-JF0100,RECL-096,REF-000001,DATE-01/12/18,TIME-1304,SUB-RPG H B 1 JF0100 FINP IP F 79 79 KEYBORD FCNTRL IC F 32 32R DISK FPROD UC F 400 400R 9AI 1 DISK A FDISP O F 79 79 CRT FPRT O F 132 132 OV PRINTER E AMS 1 5 79 ICNTRL AA 1 C0 2 C0 3 C7 I 4 32 CONAME IPROD AA 02 11 CD I OR 01 11NCD I 11 200 RECORD C 13 GOTO BEGIN C SETON 13 C 7 CHAINCNTRL C SETON 14 C BEGIN TAG C OV SETON 14 C 14 EXCPT C 14 SETOF 14OV C Z-ADD1 KEYSQN 20 C MOVE KEYSQN KEY 9 C AMS,1 SET KG C AMS,2 KEY OLPRD 7 C KG SETON LR C KG GOTO END C MOVELOLPRD KEY C KEY CHAINPROD 02 C 02 SETON 04 C 02 EXCPT C 02 SETOF 04 C 02 GOTO END C AMS,3 KEY NWPRD 7 C SETOF 0102 C MOVELNWPRD KEY C KEY CHAINPROD 06 C 01 SETON 07 C 01 EXCPT C 01 SETOF 07 C 01 GOTO END C AMS,4 KEY YN 1 C YN COMP 'N' 05 C AMS,5 KEY YN C YN COMP 'N' 0808 C 08 SETON 03 C 08 EXCPT C 08 SETOF 03 C N08 GOTO END C AGAIN TAG C MOVELOLPRD KEY C KEY CHAINPROD 11 C 11 GOTO END C MOVE RECORD RECRDP190 C 05 SETON 10 C 05 EXCPT C 05 SETOF 10 C MOVELNWPRD KEY C KEY CHAINPROD 06 C SETON 12 C EXCPT C SETOF 12 C KEYSQN ADD 1 KEYSQN C MOVE KEYSQN KEY C GOTO AGAIN C END TAG OPRT E 004 14 O CONAME 29 O 52 'C H A N G E P R O D U ' O 76 'C T N U M B E R S I ' O 100 'N P R O D U C T L I ' O 103 'S T' O UDATE Y 115 O PAGE 130 O 127 'PAGE' O E 10 14 O 52 '************************' O 76 '************************' O 100 '************************' O 103 '***' O E 10 14 O 62 'OLD NUMBER' O 82 'NEW NUMBER' O E 11 14 O 40 '************************' O 64 '************************' O 88 '************************' O 112 '************************' O 115 '***' O E 01 03 O OLPRD 60 O NWPRD 80 O 95 'CHANGED,' O N05 107 'OLD # SAVED' O 05 109 'OLD # DELETED' ODISP E 11 04 O 19 'NOT IN PRODUCT FILE' O E 11 07 O 23 'ALREADY IN PRODUCT FILE' OPROD E 10 O 11 'D' O EADD 12 06 O KEY 9 O RECRDP 200 O E 12N06 O RECRDP 200 ** PRESS COMMAND KEY 7 & ENTER IF THERE ARE NO MORE ENTRIES TO BE MADE, OR ENTER OLD ITEM NUMBER ENTER NEW ITEM NUMBER DO YOU WISH TO KEEP OLD ITEM NUMBER ALSO ? (Y=YES, N=NO, BLANK=YES) ENTER WHETHER OK (N=NO, ENTER=YES) // CEND // COPY LIBRARY-S,NAME-JF0101,RECL-096,DATE-01/08/24,TIME-1537,SUB-RPG H B 1 JF0101 FINP IP F 79 79 KEYBORD FCNTRL IC F 32 32R DISK FHOUSE UC F 41 41R 9AI 1 DISK A FBSEHSE UC F 13 13R 6AI 1 DISK A U1 FHSECHG UC F 80 80R10AI 1 DISK A U1 FCHGHS O F 7 7 2 DISK A U1 FDISP O F 79 79 CRT FPRT O F 132 132 OV PRINTER E AMS 1 5 79 E AO 40 6 0 E AN 40 6 0 E AD 40 1 IHOUSE AA 02 10 CD I OR 01 10NCD I 10 41 RECORD ICNTRL AA 1 C0 2 C0 3 C7 I 4 32 CONAME IBSEHSE AA I 7 13 BSEREC IHSECHG AA I 1 80 HCHREC C 21 GOTO BEGIN C SETON 21 C 7 CHAINCNTRL C SETON 22 C BEGIN TAG C OV SETON 22 C 22 EXCPT C 22 SETOF 22OV C Z-SUB1 KEY 90 C AGN TAG C AMS,1 SET KG C AMS,2 KEY OLHSE 60 C KG SETON LR C KG GOTO MOVE C MOVELOLHSE KEY C SETOF 0102 C KEY CHAINHOUSE 03 C N03 SETON 19 C N03 EXCPT C N03 SETOF 19 C 02 SETON 03 C 03 SETON 04 C 03 EXCPT C 03 SETOF 04 C 03 GOTO AGN C OLHSE LOKUPAO 14 C N14 OLHSE LOKUPAN 14 C 14 SETON 15 C 14 EXCPT C 14 SETOF 15 C 14 GOTO AGN C AMS,3 KEY NWHSE 60 C MOVELNWHSE KEY C SETOF 0102 C KEY CHAINHOUSE 03 C N03 SETON 19 C N03 EXCPT C N03 SETOF 19 C 01 SETON 07 C 01 EXCPT C 01 SETOF 07 C 01 GOTO AGN C NWHSE LOKUPAO 14 C N14 NWHSE LOKUPAN 14 C 14 SETON 15 C 14 EXCPT C 14 SETOF 15 C 14 GOTO AGN C AMS,4 KEY YNDEL 1 C AMS,5 KEY YN 1 C YN COMP 'N' 0808 C 08 I ADD 1 I 20 C 08 Z-ADDOLHSE AO,I C 08 Z-ADDNWHSE AN,I C 08 MOVE YNDEL AD,I C 08 SETON 20 C 08 EXCPT C 08 SETOF 20 C 08 I COMP 40 13 13 C 08 13 SETON LR C 08 13 GOTO MOVE C GOTO AGN C MOVE TAG C Z-SUB1 SEQNO 30 C J ADD 1 J 20 C J COMP I 13 C 13 GOTO END C U1 AO,J CHAINBSEHSE 05 C U1N05 AD,J COMP 'Y' 17 C U1N05 17 SETON 09 C U1N05 17 EXCPT C U1N05 17 SETOF 09 C U1N05 MOVE BSEREC FBSERC 7 C U1N05 AN,J CHAINBSEHSE 16 C U1N05 SETON 18 C U1N05 EXCPT C U1N05 SETOF 18 C AGN1 TAG C MOVELAO,J KEY C MOVE SEQNO KEY C KEY CHAINHOUSE 11 C N11 MOVE RECORD RECRDP 32 C N11 AD,J COMP 'Y' 17 C N11 17 SETON 10 C N11 17 EXCPT C N11 17 SETOF 10 C MOVELAN,J KEY C XOUT TAG C MOVE SEQNO KEY C KEY CHAINHOUSE 06 C 06 11 GOTO MOVHCH C SETON 12 C EXCPT C SETOF 12 C SEQNO ADD 1 SEQNO C N11 GOTO AGN1 C 11 GOTO XOUT C MOVHCH TAG C NU1 GOTO MOVE C MOVELAN,J ADHSKY 10 C Z-ADD0 NSQNO4 40 C AGN2 TAG C NSQNO4 ADD 1 NSQNO4 C MOVE NSQNO4 ADHSKY C ADHSKY CHAINHSECHG 23 C 23 NSQNO4 SUB 1 NSQNO4 C N23 GOTO AGN2 C AD,J COMP 'Y' 17 C MOVELAO,J ADHSKY C Z-ADD0 SQNO4 40 C AGN3 TAG C SQNO4 ADD 1 SQNO4 C MOVE SQNO4 ADHSKY C ADHSKY CHAINHSECHG 23 C 23 GOTO MOVE C NSQNO4 ADD 1 NSQNO4 C SETON 24 C EXCPT C SETOF 24 C GOTO AGN3 C END TAG OPRT E 103 22 O CONAME 29 O UDATE Y 41 O 70 'C H A N G E H O U S E ' O 85 ' N U M B E R S' O 94 'PAGE' O PAGE 98 O E 01 22 O 70 '************************' O 85 '***************' O E 01 22 O 62 'OLD NUMBER' O 82 'NEW NUMBER' O 105 'DELETE OLD # ? (Y/N)' O E 02 22 O 54 '************************' O 78 '************************' O 102 '************************' O 106 '****' O E 02 20 O OLHSE 59 O NWHSE 79 O YNDEL 95 OBSEHSE E 09 O 13 'D' O EADD 18 16 O AN,J 6 O FBSERC 13 O E 18N16 O FBSERC 13 OCHGHS EADD 20 O OLHSE 6 O 7 '7' O EADD 20 O NWHSE 6 O 7 '7' ODISP E 11 04 O 17 'HOUSE NOT IN FILE' O E 11 15 O 21 'HOUSE PREVIOUSLY USED' O E 11 07 O 21 'HOUSE ALREADY IN FILE' OHOUSE E 19 O E 10 O 10 'D' O EADD 12 06N11 O KEY 9 O RECRDP 41 O E 12N06N11 O RECRDP 41 O E 12 11 O 10 'X' OHSECHG E 24 17 O 80 'D' O EADD 24 O HCHREC 80 O AN,J 6 O NSQNO4 10 ** PRESS COMMAND KEY 7 & ENTER IF THERE ARE NO MORE ENTRIES TO BE MADE, OR ENTER OLD HOUSE NUMBER ENTER NEW HOUSE NUMBER ENTER WHETHER OR NOT TO DELETE OLD HOUSE (Y=YES, N=NO) ENTER WHETHER OR NOT OK (Y=YES, N=NO) // CEND // COPY LIBRARY-S,NAME-JF0102,RECL-096,DATE-09/07/07,TIME-0932,SUB-RPG H B 1 1 JF0102 FCUSMAS IPE F 600 600 6AI 1 DISK FINP ID F 79 79 KEYBORD FPRT O F 132 132 OF LPRINTER E AMS 1 6 79 E AC 100 6 0 E AN 100 6 0 LPRT 6FL 6OL ICUSMAS AA 01 6 C0 600 CA I OR 02 I 1 60CNO I 1 40CNO4 I 8 37 NAME I 38 67 ADDR1 I 68 91 ADDR2 I 92 960ZIP C 03 GOTO BEGIN C SETON 03 C AMS,1 KEY FCUS 60 C AMS,2 KEY TCUS 60 C AMS,3 KEY NUMLAB 30 C Z-ADD101 I 30 C AGN TAG C I SUB 1 I 0404 C 04 Z-ADD1 I C 04 GOTO BEGIN C AMS,4 SET KG C AMS,5 KEY AC,I C KG I ADD 1 I C KG GOTO BEGIN C SETON 05 C AMS,6 KEY AN,I C GOTO AGN C BEGIN TAG C N01 GOTO END C CNO4 COMP 6300 0101 C N01 GOTO END C CNO COMP FCUS 01 01 C 01 CNO COMP TCUS 0101 C 01 Z-ADDNUMLAB COUNT 30 C 01 GOTO PRINT C N05 GOTO END C Z-ADDI J 30 C CNO LOKUPAC,J 01 C N01 GOTO END C Z-ADDAN,J COUNT C PRINT TAG C SETON 09 C EXCPT C SETOF 09 C COUNT SUB 1 COUNT 01 C 01 GOTO PRINT C END TAG OPRT H 301 1P O 24 'XXXXXXXXXXXXXXXXXXXXXXXX' O 30 'XXXXXX' O E 101 09 O NAME 30 O E 01 09 O ADDR1 30 O E 01 09 O ADDR2 24 O ZIP 30 ** ENTER FROM CUSTOMER# OF A GROUP OF CUSTOMERS DESIRED ENTER THROUGH CUSTOMER# DESIRED ENTER # OF LABELS FOR EACH CUSTOMER IN THIS GROUP PRESS COMMAND KEY 7 AND ENTER IF THERE ARE NO MORE ENTRIES, OR ENTER SINGLE CUSTOMER# DESIRED (100 MAX) ENTER # OF LABELS FOR THIS CUSTOMER // CEND // COPY LIBRARY-S,NAME-JF0103,RECL-096,REF-000001,DATE-07/03/22,TIME-0957,SUB-RPG H B 1 JF0103 FINP ID F 79 79 KEYBORD FGLFILE UPE F 224 224 6AI 1 DISK FCNTRL UC F 32 32R DISK FDISP O F 79 79 CRT E AM 6 12 9 E AD 13 11 2 E AC 13 11 2 E APO 12 3 0 E APN 12 3 0 E ADC 4 11 2 IGLFILE AA 02 I P 38 115 AD I P 116 193 AC I P 194 217 ADC ICNTRL AA 1 C0 2 C0 3 C1 I 4 50M I 6 70Y I AA 1 C0 2 C0 3 C3 I 4 132CENDIN I 14 232PENDIN I AA I P 4 27 APO I AA ILDA UDS I 2 2 XXDEC C 03 GOTO BEGIN C SETON 03 C 1 CHAINCNTRL C SETON 04 C EXCPT C SETOF 04 C ' ' KEY GO 1 C MOVE ' ' XXDEC C M COMP 12 12 C N12 M ADD 1 NM 20 C 12 MOVE 'X' XXDEC C 12 Z-ADD1 NM C Z-ADDY NY 20 C 12 Y ADD 1 NY C 12 Y COMP 99 13 C 12 13 Z-ADD0 NY C SETON 07 C EXCPT C SETOF 07 C 3 CHAINCNTRL C 2 CHAINCNTRL C SETON 08 C EXCPT C SETOF 08 C***** C 12 17 CHAINCNTRL C 12 Z-ADDAPO APN C 12 20 CHAINCNTRL C 12 SETON 09 C 12 EXCPT C 12 SETOF 09 C 12 17 CHAINCNTRL C 12 Z-ADD0 RM 20 C AGNSC TAG C 12 RM ADD 1 RM C 12 Z-ADDAPN,12 APN,RM C 12 RM COMP 12 10 C 12 10 GOTO AGNSC C 12 SETON 09 C 12 EXCPT C 12 SETOF 09 C***** C 12 18 CHAINCNTRL C 12 Z-ADDAPO APN C 12 21 CHAINCNTRL C 12 SETON 09 C 12 EXCPT C 12 SETOF 09 C 12 18 CHAINCNTRL C 12 Z-ADD0 RM C AGNWC TAG C 12 RM ADD 1 RM C 12 Z-ADDAPN,12 APN,RM C 12 RM COMP 12 10 C 12 10 GOTO AGNWC C 12 SETON 09 C 12 EXCPT C 12 SETOF 09 C***** C 12 19 CHAINCNTRL C 12 Z-ADDAPO APN C 12 22 CHAINCNTRL C 12 SETON 09 C 12 EXCPT C 12 SETOF 09 C 12 19 CHAINCNTRL C 12 Z-ADD0 RM C AGNLC TAG C 12 RM ADD 1 RM C 12 Z-ADDAPN,12 APN,RM C 12 RM COMP 12 10 C 12 10 GOTO AGNLC C 12 SETON 09 C 12 EXCPT C 12 SETOF 09 C***** C M ADD 1 M C BEGIN TAG C 02N12 Z-ADDADC,1 AD,M C 02N12 Z-ADDADC,2 AC,M C 02 Z-ADD0 ADC,1 C 02 Z-ADD0 ADC,2 ODISP E 22 04 O 24 'YOU WILL BE CLOSING THE ' O 32 'MONTH OF' O AM,M 42 O E 02 04 O 24 'NO OTHER JOBS IN THE FIN' O 48 'ANCIAL SYSTEM MAY BE RUN' O 72 'NING DURING THIS CLOSING' O E 01 04 O 24 'IF YOU WISH TO CANCEL TH' O 48 'IS PRESS THE SYSTEM REQU' O 73 'EST KEY (UPPER SHIFT)' O E 01 04 O 24 'THEN THE ENTER KEY AND T' O 48 'AKE A 2 OPTION (CANCEL J' O 51 'OB)' O E 02 04 O 24 'TO THE SELECTIONS PRESEN' O 27 'TED' O E 01 04 O 24 'IF YOU WISH TO BEGIN THE' O 48 ' CLOSING JUST PRESS THE ' O 57 'ENTER KEY' OGLFILE D 02 O AD 115P O AC 193P O ADC 217P OCNTRL E 07 O NM 5 O NY 7 O 8 ' ' O E 08 O CENDIN 13 O PENDIN 23 O E 09 O APN 27P ** JANUARY FEBRUARY MARCH APRIL MAY JUNE JULY AUGUST SEPTEMBEROCTOBER NOVEMBER DECEMBER // CEND // COPY LIBRARY-S,NAME-JF0104,RECL-096,REF-000040,DATE-08/01/16,TIME-1355,SUB-RPG H B 1 JF0104 FINP IP F 79 79 KEYBORD FGLFILE UC F 224 224R 6AI 1 DISK A FDISP O F 79 79 CRT E AMS 1 10 79 E ADC 26 11 2 E AM 4 11 2 E AKM 4 11 2 IGLFILE CC 71 I 7 36 NME I P 194 217 AM I 218 219 PLCAT I 220 221 BLCAT I 224 224 ACT C MOVE ' ' BLNK30 30 C SETOF 0304 C AMS,1 SET KG C AMS,2 KEY ACCTNO 60 C KG SETON LR C KG GOTO END C ACCTNO CHAINGLFILE 03 C ACT SET KA C AMS,3 KEY KACT 1 C KACT COMP ' ' 05 C 05 MOVE ACT KACT C KA MOVE ' ' KACT C KACT COMP 'A' 0404 C 04 GOTO END C NME SET KA C AMS,4 KEY KNME 30 C KNME COMP BLNK30 05 C 05 MOVE NME KNME C KA MOVE BLNK30 KNME C SETON 07 C EXCPT C SETOF 07 C PLCAT SET KA C AMS,5 KEY KPLCAT 2 C KPLCAT COMP ' ' 05 C 05 MOVE PLCAT KPLCAT C KA MOVE ' ' KPLCAT C SETON 06 C EXCPT C SETOF 06 C BLCAT SET KA C AMS,6 KEY KBLCAT 2 C KBLCAT COMP ' ' 05 C 05 MOVE BLCAT KBLCAT C KA MOVE ' ' KBLCAT C AM,1 SET KA C AMS,7 KEY AKM,1 05 C 05 Z-ADDAM,1 AKM,1 C KA Z-ADD0 AKM,1 C AM,2 SET KA C AMS,8 KEY AKM,2 05 C 05 Z-ADDAM,2 AKM,2 C KA Z-ADD0 AKM,2 C AM,3 SET KA C AMS,9 KEY AKM,3 05 C 05 Z-ADDAM,3 AKM,3 C KA Z-ADD0 AKM,3 C AM,4 SET KA C AMS,10 KEY AKM,4 05 C 05 Z-ADDAM,4 AKM,4 C KA Z-ADD0 AKM,4 C AKM,1 ADD AKM,2 MTD 92 C AKM,3 ADD AKM,4 YTD 92 C END TAG ODISP H 11 1P O 24 'G E N E R A L L E D G ' O 48 'E R F I L E M A I N ' O 61 'T E N A N C E' O E 11 06 O 18 '*** CURRENT ASSETS' O 65 'CB=NOTES RECEIVABLE, FOR' O 78 'MER AFFILIATE' O E 01 06 O 25 'AA=CASH & SHORT TERM INV' O 33 'ESTMENTS' O 65 'CC=REAL ESTATE-NET OF AC' O 76 'CUM. DEPRE.' O E 01 06 O 25 'AB=MARKETABLE SECURITIES' O 33 ' AT COST' O 55 '*** LIABILITIES' O E 01 06 O 25 'AC=NOTES RECEIVABLE-OFFI' O 29 'CERS' O 60 'DA=ACCOUNTS PAYABLE' O E 01 06 O 25 'AD=RECEIVABLES-NET OF DO' O 37 'UBTFUL ACCTS' O 65 'DB=ACCRUED COMPENSATION ' O 75 '& EXPENSES' O E 01 06 O 25 'AE=ACCOUNTS RECEIVABLE-O' O 29 'THER' O 61 'DC=DIVIDENDS PAYABLE' O E 01 06 O 20 'AF=LOANS RECEIVABLE' O 65 'DD=PAYROLL & SALES TAXES' O 73 ' PAYABLE' O E 01 06 O 13 'AG=INVENTORY' O 64 'DE=INCOME TAXES PAYABLE' O E 01 06 O 25 'AH=PREPAID EXPENSES & TA' O 28 'XES' O 63 'DF=UNION DUES WITHHELD' O E 01 06 O 25 'AI=PREPAID EMPLOYEE BENE' O 29 'FITS' O 65 'DG=DEPOSIT CREDITS ON RE' O 74 'AL ESTATE' O E 01 06 O 24 '*** PROPERTY & EQUIPMENT' O 58 'DH=LONG TERM DEBT' O E 01 06 O 8 'BA=LAND' O 65 'DI=LOANS PAYABLE-OFFICER' O 66 'S' O E 01 06 O 25 'BB=BUILDINGS & IMPROVEME' O 28 'NTS' O 57 'DJ=NOTES PAYABLE' O E 01 06 O 25 'BC=MACHINERY & EQUIPMENT' O 63 'DK=LOANS PAYABLE-OTHER' O E 01 06 O 24 'BD=FURNITURE & FIXTURES' O 63 '*** STOCKHOLDERS EQUITY' O E 01 06 O 18 'BE=AUTOS & TRUCKS' O 65 'EA=PREFERRED STOCK-PAR V' O 69 'ALUE' O E 01 06 O 22 'BF=CONST. IN PROGRESS' O 65 'EB=COMMON STOCK NO PAR O' O 79 'R STATED VALUE' O E 01 06 O 25 'BG=ACCUM. DEPRE.-PROP. &' O 31 ' EQUIP' O 65 'EC=ADDITIONAL PAID-IN CA' O 70 'PITAL' O E 01 06 O 16 '*** OTHER ASSETS' O 61 'ED=RETAINED EARNINGS' O E 01 06 O 25 'CA=CASH VALUE-OFF LIFE I' O 38 'NS, NET LOANS' O 58 'EE=TREASURY STOCK' O E 01 06 O 15 'CD=INTANGIBLES' O E 00 06 O 25 'CE=DEFERRED FIRE RECOVE' O 33 'RY COSTS' O E 11 07 O 11 'A=NET SALES' O 63 'Q=PROFESSIONAL EXPENSES' O E 01 07 O 15 'B=COST OF SALES' O 56 'R=PROFIT SHARING' O E 01 07 O 18 'C=SALARIES & WAGES' O 59 'S=REAL ESTATE TAXES' O E 01 07 O 15 'D=PAYROLL TAXES' O 51 'T=TELEPHONE' O E 01 07 O 13 'E=ADVERTISING' O 63 'U=TRAVEL & ENTERTAINMEN' O 64 'T' O E 01 07 O 22 'F=AUTO & TRUCK EXPENSE' O 51 'V=UTILITIES' O E 01 07 O 15 'G=CONTRIBUTIONS' O 53 'W=MAINTENANCE' O E 01 07 O 14 'H=DEPRECIATION' O 59 'X=RESEARCH EXPENSES' O E 01 07 O 19 'I=EMPLOYEE BENEFITS' O 63 'Z=OTHER EXPENSES & INCO' O 65 'ME' O E 01 07 O 17 'J=HOSPITALIZATION' O E 01 07 O 11 'K=INSURANCE' O E 01 07 O 18 'L=LICENSES & TAXES' O E 01 07 O 23 'M=MAINTENANCE & REPAIRS' O 24 ',' O E 01 07 O 23 'BUILDINGS & EQUIPMENT' O E 01 07 O 14 'N=MILL EXPENSE' O E 01 07 O 16 'O=MISC. EXPENSES' O E 00 07 O 23 'P=OFFICE EXPENSE & SUPP' O 27 'LIES' OGLFILE D 04N03 O 224 'D' O D 71N04N03 O KNME 36 O AKM 217P O KPLCAT 219 O KBLCAT 221 O KACT 224 O DADD 03N04 O ACCTNO 6 O KNME 36 O ADC 193P O AKM 217P O KPLCAT 219 O KBLCAT 221 O KACT 224 ** PRESS COMMAND KEY 7 & ENTER IF THERE ARE NO MORE ENTRIES TO BE MADE, OR ENTER ACCOUNT NUMBER ENTER ACTIVITY CODE (A=ACTIVE, D=DELETE) ENTER ACCOUNT DESCRIPTION ENTER P&L CATEGORY CODE (FROM ABOVE LIST, BLANK IF NOT APPLICABLE) ENTER BALANCE SHEET CATEGORY CODE (FROM ABOVE LIST, BLANK IF NOT APPLICABLE) ENTER DEBITS CURRENT MONTH ENTER CREDITS CURRENT MONTH ENTER DEBITS CURRENT YEAR ENTER CREDITS CURRENT YEAR // CEND // COPY LIBRARY-S,NAME-JF0105,RECL-096,DATE-01/03/23,TIME-1226,SUB-RPG H B 1 JF0105 FGLFILE IPE F 224 224 6AI 1 DISK FCNTRL IC F 32 32R DISK FPRT O F 132 132 OV PRINTER E A4 4 11 2 E A5 5 11 2 E A5T 5 11 2 IGLFILE AA 99 224NCA I BB 01 224 CA I 1 6 ACNO I 2 6 ACCT5 I 7 36 ACNM I P 194 217 A4 ICNTRL AA 1 C0 2 C0 3 C7 I 4 32 CONAME C 03 GOTO BEGIN C SETON 03 C 7 CHAINCNTRL C SETON 04 C BEGIN TAG C OV SETON 04 C 04 EXCPT C 04 SETOF 04OV C N01 GOTO END C A4,1 ADD A4,2 A5,4 C A4,3 ADD A4,4 A5,5 C A5,5 SUB A5,4 A5,1 C Z-ADDA4,1 A5,2 C Z-ADDA4,2 A5,3 C '29999' COMP ACCT5 02 C N02 '40000' COMP ACCT5 02 C N02 '40002' COMP ACCT5 02 C N02 A5T ADD A5 A5T C END TAG OPRT E 103 04 O CONAME 29 O UDATE Y 41 O 70 'G E N E R A L L E D G ' O 94 'E R T R I A L B A L ' O 101 'A N C E' O 128 'PAGE' O PAGE 132 O E 01 04 O 70 '************************' O 94 '************************' O 101 '*******' O E 01 04 O 21 'ACCT NO DESCRIPTION' O 58 'BALANCE FORWARD' O 92 'MTD DR MTD CR' O 110 'MTD NET' O 128 'YTD NET' O E 02 04 O 24 '************************' O *PLACE 48 O *PLACE 72 O *PLACE 96 O *PLACE 120 O 132 '************' O D 02 01N02 O OR 01 01 02 O ACNO 7 O ACNM 40 O A5,1 B 60 '$' O A5,2 B 78 '$' O A5,3 B 96 '$' O A5,4 B 114 '$' O A5,5 B 132 '$' O D 02 01 02 O 67 '************************' O 91 '********* NOT INCLUDED I' O 115 'N TOTAL ****************' O 132 '*****************' O T 10 01 LR O 40 'TOTALS' O A5T 132 '&$ , , 0. CR' // CEND // COPY LIBRARY-S,NAME-JF0106,RECL-096,DATE-01/03/23,TIME-1226,SUB-RPG H B 1 JF0106 FPAYRL IP F 140 140 2 DISK FYPAYRL IS F 140 140 2 DISK FINP ID F 79 79 KEYBORD FXPRLST O F 32 32 2 DISK FXMNYR O F 8 8 2 DISK E AMS 1 3 79 IPAYRL AA 02 140NCA I BB 01 140 CA I 1 50EMPNO I 6 70MN I 10 110YR I P 30 332REGGRS I P 34 372OTGRS IYPAYRL CC 02 140NCA I DD 01 140 CA I 1 50EMPNO I 6 70MN I 10 110YR I P 30 332REGGRS I P 34 372OTGRS C 03 GOTO BEGIN C SETON 03 C AMS,1 KEY PRVYR 20 C AMS,2 KEY PRSYR 20 C AMS,3 KEY DMN 20 C BEGIN TAG C 01 DMN COMP MN 06 C 01 06 PRVYR COMP YR 07 C 01 06N07PRSYR COMP YR 07 OXPRLST D 01 06 07 O EMPNO 5 O YR 7 O 9 '00' O REGGRS 16 O 18 '00' O OTGRS 25 OXMNYR T LR O DMN 2 O PRVYR 4 O PRSYR 6 ** ENTER PREVIOUS YEAR DESIRED (TWO DIGITS) ENTER PRESENT YEAR DESIRED (TWO DIGITS) ENTER MONTH DESIRED (TWO DIGITS) // CEND // COPY LIBRARY-S,NAME-JF0108,RECL-096,DATE-01/03/23,TIME-1226,SUB-RPG H B 1 JF0108 FXPRLSS IPE F 32 32 2 DISK FXMNYR IC F 8 8R DISK FPRT O F 132 132 PRINTER E AM 6 12 9 E AN 13 13 2 0 E AD 4 13 20 E AA 4 9 2 E AT 4 10 2 E AMS 4 9 2 IXPRLSS AA 99 I 1 20DEPT L1 I 6 70YR I 8 162REG I 17 252OV IXMNYR BB 98 I 1 20MN I 3 40PRVYR I 5 60PRSYR C 01 GOTO BEGIN C SETON 01 C 1 CHAINXMNYR C SETON 02 C EXCPT C SETOF 02 C BEGIN TAG C L1 Z-ADD0 AA C L1 Z-ADD0 VEMP 30 C L1 Z-ADD0 SEMP 30 C L1 Z-ADD1 I 20 C L1 DEPT LOKUPAN,I 04 C L1N04 SETON 05 C YR COMP PRVYR 03 C 03 04 1 ADD VEMP VEMP C 03 04 REG ADD AA,1 AA,1 C 03 04 OV ADD AA,2 AA,2 C 03N04 1 ADD MVEMP MVEMP 30 C 03N04 REG ADD AMS,1 AMS,1 C 03N04 OV ADD AMS,2 AMS,2 C YR COMP PRSYR 03 C 03 04 1 ADD SEMP SEMP C 03 04 REG ADD AA,3 AA,3 C 03 04 OV ADD AA,4 AA,4 C 03N04 1 ADD MSEMP MSEMP 30 C 03N04 REG ADD AMS,3 AMS,3 C 03N04 OV ADD AMS,4 AMS,4 CL1 VEMP ADD TVEMP TVEMP 30 CL1 SEMP ADD TSEMP TSEMP 30 CL1 AA ADD AT AT CLR MVEMP ADD TVEMP TVEMP CLR MSEMP ADD TSEMP TSEMP CLR AMS ADD AT AT CLR AT,1 ADD AT,2 VAMT 102 CLR AT,3 ADD AT,4 SAMT 102 OPRT E 103 02 O UDATE Y 22 O 51 'Y E A R T O Y E A R ' O 75 ' M O N T H L Y P A Y ' O 99 'R O L L C O M P A R I ' O 119 'S O N - FOR MONTH OF' O AM,MN 129 O E 01 02 O 51 '************************' O 75 '************************' O 99 '************************' O 104 '*****' O E 01 02 O 55 '===================' O 77 '===================' O 104 '===================' O 127 '===================' O PRVYR 59 O PRSYR 108 O 57 '19' O 106 '19' O E 01 02 O 16 'DEPARTMENT' O 56 '# EMP REGULAR' O 105 '# EMP REGULAR' O 75 'OVERTIME' O 124 'OVERTIME' O E 02 02 O 24 '************************' O *PLACE 48 O *PLACE 72 O *PLACE 96 O *PLACE 120 O 132 '************' O T 02 L1 04 O DEPT 7 O 8 '-' O AD,I 28 O VEMP M 42 O AA,1 B 61 '$' O AA,2 B 79 '$' O SEMP M 91 O AA,3 B 110 '$' O AA,4 B 128 '$' O T 02 LR 05 O 8 '-' O 21 'MISCELLANEOUS' O MVEMP M 42 O AMS,1 B 61 '$' O AMS,2 B 79 '$' O MSEMP M 91 O AMS,3 B 110 '$' O AMS,4 B 128 '$' O T 01 LR O 62 '------------------------' O 111 '------------------------' O 77 '---------------' O 126 '---------------' O T 02 LR O 36 'TOTALS:' O TVEMP L 42 O AT,1 B 61 '$' O AT,2 B 79 '$' O TSEMP L 91 O AT,3 B 110 '$' O AT,4 B 128 '$' O T 02 LR O VAMT B 70 '$' O SAMT B 119 '$' ** JANUARY FEBRUARY MARCH APRIL MAY JUNE JULY AUGUST SEPTEMBEROCTOBER NOVEMBER DECEMBER ** 010203040506070809101112 ** CLERICAL SALESMEN DRIVERS DRIVERS HELPERS LOADERS YARDMEN DOOR DEPARTMENT SPECIAL MILLWORK STAIRS DEPARTMENT STEEL DOOR DEPT. TRIM DEPARTMENT WINDOW DEPARTMENT MAINTENANCE DEPT. // CEND // COPY LIBRARY-S,NAME-JF0109,RECL-096,REF-000001,DATE-01/03/23,TIME-1226,SUB-RPG H B 1 JF0109 FINP IPE F 79 79 KEYBORD FCRT O F 79 79 CRT ILDA UDS I 100 101 CO C AGN TAG C SETON 01 C EXCPT C SETOF 01 C ' ' KEY CO 2 C CO COMP 'JF' 02 C N02 CO COMP 'SB' 02 C N02 GOTO AGN C SETON LR OCRT E 32 01 O 24 'PLEASE ENTER CODE OF COM' O 48 'PANY YOU WISH TO WORK WI' O 51 'TH:' O E 02 01 O 22 'JF = JOFFE LUMBER' O E 03 01 O 29 'SB = SBS VINYL BUILDING ' O 35 'SUPPLY' // CEND // COPY LIBRARY-S,NAME-JF0117,RECL-096,DATE-01/03/23,TIME-1226,SUB-RPG H B 1 1 JF0117 FEMPLYE IPE F 350 350 5AI 1 DISK FINP ID F 79 79 KEYBORD FPRT O F 132 132 OV LPRINTER E AMS 1 4 79 E AE 200 5 0 E AN 200 3 0 E AL 15 1 E AF 15 1 E ANM 31 1 LPRT 9FL 9OL IEMPLYE AA 01 I 1 50ENO I 6 20 AL I 21 35 AF I 44 63 ADDR1 I 64 83 ADDR2 I P 84 860ZIP C 03 GOTO BEGIN C SETON 03 C AMS,1 KEY YN 1 C YN COMP 'N' 04 C N04 GOTO BEGIN C AGAIN TAG C I ADD 1 I 30 C AMS,2 SET KG C AMS,3 KEY AE,I C KG GOTO BEGIN C AMS,4 KEY AN,I C I COMP 200 06 C N06 GOTO AGAIN C BEGIN TAG C 01 04 Z-ADD1 I C 01 04 ENO LOKUPAE,I 01 C N01 04 GOTO END C 01 04 Z-ADDAN,I COUNT 30 C MOVE ' ' ANM C Z-ADD16 A 20 C AGAINN TAG C A SUB 1 A 10 C 10 Z-ADD0 A C 10 GOTO AGAINL C AF,A COMP ' ' 10 C 10 GOTO AGAINN C Z-ADD0 B 20 C AGAINF TAG C B ADD 1 B C MOVE AF,B ANM,B C B COMP A 10 C N10 GOTO AGAINF C Z-ADD0 B C A ADD 1 A C AGAINL TAG C A ADD 1 A C B ADD 1 B C MOVE AL,B ANM,A C B COMP 15 10 C N10 GOTO AGAINL C AGNPRT TAG C 01 04 SETON 09 C 01 04 EXCPT C 01 04 SETOF 09 C 01 04 COUNT SUB 1 COUNT 01 C 01 04 GOTO AGNPRT C 01N04 SETON 09 C 01N04 EXCPT C 01N04 SETOF 09 C END TAG OPRT H 0504 1P O 24 '******* MIDDLE OF LABEL ' O 31 '*******' OPRT E 104 09 O ANM 31 O E 01 09 O ADDR1 20 O E 01 09 O ADDR2 20 O ZIP 27 ** DO YOU WISH ONE LABEL PRINTED FOR EACH EMPLOYEE (Y=YES,N=NO) PRESS COMMAND KEY 7 & ENTER IF THERE ARE NO MORE ENTRIES TO BE MADE, OR ENTER EMPLOYEE NUMBER FOR WHOM YOU WISH LABEL ENTER NUMBER OF LABELS FOR THIS EMPLOYEE // CEND // COPY LIBRARY-S,NAME-JF0119,RECL-096,DATE-01/03/23,TIME-1226,SUB-RPG H B 1 JF0119 FNMGLEN UPE F 19 19 2 DISK FCNTRL IC F 32 32R DISK FGLFILE UC F 224 224R 6AI 1 DISK FPRT O F 132 132 OV PRINTER E ADC 4 11 2 INMGLEN AA 01 19 CA I 1 60ACCTNO I 7 7 DEBCRE I P 8 122AMT I 13 180GLDATE I 13 140GLMN I 17 180GLYR I BB 02 ICNTRL AA 1 C0 2 C0 3 C1 I 4 50ACCMN I 6 70ACCYR I AA 1 C0 2 C0 3 C7 I 4 32 CONAME IGLFILE AA 04 224NCA I BB I P 194 217 ADC C N06 1 CHAINCNTRL C N06 7 CHAINCNTRL C N06 SETON 06 C 02 GOTO END C GLYR COMP ACCYR 01 C 01 GLMN COMP ACCMN 01 C N01 GOTO END C ACCTNO CHAINGLFILE 04 C 04 GOTO END C DEBCRE COMP 'C' 05 C 05 Z-SUBAMT AMT C N05 ADC,1 ADD AMT ADC,1 C N05 ADC,3 ADD AMT ADC,3 C 05 ADC,2 ADD AMT ADC,2 C 05 ADC,4 ADD AMT ADC,4 C END TAG OGLFILE D 01N04 O ADC 217P ONMGLEN D 01 O 19 'D' OPRT D 11 01 04 O CONAME 29 O D 01 01 04 O 10 'ACCOUNT#' O ACCTNO 17 O 21 'FOR' O AMT J 35 '$' O GLDATEY 46 O 75 'NOT IN GENERAL LEDGER FI' O 77 'LE' // CEND // COPY LIBRARY-S,NAME-JF0120,RECL-096,DATE-05/01/26,TIME-1441,SUB-RPG H B 1 JF0120 FZEMPLY IP F 350 350 5AI 1 DISK FEMPLYE O F 350 350 5AI 1 DISK E ARY 15 9 2 IZEMPLY NS 01 350 CA I 1 256 REC1 I 257 350 REC2 I NS 02 OEMPLYE D 01 O REC1 256 O REC2 350 O ARY 220P // CEND // COPY LIBRARY-S,NAME-JF0126,RECL-096,DATE-04/08/26,TIME-1240,SUB-RPG H B 1 JF0126 FPYMT IP F 80 80 DISK FPYUN IS F 50 50 DISK FGLPMT IS F 54 54 DISK FINP ID F 79 79 KEYBORD FXDLGLD UC F 49 49R 8AI 1 DISK A FXDLCSH O F 40 40 DISK E AMS 1 2 79 IPYMT AA 01 80NCA I BB 02 I 16 210DATE I 16 190MD I 20 210YR I P 22 262CASH I P 27 312DISC I P 32 362ALLOW I P 37 412BACK I P 42 462RETAIN IPYUN AA 01 50NCA I BB 02 I 5 100DATE I 5 80MD I 9 100YR I P 11 152CASH I P 16 202DISC I P 21 252ALLOW I P 26 302BACK I P 31 352RETAIN IGLPMT AA 03 54NCA I BB 04 I 1 60ACCT I 7 36 GLDES I 37 420DATE I 37 400MD I 41 420YR I P 43 472GLAMT IXDLGLD AA C 05 GOTO BEGIN C SETON 05 C Z-ADD0 Z9 90 C AMS,1 KEY IMN 20 C AMS,2 KEY IYR 20 C MOVELIMN IMD 40 C MOVE '25' IMD C Z-ADDIYR IYR4 40 C IYR COMP 70 06 C 06 MOVEL'19' IYR4 C N06 MOVEL'20' IYR4 C MOVELIYR4 TY4MD 80 C MOVE IMD TY4MD C IMN SUB 1 IMN 0606 C 06 Z-ADD12 IMN C 06 IYR4 SUB 1 IYR4 C MOVELIMN IMD C MOVE '26' IMD C MOVELIYR4 FY4MD 80 C MOVE IMD FY4MD C BEGIN TAG C 01 COR 03 GOTO END C Z-ADDYR YR4 40 C YR COMP 70 06 C 06 MOVEL'19' YR4 C N06 MOVEL'20' YR4 C MOVELYR4 Y4MD 80 C MOVE MD Y4MD C Y4MD COMP FY4MD 06 06 C 06 Y4MD COMP TY4MD 0606 C N06 GOTO END C 02 GOTO END C MOVELDATE KEY 8 C Z-ADD0 SQNO 20 C AGNKEY TAG C SQNO ADD 1 SQNO C MOVE SQNO KEY C KEY CHAINXDLGLD 07 C N07 GOTO AGNKEY C END TAG OXDLCSH D 02 06 O DATE 6 O CASH 11P O DISC 16P O ALLOW 21P O BACK 26P O RETAIN 31P O Z9 36P O YR4 40 O D 04 06 O DATE 6 O Z9 11P O Z9 16P O Z9 21P O Z9 26P O Z9 31P O GLAMT 36P O YR4 40 OXDLGLD DADD 04 06 O KEY 8 O ACCT 14 O GLDES 44 O GLAMT 49P ** ENTER PAYMENT MONTH DESIRED ENTER PAYMENT YEAR DESIRED // CEND // COPY LIBRARY-S,NAME-JF0128,RECL-096,DATE-04/10/27,TIME-1403,SUB-RPG H B 1 JF0128 FXDLCSS IPE F 40 40 DISK FCNTRL IC F 32 32R DISK FXDLGLD IC F 49 49R 8AI 1 DISK FPRT O F 132 132 OV PRINTER E AD 6 9 2 E AT 6 9 2 IXDLCSS AA 01 I 1 60DATE I P 7 36 AD ICNTRL AA 1 C0 2 C0 3 C7 I 4 32 CONAME IXDLGLD AA I 9 140ACCT I 15 44 GLDES I P 45 492GLAMT C 02 GOTO BEGIN C SETON 02 C 7 CHAINCNTRL C SETON 03 C BEGIN TAG C OV SETON 03 C 03 EXCPT C 03 SETOF 03OV C AD,1 ADD AD,2 FULL 92 C FULL ADD AD,3 FULL C FULL ADD AD,4 FULL C AD,1 ADD AD,6 DEP 92 C AT ADD AD AT C SETON 04 C EXCPT C SETOF 04 C MOVELDATE KEY 8 C Z-ADD0 SQNO 20 C AGNKEY TAG C SQNO ADD 1 SQNO C MOVE SQNO KEY C KEY CHAINXDLGLD 05 C N05 SETON 06 C N05 EXCPT C N05 SETOF 06 C N05 GOTO AGNKEY C SETON 07 C EXCPT C SETOF 07 CLR AT,1 ADD AT,2 TFULL 92 CLR TFULL ADD AT,3 TFULL CLR TFULL ADD AT,4 TFULL CLR AT,1 ADD AT,6 TDEP 92 OPRT E 103 03 O CONAME 29 O 66 'M T D D A I L Y C A ' O 87 'S H R E C E I P T S' O UDATE Y 102 O PAGE 130 O 127 'PAGE' O E 01 03 O 66 '************************' O 87 '*********************' O E 01 03 O 22 'DATE CASH' O 50 'DISCOUNT ALLOWANCE' O 64 'BACK CHARGE' O 92 'FULL (A/R) G/L AMT' O* 106 'RETAINAGE' O* 131 'BANK DEP' O 107 'BANK DEP' O E 02 03 O 24 '************************' O *PLACE 48 O *PLACE 72 O *PLACE 96 O *PLACE 120 O 132 '************' O E 01 04 O DATE Y 8 O AD,1 K 23 O AD,2 K 37 O AD,3 K 50 O AD,4 K 64 O FULL K 79 O AD,6 K 93 O* AD,5 K 107 O* DEP K 132 O DEP K 108 O E 01 06 O ACCT 79 O GLAMT K 93 O GLDES 124 O E 01 07 O T 01 LR O 34 '------------------------' O 58 '------------------------' O 82 '------------------------' O 106 '------------------------' O 130 '------------------------' O 132 '--' O T 02 LR O 8 'TOTALS' O AT,1 K 23 O AT,2 K 37 O AT,3 K 50 O AT,4 K 64 O TFULL K 79 O AT,6 K 93 O* AT,5 K 107 O* TDEP K 132 O TDEP K 108 // CEND // COPY LIBRARY-S,NAME-JF0129,RECL-096,DATE-01/03/23,TIME-1226,SUB-RPG H B 1 JF0129 FINP IP F 79 79 KEYBORD FCNTRL IC F 32 32R DISK FGLFILE UC F 224 224R 6AI 1 DISK FCRT O F 79 79 CRT E AMS 1 6 79 E AM 6 12 9 E AD 13 11 2 E AC 13 11 2 IGLFILE AA 04 224 CD I BB I 7 36 ACCNAM I P 38 115 AD I P 116 193 AC ICNTRL AA I 4 50CM I 6 70CY C 01 GOTO BEGIN C SETON 01 C 1 CHAINCNTRL C CM COMP 1 08 C CM SUB 1 CPM 20 C CY SUB 1 CPY 20 C SETON 09 C EXCPT C SETOF 09 C ENTMN TAG C ' ' KEY M 20 10 C M COMP 0 02 02 C 02 M COMP 12 0202 C N02 SETON 06 C N02 EXCPT C N02 SETOF 06 C N02 GOTO ENTMN C M ADD 1 M C BEGIN TAG C AMS,1 SET KG C AMS,2 KEY ACCTNO 60 C KG SETON LR C KG GOTO END C ACCTNO CHAINGLFILE 04 C SETON 05 C EXCPT C SETOF 05 C 04 GOTO END C 10 MOVE AMS,3 MSG 79 C N10 MOVE AMS,4 MSG C AD,M SET KA C MSG KEY AMT 112 03 C 03 Z-ADDAD,M AMT C KA Z-ADD0 AMT C Z-ADDAMT AD,M C 10 MOVE AMS,5 MSG C N10 MOVE AMS,6 MSG C AC,M SET KA C MSG KEY AMT 03 C 03 Z-ADDAC,M AMT C KA Z-ADD0 AMT C Z-ADDAMT AC,M C SETON 07 C EXCPT C SETOF 07 C END TAG OCRT E 203 09 O 24 '***** PLEASE READ THIS C' O 42 'AREFULLY !!! *****' O E 01 09 O 24 'WITH THIS PROGRAM YOU MA' O 33 'Y CHANGE:' O E 01 09 O 29 '1.) THE YEARLY FIGURE FO' O 53 'R THE END OF THE PREVIOU' O 62 'S YEAR 19' O CPY 64 O E 02 09 O 29 '2.) ANY OF THE PREVIOUS ' O 47 '12 MONTHLY FIGURES' O E 02 09 08 O 24 'ALL 12 MONTHLY FIGURES A' O 48 'RE FOR THE PREVIOUS YEAR' O 51 ' 19' O CPY 53 O E 01 09N08 O 24 'THE MONTHLY FIGURES FROM' O 40 ' JANUARY THROUGH' O AM,CPM 50 O E 02 09N08 O 29 'ARE FOR THE CURRENT YEAR' O 32 ' 19' O CY 34 O E 01 09N08 O 24 'THE MONTHLY FIGURES FROM' O AM,CM 34 O 51 'THROUGH DECEMBER' O E 02 09N08 O 29 'ARE FOR THE PREVIOUS YEA' O 33 'R 19' O CPY 35 O E 02 09 O 24 'PLEASE ENTER A NUMBER FR' O 48 'OM 0 TO 13 TO INDICATE W' O 72 'HICH FIGURES YOU WISH TO' O 78 ' ENTER' O E 02 09 O 29 '1.) 0 = ENDING YEAR BALA' O 50 'NCE FOR PREVIOUS YEAR' O E 01 09 O 29 '2.) 1-12 = MONTHLY FIGUR' O 46 'E FOR THIS MONTH#' O E 02 06 O 24 'NOT A NUMBER FROM 0 TO 1' O 42 '3 - PLEASE REENTER' O E 02 05 O 04 24 'NOT IN GENERAL LEDGER FI' O 04 26 'LE' O N04 ACCNAM 30 OGLFILE E 07 O AD 115P O AC 193P ** PRESS COMMAND KEY 7 AND ENTER IF THERE ARE NO MORE ENTRIES, OR ENTER ACCOUNT# ENTER TOTAL DEBIT AMOUNT AT END OF PREVIOUS YEAR ENTER MONTHLY DEBIT AMOUNT FOR PREVIOUS YEAR ENTER TOTAL CREDIT AMOUNT AT END OF PREVIOUS YEAR (INCLUDE - SIGN) ENTER MONTHLY CREDIT AMOUNT FOR PREVIOUS YEAR (INCLUDE - SIGN) ** JANUARY FEBRUARY MARCH APRIL MAY JUNE JULY AUGUST SEPTEMBEROCTOBER NOVEMBER DECEMBER // CEND // COPY LIBRARY-S,NAME-JF0130,RECL-096,REF-000004,DATE-01/03/23,TIME-1226,SUB-RPG H B 1 JF0130 FHOUSE IPE F 41 41 9AI 1 DISK FCUSMAS IC F 600 600R 6AI 1 DISK FINP ID F 79 79 KEYBORD FXHSITM O F 45 45 2 DISK E AMS 1 6 79 E AF 30 7 E AT 30 7 E AC 50 6 0 IHOUSE AA 08 10 CA I P 38 410CNO7 I AA 01 10 CI I 1 41 REC I 11 17 ITMNO I BB 02 ICUSMAS AA 05 600NCA I BB I 299 300 SALMAN C 03 GOTO BEGIN C SETON 03 C Z-ADD31 J 20 C AGN1 TAG C J SUB 1 J C AMS,1 SET KG C AMS,2 KEY AF,J C KG J ADD 1 J C KG GOTO ASKCS C AMS,3 KEY AT,J C AT,J COMP ' ' 04 C 04 MOVE AF,J AT,J C J COMP 1 04 C N04 GOTO AGN1 C ASKCS TAG C AMS,4 KEY ALLCUS 1 C ALLCUS COMP 'Y' 09 C 09 GOTO ASKSM C Z-ADD51 C 20 C AGN3 TAG C AMS,1 SET KG C AMS,5 KEY ICNO 60 C KG GOTO ASKSM C C SUB 1 C C Z-ADDICNO AC,C C C COMP 1 04 C N04 GOTO AGN3 C ASKSM TAG C AMS,6 KEY HSESM 1 C HSESM COMP 'H' 06 C HSESM COMP 'S' 07 C N06N07 GOTO ASKSM C BEGIN TAG C 08 SETOF 10 C 08 MOVE ' ' SALMAN C 08 Z-ADDCNO7 CNO 60 C 08 07 CNO CHAINCUSMAS 05 C 08N09 Z-ADDC I C 08N09 CNO LOKUPAC,I 10 C 08 09 SETON 10 C N01 GOTO END C 01N10 GOTO END C J COMP 31 04 C 04 GOTO END C J SUB 1 I 20 C AGN2 TAG C I ADD 1 I C I COMP 31 04 C 04 GOTO END C AF,I COMP ITMNO 0101 C 01 AT,I COMP ITMNO 01 01 C 01 GOTO END C GOTO AGN2 C END TAG OXHSITM D 01 10 O REC 41 O ALLCUS 42 O HSESM 43 O SALMAN 45 ** PRESS COMMAND KEY 7 & ENTER IF THERE ARE NO MORE ENTRIES TO BE MADE, OR ENTER FROM ITEM NUMBER DESIRED (30 SET MAXIMUM) ENTER THROUGH ITEM NUMBER (JUST PRESS ENTER IF SAME AS FROM ITEM NUMBER) DO YOU WISH ALL CUSTOMERS ? (Y=YES, N=NO) ENTER CUSTOMER NUMBER DESIRED (50 MAXIMUM) DO YOU WISH LISTING BY HOUSE# (H) OR BY SALESMAN/HOUSE# (S) ? // CEND // COPY LIBRARY-S,NAME-JF0131,RECL-096,DATE-04/02/04,TIME-1036,SUB-RPG H B 1 JF0131 FXHSITS IPE F 45 45 2 DISK FCNTRL IC F 32 32R DISK FPROD IC F 400 400R 9AI 1 DISK FHOUSE IC F 41 41R 9AI 1 DISK FCUSMAS IC F 600 600R 6AI 1 DISK FPRT O F 132 132 OV PRINTER IXHSITS AA 05 I 1 60HSENO I 11 17 ITMNO L1 I 18 210QTY I 23 23 LR I 42 42 ALLCUS I 43 43 HSESM I 44 45 SALMANL2 ICNTRL AA 1 C0 2 C0 3 C7 I 4 32 CONAME IPROD BB 06 I 134 160 DESC IHOUSE AA 03 10NCA I BB I P 38 410CNO7 ICUSMAS AA 04 600NCA I BB I 8 37 CNAME I 97 121 DEVCO C N02 MOVE ' ' BLNK30 30 C N02 7 CHAINCNTRL C N02 ALLCUS COMP 'Y' 09 C N02 HSESM COMP 'H' 07 C N02 Z-SUB1 LINE 30 C N02 MOVE LINE HKEY 9 C N02 SETON 02OV C L2 COR OV SETON 08 C 08 EXCPT C 08 SETOF 08OV C L1 Z-ADD0 TQTY 60 C L1 MOVELITMNO KEY 9 C L1 MOVE '01' KEY C L1 KEY CHAINPROD 04 C MOVE BLNK30 CNAME C MOVE BLNK30 DEVCO C MOVELHSENO HKEY C HKEY CHAINHOUSE 03 C N03 Z-ADDCNO7 CNO 60 C N03 CNO CHAINCUSMAS 04 C TQTY ADD QTY TQTY OPRT E 103 08 O CONAME 29 O E 01 08 O UDATE Y 8 O 37 'I T E M D I S T R I B ' O 61 'U T I O N I N H O U ' O 68 'S E S -' O 07 78 'BY HOUSE#' O N07 88 'BY SALESMAN, HOUSE#' O 09 99 'ALL CUST' O N09 104 'SELECTED CUST' O U1 121 'REGULAR HOUSES' O U2 123 'ESTIMATED HOUSES' O PAGE 132 O 129 'PG' O E 01 08 O 37 '************************' O 61 '************************' O 66 '*****' O E 01 08 O 25 'ITEM# ITEM DESCRIPTION' O 63 'HOUSE# QTY L/R CUST' O 87 'OMER#, NAME, DEVELOPMENT' O 90 ' CO' O N07 132 'SM' O E 01 08 O 24 '************************' O *PLACE 48 O *PLACE 72 O *PLACE 96 O *PLACE 120 O 132 '************' O D 01 05 O L1 ITMNO 7 O L1N04 DESC 36 O HSENO L 46 O QTY J 53 O LR 56 O N03 CNO 65 O CNAME 100 O DEVCO 127 O N07 SALMAN 132 O T 01 L1 O 52 '-------' O T 02 L1 O 43 'ITEM TOTAL' O TQTY J 53 // CEND // COPY LIBRARY-S,NAME-JF0133,RECL-096,DATE-03/10/26,TIME-2142,SUB-RPG H B 1 JF0133 FRECEV IPE F 300 300 2 DISK FINP ID F 79 79 KEYBORD FCUSMAS IC F 600 600R 6AI 1 DISK FXRCLS O F 310 310 2 DISK E AMS 1 4 79 E AS 100 2 IRECEV AA 01 300 CN I 1 256 REC1 I 257 300 REC2 I 8 130CNO I 8 110CNO4 I 18 190INVY I BB ICUSMAS AA 02 600NCA I BB I 299 300 SM I 485 4880MCNO4 C 03 GOTO BEGIN C SETON 03 C AMS,1 KEY YESNO 1 C YESNO COMP 'Y' 04 C 04 GOTO LSTGRP C Z-ADD101 I 30 C AGN1 TAG C AMS,2 SET KG C AMS,3 KEY ISM 2 C KG GOTO LSTGRP C I SUB 1 I C MOVE ISM AS,I C GOTO AGN1 C LSTGRP TAG C AMS,4 KEY YESNO 1 C YESNO COMP 'Y' 06 C BEGIN TAG C N01 GOTO END C Z-ADDINVY INVY4 40 C INVY COMP 70 07 C 07 MOVEL'19' INVY4 C N07 MOVEL'20' INVY4 C MOVE ' ' SM C Z-ADD0 MCNO4 C CNO CHAINCUSMAS 02 C 06 MCNO4 COMP 0 0808 C 04 GOTO END C N04 Z-ADDI J 30 C N04 SM LOKUPAS,J 01 C END TAG OXRCLS D 01 O REC1 256 O REC2 300 O SM 302 O 08 06 MCNO4 306 O N08 CNO4 306 O N06 CNO4 306 O INVY4 310 ** DO YOU WISH ALL SALESMEN ? (Y=YES, N=NO) PRESS COMMAND KEY 7 AND ENTER IF THERE ARE NO MORE ENTRIES, OR ENTER SALESMAN# CODE DESIRED (100 MAX) DO YOU WISH CUSTOMERS TO PRINT IN ORDER BY LISTING GROUP ? (Y=YES, N=NO) // CEND // COPY LIBRARY-S,NAME-JF0135,RECL-096,DATE-07/03/20,TIME-0948,SUB-RPG H B 1 JF0135 FXRCLSS IPE F 310 310 2 DISK FCNTRL IC F 32 32R DISK FINP ID F 79 79 KEYBORD FSALMEN IC F 32 32R 2AI 1 DISK FCUSMAS IC F 600 600R 6AI 1 DISK FCRT O F 79 79 CRT FPRT O F 132 132 OV PRINTER E AMS 1 2 79 E AA 5 9 2 E AS 5 9 2 E AT 5 9 2 E AMO 6 12 9 IXRCLSS AA 01 I 301 302 SNO L2 I 8 130CNO L1 I* 18 190YY I 14 150MM I 16 170DA I P 46 502BALDUE I 307 3100YY4 ICNTRL AA 1 C0 2 C0 3 C7 I 4 32 CONAME ISALMEN CC 16 32NCA I DD 19 I 3 31 SNAME ICUSMAS BB 02 I 8 32 CNAME I 97 112 DEVCO I 600 600 ACTV C 03 GOTO BEGIN C SETON 03 C MOVE ' ' BLNK29 29 C 7 CHAINCNTRL C TIME TIME 60 C MOVELTIME TIMEHM 40 C AMS,1 KEY IMN 20 C AMS,2 KEY IYR 20 C Z-ADDIYR IYR4 40 C IYR COMP 70 04 C 04 MOVEL'19' IYR4 C N04 MOVEL'20' IYR4 C Z-ADDIYR4 YXX C IMN ADD 1 MXX C MXX COMP 13 04 C 04 Z-ADD1 MXX C 04 YXX ADD 1 YXX C MOVELYXX YRM0 60 C MOVE MXX YRM0 C MOVE IMN MXX 20 C MOVE IMN M1 20 C MOVE IYR4 YXX 40 C MXX SUB 1 MXX 04 C 04 Z-ADD12 MXX C 04 YXX SUB 1 YXX C MOVELYXX YRM1 60 C MOVE MXX YRM1 C MOVE MXX M2 20 C MXX SUB 1 MXX 04 C 04 Z-ADD12 MXX C 04 YXX SUB 1 YXX C MOVELYXX YRM2 60 C MOVE MXX YRM2 C MOVE MXX M3 20 C MXX SUB 1 MXX 04 C 04 Z-ADD12 MXX C 04 YXX SUB 1 YXX C MOVELYXX YRM3 60 C MOVE MXX YRM3 C MOVE MXX M4 20 C MXX SUB 1 MXX 04 C 04 Z-ADD12 MXX C 04 YXX SUB 1 YXX C MOVELYXX YRM4 60 C MOVE MXX YRM4 C SETON 03 C BEGIN TAG C 01 MOVELYY4 YRMX 60 C 01 MOVE MM YRMX C L2 MOVE BLNK29 SNAME C L2 SNO CHAINSALMEN 16 C L2 SETON 15 C L2 Z-ADD0 AS C L2 SETOF 17 C L1 CNO CHAINCUSMAS 05 C L1N05 ACTV COMP 'D' 05 C L1 Z-ADD0 AA C L1 SETOF 14 C OV SETON 15 C SETOF 080910 C SETOF 0713 C DA COMP 25 12 C YRMX COMP YRM4 0611 C N11N06 YRMX COMP YRM3 07 C N11N06N07YRMX COMP YRM2 08 C N11N06N07 CANN08 YRMX COMP YRM1 10 09 C 11N12 SETON 06 C 11 12 SETON 07 C 11 12 SETOF 1112 C 07 12 SETON 08 C 07 12 SETOF 0712 C 08 12 SETON 09 C 08 12 SETOF 0812 C 09 12 SETON 10 C 09 12 SETOF 0912 C 10 12 SETON 13 C 10 12 SETOF 1012 C SETOF 22 C 10N13 YRMX COMP YRM0 22 C 22 SETON 13 C 22 SETOF 10 C 06 Z-ADD1 IX 10 C 07 Z-ADD2 IX C 08 Z-ADD3 IX C 09 Z-ADD4 IX C 10 Z-ADD5 IX C N13 AA,IX ADD BALDUE AA,IX C N13 SETON 1417 CL1 AT ADD AA AT CL1 AS ADD AA AS CL1 XFOOTAA AAT 92 CL1 14 15 EXCPT CL1 14 15 SETOF OV15 CL1 14 SETON 20 CL1 14 EXCPT CL1 14 SETOF 20 CL2 XFOOTAS AST 92 CL2 17 SETON 21 CL2 17 EXCPT CL2 17 SETOF 21 CLR XFOOTAT ATT 92 CLR SETON 1518 CLR EXCPT OCRT H 103 1P O 24 'INVOICES DATED UP TO AND' O 48 ' INCLUDING THE 25TH OF T' O 65 'HE MONTH AND YEAR' O H 02 1P O 24 'YOU INDICATE WILL APPEAR' O 40 ' ON THIS LISTING' O H 02 1P O 24 'ALL PAYMENTS UP TO THE C' O 48 'URRENT DATE WILL APPEAR ' O 63 'ON THIS LISTING' OPRT E 103 15 O CONAME 29 O N18 45 'SALESMAN- ,' O N18 SNO 44 O N18 SNAME 74 O 18 47 'ENTIRE COMPANY' O E 01 15 O 24 'SUMMARY AGED ACCTS RECEI' O 29 'VABLE' O 50 '- INVOICES TO /25/' O IMN 46 O IYR 52 O 70 'RUN DATE/TIME-' O UDATE Y 78 O TIMEHM 84 '0 : ' O U2 110 '*** BAD DEBTS ***' O PAGE 130 O 127 'PAGE' O E 02 15 O 24 '************************' O 29 '*****' O 53 'CASH TO RUN DATE/TIME' O E 01 15 O N18 18 'CUST NO & NAME' O N18 44 'DEVELOPMENT' O 60 'PREVIOUS' O AMO,M4 74 O AMO,M3 88 O AMO,M2 102 O AMO,M1 116 O 128 'TOTAL' O E 02 15 O 24 '************************' O 33 '*********' O *PLACE 66 O *PLACE 99 O *PLACE 132 O E 02 20 O CNO M 7 O N05 CNAME 32 O N05 DEVCO 49 O AA,1 B 62 O AA,2 B 76 O AA,3 B 90 O AA,4 B 104 O AA,5 B 118 O AAT A 132 O E 02 21 O 43 'SALESMAN TOTALS:' O AS,1 B 62 O AS,2 B 76 O AS,3 B 90 O AS,4 B 104 O AS,5 B 118 O AST A 132 O E 10 18 O 43 'TOTALS:' O AT,1 B 62 O AT,2 B 76 O AT,3 B 90 O AT,4 B 104 O AT,5 B 118 O ATT A 132 ** ENTER REPORT MONTH DESIRED (2 DIGITS) ENTER REPORT YEAR DESIRED (2 DIGITS) ** JANUARY FEBRUARY MARCH APRIL MAY JUNE JULY AUGUSTSEPTEMBER OCTOBER NOVEMBER DECEMBER // CEND // COPY LIBRARY-S,NAME-JF0136,RECL-096,DATE-01/03/23,TIME-1226,SUB-RPG H B 1 JF0136 FXPRLST IPE F 140 140 2 DISK FXQRTDT ID F 16 16 DISK FEMPLYE IC F 350 350R 5AI 1 DISK FPRT O F 132 132 OV PRINTER FDISP O F 79 79 CRT IXPRLST AA 99 I 1 5 NO L2 I 6 11 WEEK L1 I P 38 412GRS I P 50 532STTAX I 106 107 STATE IXQRTDT AA I 1 60DAT I P 7 102MIN I P 11 130NUMEMP IEMPLYE BB 98 I 6 20 LNAM I 21 35 FNAM I P 36 400SSNO C 01 GOTO BEGIN C SETON 0102 C READ XQRTDT C NUMEMP DIV 25 TPAGFR 73 C MOVE TPAGFR DUM3 30 C MOVELTPAGFR TPAG 40 C DUM3 COMP 0 10 C 10 TPAG ADD 1 TPAG C SETON 02 C EXCPT C SETOF 02 C BEGIN TAG C L1 Z-ADD0 WGRS 82 C L2 Z-ADD0 EGRS 82 C L2 Z-ADD0 ESTTAX 92 C L2 Z-ADD0 EBSWK 30 C WGRS ADD GRS WGRS C EGRS ADD GRS EGRS C TGRS ADD GRS TGRS 102 C ESTTAX ADD STTAX ESTTAX C TSTTAX ADD STTAX TSTTAX 102 CL1 WGRS COMP MIN 10 10 CL1 10 EBSWK ADD 1 EBSWK CL1 10 TBSWK ADD 1 TBSWK 50 CL2 NO CHAINEMPLYE 03 CL2 NUM ADD 1 NUM 40 CL2 NUM COMP 25 10 CL2 10 SETON 02 CL2 10 EXCPT CL2 10 SETOF 02 CL2 10 Z-ADD0 NUM OPRT E 204 02 O 6 '00' O 19 '051364-00-5' O 25 '000' O DAT Y 42 O 37 '-' O 40 '-' O PAGE 56 O TPAG 3 63 O E 01 02 O 28 'JOFFE LUMBER & SUPPLY CO' O 35 '., INC.' O E 01 02 O 12 'PO BOX K' O E 02 02 O 26 'VINELAND NJ 08360-0110' O T 02 L2 O N03 SSNO 15 '0 - - ' O N03 LNAM 34 O N03 FNAM 50 O 03 23 'EMP#' O 03 NO 29 O 03 50 'NOT IN EMPLOYEE FILE' O EGRS L 71 O EBSWK L 81 O T 060 LR O NUMEMPL 15 O TGRS L 35 // CEND // COPY LIBRARY-S,NAME-JF0137,RECL-096,DATE-01/03/23,TIME-1226,SUB-RPG H B 1 JF0137 FINP IP F 79 79 KEYBORD FEMPLYE UC F 350 350R 5AI 1 DISK A FPAYRL UC F 140 140R DISK FYPAYRL UC F 140 140R DISK FDISP O F 79 79 CRT E AMS 1 4 79 E AO 50 5 0 E AN 50 5 0 IEMPLYE CC 12 I 6 256 REC1 I 257 350 REC2 IPAYRL AA 13 I 1 50ENO IYPAYRL AA 14 I 1 50ENO C AGN1 TAG C AMS,1 SET KG C AMS,2 KEY ONO 50 C KG SETON LR C KG GOTO BEGIN1 C ONO CHAINEMPLYE 04 C 04 SETON 05 C 04 EXCPT C 04 SETOF 05 C 04 GOTO AGN1 C AMS,3 KEY NNO 50 C NNO CHAINEMPLYE 04 C N04 SETON 09 C N04 EXCPT C N04 SETOF 09 C N04 GOTO AGN1 C AMS,4 KEY YN 1 C YN COMP 'N' 08 C 08 GOTO AGN1 C SETON 10 C EXCPT C SETOF 10 C ONO CHAINEMPLYE C SETON 11 C EXCPT C SETOF 11 C I ADD 1 I 20 C Z-ADDONO AO,I C Z-ADDNNO AN,I C GOTO AGN1 C BEGIN1 TAG C RECNO ADD 1 RECNO 50 C RECNO CHAINPAYRL 15 C N15 Z-ADD1 I C N15 ENO LOKUPAO,I 16 C N15 16 SETON 17 C N15 16 EXCPT C N15 16 SETOF 17 C N15 GOTO BEGIN1 C Z-ADD0 RECNO C BEGIN2 TAG C RECNO ADD 1 RECNO 50 C RECNO CHAINYPAYRL 15 C N15 Z-ADD1 I C N15 ENO LOKUPAO,I 16 C N15 16 SETON 18 C N15 16 EXCPT C N15 16 SETOF 18 C N15 GOTO BEGIN2 ODISP H 11 1P O 24 'C H A N G E E M P L O ' O 45 'Y E E N U M B E R S' O E 11 05 O 20 'NOT IN EMPLOYEE FILE' O E 11 09 O 24 'ALREADY IN EMPLOYEE FILE' OEMPLYE E 11 O 350 'D' O EADD 10 O REC1 256 O REC2 350 O NNO 5 OPAYRL E 17 O AN,I 5 OYPAYRL E 18 O AN,I 5 ** PRESS COMMAND KEY 7 & ENTER IF THERE ARE NO MORE ENTRIES TO BE MADE, OR ENTER OLD EMPLOYEE # ENTER NEW EMPLOYEE # ENTER WHETHER OR NOT OK (Y=YES,N=NO) // CEND // COPY LIBRARY-S,NAME-JF0143,RECL-096,DATE-01/03/23,TIME-1226,SUB-RPG H B 1 JF0143 FXHSELI IPE F 41 41 9AI 1 DISK FHOUSE O F 41 41 9AI 1 DISK FDELHS O F 41 41 DISK IXHSELI AA 01 10 CA I 1 41 RECORD I BB 02 10 CB I OR 02 10 CH I OR 02 10 CI I OR 02 10 CE I 1 41 RECORD I CC 03 C 01 Z-SUB1 LINE 30 C 02 LINE ADD 1 LINE OHOUSE D 01 O RECORD 41 O D 02 O RECORD 41 O LINE 9 ODELHS D 03 O RECORD 41 // CEND // COPY LIBRARY-S,NAME-JF0146,RECL-096,DATE-11/10/27,TIME-1335,SUB-RPG H B 1 JF0146 FINP IP F 79 79 KEYBORD FCUSMAS IC F 600 600R 6AI 1 DISK FPRCTAB ID F 35 35L14AI 1 DISK FHOUSE IC F 41 41R 9AI 1 DISK FLOAD IC F 100 100R 9AI 1 DISK FORDER IC F 200 200R 6AI 1 DISK FRELSHT IC F 180 180R 6AI 34 DISK FPROD IC F 400 400R 9AI 1 DISK FXLODOF O F 100 100 9AI 1 DISK U FXMSCSO O F 97 97 7AI 1 DISK FDISP O F 79 79 CRT E AMS 1 53 79 E AX 6 1 E AM 12 12 2 0 ICUSMAS AA I 8 37 CNM I 299 300 CSM I 431 431 XORD I 432 432 XPO1 I 600 600 ACTV IPRCTAB AA 31 35 CA I 1 60PTBCUS I BB IHOUSE BB 12 I 10 10 STAT I 1 41 HSEREC I P 38 410HSCNO7 ILOAD AA I 10 10 LODACT IORDER AA IRELSHT AA I 180 180 RELACT IPROD AA I 11 11 TYPEF I P 53 550LINFT I 134 160 DESC C MOVE ' ' BLNK10 10 C Z-ADD0 Z3 30 C Z-ADD0 Z5 50 C Z-ADD0 Z6 60 C Z-ADD0 Z7 70 C Z-SUB1 LINEA 30 C Z-ADD0 LINEB 30 C MOVE ' ' BLNK27 27 C MOVE '00I' LOADKY 9 C Z-ADD0 SEQNO 30 C AGOREN TAG C N04 AMS,1 KEY ORDNO 60 C N04 ORDNO CHAINORDER 10 C N04N10 SETON 18 C N04N10 EXCPT C N04N10 SETOF 18 C N04N10 AMS,53 KEY YESNO 1 C N04N10 YESNO COMP 'Y' 11 C N04N10N11 GOTO AGOREN C N04 ORDNO SUB 1 ORDNO C AGNLD TAG C 04 LNO ADD 1 LNO 60 C N04 AMS,2 KEY LNO C MOVELLNO LOADKY C LOADKY CHAINLOAD 10 C N10 LODACT COMP 'D' 10 C N10N04 SETON 14 C N10N04 EXCPT C N10N04 SETOF 14 C N10 GOTO AGNLD C LNO CHAINRELSHT 10 C N10 RELACT COMP 'D' 10 C N10N04 SETON 14 C N10N04 EXCPT C N10N04 SETOF 14 C N10 GOTO AGNLD C SETON 04 C AGNCNO TAG C AMS,3 SET KAKG C AMS,4 KEY CNO 60 C KG SETON LR C KG GOTO END C CNO CHAINCUSMAS 07 C N07 ACTV COMP 'D' 07 C N07 XORD COMP 'X' 99 C N07 XPO1 COMP 'X' 98 C SETON 08 C EXCPT C SETOF 08 C 07 GOTO AGNCNO C N07 99 GOTO AGNCNO C AGORNM TAG C NKA ORDNO ADD 1 ORDNO C NKA ORDNO CHAINORDER 10 C NKAN10 SETON 18 C NKAN10 EXCPT C NKAN10 SETOF 18 C NKAN10 AMS,53 KEY YESNO 1 C NKAN10 YESNO COMP 'Y' 11 C NKAN10N11 GOTO AGORNM C MOVELCNO KYPRTB 14 C KYPRTB SETLLPRCTAB C AGNPTB TAG C SETOF 3132 C READ PRCTAB 32 C N32N31 GOTO AGNPTB C 31 CNO COMP PTBCUS 31 C 32 CORN32N31 SETON 33 C 32 CORN32N31 EXCPT C 32 CORN32N31 SETOF 33 C MOVELCNO CNO3 30 C CNO3 COMP 630 26 C 26 AMS,48 KEY CNAM 30 C 26 AMS,49 KEY CADR 30 C 26 AMS,50 KEY CCTST 24 C 26 AMS,51 KEY CZIP 5 C AGCSPR TAG C AMS,5 KEY CUSPR 1 C CUSPR COMP 'Y' 22 C N22 CUSPR COMP 'N' 22 C 32N22 CORN32N31N22 GOTO AGCSPR C CUSPR COMP 'N' 2828 C AGNPO1 TAG C AMS,6 KEY PONO1 10 C 98 PONO1 COMP BLNK10 11 C 98 11 SETON 97 C 98 11 EXCPT C 98 11 SETOF 97 C 98 11 GOTO AGNPO1 C AMS,7 KEY PONO2 10 C AMS,8 KEY PONO3 10 C AMS,9 KEY PONO4 10 C AMS,10 KEY NJCON 50 C AGAIN TAG C SETOF 20 C AMS,11 KEY HNO 60 22 C 22 GOTO ENDHSE C MOVELHNO HSELN 9 C MOVE LINEA HSELN C SETOF 20 C HSELN CHAINHOUSE 20 C N20 STAT COMP 'D' 20 C N20 MOVE HSEREC HSREC1 41 C 20 SETON 21 C 20 EXCPT C 20 SETOF 21 C 20 GOTO AGAIN C Z-ADDHSCNO7 HSCNO 60 C MOVELHSCNO HSCNO4 40 C MOVE HSCNO HSCNO2 20 C HSCNO2 COMP 0 22 C 22 MOVELCNO CNO4 40 C 22 HSCNO4 COMP CNO4 1111 C N22 HSCNO COMP CNO 1111 C 11 SETON 27 C 11 EXCPT C 11 SETOF 27 C 11 AMS,52 KEY HSLD 1 C 11 HSLD COMP 'X' 22 C 11 22 LNO SUB 1 LNO C 11 22 GOTO AGNLD C 11 HSLD COMP 'H' 22 C 11 22 GOTO AGAIN C MOVE LINEB HSELN C SETOF 20 C HSELN CHAINHOUSE 20 C N20 STAT COMP 'D' 20 C N20 MOVE HSEREC HSREC2 41 C 20 SETON 21 C 20 EXCPT C 20 SETOF 21 C 20 GOTO AGAIN C ENDHSE TAG C MOVE ' ' AX C HNO COMP 0 22 C N22 MOVE HNO HSENO6 10 C N22 HSENO6 COMP 5 11 C N22 11 MOVE 'X' AX,1 C N22 HSENO6 COMP 6 11 11 C N22 11 HSENO6 COMP 9 1111 C N22 11 MOVE 'X' AX,2 C N22 HSENO6 COMP 1 11 C N22 11 MOVE 'X' AX,3 C N22 HSENO6 COMP 2 11 11 C N22 11 HSENO6 COMP 4 1111 C N22 11 MOVE 'X' AX,4 C N22 HSENO6 COMP 0 11 C N22 11 MOVE 'X' AX,5 C 22 AMS,12 KEY AX,1 C 22 AMS,13 KEY AX,2 C 22 AMS,14 KEY AX,3 C 22 AMS,15 KEY AX,4 C 22 AMS,16 KEY AX,5 C 22 AMS,17 KEY AX,6 C 22 AMS,18 KEY DESC1 27 C 22 AMS,19 KEY DESC2 27 C AMS,20 KEY REGI 3 C MOVELREGI REGD 1 C REGD COMP 'O' 11 C Z-ADD1 REGF 10 C 11 Z-ADD0 REGF C AMS,21 KEY BLDG 9 C AMS,22 KEY LOT 8 C AMS,23 KEY BSEQ 4 C AMS,24 KEY ORDDAT 60 C AGNDEL TAG C AMS,25 KEY DELDAT 60 C DELDAT COMP 122950 11 C N11 DELDAT COMP 123050 11 C N11 DELDAT COMP 123150 11 C 11 GOTO ENDDEL C MOVELDELDAT DMD 40 C MOVE DELDAT DY 20 C MOVELDMD DM 20 C DM COMP 1 11 C N11 DM COMP 12 11 C 11 GOTO AGNDEL C MOVE DMD DD 20 C Z-ADDDY YR 40 C YR COMP 50 11 C 11 MOVEL'19' YR C N11 MOVEL'20' YR C YR SUB 1 PREVYR 40 C PREVYR DIV 4 LEAPYR 52 C MOVELLEAPYR LEAPS 30 C YR DIV 4 LEAPYR C MOVE LEAPYR DUM2 20 C DUM2 COMP 0 11 C N11 Z-ADD28 AM,2 C 11 Z-ADD29 AM,2 C DD COMP 1 11 C N11 DD COMP AM,DM 11 C 11 GOTO AGNDEL C PREVYR MULT 365 DAYS 60 C DAYS ADD LEAPS DAYS C Z-ADD0 M 20 C AGNMN TAG C M ADD 1 M C M COMP DM 11 C 11 DAYS ADD AM,M DAYS C 11 GOTO AGNMN C DAYS ADD DD DAYS C DAYS DIV 7 WKS 60 C WKS MULT 7 WKDAYS 60 C DAYS SUB WKDAYS DYWK 10 11 C 11 Z-ADD7 DYWK C DYWK COMP 1 11 C N11 DYWK COMP 7 11 C 11 GOTO AGNDEL C ENDDEL TAG C CSM SET KA C AMS,26 KEY SM 2 C SM COMP ' ' 11 C 11 MOVE CSM SM C KA MOVE ' ' SM C AMS,27 KEY RECBY 2 C AMS,28 KEY PROCBY 2 C AMS,29 KEY SPADDR 1 C AMS,30 KEY PRTY 1 C AMS,31 KEY DIS 31 C AMS,32 KEY ACC 1 C ACC COMP 'N' 16 C 16 ORDNO SUB 1 ORDNO C 16 GOTO AGNCNO C SETON 17 C EXCPT C SETOF 17 C N22 GOTO END C MORE TAG C SETOF 0613 C MOVE ' ' PRCD 1 C Z-ADD0 PRICE C MOVE ' ' LRH C Z-ADD0 LINFT C MOVE BLNK27 DESC C AMS,46 SET KF C AMS,33 KEY TYPE 1 C KF GOTO END C TYPE COMP 'H' 23 C TYPE COMP 'D' 24 C TYPE COMP 'I' 25 C N23N24N25 SETON 19 C N23N24N25 EXCPT C N23N24N25 SETOF 19 C N23N24N25 GOTO MORE C 24 MOVE 'E' TYPE C 24 GOTO LRH C AMS,34 KEY ITEM 7 C ITEM COMP '9999999' 06 C N06 MOVE '01' ITMLN 9 C N06 MOVELITEM ITMLN C N06 ITMLN CHAINPROD 07 C N06N07 TYPEF COMP 'D' 07 C N06 SETON 96 C N06 EXCPT C N06 SETOF 96 C N06 07 GOTO MORE C 23 GOTO ACCEPT C AMS,35 KEY QUAN 40 C 06 GOTO PRICE C PRCECD TAG C 28 GOTO LRH C AMS,36 KEY PRCD C PRCD COMP '0' 11 11 C 11 PRCD COMP '9' 1111 C N11 MOVE '1' PRCD C Z-ADD0 PRICE 94 C PRCD COMP '9' 11 C PRICE TAG C SETOF 09 C 06 CORN06 11 AMS,37 KEY PRICE 09 C 09 AMS,47 KEY YN 1 C 09 YN COMP 'Y' 0909 C 09 GOTO PRICE C LRH TAG C AMS,38 KEY LRH 1 C 06 AMS,39 KEY LINFT C DESC TAG C 06 COR 24 AMS,40 KEY DESC C N06 GOTO ACCEPT C AMS,41 KEY DEPT 2 C AMS,42 KEY LABEL 1 C AMS,43 KEY MWORK 52 C AMS,44 KEY AWORK 52 C AMS,45 KEY DPSBCT 20 C ACCEPT TAG C AMS,32 KEY ACC C ACC COMP 'N' 11 C 11 GOTO MORE C SEQNO ADD 1 SEQNO C SETON 15 C EXCPT C SETOF 15 C GOTO MORE C END TAG ODISP H 11 1P O 24 'E N T E R O D D L O ' O 29 'A D S' O E 11 18 O 24 'ORDER# HAS BEEN U' O 38 'SED PREVIOUSLY' O ORDNO M 14 O E 11 14 O 5 'LOAD#' O LNO 12 O 28 'USED PREVIOUSLY' O E 11 08 07 O 20 'NOT IN CUSTOMER FILE' O E 11 08N07 99 O 17 'NO ORDERS ALLOWED' O E 11 08N07N99 O CNM 35 O 48 'SALESMAN' O CSM 51 O E 11 33 O 24 '************************' O 39 '***************' O E 01 33 O 24 'WARNING - NO PRICING TAB' O 39 'LE FOR CUSTOMER' O E 01 33 O 24 '************************' O 39 '***************' O E 11 97 O 24 'PO# MUST BE ENTERED FOR ' O 37 'THIS CUSTOMER' O E 11 21 O 17 'NOT IN HOUSE FILE' O E 11 27 O 24 'HOUSE NOT ASSIGNED TO TH' O 35 'IS CUSTOMER' O E 11 19 O 24 'INVALID TYPE - NOT H,D,I' O E 11 96N07 O DESC 35 O E 11 96 07 O 19 'NOT IN PRODUCT FILE' OXLODOF E 17 O LNO 6 O 9 '00I' O 10 'F' O CNO 16 O HNO 22 O REGF 23 O BLDG 32 O LOT 40 O BSEQ 44 O DELDAT 50 O PRTY 54 O Z3 59P O AX 66 O ORDDAT 71P O SM 73 O RECBY 75 O PROCBY 77 O SPADDR 78 O ORDNO 85 O Z6 91 O E 17 O LNO 6 O LINEA 9 O 10 'I' O N22 HSREC1 51 O 22 20 'A' O 22 DESC1 47 O 22 Z7 51P O PONO1 61 O PONO2 71 O DELDAT 75P O DIS 79P O E 17 O LNO 6 O LINEB 9 O 10 'I' O N22 HSREC2 51 O 22 20 'B' O 22 DESC2 47 O 22 Z7 51P O PONO3 61 O PONO4 71 O NJCON 79P O E 15 25 O LNO 6 O SEQNO 9 O 10 'I' O N06 20 'I' O N06 ITEM 27 O N06 QUAN 31 O N06 PRCD 32 O N06 LRH 33 O N06 PRICE 38P O N06 LINFT 41P O N06 Z5 54P O N06 Z5 57P O N06 Z5 60P O N06 QUAN 63P O 06 20 'M' O 06 QUAN 23P O 06 LRH 24 O 06 PRICE 29P O 06 LINFT 32P O 06 DESC 59 O 06 Z5 62P O 06 Z5 65P O 06 Z5 68P O 06 DEPT 70 O 06 LABEL 71 O 06 MWORK 74P O 06 AWORK 77P O 06 DPSBCT 79 O E 15 23 O LNO 6 O SEQNO 9 O 10 'I' O 20 'H' O ITEM 27 O E 15 24 O LNO 6 O SEQNO 9 O 10 'I' O 20 'E' O DESC 47 O LRH 48 OXMSCSO E 17 26 O 1 'L' O LNO 7 O CNAM 37 O CADR 67 O CCTST 91 O CZIP 96 O 97 'A' ** ENTER ORDER NUMBER ENTER LOAD NUMBER PRESS COMMAND KEY 7 & ENTER IF THERE ARE NO MORE ENTRIES TO BE MADE, OR ENTER CUSTOMER NUMBER (PRESS COMMAND KEY 1 BEFORE CUST# IF SAME ORDER#) WILL THE CUSTOMER PRICING TABLE BE USED FOR PRICING (Y=YES, N=NO) ENTER FIRST PURCHASE ORDER NUMBER ENTER SECOND PURCHASE ORDER NUMBER ENTER THIRD PURCHASE ORDER NUMBER ENTER FOURTH PURCHASE ORDER NUMBER ENTER NJ 3% TAX CONTRACT NUMBER ENTER HOUSE NUMBER ENTER X IF INTERIOR ENTER X IF INTERIOR OPTION ENTER X IF EXTERIOR ENTER X IF EXTERIOR OPTION ENTER X IF STAIRS ENTER X IF MISCELLANEOUS ENTER FIRST LINE OF DESCRIPTION ENTER SECOND LINE OF DESCRIPTION ENTER R=REGULAR, O=OPPOSITE ENTER BUILDING/BLOCK ENTER LOT ENTER SEQUENCE/UNIT ENTER ORDER DATE-MDY ENTER DELIVERY DATE-MDY ENTER SALESMAN, PRESS ENTER TO USE ABOVE SALESMAN, OR CK1 TO SET TO BLANKS ENTER RECEIVED BY ENTER PROCESSED BY ENTER X IF SPECIAL ADDRESS, BLANK IF NOT ENTER X IF PRIORITY LOAD, BLANK IF NOT ENTER % DISCOUNT-1/10% ENTER WHETHER OR NOT ENTRIES ARE OK (Y=YES, N=NO) ENTER LINE TYPE (H=HEADING, I=ITEM, D=DESCRIPTION) OR BLANK FOR NEXT LOAD ENTER ITEM NUMBER - (9999999 FOR MANUAL ITEM) ENTER QUANTITY ENTER PRICE CODE (0=NO CHARGE, 1 OR BLANK=REGULAR, 2-8=REGULAR, 9=SPECIAL) ENTER SPECIAL PRICE ENTER L=LEFT HAND, R=RIGHT HAND, BLANK=NOT APPLICABLE ENTER LINEAR FEET ENTER DESCRIPTION ENTER DEPARTMENT ENTER LABEL TYPE ENTER MAIN WORK VALUE (TO 2 DECIMAL POSITIONS) ENTER ADD ON WORK VALUE (TO 2 DECIMAL POSITIONS) ENTER DEPARTMENT SUB CATEGORY # PRESS COMMAND KEY 6 TO GO TO NEXT LOAD, OR ARE YOU SURE THIS ITEM HAS NO PRICE ? (Y=YES, N=NO, DOES NOT DEFAULT TO Y) ENTER MISCELLANEOUS CUSTOMER NAME ENTER MISCELLANEOUS CUSTOMER ADDRESS ENTER MISCELLANEOUS CUSTOMER CITY AND STATE ENTER MISCELLANEOUS CUSTOMER ZIP CODE ENTER: H TO ENTER NEW HOUSE#, A TO ACCEPT HOUSE#, X TO SKIP ORDER FOR NOW DO YOU WISH TO RE-USE SAME ORDER# (Y=YES, N=NO) ? ** 312931303130313130313031 // CEND // COPY LIBRARY-S,NAME-JF0149,RECL-096,DATE-06/03/27,TIME-1006,SUB-RPG H B 1 JF0149 FLOAD1 IPE F 100 100 9AI 1 DISK FINP ID F 79 79 KEYBORD FLOAD2 UC F 100 100R 9AI 1 DISK FXCHGLD O F 7 7 DISK FDISP O F 79 79 CRT FXLOADB O F 100 100 9AI 1 DISK FXLMES O F 3 3 DISK E AMS 1 10 79 E AL 300 6 0 E ALL 900 9 0 E ADS 900 27 ILOAD1 AA 01 10NCX 10NCD I OR 09 I 1 60FLOAD L1 I 1 90FLODLN I 7 9 FLINE I 20 20 FTYPE I 1 100 RECORD ILOAD2 AA 21 10 CI 20 CH I 21 27 ITEM I BB 22 10 CI 20 CI I 21 27 ITEM I 28 310QTYORD I P 52 540QTYINV I P 55 570QTYBO I P 58 600QTYRB I CC 23 10 CI 20 CM I P 21 230QTYOR5 I 33 59 DESC I P 60 620QTYINV I P 63 650QTYBO I P 66 680QTYRB I DD 24 10 CI 20 CE I 21 47 DESC I EE 25 C 10 GOTO BEGIN C SETON 10 C MOVE ' ' BLNK27 27 C AMS,1 KEY YESNO 1 C YESNO COMP 'N' 03 C N03 AMS,2 KEY MESNO 30 C AMS,3 KEY BORBO 1 C BORBO COMP 'R' 16 C N16 MOVE 'B' BORBO C AGN TAG C I COMP 300 08 C 08 GOTO BEGIN C J COMP 900 08 C 08 GOTO BEGIN C AMS,4 SET KG C AMS,5 KEY LOAD 60 C KG GOTO BEGIN C LOAD LOKUPAL 08 C N08 I ADD 1 I 30 C N08 Z-ADDLOAD AL,I C AMS,6 KEY LINE 30 0808 C 08 Z-ADD1 LINE C MOVELLOAD LOADLN 90 C MOVE LINE LOADLN C SETOF 212223 C SETOF 2425 C LOADLN CHAINLOAD2 02 C N02 SETON 06 C N02 EXCPT C N02 SETOF 06 C SETON 04 C EXCPT C SETOF 04 C 02 CORN02 25 GOTO AGN C J ADD 1 J 30 C Z-ADDLOADLN ALL,J C 23 Z-ADDQTYOR5 QTYORD C 23 MOVE '9999999' ITEM C SETON 05 C EXCPT C SETOF 05 C 21 LOADLN CHAINLOAD2 C 21 SETON 13 C 21 EXCPT C 21 SETOF 13 C 21 GOTO AGN C 24 ' ' SET KA C 24 AMS,10 KEY NDESC 27 C 24 NDESC COMP BLNK27 08 C 24 KA MOVE BLNK27 NDESC C 24 08NKA MOVE DESC NDESC C 24 MOVE NDESC ADS,J C 24 GOTO AGN C ' ' SET KA C AMS,7 KEY NQTYOR 40 08 C KA Z-ADD0 NQTYOR C 08NKA Z-ADDQTYORD NQTYOR C N16 ' ' SET KA C N16 AMS,8 KEY NQTYBO 50 08 C N16 KA Z-ADD0 NQTYBO C N16 08NKA Z-ADDQTYBO NQTYBO C N16 Z-ADDQTYRB NQTYRB C 16 Z-ADDQTYBO NQTYBO C 16 ' ' SET KA C 16 AMS,9 KEY NQTYRB 50 08 C 16 KA Z-ADD0 NQTYRB C 16 08NKA Z-ADDQTYRB NQTYRB C LOADLN CHAINLOAD2 C SETON 07 C EXCPT C SETOF 07 C MOVE LOADLN LOADBK 9 C MOVE '00I' LOADBK C N16 NQTYBO COMP 0 26 C 16 NQTYRB COMP 0 26 C 26 GOTO AGN C LOADBK CHAINLOAD2 02 C N02 SETON 15 C N02 EXCPT C N02 SETOF 15 C GOTO AGN C BEGIN TAG C 03 SETON LR C 03 GOTO END C L1 FLOAD LOKUPAL 08 C 08 12 FTYPE COMP 'E' 18 C 08N18 SETOF 12 C 08 12 Z-ADD1 J C 08 12 FLODLN LOKUPALL,J 18 C 08 12 GOTO END C 08 SETOF 12 C 08 FLINE COMP '001' 11 C 08 11 FLINE COMP '00I' 14 C 08N11 FLODLN LOKUPALL 12 C END TAG ODISP H 11 1P O 24 'E N T E R O R D E R E ' O 48 'D A N D B A C K O ' O 59 'R D E R E D' O H 01 1P O 24 'Q U A N T I T I E S O ' O 37 'N L O A D S' O H 11 1P O 24 'ANY NONZERO BACK ORDER O' O 48 'R RBO QUANTITY ENTERED W' O 72 'ILL CAUSE THE APPROPRIAT' O 73 'E' O H 01 1P O 24 'BACK ORDER CODE (B OR R)' O 48 ' TO BE PLACED IN THE LOA' O 57 'D HEADING' O E 11 04 02 O 16 'NOT IN LOAD FILE' O E 11 04 25 O 24 'NOT A HEADING, ITEM, OR ' O 48 'ADDITIONAL DESCRIPTION L' O 51 'INE' O E 11 05N24 O 5 'ITEM#' O ITEM 13 O E 01 05 23 O OR 05 24 O DESC 27 O E 01 05 22 O OR 05 23 O QTYORDJ 45 O 53 'ORDERED' O QTYINVJ 70 O 79 'INVOICED' O E 01 05 22 O OR 05 23 O QTYBO J 45 O 58 'BACK ORDERED' O QTYRB J 70 O 74 'RBO' OLOAD2 E 06 O E 13 O 52 'X' O E 07 O 22 NQTYOR 31 O 22 NQTYBO 57P O 22 NQTYRB 60P O 23 NQTYOR 23P O 23 NQTYBO 65P O 23 NQTYRB 68P O E 15 O BORBO 52 O 79 ' ' OXLOADB D 01 08 11 O OR 01 08 12 O RECORD 100 O 11 14 BORBO 52 O 12 18 ADS,J 47 OXCHGLD E 07 O LOAD 6 OXLMES T LR O MESNO 3 ** DO YOU WISH TO PRINT NEW LOAD TICKETS FOR THESE ENTRIES (Y=YES,N=NO) ENTER MESSAGE# TO PRINT ON LOADS (JUST PRESS ENTER IF NONE) ENTER B IF REGULAR BACK ORDERS, R IF R-BO'S PRESS COMMAND KEY 7 & ENTER IF THERE ARE NO MORE ENTRIES TO BE MADE, OR ENTER LOAD NUMBER ENTER LINE NUMBER ENTER NEW QUANTITY ORDERED (ENTER=DUP ABOVE, CK1=ZERO) ENTER NEW QUANTITY BACK ORDERED (ENTER=DUP ABOVE, CK1=ZERO) ENTER NEW QUANTITY RBO (ENTER=DUP ABOVE, CK1=ZERO) ENTER NEW ADDITIONAL DESCRIPTION (WILL NOT CHANGE ORIGINAL LOAD) // CEND // COPY LIBRARY-S,NAME-JF0150,RECL-096,DATE-06/03/27,TIME-1006,SUB-RPG H B 1 JF0150 FXLOAD IPE F 100 100 9AI 1 DISK FINP ID F 79 79 KEYBORD FXLOADP O F 100 100 9AI 1 DISK FXLMES O F 3 3 DISK E AMS 1 4 79 E AL 50 6 0 IXLOAD AA 01 I 1 60LOAD L1 I 1 100 RECORD C 02 GOTO BEGIN C SETON 02 C AMS,1 KEY ALL 1 C ALL COMP 'Y' 04 C 04 GOTO MESG C AGN TAG C I ADD 1 I 20 C I COMP 51 05 C 05 GOTO MESG C AMS,2 SET KG C AMS,3 KEY AL,I C NKG GOTO AGN C MESG TAG C AMS,4 KEY MESNO 30 C BEGIN TAG C L1 04 SETON 03 C L1N04 LOAD LOKUPAL 03 OXLOADP D 03 O RECORD 100 OXLMES T LR O MESNO 3 ** DO YOU WISH ALL LOADS TO PRINT ? (Y=YES, N=NO) PRESS COMMAND KEY 7 & ENTER IF THERE ARE NO MORE ENTRIES TO BE MADE, OR ENTER LOAD# TO BE PRINTED (50 MAXIMUM) ENTER MESSAGE# TO PRINT ON LOADS (JUST PRESS ENTER IF NONE) // CEND // COPY LIBRARY-S,NAME-JF0159,RECL-096,REF-000001,DATE-06/12/15,TIME-1608,SUB-RPG H B 1 JF0159 FXLODBS IPE F 100 100 2 DISK FLOAD UC F 100 100R 9AI 1 DISK FRELSHT UC F 180 180R 6AI 34 DISK FCUSMAS IC F 600 600R 6AI 1 DISK FMISCUS IC F 97 97R 7AI 1 DISK FPROD IC F 400 400R 9AI 1 DISK FPRT O F 132 132 OV PRINTER E ADA 12 12 1 E ADL 12 1 E AX 6 1 E AD 4 7 0 IXLODBS AA 01 10 CF I 1 60LNO I 1 9 LOADKY I 11 160CNO I 17 220HSENO 0808 I 17 20 HSE4 I 21 22 HSE2 I 23 230REGC 09 I 24 32 BLDG I 33 40 LOT I 41 44 BSEQ I 45 500DELDAT I 52 52 BORBO I 54 54 PRTY I 61 66 AX I P 68 710ORDDAT I 72 73 SM I 74 75 RECBY I 76 77 PROCBY I 78 78 SPADDR I 79 79 FPAGE I BB 02 10 CI 20 CA I 21 47 HDES1 I 52 61 PONO1 10 I 62 71 PONO2 I HH 03 10 CI 20 CB I 21 47 HDES2 I 52 61 PONO3 I 62 71 PONO4 I CC 04 10 CI 20 CH I 7 90LINE I 21 27 ITEM I DD 05 10 CI 20 CI I 7 90LINE I 21 27 ITEM I 32 32 PRCD I 33 33 LRH 11 I P 39 410LINFT 20 I P 55 570QTYBO I P 58 600QTYRBO I EE 06 10 CI 20 CE I 7 90LINE I 21 47 DESC I 48 48 LRH 11 I FF 07 10 CI 20 CM I 7 90LINE I 24 24 LRH 11 I P 30 320LINFT 20 I 33 59 DESC I P 63 650QTYBO I P 66 680QTYRBO I 69 70 DEPT I 71 71 LABEL ILOAD AA IRELSHT AA 29 180 CD I BB I P 106 121 AD ICUSMAS AA 12 600NCA I BB I 8 37 CNAM I 97 121 DEVCO I 299 300 CSM I 442 453 ADL IMISCUS AA 31 97NCA I BB I 8 37 CNAM IPROD GG I 11 11 TYPE I 12 12 STAT I P 53 550LIN I 56 57 DEPT I 58 58 LABEL I 134 160 DESC C N27 SETON 2627 C 01 LNO CHAINRELSHT 29 C 01 29 GOTO ENDREL C 01 AD,2 COMP 0 30 C 01 30 Z-ADD122999 AD,2 C 01 30 GOTO ENDREL C 01 AD,3 COMP 0 30 C 01 30 Z-ADD122999 AD,3 C 01 30 GOTO ENDREL C 01 Z-ADD122999 AD,4 C ENDREL TAG C 01 LOADKY CHAINLOAD 28 C 01 BORBO COMP 'R' 24 C 01 PRTY COMP 'X' 17 C 01 FPAGE COMP 'X' 19 C 01 CNO CHAINCUSMAS 12 C 01 MOVELCNO CNO13 30 C 01 CNO13 COMP 630 32 C 01 32 MOVEL'L' MSCSKY 7 C 01 32 MOVE LNO MSCSKY C 01 32 MSCSKY CHAINMISCUS 31 C 01N12 Z-ADD0 I 20 C AGNDEL TAG C 01N12 I ADD 1 I C 01N12 ADL,I COMP 'X' 25 C 01N12N25 MOVE '-' ADL,I C 01N12 25 MOVE ADA,I ADL,I C 01N12 I COMP 12 25 C 01N12N25 GOTO AGNDEL C 01 SETOF 182223 C 02 SETON 22 C 03 SETON 23 C 01 COR 02 COR 03 GOTO END C OV SETON 26 C EXCPT C SETOF 26OV C N18 SETON 21 C N18 EXCPT C N18 SETOF 21 C SETON 18 C Z-ADD1 LIN2 20 C 05 COR 07 QTYBO ADD QTYRBO QTYBO C 06 GOTO LRH C 07 MOVE '9999999' ITEM C 07 MOVE 4 PRCD C 07 GOTO LINFT C MOVELITEM ITMLN 9 C MOVE LIN2 ITMLN C ITMLN CHAINPROD 13 C N13 TYPE COMP 'D' 13 C N13 AX,3 COMP 'X' 25 C N13N25 AX,4 COMP 'X' 25 C N13 25 DEPT COMP 'P1' 25 C N13 25 MOVE 'P2' DEPT C N13 AX,1 COMP 'X' 25 C N13N25 AX,2 COMP 'X' 25 C N13 25 DEPT COMP 'P2' 25 C N13 25 MOVE 'P1' DEPT C 04 GOTO PRTITM C LINFT TAG C 05 20N13 Z-ADDLIN LINFT C LINFT MULT QTYBO TOTFT 50 C LRH TAG C MOVE LRH PRTLRH 1 C 09N11 LRH COMP 'L' 16 C 09N11 MOVE 'L' PRTLRH C 09N11 16 MOVE 'R' PRTLRH C ENLRH TAG C PRTITM TAG C OV SETON 26 C EXCPT C SETOF 26OV C 06 GOTO END C SETON 14 C EXCPT C SETOF 14 C 07 COR 13 GOTO END C MORE TAG C SETOF 15 C OV SETON 26 C EXCPT C SETOF 26OV C STAT COMP 'N' 15 C 15 LIN2 ADD 1 LIN2 C 15 MOVE LIN2 ITMLN C 15 ITMLN CHAINPROD C 15 EXCPT C 15 GOTO MORE C END TAG OPRT E 103 26 O 24 'B A C K O R D E R R ' O 37 'E G I S T E R' O N24 59 ' - REGULAR BACK ORDERS' O 24 46 ' - R-BO''S' O 89 'ORIGINAL DELIVERY DATE I' O 97 'S LISTED' O UDATE Y 116 O PAGE 130 O 126 'PAGE' O E 01 26 O 24 '************************' O 37 '*************' O 89 'BUT IS CHANGED TO 12/29/' O 91 '50' O E 01 26 O 26 'LINE QUAN BO' O 50 'ITEM# & DESCRIPTION' O 118 'COMMENTS' O E 01 26 O 24 '************************' O *PLACE 48 O *PLACE 72 O *PLACE 96 O *PLACE 120 O 132 '************' O E 21 21 O 14 'LOAD# CUST' O CNO M 22 O N12 CNAM 52 O* N31 CNAM 52 O N12 DEVCO 80 O N12 98 'SM DEL,REG' O N12 CSM 88 O N12 ADL,1 100 O N12 ADL,2 101 O N12 ADL,3 102 O N12 ADL,4 103 O N12 ADL,5 104 O N12 ADL,6 105 O E 01 21 O LNO 6 O N08 18 'NO HOUSE' O 08 15 'HOUSE' O 08 HSE4 20 O 08 21 '-' O 08 HSE2 23 O 22 HDES1 51 O 23 HDES2 79 O 09 85 'OPP' O N09 85 'REG' O 19 92 'F/PAG' O N12 98 'OPT' O N12 ADL,7 100 O N12 ADL,8 101 O N12 ADL,9 102 O N12 ADL,10 103 O N12 ADL,11 104 O N12 ADL,12 105 O E 01 21 O 15 'BL/BK' O BLDG 25 O 29 'LOT' O LOT 37 O 44 'SQ/UN' O BSEQ 49 O N10 53 'PO' O PONO1 64 O PONO2 76 O 86 'DATE DEL' O DELDATY 95 O 100 'ORD' O ORDDATY 109 O 120 '- - -' O SM 113 O RECBY 116 O PROCBY 119 O SPADDR 122 O 17 132 'PRIORITY' O E 01 21 O PONO3 64 O PONO4 76 O DF01 06 O LINE 15 O DESC 67 O N11 PRTLRH 69 O N11 70 'H' O EF01 14 O LINE 15 O N04 QTYBO L 24 O ITEM 38 O PRCD 39 O 04N13 DESC 67 O 05N13 DESC 67 O 07 DESC 67 O N04N11 PRTLRH 69 O N04N11 70 'H' O TOTFT M 77 O 04N13 DEPT 81 O 05N13 DEPT 81 O 05N13 LABEL 83 O 07 DEPT 81 O 07 LABEL 83 O EF01 15 O DESC 67 OLOAD D 01N28 O 50 '122950' O* 54 'X' ORELSHT D 01N29 O AD 121P ** MTWTFSMTWTFS // CEND // COPY LIBRARY-S,NAME-JF0162,RECL-096,DATE-11/10/31,TIME-1141,SUB-RPG H B 1 JF0162 FINP IP F 79 79 KEYBORD FCUSMAS IC F 600 600R 6AI 1 DISK FPROD IC F 400 400R 9AI 1 DISK FRECEV IC F 300 300R 6AI 2 DISK FORDER IC F 200 200R 6AI 1 DISK FXINVC O F 150 150 9AI 1 DISK FMISCUS UC F 97 97R 7AI 1 DISK A FXHINV O F 71 71 9AI 1 DISK FXREC O F 300 300 DISK FDISP O F 79 79 CRT E AMS 1 42 79 ICUSMAS AA I 8 37 CNM I 133 134 CUSST I 135 135 CUSTAX I 176 176 MANCDS I P 297 2981CUSDIS I 600 600 ACTV IPROD AA I 11 11 TYPEF I P 53 550LINFT I 134 160 DESC IRECEV AA IORDER AA IMISCUS AA C 99 GOTO BEGIN C SETON 99 C Z-ADD0 Z3 30 C Z-ADD0 Z5 50 C Z-ADD0 Z7 70 C Z-SUB1 LINEA 30 C Z-ADD0 LINEB 30 C MOVE ' ' BLNK27 27 C AMS,1 KEY PRSPRV 1 C AGOREN TAG C AMS,2 KEY ORDNO 60 C ORDNO CHAINORDER 10 C N10 SETON 18 C N10 EXCPT C N10 SETOF 18 C N10 GOTO AGOREN C ORDNO SUB 1 ORDNO C AGNINV TAG C AMS,3 KEY INVNO 60 C INVNO CHAINRECEV 10 C N10 SETON 14 C N10 EXCPT C N10 SETOF 14 C N10 GOTO AGNINV C INVNO SUB 1 INVNO C AGENDT TAG C AMS,4 KEY DAT 60 C MOVE DAT INVYR 20 C INVYR COMP UYEAR 1111 C 11 SETON 25 C 11 EXCPT C 11 SETOF 25 C 11 GOTO AGENDT C AMS,5 KEY MESNO 30 C BEGIN TAG C ORDNO ADD 1 ORDNO C ORDNO CHAINORDER 10 C N10 SETON 22 C N10 EXCPT C N10 SETOF 22 C N10 GOTO BEGIN C Z-ADD0 SEQNO 30 C INVNO ADD 1 INVNO C INVNO CHAINRECEV 10 C N10 SETON 16 C N10 EXCPT C N10 SETOF 16 C N10 ORDNO SUB 1 ORDNO 16 C N10 GOTO BEGIN C ENTCUS TAG C AMS,6 SET KG C AMS,7 KEY CNO 60 C KG SETON LR C KG INVNO SUB 1 INVNO C KG GOTO END C CNO CHAINCUSMAS 07 C N07 ACTV COMP 'D' 07 C SETON 08 C EXCPT C SETOF 08 C 07 GOTO ENTCUS C AMS,8 KEY CUSPR 1 C CUSPR COMP 'N' 2121 C MOVELCNO CNO3 30 C CNO3 COMP 630 20 C 20 AMS,38 KEY CNAM 30 C 20 AMS,39 KEY CADR 30 C 20 AMS,40 KEY CCTST 24 C 20 AMS,41 KEY CZIP 5 C AMS,9 KEY PONO1 10 C AMS,10 KEY PONO2 10 C AMS,11 KEY PONO3 10 C AMS,12 KEY PONO4 10 C AMS,13 KEY NJCON 50 C AGNLOD TAG C AMS,14 KEY LOAD 60 C MOVEL'L' MSCSKY 7 C MOVE LOAD MSCSKY C MSCSKY CHAINMISCUS 05 C N05 SETON 04 C N05 EXCPT C N05 SETOF 04 C N05 GOTO AGNLOD C AMS,15 KEY REGI 3 C MOVELREGI REGD 1 C REGD COMP 'O' 11 C Z-ADD1 REGF 10 C 11 Z-ADD0 REGF C AMS,16 KEY BLDG 9 C AMS,17 KEY LOT 8 C AMS,18 KEY BSEQ 4 C AMS,19 KEY CREDEB 1 C CREDEB COMP 'I' 11 C N11 CREDEB COMP 'C' 11 C N11 CREDEB COMP 'D' 11 C N11 MOVE 'I' CREDEB C MOVE ' ' NJ67 1 C CREDEB COMP 'C' 11 C 11 CUSST COMP 'NJ' 11 C 11 AMS,42 KEY NJ67 C 11 NJ67 COMP '6' 09 C 11 09 MOVE 'X' NJ67 C AGNCDS TAG C MANCDS COMP 'X' 09 C N09 CUSDIS SET KA C N09 AMS,20 KEY DIS 31 11 C 09 CUSDIS SET KA C 09 AMS,21 KEY DIS 31 11 C KA Z-ADD0 DIS C 11NKA Z-ADDCUSDIS DIS C* 09 ADIS COMP ' ' 11 C* 09 11 GOTO AGNCDS C* 09 MOVELADIS ADIS1 1 C* 09 ADIS1 COMP '0' 11 11 C* 09 11 ADIS1 COMP '9' 1111 C* 09N11 ADIS1 COMP ' ' 11 C* 09N11 GOTO AGNCDS C* 09 MOVE ADIS ADIS2 1 C* 09 ADIS2 COMP '0' 11 11 C* 09 11 ADIS2 COMP '9' 1111 C* 09N11 ADIS2 COMP ' ' 11 C* 09N11 GOTO AGNCDS C* 09 ADIS2 COMP ' ' 11 C* 09 Z-ADD0 DIS C* 09 11 MOVE ADIS1 DIS C* 09N11 MOVE ADIS DIS C CUSTAX SET KA C AMS,22 KEY TAX 1 C TAX COMP ' ' 11 C 11 MOVE CUSTAX TAX C AMS,23 KEY XBCKOR 1 C AMS,24 KEY ACC 1 C ACC COMP 'N' 11 C 11 INVNO SUB 1 INVNO C 11 ORDNO SUB 1 ORDNO C 11 GOTO BEGIN C SETON 17 C EXCPT C SETOF 17 C MORE TAG C SETOF 0613 C MOVE ' ' PRCD 1 C Z-ADD0 PRICE C MOVE ' ' LRH C Z-ADD0 LINFT C MOVE BLNK27 DESC C ' ' SET KG C AMS,25 KEY TYPE 1 C KG GOTO BEGIN C TYPE COMP 'H' 23 C TYPE COMP 'D' 24 C TYPE COMP 'I' 25 C N23N24N25 SETON 19 C N23N24N25 EXCPT C N23N24N25 SETOF 19 C N23N24N25 GOTO MORE C 24 MOVE 'E' TYPE C 24 GOTO LRH C AMS,26 KEY ITEM 7 C ITEM COMP '9999999' 06 C N06 MOVE '01' ITMLN 9 C N06 MOVELITEM ITMLN C N06 ITMLN CHAINPROD 07 C N06N07 TYPEF COMP 'D' 07 C N06 SETON 96 C N06 EXCPT C N06 SETOF 96 C N06 07 GOTO MORE C 23 GOTO ACCEPT C AMS,27 KEY QUAN 40 C 06 GOTO PRICE C 21 GOTO LRH C PRCECD TAG C AMS,28 KEY PRCD C PRCD COMP '0' 11 C N11 PRCD COMP '9' 11 C 11 MOVE '1' PRCD C Z-ADD0 PRICE 94 C PRCD COMP '9' 11 C PRICE TAG C 06 CORN06 11 AMS,29 KEY PRICE C LRH TAG C AMS,30 KEY LRH 1 C 06 AMS,31 KEY LINFT C DESC TAG C 06 COR 24 AMS,32 KEY DESC C N06 GOTO ACCEPT C AMS,33 KEY DEPT 2 C AMS,34 KEY LABEL 1 C AMS,35 KEY MWORK 52 C AMS,36 KEY AWORK 52 C AMS,37 KEY DPSBCT 20 C ACCEPT TAG C AMS,24 KEY ACC C ACC COMP 'N' 11 C 11 GOTO MORE C SEQNO ADD 1 SEQNO C SETON 15 C EXCPT C SETOF 15 C GOTO MORE C END TAG ODISP H 11 1P O 24 'E N T E R M A N U A L ' O 41 ' I N V O I C E S' O E 11 18 O 22 'ORDER# PREVIOUSLY USED' O E 11 14 O 24 'INVOICE# PREVIOUSLY USED' O E 11 22 O 24 'ORDER# WILL BE SK' O 48 'IPPED, HAS BEEN USED PRE' O 55 'VIOUSLY' O ORDNO M 14 O E 11 16 O 24 'INVOICE# WILL BE ' O 48 'SKIPPED, HAS BEEN USED P' O 57 'REVIOUSLY' O INVNO M 16 O E 11 25 O 24 'INVOICE YEAR NOT EQUAL T' O 48 'O COMPUTER YEAR - REENTE' O 49 'R' O E 11 08 07 O 20 'NOT IN CUSTOMER FILE' O E 11 08N07 O CNM 35 O E 11 04 O 24 'LOAD# ALREADY USED - REE' O 28 'NTER' O E 11 19 O 24 'INVALID TYPE - NOT H,D,I' O E 11 96N07 O DESC 35 O E 11 96 07 O 19 'NOT IN PRODUCT FILE' O T 11 LR O 24 'THE LAST INVOICE NUMBER ' O 32 'USED WAS' O INVNO 39 O T 11 LR O 24 'PRESS ENTER TO RETURN TO' O 29 ' MENU' OXINVC E 17 O INVNO 6 O 9 '00I' O 10 'F' O CNO 16 O REGF 23 O BLDG 32 O LOT 40 O BSEQ 44 O DAT 50 O PRSPRV 58 O DIS 60P O TAX 61 O LOAD 65P O CREDEB 66 O DAT 70P O XBCKOR 71 O MESNO 74P O Z3 77P O ORDNO 85 O NJ67 106 O Z3 115P O Z7 119P O E 17 O INVNO 6 O LINEA 9 O 10 'I' O 20 'A' O Z7 51P O PONO1 61 O PONO2 71 O E 17 O INVNO 6 O LINEB 9 O 10 'I' O 20 'B' O Z7 51P O PONO3 61 O PONO4 71 O NJCON 79P O E 15 25 O INVNO 6 O SEQNO 9 O 10 'I' O SEQNO 19 O N06 20 'I' O N06 ITEM 27 O N06 QUAN 31 O N06 PRCD 32 O N06 LRH 33 O N06 PRICE 38P O N06 LINFT 41P O N06 Z5 54P O N06 Z5 57P O N06 Z5 60P O N06 QUAN 63P O 06 20 'M' O 06 QUAN 23P O 06 LRH 24 O 06 PRICE 29P O 06 LINFT 32P O 06 DESC 59 O 06 Z5 62P O 06 Z5 65P O 06 Z5 68P O 06 DEPT 70 O 06 LABEL 71 O 06 MWORK 74P O 06 AWORK 77P O 06 DPSBCT 79 O E 15 23 O INVNO 6 O SEQNO 9 O 10 'I' O SEQNO 19 O 20 'H' O ITEM 27 O 52 'Y' O E 15 24 O INVNO 6 O SEQNO 9 O 10 'I' O SEQNO 19 O 20 'E' O DESC 47 O LRH 48 OMISCUS EADD 17 20 O 1 'L' O LOAD 7 O CNAM 37 O CADR 67 O CCTST 91 O CZIP 96 O 97 'A' OXHINV T LRNLR OXREC T LRNLR ** ENTER WHETHER TO USE CURRENT OR OLD PRICES (C=CURRENT, O=OLD) ENTER FIRST ORDER NUMBER ENTER FIRST INVOICE NUMBER ENTER DATE TO APPEAR ON ALL INVOICES ENTER MESSAGE# TO PRINT ON INVOICES (JUST PRESS ENTER IF NONE) PRESS COMMAND KEY 7 & ENTER IF THERE ARE NO MORE ENTRIES TO BE MADE, OR ENTER CUSTOMER NUMBER WILL THE CUSTOMER PRICING TABLE BE USED FOR PRICING (Y OR BLANK=YES, N=NO) ENTER FIRST PURCHASE ORDER NUMBER ENTER SECOND PURCHASE ORDER NUMBER ENTER THIRD PURCHASE ORDER NUMBER ENTER FOURTH PURCHASE ORDER NUMBER ENTER NJ 3% TAX CONTRACT NUMBER ENTER LOAD NUMBER ENTER R=REGULAR, O=OPPOSITE (DEFAULT IS REGULAR) ENTER BUILDING/BLOCK ENTER LOT ENTER SEQUENCE/UNIT ENTER INVOICE TYPE (I=INVOICE, C=CREDIT, D=DEBIT, DEFAULT IS INVOICE) ENTER CUSTOMER DISCOUNT-1/10% (CK1=0, ENTER=USE ABOVE DISCOUNT FROM CUST FILE) ENTER CUSTOMER DISCOUNT-1/10% (YOU MUST ENTER A DISCOUNT) ENTER IF TAXABLE (T / U / P / N / R / E), ENTER=USE ABOVE FROM CUST FILE) ENTER B IF BACK ORDERED INVOICE, JUST PRESS ENTER IF NOT ENTER WHETHER OR NOT ENTRIES ARE OK (Y=YES, N=NO) ENTER LINE TYPE (H=HEADING, I=ITEM, D=DESCRIPTION) OR CK 7 FOR NEXT INVOICE ENTER ITEM NUMBER - (9999999 FOR MANUAL ITEM) ENTER QUANTITY ENTER PRICE CODE (0=NO CHARGE, 1-8=REGULAR, 9=SPECIAL, DEFAULTS TO 1) ENTER SPECIAL PRICE ENTER L=LEFT HAND, R=RIGHT HAND, BLANK=NOT APPLICABLE ENTER LINEAR FEET ENTER DESCRIPTION ENTER DEPARTMENT ENTER LABEL TYPE ENTER MAIN WORK VALUE (TO 2 DECIMAL POSITIONS) ENTER ADD ON WORK VALUE (TO 2 DECIMAL POSITIONS) ENTER DEPARTMENT SUB CATEGORY # ENTER MISCELLANEOUS CUSTOMER NAME ENTER MISCELLANEOUS CUSTOMER ADDRESS ENTER MISCELLANEOUS CUSTOMER CITY AND STATE ENTER MISCELLANEOUS CUSTOMER ZIP CODE ENTER 6 FOR NJ 6% (OR 3%) FORMER TAX RATE, OTHERWISE JUST PRESS ENTER // CEND // COPY LIBRARY-S,NAME-JF0164,RECL-096,DATE-11/10/31,TIME-1131,SUB-RPG H B 1 JF0164 FXINVC IPE F 150 150 9AI 1 DISK FXXHIN ID F 71 71 9AI 1 DISK FXXREC ID F 300 300 DISK FINP ID F 79 79 KEYBORD FXINVC2 UC F 150 150R 9AI 1 DISK FLOAD UC F 100 100R 9AI 1 DISK FDISP O F 79 79 CRT FXXINV O F 150 150 9AI 1 DISK FXHINV O F 71 71 9AI 1 DISK FXREC O F 300 300 2 DISK E AMS 1 6 79 E AI 100 6 0 IXINVC AA 01 10NCX 10NCD I OR 09 I 1 60FINV L1 I 1 150 RECORD IXXHIN AA I 1 60HINV I 1 71 HINREC IXXREC AA I 1 256 RECRD1 I 257 300 RECRD2 I 2 70RINV IXINVC2 BB 22 10 CI 20 CI I 21 27 ITEM I 28 310QTYORD I P 52 540QTYINV I P 55 570QTYBO I P 58 600QTYRB I CC 23 10 CI 20 CM I P 21 230QTYOR5 I 33 59 DESC I P 60 620QTYINV I P 63 650QTYBO I P 66 680QTYRB I EE 25 10 CF I P 56 590LOAD7 I DD 24 ILOAD AA C 10 GOTO BEGIN C SETON 10 C AGN TAG C I COMP 100 08 C 08 GOTO BEGIN C AMS,1 SET KG C AMS,2 KEY INV 60 C KG GOTO BEGIN C MOVE '00I' INVLN 9 C MOVELINV INVLN C SETOF 222324 C SETOF 25 C INVLN CHAINXINVC2 02 C N02N25 SETON 02 C 02 SETON 16 C 02 EXCPT C 02 SETOF 16 C 02 GOTO AGN C Z-ADDLOAD7 LOAD 60 C INV LOKUPAI 08 C N08 I ADD 1 I 30 C N08 Z-ADDINV AI,I C AGNLNE TAG C AMS,3 KEY LINE 30 0808 C MOVELINV INVLN C 08 Z-ADD0 LINE C AGNSCH TAG C 08 LINE ADD 1 LINE C 08 MOVE LINE INVLN C 08 SETOF 222324 C 08 SETOF 25 C 08 INVLN CHAINXINVC2 02 C 08 02 GOTO AGNLNE C 08N22N23 GOTO AGNSCH C 08 23 MOVE '9999999' ITEM C 08 23 Z-ADDQTYOR5 QTYORD C 08 QTYORD SUB QTYINV QUAN 11 C 08 11 GOTO AGNSCH C 08 SETON 12 C 08 EXCPT C 08 SETOF 12 C 08 GOTO AGNSCH C MOVE LINE INVLN C SETOF 222324 C SETOF 25 C INVLN CHAINXINVC2 02 C N02 SETON 06 C N02 EXCPT C N02 SETOF 06 C SETON 04 C EXCPT C SETOF 04 C 02 CORN02 24 CORN02 25 GOTO AGN C 23 Z-ADDQTYOR5 QTYORD C 23 MOVE '9999999' ITEM C QTYORD SUB QTYINV QUAN 50 C QUAN SUB QTYBO QUAN C QUAN SUB QTYRB QUAN C SETON 05 C EXCPT C SETOF 05 C ' ' SET KA C AMS,4 KEY NQTYOR 40 08 C KA Z-ADD0 NQTYOR C 08NKA Z-ADDQTYORD NQTYOR C ' ' SET KA C AMS,5 KEY NQTYBO 50 08 C KA Z-ADD0 NQTYBO C 08NKA Z-ADDQTYBO NQTYBO C ' ' SET KA C AMS,6 KEY NQTYRB 50 08 C KA Z-ADD0 NQTYRB C 08NKA Z-ADDQTYRB NQTYRB C INVLN CHAINXINVC2 C MOVE INVLN LOADLN 9 C MOVELLOAD LOADLN C LOADLN CHAINLOAD 13 C SETON 07 C EXCPT C SETOF 07 C GOTO AGN C BEGIN TAG C L1 FINV LOKUPAI 08 C END TAG CLR AGNIRD TAG CLR READ XXHIN 17 CLRN17 HINV LOKUPAI 08 CLRN17N08 SETON 18 CLRN17N08 EXCPT CLRN17N08 SETOF 18 CLRN17 GOTO AGNIRD CLR AGNRRD TAG CLR READ XXREC 14 CLRN14 RINV LOKUPAI 08 CLRN14N08 SETON 15 CLRN14N08 EXCPT CLRN14N08 SETOF 15 CLRN14 GOTO AGNRRD ODISP H 11 1P O 24 'E N T E R O R D E R E ' O 48 'D A N D B A C K O ' O 59 'R D E R E D' O H 01 1P O 24 'Q U A N T I T I E S O ' O 43 'N I N V O I C E S' O E 11 04 02 O OR 04 24 O OR 04 25 O OR 16 O 19 'NOT IN INVOICE FILE' O E 01 12 O LINE 3 O 10 'ITEM#' O ITEM 18 O QTYORDJ 37 O 45 'ORDERED' O QUAN J 57 O 65 'SHIPPED' O E 11 04 24 O OR 04 25 O 16 'NOT AN ITEM LINE' O E 11 05 O 5 'ITEM#' O ITEM 13 O N22 DESC 43 O QTYORDJ 50 O 58 'ORDERED' O QUAN J 70 O 79 'INVOICED' O E 01 05 O QTYBO J 50 O 63 'BACK ORDERED' O QTYRB J 70 O 74 'RBO' OXINVC2 E 06 O E 07 O 22 NQTYOR 31 O 22 NQTYBO 57P O 22 NQTYRB 60P O 23 NQTYOR 23P O 23 NQTYBO 65P O 23 NQTYRB 68P OLOAD E 07N13 O 22 NQTYOR 31 O 22 NQTYBO 57P O 22 NQTYRB 60P O 23 NQTYOR 23P O 23 NQTYBO 65P O 23 NQTYRB 68P OXXINV D 01 08 O RECORD 150 OXHINV E 18 O HINREC 71 OXREC E 15 O RECRD1 256 O RECRD2 300 ** PRESS COMMAND KEY 7 & ENTER IF THERE ARE NO MORE ENTRIES TO BE MADE, OR ENTER INVOICE NUMBER ENTER LINE NUMBER (LEAVE BLANK TO SEARCH THROUGH INVOICE) ENTER NEW QUANTITY ORDERED (ENTER=DUP ABOVE, CK1=ZERO) ENTER NEW QUANTITY BACK ORDERED (ENTER=DUP ABOVE, CK1=ZERO) ENTER NEW QUANTITY RBO (ENTER=DUP ABOVE, CK1=ZERO) // CEND // COPY LIBRARY-S,NAME-JF0166,RECL-096,DATE-06/03/27,TIME-1006,SUB-RPG H B 1 JF0166 FINP IP F 79 79 KEYBORD FLOAD UC F 100 100R 9AI 1 DISK FMISCUS UC F 97 97R 7AI 1 DISK FRELSHT UC F 180 180R 6AI 34 DISK U1 FXCHGLD O F 7 7 DISK U1 FDISP O F 79 79 CRT FPRT O F 132 132 OV PRINTER E AMS 1 3 79 E AL 100 6 0 ILOAD AA 01 10 CD I BB 02 10NCD I 11 160CNO I 17 220HSENO I 24 32 BLDG I 33 40 LOT I 41 44 BSEQ I 45 500DELDAT IMISCUS AA IRELSHT AA 05 180NCA I BB C AGN1 TAG C AMS,1 SET KG C AMS,2 KEY ILODNO 60 C KG GOTO BEGIN C MOVE '00I' LDLN 9 C MOVELILODNO LDLN C SETOF 0102 C LDLN CHAINLOAD 03 C SETON 04 C EXCPT C SETOF 04 C 03 COR 01 GOTO AGN1 C AMS,3 KEY YESNO 1 C YESNO COMP 'N' 09 C 09 GOTO AGN1 C I ADD 1 I 30 C Z-ADDILODNO AL,I C I COMP 100 09 C N09 GOTO AGN1 C BEGIN TAG C Z-ADD0 J 30 C AGN2 TAG C J ADD 1 J C J COMP I 09 C 09 GOTO END C MOVELAL,J LDLN C MOVE '00I' LDLN C LDLN CHAINLOAD 03 C 02 SETON 0607 C 02 EXCPT C 02 SETOF 0607 C U1 AL,J CHAINRELSHT 05 C U1N05 SETON 08 C U1N05 EXCPT C U1N05 SETOF 08 C Z-SUB2 SEQNO 30 C SEQNO ADD 1 SEQNO C MOVE SEQNO LDLN C LDLN CHAINLOAD 03 C N03 SETON 07 C N03 EXCPT C N03 SETOF 07 C SEQNO ADD 1 SEQNO C MOVE SEQNO LDLN C LDLN CHAINLOAD 03 C N03 SETON 07 C N03 EXCPT C N03 SETOF 07 C AGN3 TAG C SEQNO ADD 1 SEQNO C MOVE SEQNO LDLN C LDLN CHAINLOAD 03 C N03 SETON 07 C N03 EXCPT C N03 SETOF 07 C N03 GOTO AGN3 C MOVEL'L' MSCSKY 7 C MOVE AL,J MSCSKY C MSCSKY CHAINMISCUS 10 C N10 SETON 11 C N10 EXCPT C N10 SETOF 11 C GOTO AGN2 C END TAG C SETON LR ODISP H 12 1P O 24 'D E L E T E E N T I R ' O U1 48 'E L O A D S - ALREADY ' O U2 48 'E L O A D S - NOT YET ' O 57 'PROCESSED' O H 02 1P U1 O 24 'NOTE THAT LOADS WILL BE ' O 48 'DELETED FROM BOTH THE LO' O 72 'AD AND RELEASE SHEET FIL' O 74 'ES' O E 11 04 03 O OR 04 01 O 16 'NOT IN LOAD FILE' O E 11 04 02 O 19 'CUSTOMER#' O CNO M 57 O E 01 04 02 O 16 'HOUSE#' O HSENO M 57 O E 01 04 02 O 20 'BUILDING #' O BLDG 56 O E 01 04 02 O 15 'LOT #' O LOT 55 O E 01 04 02 O 15 'SEQ #' O BSEQ 51 O E 01 04 02 O 23 'DELIVERY DATE' O DELDATY 58 OPRT H 103 1P O U1 24 'LOADS (ALREADY PROCESSED' O U2 24 'LOADS (NOT YET PROCESSED' O 33 ') DELETED' O UDATE Y 48 O E 21 06 O 15 'LOAD#' O AL,J M 57 O E 01 06 O 19 'CUSTOMER#' O CNO M 57 O E 01 06 O 16 'HOUSE#' O HSENO M 57 O E 01 06 O 24 'BUILDING/BLOCK' O BLDG 59 O E 01 06 O 13 'LOT' O LOT 58 O E 01 06 O 23 'SEQUENCE/UNIT' O BSEQ 54 O E 01 08 O 74 'ALSO DELETED IN RELEASE ' O 84 'SHEET FILE' O E 01 06 O 23 'DELIVERY DATE' O DELDATY 58 ORELSHT E 08 O 180 'D' OLOAD E 07 O 10 'D' OMISCUS E 11 O 97 'D' OXCHGLD E 06 O AL,J 6 ** PRESS COMMAND KEY 7 & ENTER IF THERE ARE NO MORE ENTRIES TO BE MADE, OR ENTER LOAD NUMBER TO BE DELETED (100 MAX) ENTER WHETHER OR NOT OK (Y=YES,N=NO) // CEND // COPY LIBRARY-S,NAME-JF0167,RECL-096,DATE-01/03/23,TIME-1226,SUB-RPG H B 1 JF0167 FGLFILE IPE F 224 224 6AI 1 DISK FCNTRL IC F 32 32R DISK FPRINT O F 132 132 OV PRINTER IGLFILE NS 01 224NCD I 1 60ACCTNO I 7 36 DESC I 218 219 PLCAT I 220 221 BLCAT I NS 99 ICNTRL AA 1 C0 2 C0 3 C7 I 4 32 CONAME C N02 7 CHAINCNTRL C N02 SETON 0203 C OV SETON 03 C EXCPT C SETOF 03OV OPRINT E 303 03 O CONAME 29 O 55 'CHART OF ACCOUNTS' O UDATE Y 66 O 71 'PAGE' O PAGE Z 75 O E 02 03 O 14 'ACCOUNT NUMBER' O 33 'ACCOUNT NAME' O 70 'P&L-CATEGORY-BAL' O D 2 01 O ACCTNO 11 O DESC 44 O PLCAT 57 O BLCAT 69 // CEND // COPY LIBRARY-S,NAME-JF0168,RECL-096,DATE-01/03/23,TIME-1226,SUB-RPG H B 1 JF0168 FXAPWK IPE F 64 64 2 DISK FXVNIN O F 14 14 14AI 1 DISK U IXAPWK AA 01 1NCD 36 CD I 8 21 VNOINO I BB 02 OXVNIN D 01 O VNOINO 14 // CEND // COPY LIBRARY-S,NAME-JF0179,RECL-096,DATE-04/11/04,TIME-2258,SUB-RPG H B 1 JF0179 FINP IP F 79 79 KEYBORD FCNTRL UC F 32 32R DISK FCRT O F 79 79 CRT E AMS 1 3 79 E AO 12 3 0 E AN 12 3 0 ICNTRL AA I 4 32 ODESC I P 4 27 AO C MOVE ' ' BLNK29 29 C MOVE ' ' BLNK36 36 C SETOF 0204 C AMS,1 SET KG C AMS,2 KEY RECNO 30 C KG SETON LR C KG GOTO END C RECNO CHAINCNTRL 02 C 02 GOTO END C RECNO COMP 17 05 05 C 05 RECNO COMP 22 0505 C N05 ODESC SET KA C N05 AMS,3 KEY NDESC 29 C N05 NDESC COMP BLNK29 03 C N05 03 MOVE ODESC NDESC C N05 KA MOVE BLNK29 NDESC C 05 MOVEAAO DESC36 36 C 05 DESC36 SET KA C 05 AMS,3 KEY DESC36 C 05 MOVEADESC36 AN C 05 DESC36 COMP BLNK36 03 C 05 03 Z-ADDAO AN C 05 KA Z-ADD0 AN C SETON 04 C END TAG OCRT D 11 02 O 24 'NO RECORD EXISTS WITH TH' O 48 'IS NUMBER - PLEASE REENT' O 50 'ER' OCNTRL D 04 O N05 NDESC 32 O 05 AN 27P ** PRESS COMMAND KEY 7 AND ENTER IF THERE ARE NO MORE ENTRIES, OR ENTER RECORD NUMBER ENTER NEW INFORMATION // CEND // COPY LIBRARY-S,NAME-JF0182,RECL-096,DATE-01/03/23,TIME-1226,SUB-RPG H B 1 JF0182 FEMPLYE IPE F 350 350 5AI 1 DISK FINP ID F 79 79 KEYBORD FW2REPORTO F 128 128 2 DISK E AMS 1 4 79 E AE 300 5 0 E AIN 300 9 2 E ABN 300 9 2 E APN 300 1 E AF 15 1 E AL 15 1 E AN 32 1 IEMPLYE AA 01 350NCD I 1 50EMPNO I 6 20 AL I 21 35 AF I P 36 400SSNO 10 I 41 41 MRST I 44 63 STREET I 64 83 CITY I 87 88 STATE I P 84 860ZIP I 89 89 EPENS I P 146 1502EGRS 04 I P 151 1552EFWT I P 156 1602EFICOA I P 211 2152EFICHI I P 216 2202HSPNTX I BB C 02 GOTO BEGIN C SETON 02 C Z-ADD0 Z10 100 C Z-ADD0 Z13 130 C AGNINP TAG C I ADD 1 I 30 C AMS,1 SET KG C AMS,2 KEY AE,I C NKG AMS,3 KEY AIN,I C NKG AMS,4 KEY ABN,I C NKG I COMP 300 06 C NKGN06 GOTO AGNINP C SETON 03 C EXCPT C SETOF 03 C BEGIN TAG C N04 SETOF 01 C N01 GOTO END C INOEMP ADD 1 INOEMP 20 C INOEMP COMP 41 07 C 07 SETON 0809 C 07 EXCPT C 07 SETOF 08 C 07 Z-ADD1 INOEMP C 07 Z-ADD0 IFOAWG 102 C 07 Z-ADD0 IFICTP 102 C 07 Z-ADD0 IGRS 102 C 07 Z-ADD0 IFICOA 102 C 07 Z-ADD0 IFWT 102 C 07 Z-ADD0 IINS 102 C 07 Z-ADD0 IUNFIC 102 C 07 Z-ADD0 IEARN 112 C 07 Z-ADD0 ITIP 102 C 07 Z-ADD0 IBENF 102 C 07 Z-ADD0 IDEFR 102 C 07 Z-ADD0 IDPBN 102 C 07 Z-ADD0 IFHIWG 112 C 07 Z-ADD0 IFICHI 102 C Z-ADD0 WFOAWG 72 C Z-ADD0 WFICTP 72 C Z-ADD0 WGRS 92 C Z-ADD0 WFICOA 62 C Z-ADD0 WFWT 92 C Z-ADD0 WINS 72 C Z-ADD0 WUNFIC 72 C Z-ADD0 WEARN 72 C Z-ADD0 WTIP 72 C Z-ADD0 WBENF 92 C Z-ADD0 WDEFR 92 C Z-ADD0 WDPBN 72 C Z-ADD0 WFHIWG 92 C Z-ADD0 WFICHI 72 C Z-ADD1 I C EMPNO LOKUPAE,I 06 C EGRS SUB HSPNTX EGRS C Z-ADD0 EFICTP 92 C Z-ADD0 EUNFIC 92 C Z-ADD0 EEARN 92 C Z-ADD0 ETIP 92 C Z-ADD0 EINS 92 C Z-ADD0 EBENF 92 C Z-ADD0 EDEFR 92 C Z-ADD0 EDPBN 92 C 06 Z-ADDAIN,I EINS C 06 Z-ADDABN,I EBENF C Z-ADDEGRS EFOAWG 92 C 3757.20 COMP EFICOA 0606 C 06 Z-ADD60600 EFOAWG C WFOAWG ADD EFOAWG WFOAWG C WFICTP ADD EFICTP WFICTP C WGRS ADD EGRS WGRS C WFICOA ADD EFICOA WFICOA C WFWT ADD EFWT WFWT C WINS ADD EINS WINS C WUNFIC ADD EUNFIC WUNFIC C WEARN ADD EEARN WEARN C WTIP ADD ETIP WTIP C WBENF ADD EBENF WBENF C WDEFR ADD EDEFR WDEFR C WDPBN ADD EDPBN WDPBN C Z-ADDEGRS EFHIWG 92 C WFHIWG ADD EFHIWG WFHIWG C WFICHI ADD EFICHI WFICHI C IFOAWG ADD EFOAWG IFOAWG C IFICTP ADD EFICTP IFICTP C IGRS ADD EGRS IGRS C IFICOA ADD EFICOA IFICOA C IFWT ADD EFWT IFWT C IINS ADD EINS IINS C IUNFIC ADD EUNFIC IUNFIC C IEARN ADD EEARN IEARN C ITIP ADD ETIP ITIP C IBENF ADD EBENF IBENF C IDEFR ADD EDEFR IDEFR C IDPBN ADD EDPBN IDPBN C IFHIWG ADD EFHIWG IFHIWG C IFICHI ADD EFICHI IFICHI C TNOEMP ADD 1 TNOEMP 70 C TFOAWG ADD EFOAWG TFOAWG 132 C TFICTP ADD EFICTP TFICTP 122 C TGRS ADD EGRS TGRS 132 C TFICOA ADD EFICOA TFICOA 122 C TFWT ADD EFWT TFWT 122 C TINS ADD EINS TINS 122 C TUNFIC ADD EUNFIC TUNFIC 122 C TEARN ADD IEARN TEARN 122 C TTIP ADD ITIP TTIP 122 C TBENF ADD EBENF TBENF 122 C TDEFR ADD EDEFR TDEFR 132 C TDPBN ADD EDPBN TDPBN 122 C TFHIWG ADD EFHIWG TFHIWG 132 C TFICHI ADD EFICHI TFICHI 122 C MOVE ' ' AN C Z-ADD16 B 20 C AGAINN TAG C B SUB 1 B 13 C 13 Z-ADD0 A 20 C 13 GOTO AGAINL C AF,B COMP ' ' 13 C 13 GOTO AGAINN C Z-ADDB A C Z-ADD0 B C AGAINF TAG C B ADD 1 B C MOVE AF,B AN,B C B COMP A 13 C N13 GOTO AGAINF C Z-ADD0 B C A ADD 1 A C AGAINL TAG C A ADD 1 A C B ADD 1 B C MOVE AL,B AN,A C B COMP 15 13 C N13 GOTO AGAINL C END TAG CLR 09 SETON 08 CLR 09 EXCPT CLR 09 SETOF 08 OW2REPORTE 03 O 4 '1A19' O UYEAR 6 O 15 '210607164' O 48 'JOFFE LUMBER & SUPPLY CO' O 54 '. INC.' O 89 '18 BURNS AVENUE' O E 03 O 2 '2A' O 10 'VINELAND' O 29 'NJ' O 47 '08360' O E 03 O 4 '1B19' O UYEAR 6 O 15 '210607164' O 18 'IBM' O E 03 O 2 '2B' O 41 'JOFFE LUMBER & SUPPLY CO' O 48 '., INC.' O 75 '18 BURNS AVENUE' O 103 'VINELAND' O 117 'NJ' O 127 '08360' O E 03 O 4 '1E19' O UYEAR 6 O 15 '210607164' O 48 'JOFFE LUMBER & SUPPLY CO' O 55 '., INC.' O 89 '18 BURNS AVENUE' O E 03 O 2 '2E' O 10 'VINELAND' O 29 'NJ' O 47 '08360' O 48 'F' O 49 'R' O E 08 O 2 '1I' O IFOAWG 12 O IFICTP 23 O IGRS 34 O IFICOA 45 O IFWT 56 O IINS 73 O IUNFIC 83 O IEARN 94 O ITIP 104 O IBENF 114 O IDEFR 125 O E 08 O 2 '2I' O IDPBN 12 O Z10 23 O Z10 34 O IFHIWG 46 O IFICHI 57 O D 01 O 2 '1W' O N10 SSNO 11 O 10 3 'I' O AN 43 O 43 ' ' O STREET 58 O CITY 98 O STATE 105 O ZIP 123 O D 01 O 2 '2W' O WFOAWG 9 O WFICTP 17 O WGRS 27 O WFICOA 34 O WFWT 43 O WINS 76 O WUNFIC 83 O WEARN 90 O WTIP 97 O WBENF 106 O EPENS 108 O WDEFR 120 O EDPBN 128 O D 01 O 2 '3W' O WFHIWG 11 O WFICHI 18 O T LR O 2 '1T' O TNOEMP 9 O TFOAWG 22 O TFICTP 35 O TGRS 48 O TFICOA 61 O TFWT 74 O TINS 86 O TUNFIC 98 O TEARN 110 O TTIP 122 O T LR O 2 '2T' O TBENF 14 O TDEFR 28 O TDPBN 41 O Z13 55 O Z13 69 O TFHIWG 83 O TFICHI 96 O T LR O 2 '1F' O TNOEMP 9 O 25 '0000000000000000' O TFOAWG 25 O 42 '0000000000000000' O TFICTP 42 O 59 '0000000000000000' O TGRS 59 O 76 '0000000000000000' O TFICOA 76 O 93 '0000000000000000' O TFWT 93 O 110 '0000000000000000' O TEARN 110 ** PRESS COMMAND KEY 7 AND ENTER IF THERE ARE NO MORE ENTRIES, OR ENTER EMPLOYEE NUMBER (300 MAXIMUM) ENTER YEARLY TOTAL OF EMPLOYER COST OF GROUP TERM LIFE INSURANCE ENTER YEARLY TOTAL OF FRINGE BENEFITS // CEND // COPY LIBRARY-S,NAME-JF0184,RECL-096,DATE-01/03/23,TIME-1226,SUB-RPG H B 1 JF0184 FW2REPORTIPE F 128 128 2 DISK FPRT O F 132 132 OV PRINTER IW2REPORTAA 01 I 1 128 RECORD C N04 SETON 05 C N04 EXCPT C N04 SETOF 05 C SETON 04 C NOPAGE ADD 1 NOPAGE 20 C NOPAGE COMP 28 02 C 02 SETON 03 C 02 EXCPT C 02 SETOF 03 C 02 Z-ADD1 NOPAGE CLR SETON 06 CLR EXCPT CLR SETOF 06 OPRT E 02 03 O OR 06 O 24 '---------1---------2----' O 48 '-----3---------4--------' O 72 '-5---------6---------7--' O 96 '-------8---------9------' O 120 '---0---------1---------2' O 128 '--------' O E 203 05 O OR 03 O 24 'M A G N E T I C M E D ' O 37 'I A W 2 '' S' O E 02 05 O OR 03 O 24 '---------1---------2----' O 48 '-----3---------4--------' O 72 '-5---------6---------7--' O 96 '-------8---------9------' O 120 '---0---------1---------2' O 128 '--------' O D 02 01 O RECORD 128 // CEND // COPY LIBRARY-S,NAME-JF0185,RECL-096,DATE-01/03/23,TIME-1226,SUB-RPG H B 1 JF0185 FINP IP F 79 79 KEYBORD FCNTRL IC F 32 32R DISK FHOUSE UC F 41 41R 9AI 1 DISK A FHOUEST UC F 41 41R 9AI 1 DISK A FPRT O F 132 132 OV PRINTER FCRT O F 79 79 CRT E AMS 1 4 79 ICNTRL AA 1 C0 2 C0 3 C7 I 4 32 CONAME IHOUSE AA 01 10 CD I BB 02 I 7 41 RREC IHOUEST AA 03 10 CD I BB 04 I 7 41 EREC C 13 GOTO BEGIN C SETON 13 C 7 CHAINCNTRL C SETON 14 C BEGIN TAG C OV SETON 14 C 14 EXCPT C 14 SETOF 14OV C SETOF 12 C AMS,1 SET KG C AMS,2 KEY REGEST 1 C KG SETON LR C KG GOTO END C REGEST COMP 'R' 05 C REGEST COMP 'E' 06 C N05N06 GOTO END C AMS,3 KEY OHSENO 60 C Z-SUB1 HSLNE 90 C MOVELOHSENO HSLNE C 05 HSLNE CHAINHOUSE 01 C 06 HSLNE CHAINHOUEST 03 C 05 01 COR 06 03 SETON 07 C 05 01 COR 06 03 EXCPT C 05 01 COR 06 03 SETOF 07 C 05 01 COR 06 03 GOTO END C AMS,4 KEY NHSENO 60 C MOVELNHSENO HSLNE C 05 HSLNE CHAINHOUEST 01 C 06 HSLNE CHAINHOUSE 03 C 05N01 COR 06N03 SETON 08 C 05N01 COR 06N03 EXCPT C 05N01 COR 06N03 SETOF 08 C 05N01 COR 06N03 GOTO END C SETON 12 C Z-SUB2 LINE 30 C AGN1 TAG C LINE ADD 1 LINE C MOVE LINE HSLNE C MOVELOHSENO HSLNE C 05 HSLNE CHAINHOUSE 01 C 06 HSLNE CHAINHOUEST 03 C 05 01 COR 06 03 GOTO END C SETOF 0102 C SETOF 0304 C MOVELNHSENO HSLNE C 05 HSLNE CHAINHOUEST 09 C 06 HSLNE CHAINHOUSE 10 C SETON 11 C EXCPT C SETOF 11 C GOTO AGN1 C END TAG OCRT H 103 1P O 24 'M O V E H O U S E S ' O 48 '- R E G U L A R / E S ' O 72 'T I M A T I N G F I L ' O 75 'E S' O E 01 07 O 05 24 'NOT IN REGULAR HOUSE FIL' O 05 25 'E' O 06 24 'NOT IN ESTIMATING HOUSE ' O 06 28 'FILE' O E 01 08 O 05 24 'ALREADY IN ESTIMATING HO' O 05 32 'USE FILE' O 06 24 'ALREADY IN REGULAR HOUSE' O 06 29 ' FILE' OHOUEST EADD 11 05 09 O RREC 41 O NHSENO 6 O E 11 05N09 O RREC 41 OHOUSE EADD 11 06 10 O EREC 41 O NHSENO 6 O E 11 06N10 O EREC 41 OPRT E 303 14 O CONAME 29 O 56 'HOUSES MOVED BETWEEN REG' O 80 'ULAR AND ESTIMATING FILE' O 81 'S' O UDATE Y 91 O D 02 12 O 6 'HOUSE#' O OHSENO 13 O 05 38 'COPIED FROM REGULAR TO E' O 05 52 'STIMATING FILE' O 06 38 'COPIED FROM ESTIMATING T' O 06 52 'O REGULAR FILE' O 73 'AND GIVEN NEW HOUSE#' O NHSENO 80 ** PRESS COMMAND KEY 7 AND ENTER IF THERE ARE NO MORE ENTRIES, OR ENTER HOUSE FILE WHERE HOUSE NOW EXISTS: R=REGULAR, E=ESTIMATING ENTER CURRENT HOUSE NUMBER ENTER NEW HOUSE NUMBER IN FILE TO WHICH HOUSE IS TO BE COPIED // CEND // COPY LIBRARY-S,NAME-JF0206,RECL-096,REF-000004,DATE-04/08/26,TIME-1240,SUB-RPG H B 1 JF0206 FRECEV UP F 300 300 6AI 2 DISK FPYMT UC F 80 80R 9AI 1 DISK FGLPMT US F 54 54 DISK FCNTRL IC F 32 32R DISK FCUSMAS IC F 600 600R 6AI 1 DISK FXREC O F 300 300 6AI 2 DISK FXPYM O F 80 80 9AI 1 DISK FXGLP O F 54 54 DISK FPRT O F 132 132 OV PRINTER IRECEV AA 01 300 CP I 1 256 RREC1 I 257 300 RREC2 I 2 70INVNO I 8 130CUSNO I 14 190INVDAT I 18 190INVY I P 20 242INVAMT I BB 11 300 CV I 1 256 RREC1 I 257 300 RREC2 I 2 70INVNO I 8 130CUSNO I 14 190INVDAT I 18 190INY I P 20 242INVAMT I CC IPYMT AA 02 80 CA I 1 80 PREC I 16 210PDDATE I 20 210PDY I BB IGLPMT AA 03 54 CA I 1 54 GREC I 41 420PDY ICNTRL AA 1 C0 2 C0 3 C7 I 4 32 CONAME ICUSMAS AA 09 600NCA I BB I 8 37 CUSNAM I 97 121 DEVCO ILDA UDS I 7 100Y4 C 04 GOTO BEGIN C SETON 04 C MOVE ' ' BLNK30 30 C 7 CHAINCNTRL C SETON 10 C BEGIN TAG C SETOF 07 C OV SETON 10 C 10 EXCPT C 10 SETOF 10OV C 01 GOTO REC01 C 11 GOTO REC11 C 03 GOTO REC03 C GOTO END C REC01 TAG C Z-ADD0 SQNO 30 C MOVELINVNO KEY 9 C Z-ADDINVY PDY C AGN1 TAG C SQNO ADD 1 SQNO C MOVE SQNO KEY C SETOF 02 C KEY CHAINPYMT 06 C N06 GOTO AGN1 C Z-ADDPDY PDY4 40 C PDY COMP 70 05 C 05 MOVEL'19' PDY4 C N05 MOVEL'20' PDY4 C PDY4 COMP Y4 0707 C N07 GOTO END C MOVE BLNK30 CUSNAM C MOVE BLNK30 DEVCO C CUSNO CHAINCUSMAS 09 C Z-ADD0 PDDATE C Z-ADD0 SQNO C AGN2 TAG C SQNO ADD 1 SQNO C MOVE SQNO KEY C KEY CHAINPYMT 06 C N06 SETON 08 C N06 EXCPT C N06 SETOF 08 C N06 GOTO AGN2 C GOTO END C REC11 TAG C Z-ADDINY INY4 40 C INY COMP 70 05 C 05 MOVEL'19' INY4 C N05 MOVEL'20' INY4 C INY4 COMP Y4 0707 C 07 MOVE BLNK30 CUSNAM C 07 MOVE BLNK30 DEVCO C 07 CUSNO CHAINCUSMAS 09 C GOTO END C REC03 TAG C Z-ADDPDY PDY4 C PDY COMP 70 05 C 05 MOVEL'19' PDY4 C N05 MOVEL'20' PDY4 C PDY4 COMP Y4 0707 C END TAG OPYMT E 08 O 80 'D' OXPYM E 08 O PREC 80 ORECEV D 01 07 O OR 11 07 O 300 'D' OXREC D 01 07 O OR 11 07 O RREC1 256 O RREC2 300 OGLPMT D 03 07 O 54 'D' OXGLP D 03 07 O GREC 54 OPRT E 103 10 O CONAME 29 O 54 'INVOICES REMOVED FROM CO' O 78 'MPUTER FILES - PAID IN Y' O 81 'EAR' O Y4 86 O 97 'OR EARLIER' O 106 'RUN' O UDATE Y 115 O PAGE 130 O 127 'PAGE' O E 01 10 O 54 '************************' O 66 '************' O E 01 10 O 25 'INV# INV DATE CUST#/N' O 37 'AME/DEVEL CO' O 97 'INV AMT' O 113 'LAST CASH' O E 01 10 O 24 '************************' O *PLACE 48 O *PLACE 72 O *PLACE 96 O *PLACE 120 O D 01 01 07 O OR 11 07 O INVNO 6 O INVDATY 16 O CUSNO 24 O CUSNAM 56 O DEVCO 83 O INVAMTJ 98 O 11 103 'VOID' O 01 PDDATEY 113 // CEND // COPY LIBRARY-S,NAME-JF0214,RECL-096,DATE-04/10/07,TIME-1012,SUB-RPG H B 1 JF0214 FGLFILE UP F 224 224 6AI 1 DISK FCNTRL UC F 32 32R DISK FINP ID F 79 79 KEYBORD FCRT O F 79 79 CRT IGLFILE AA 01 I P 194 1992MDEB I P 200 2052MCRED I P 206 2112YDEB I P 212 2172YCRED ICNTRL AA I 4 50M I 8 8 X ILDA UDS I 1 1 XDEC C 02 GOTO BEGIN C SETON 02 C MOVE ' ' XDEC C 1 CHAINCNTRL C M COMP 12 03 C 03 X COMP 'X' 0303 C N03 SETON LR C N03 GOTO BEGIN C SETON 04 C EXCPT C SETOF 04 C ' ' KEY GO 1 C SETON 05 C EXCPT C SETOF 05 C MOVE 'X' XDEC C BEGIN TAG OCRT E 103 04 O 24 'YOU ARE NOT CLOSING THE ' O 48 'MONTH OF DECEMBER BUT AR' O 64 'E ONLY GOING TO:' O E 01 04 O 24 ' 1.)COPY THE DECEMBER MO' O 48 'NTHLY AND ENDING YEARLY ' O 72 'BALANCES.' O 75 'ES.' O E 01 04 O 28 'THESE WILL BE USED FOR T' O 52 'HE PREVIOUS YEAR FIGURES' O 71 ' IN NEXT YEARS P&L.' O E 01 04 O 24 ' 2.) MAKE A COPY OF THE ' O 48 'GL FILE NAMED TGLFIL FOR' O 72 ' USE BY THE P&L NEXT YEA' O 74 'R.' O E 02 04 O 28 'THIS WILL BE RENAMED PGL' O 52 'FILE WHEN DECEMBER IS CO' O 67 'PLETELY CLOSED.' O E 01 04 O 24 'AFTER THIS PARTIAL CLOSI' O 48 'NG YOU MAY ENTER THE CLO' O 60 'SING ENTRIES' O E 02 04 O 24 'AND DO A FINAL CLOSING F' O 36 'OR DECEMBER.' O E 01 04 O 24 'TO CANCEL NOW PRESS UPPE' O 48 'R SHIFT/KEYS THEN ENTER,' O 68 ' AND TAKE A 2 OPTION' O E 02 04 O 24 'TO THE SELECTIONS PRESEN' O 27 'TED' O E 01 04 O 24 'IF YOU WISH TO BEGIN THE' O 48 ' COPYING JUST PRESS THE ' O 57 'ENTER KEY' OGLFILE D 01 03 O YDEB 43P O MDEB 115P O YCRED 121P O MCRED 193P OCNTRL E 05 O 8 'X' // CEND // COPY LIBRARY-S,NAME-JF0215,RECL-096,DATE-01/03/23,TIME-1226,SUB-RPG H B 1 JF0215 FCUSMAS UPE F 600 600 6AI 1 DISK E AS 12 9 2 E AC 12 9 2 ICUSMAS AA 01 OCUSMAS D 01 O AS 236P O AC 296P // CEND // COPY LIBRARY-S,NAME-JF0216,RECL-096,REF-000001,DATE-11/10/25,TIME-0702,SUB-RPG H B 1 JF0216 FLOAD IPE F 100 100 9AI 1 DISK FCNTRL IC F 32 32R DISK FINP ID F 79 79 KEYBORD FCUSMAS IC F 600 600R 6AI 1 DISK FMISCUS IC F 97 97R 7AI 1 DISK FPROD IC F 400 400R 9AI 1 DISK FPRCTAB IC F 35 35R14AI 1 DISK FPRT O F 132 132 OV PRINTER E AMS 1 5 79 E AL 100 6 0 E AP 8 9 4 E AOP 8 9 4 E AX 6 1 E AXD 6 6 7 E AXN 6 7 ILOAD AA 01 10 CF I 1 60LNO L1 I 11 160CNO I 17 200HSE4 08 I 21 220HSE2 I 23 230REGC 09 I 24 32 BLDG 41 I 33 40 LOT 42 I 41 44 BSEQ 43 I 45 500DELDAT I 52 52 RBO I 54 54 PRTY I 61 66 AX I 67 67 OFCRED I P 68 710ORDDAT I 72 73 SM I 74 75 RECBY I 76 77 PROCBY I 78 78 SPADDR I 80 850ORDNO I BB 02 10 CI 20 CA I 21 47 HDES1 I 52 61 PONO1 10 I 62 71 PONO2 I P 72 750MNFDAT I P 78 791LOADIS I* 78 78 LOADS1 I* 79 79 LOADS2 I HH 03 10 CI 20 CB I 21 47 HDES2 I P 48 512SGLPR I 52 61 PONO3 I 62 71 PONO4 I 72 72 PRNT 32 I P 77 790NJCON I CC 04 10 CI 20 CH I 7 90LINE I 21 27 ITEM I 53 53 XPRLD I 54 54 XPRCR I DD 05 10 CI 20 CI I 7 90LINE I 21 27 ITEM I 28 310QTYOR4 I 32 32 HC I 33 33 LRH 11 I P 34 384HSPPRC I P 39 410LINFT 20 I P 52 540QTYINV I P 55 570QTYBO I P 58 600QTYRBO I P 61 630QTYORG I EE 06 10 CI 20 CE I 7 90LINE I 21 47 DESC I 48 48 LRH 11 I FF 07 10 CI 20 CM I 7 90LINE I P 21 230QTYORD I 24 24 LRH 11 I P 25 294MSPPRC I P 30 320LINFT I 33 59 DESC I P 60 620QTYINV I P 63 650QTYBO I P 66 680QTYRBO I 69 70 DEPT I 71 71 LABEL I GG 39 ICNTRL AA 1 C0 2 C0 3 C7 I 4 32 CONAME ICUSMAS AA 12 600NCA I BB I 8 37 CNAM I 97 121 DEVCO I 132 132 NETBIL I 133 134 STATE I 135 135 TAXCD I P 297 2981CUSDIS I 299 300 SLSC I 436 441 ZONE I P 531 5346NYTXRT IMISCUS AA 46 97NCA I BB I 8 37 CNAM IPROD GG I 11 11 TYPE I 12 12 STAT I P 13 52 AP I P 53 550LIN I 56 57 DEPT I 58 58 LABEL I 129 1310PRGRP I 134 160 DESC I P 161 200 AOP IPRCTAB AA 54 35NCA I BB I 15 150PC I P 16 204PSPPRC I P 21 223PDSPCC I 23 23 PZDIS I***** I P 24 284PADDOL I***** C 23 GOTO BEGIN C SETON 2318 C MOVE ' ' BLNK30 30 C 7 CHAINCNTRL C AMS,1 KEY YN 1 C YN COMP 'Y' 24 C 24 GOTO CUOLPR C AGN TAG C I ADD 1 I 30 C AMS,2 SET KG C AMS,3 KEY AL,I C I COMP 100 25 C N25NKG GOTO AGN C CUOLPR TAG C AMS,4 KEY PRSPRV 1 C PRSPRV COMP 'O' 31 C AMS,5 KEY RPNTBL 1 C RPNTBL COMP 'N' 4747 C BEGIN TAG C 39 GOTO END C 01 SETOF 26 C 01 24 SETON 26 C 01N24 LNO LOKUPAL 26 C N26 GOTO END C 01 COR OV SETON 18 C 18 EXCPT C 18 SETOF 18OV C 01 SETON 27 C 01 MOVE BLNK30 CNAM C 01 MOVE BLNK30 DEVCO C 01 MOVE ' ' NETBIL C 01 MOVE ' ' STATE C 01 MOVE ' ' TAXCD C 01 Z-ADD0 CUSDIS C 01 Z-ADD1 CNTPCC C 01 MOVE ' ' SLSC C 01 MOVE ' ' ZONE C 01 Z-ADD0 NYTXRT C 01 CNO CHAINCUSMAS 12 C 01 47 NETBIL COMP 'N' 52 C 01 Z-ADD0 TXRAT1 66 C 01 Z-ADD0 TXRAT2 66 C 01 MOVE BLNK30 TX1DES 11 C 01 MOVE BLNK30 TX2DES 14 C 01 STATE COMP 'NJ' 54 C 01 54 TAXCD COMP 'T' 54 C 01 54 Z-ADD.070000 TXRAT1 C 01 54 MOVEL' 7.0000%'TX1DES C 01 54 MOVE ' NJ' TX1DES C 01 STATE COMP 'NJ' 54 C 01 54 TAXCD COMP 'U' 54 C 01 54 Z-ADD.035000 TXRAT1 C 01 54 MOVEL' 3.5000%'TX1DES C 01 54 MOVE ' NJ' TX1DES C 01 STATE COMP 'PA' 54 C 01 54 TAXCD COMP 'T' 54 C 01 54 Z-ADD.060000 TXRAT1 C 01 54 MOVEL' 6.0000%'TX1DES C 01 54 MOVE ' PA' TX1DES C 01 STATE COMP 'PA' 54 C 01 54 TAXCD COMP 'P' 54 C 01 54 Z-ADD.060000 TXRAT1 C 01 54 MOVEL' 6.0000%'TX1DES C 01 54 MOVE ' PA' TX1DES C 01 54 Z-ADD.020000 TXRAT2 C 01 54 MOVEL' 2.0000%'TX2DES C 01 54 MOVE ' PHILA' TX2DES C 01 STATE COMP 'MD' 54 C 01 54 TAXCD COMP 'T' 54 C 01 54 Z-ADD.060000 TXRAT1 C 01 54 MOVEL' 6.0000%'TX1DES C 01 54 MOVE ' MD' TX1DES C 01 STATE COMP 'CT' 54 C 01 54 TAXCD COMP 'T' 54 C 01 54 Z-ADD.063500 TXRAT1 C 01 54 MOVEL' 6.3500%'TX1DES C 01 54 MOVE ' CT' TX1DES C 01 STATE COMP 'RI' 54 C 01 54 TAXCD COMP 'T' 54 C 01 54 Z-ADD.070000 TXRAT1 C 01 54 MOVEL' 7.0000%'TX1DES C 01 54 MOVE ' RI' TX1DES C 01 STATE COMP 'MA' 54 C 01 54 TAXCD COMP 'T' 54 C 01 54 Z-ADD.062500 TXRAT1 C 01 54 MOVEL' 6.2500%'TX1DES C 01 54 MOVE ' MA' TX1DES C 01 STATE COMP 'NY' 54 C 01 54 TAXCD COMP 'T' 54 C 01 54 Z-ADDNYTXRT TXRAT1 C 01 54 MOVELTXRAT1 DUM2 2 C 01 54 MOVE TXRAT1 DUM4 4 C 01 54 MOVELDUM2 DUM3 3 C 01 54 MOVE '.' DUM3 C 01 54 MOVELDUM3 DUM7 7 C 01 54 MOVE DUM4 DUM7 C 01 54 MOVELDUM7 TX1DES C 01 54 MOVE '% NY' TX1DES C 01 MOVELCNO CNO3 30 C 01 CNO3 COMP 630 25 C 01 25 MOVEL'L' MSCSKY 7 C 01 25 MOVE LNO MSCSKY C 01 25 MSCSKY CHAINMISCUS 46 C 01 RBO COMP 'B' 21 C 01 RBO COMP 'R' 22 C 01 PRTY COMP 'X' 29 C 01 MOVE ' ' AXN C 01 Z-ADD0 X 10 C 01 Z-ADD0 N 10 C AGNX TAG C 01 X ADD 1 X C 01 AX,X COMP 'X' 25 C 01 25 N ADD 1 N C 01 25 MOVE AXD,X AXN,N C 01 X COMP 6 25 C 01N25 GOTO AGNX C 01 OFCRED COMP 'X' 30 C 01 Z-ADD0 TOTTX 92 C 01 Z-ADD0 TOTNTX 92 C 01 GOTO END C 02 Z-ADDLOADIS DISPC 31 C 02 DISPC COMP 0 25 C 02 25 Z-ADDCUSDIS DISPC C 02 DISPC COMP 0 3838 C 02 38 Z-SUBDISPC DISPC C 02 38 DISPC DIV 100 DISPCC 33 C 02 38 1 ADD DISPCC CNTPCC 43 C 03 SGLPR COMP 0 1717 C 02 COR 03 GOTO END C 27 SETON 28 C 27 EXCPT C 27 SETOF 2728 C 05 Z-ADDQTYOR4 QTYORD C 07 MOVE '9999999' ITEM C 07 MOVE '9' HC C 07 Z-ADDMSPPRC HSPPRC C 06 GOTO LRH C 07 GOTO QUAN C Z-ADD1 LIN2 20 C MOVELITEM ITMLN 9 C MOVE LIN2 ITMLN C ITMLN CHAINPROD 13 C N13 TYPE COMP 'D' 13 C N13 AX,3 COMP 'X' 25 C N13N25 AX,4 COMP 'X' 25 C N13 25 DEPT COMP 'P1' 25 C N13 25 MOVE 'P2' DEPT C N13 AX,1 COMP 'X' 25 C N13N25 AX,2 COMP 'X' 25 C N13 25 DEPT COMP 'P2' 25 C N13 25 MOVE 'P1' DEPT C QUAN TAG C 04 XPRLD COMP 'X' 25 C 04 25 MOVE 'L' XPRLD C 04 XPRCR COMP 'X' 25 C 04 25 MOVE 'C' XPRCR C 04 GOTO PRTITM C QTYORD SUB QTYINV QUAN 40 C Z-ADD0 PRICE 94 C 13 GOTO ENPRIC C 31 Z-ADDAOP AP C Z-ADD0 PDSPCC C MOVE ' ' PZDIS C***** C Z-ADD0 PADDOL C***** C MOVE HC PC C HC COMP '0' 54 54 C 54 HC COMP '8' 5454 C 54 GOTO PRICE C HC COMP '9' 54 C 54 Z-ADDHSPPRC PSPPRC C 54 GOTO PRICE C Z-ADD1 PC C Z-ADD0 PSPPRC C MOVELCNO PRKEY 14 C MOVE 'I 'DUM8 8 C MOVE ITEM DUM8 C MOVE DUM8 PRKEY C PRKEY CHAINPRCTAB 54 C N54 GOTO PRICE C MOVEL'G 'DUM8 C MOVE PRGRP DUM8 C MOVE DUM8 PRKEY C PRKEY CHAINPRCTAB 54 C PRICE TAG C PC COMP 9 54 C 54 Z-ADDPSPPRC PRICE C 54 GOTO ENPRIC C PC COMP 0 54 C 54 Z-ADD0 PRICE C 54 GOTO ENPRIC C PC COMP 1 54 54 C 54 PC COMP 8 5454 C N54 Z-ADD1 PC C AP,PC COMP 0 54 C 54 Z-ADD1 PC C Z-ADDAP,PC PRICE C ENPRIC TAG C 52 Z-ADDCNTPCC NETPCC 43 C 52 Z-SUBPDSPCC PDSPCC 5454 C 52N54 PZDIS COMP 'Z' 54 C 52 54 1 ADD PDSPCC PNTPCC 43 C 52 54 Z-ADDPNTPCC NETPCC C 52 PRICE MULT NETPCC PRICNT 72H C 52 Z-ADDPRICNT PRICE C***** C 52 PRICE ADD PADDOL PRICE C***** C 05 20N13 Z-ADDLIN LINFT C PRICE MULT QUAN AMT 82H C LINFT COMP 0 25 C 25 AMT MULT LINFT AMT H C MOVELITEM ITEM4 4 C MOVE ITEM ITEM3 3 C ITEM4 COMP '9999' 54 C 54 ITEM3 COMP '999' 5454 C N54 TOTTX ADD AMT TOTTX C 54 TOTNTX ADD AMT TOTNTX C Z-ADD0 TOTFT 50 C LINFT MULT QUAN TOTFT C LRH TAG C 09N11 LRH COMP 'L' 16 C 09N11 MOVE 'L' LRH C 09N11 16 MOVE 'R' LRH C PRTITM TAG C 06 GOTO END C SETON 14 C EXCPT C SETOF 14 C 07 COR 13 GOTO END C MORE TAG C STAT COMP 'N' 15 C 15 LIN2 ADD 1 LIN2 C 15 MOVE LIN2 ITMLN C 15 ITMLN CHAINPROD C 15 OV SETON 1828 C 15 18 EXCPT C 15 18 SETOF 1828OV C 15 SETON 19 C 15 EXCPT C 15 SETOF 19 C 15 GOTO MORE C END TAG CL1N26 GOTO ENDL1 CL1 Z-ADDTOTTX NET 92 CL1 17 Z-ADDSGLPR NET CL1 52 SETOF 38 CL1 38 DISPCC COMP 0 40 CL1 38 NET MULT DISPCC DIS 82H CL1 38 NET ADD DIS NET CL1 NET MULT TXRAT1 TAX1 82H CL1 NET MULT TXRAT2 TAX2 82H C********** C********** NEW MARYLAND SALES TAX 6% CL1 STATE COMP 'MD' 54 CL1 54 TAXCD COMP 'T' 54 CL1N54 GOTO ENMDTX C*DUMTX4 (10-4) MUST BE 2 LARGER THAN TAX1 (8-2) CL1 NET MULT TXRAT1 DUMTX4 104 CL1 NET COMP 0 54 CL1 54 Z-SUBDUMTX4 DUMTX4 CL1 DUMTX4 COMP .0120 54 CL1 54 Z-ADD.01 TAX1 CL1 54 GOTO ENMDTX CL1 DUMTX4 COMP .0120 5454 CL1 54 Z-ADD0 TAX1 CL1 54 GOTO ENMDTX CL1 MOVELDUMTX4 TAX1 CL1 MOVE DUMTX4 DUMTX2 20 CL1 DUMTX2 COMP 0 54 CL1 54 TAX1 ADD .01 TAX1 CL1 NET COMP 0 54 CL1 54 Z-SUBTAX1 TAX1 CL1 ENMDTX TAG C********** C********** CL1 NET ADD TAX1 NET CL1 NET ADD TAX2 NET CL1 TAX1 COMP 0 4949 CL1 TAX2 COMP 0 5050 CL1 NET ADD TOTNTX NET CL1 TOTNTX COMP 0 4848 CL1 SETON 44 CL1 EXCPT CL1 SETOF 44 CL1 ENDL1 TAG OPRT E 103 18 O CONAME 29 O U1 60 'L O A D L I S T I N G ' O U1 84 '- LOADS ALREADY PROCESSE' O U1 85 'D' O U2 60 'O D D L O A D L I S ' O U2 84 'T I N G - LOADS NOT YET ' O U2 93 'PROCESSED' O UDATE Y 105 O PAGE 130 O 126 'PAGE' O E 01 18 O 24 '************************' O *PLACE 48 O *PLACE 72 O *PLACE 96 O E 21 28 O 5 'LOAD#' O LNO M 13 O 26 'SALESMAN' O SLSC 29 O 45 'ORDER#/DATE' O ORDNO M 53 O ORDDATY 62 O 86 'DATE PROCESSED' O UDATE Y 95 O 29 116 '*** PRIORITY ***' O AXN,1 132 O E 01 28 O 30 48 'OFF & CREDIT' O ZONE 62 O 63 '/' O N21N22 DELDATY 71 O 21 73 'BACK ORDER' O 22 67 'R-BO' O 84 '- - -' O SM 77 O RECBY 80 O PROCBY 83 O SPADDR 85 O 105 'CONTRACT#' O NJCON M 112 O AXN,2 132 O E 01 28 O 5 'CUST#' O CNO M 15 O CNAM 46 O DEVCO 74 O N08 94 'HOUSE#' O N08 HSE4 101 O N08 102 '-' O N08 HSE2 104 O 09 110 'OPP' O N09 110 'REG' O AXN,3 132 O E 01 28 O N10 16 'PO#''S' O PONO1 29 O PONO2 42 O PONO3 55 O PONO4 68 O N32 90 'LOAD TICKET PRINTED' O HDES1 121 O AXN,4 132 O E 01 28 O N41 8 'BLDG/BLK' O BLDG 18 O N42 23 'LOT' O LOT 32 O N43 40 'SEQ/UN' O BSEQ 45 O 57 '%DIS:LOAD-' O LOADIS 61 O 66 'CUS-' O CUSDISM 71 O 17 83 'SNGL/LIN PRC' O 17 SGLPR J 95 '$' O HDES2 123 O AXN,5 132 O E 01 28 O 24 '************************' O *PLACE 48 O *PLACE 72 O *PLACE 96 O *PLACE 120 O 132 '************' O AXN,6 132 O E 01 28 O 33 'QTY ORIGINAL' O 107 'N/PRT PRICE' O E 01 28 O 4 'LINE' O 31 'ORDERED QTY' O 62 'ITEM NO DESCRIPTION' O 107 'L/C TOT FT CODE' O 131 'UNIT PR AMOUNT' O E 01 28 O 24 '************************' O *PLACE 48 O *PLACE 72 O *PLACE 96 O *PLACE 120 O 132 '************' O D 01 06 26 O LINE 4 O DESC 78 O N11 LRH 88 O N11 89 'H' O E 01 14 O LINE 4 O N04 QUAN J 22 O 05 QTYORGJ 32 O ITEM 49 O 04N13 DESC 78 O 05N13 DESC 78 O 04N13 DEPT 82 O 05N13 DEPT 82 O 05N13 LABEL 85 O 07 DEPT 82 O 07 LABEL 85 O 07 DESC 78 O N04N11 LRH 88 O N04N11 89 'H' O 04 XPRLD 92 O 04 XPRCR 93 O 05 TOTFT M 102 O 07 TOTFT M 102 O N04 PC 105 O N04 PRICE J 118 O N04N17 AMT J 132 O E 01 19 O DESC 78 O E 01 44 O 132 '-------------' O E 01 44 O TOTTX J 132 O E 01 44 38 O 111 'MINUS % DISCOUNT' O 40 111 ' PLUS % INCREASE' O DISPC 3 101 O DIS J 132 O E 01 44 49 O 91 'PLUS' O TX1DES 103 O 107 'TAX' O TAX1 J 132 O E 01 44 50 O 88 'PLUS' O TX2DES 103 O 107 'TAX' O TAX2 J 132 O E 01 44 48 O 107 'PLUS NONTAX ITEMS' O TOTNTXJ 132 O E 00 44 38 O OR 44 49 O OR 44 50 O OR 44 48 O 110 'EQUALS NET AMOUNT' O NET J 132 ** DO YOU WISH ALL LOADS TO BE LISTED ? (Y=YES, N=NO) PRESS COMMAND KEY 7 IF THERE ARE NO MORE ENTRIES, OR ENTER LOAD# YOU WISH TO BE LISTED (100 MAX) ENTER WHETHER TO USE CURRENT OR OLD PRICES (C=CURRENT, O=OLD) DO YOU WISH NET BILLING FOR AFFECTED CUSTOMERS ? (N=NO, ANYTHING ELSE=YES) ** INT INT/OPTEXT EXT/OPTSTAIRS MISC // CEND // COPY LIBRARY-S,NAME-JF0217,RECL-096,DATE-10/01/05,TIME-2046,SUB-RPG H B 1 JF0217 FWK CP F 145 WORKSTN FDEPT UC F 200 200R 2AI 1 DISK A E ADP 10 2 E ALB 10 2 0 E ABT 10 1 E AML 10 1 E ALS 10 1 E ACP 10 2 0 E AMB 10 1 E AFDP 10 2 E AFLB 10 2 0 E AFBT 10 1 E AFML 10 1 E AFLS 10 1 E AFCP 10 2 0 E AFMB 10 1 IWK AA 01 1 C1 I 2 3 DEPT I 4 145 REC I 4 4 ACT I 5 34 NAME I 35 360LEAD I 37 37 CMGRP I 38 390LAB I 40 40 BAT I 41 41 MILL I 42 42 MLBST I 43 440MCOP I 45 45 MBAT I 46 65 ADP I 66 85 ALB I 86 95 ABT I 96 105 AML I 106 115 ALS I 116 135 ACP I 136 145 AMB I BB 02 IDEPT AA I 3 32 FNAME I 33 340FLEAD I 35 360FLAB I 37 37 FBAT I 38 38 FMILL I 39 39 FMLBST I 40 410FMCOP I 42 42 FMBAT I 43 43 FCMGRP I 51 70 AFDP I 71 90 AFLB I 91 100 AFBT I 101 110 AFML I 111 120 AFLS I 121 140 AFCP I 141 150 AFMB I 200 200 FACT C KG SETON LR C KG SETOF 0102 C N01 GOTO END C SETOF 05 C DEPT CHAINDEPT 04 C KA 04 COR KBN04 SETON 05 C ACT COMP 'D' 0606 C 06 MOVE 'A' ACT C END TAG OWK D 02 O OR 01 05 O K8 'JF021701' O D 01N05NKA O AND NKB O K8 'JF021701' O DEPT 2 O N04 FACT 3 O N04 FNAME 33 O N04 FLEAD 35 O N04 FCMGRP 36 O N04 FLAB 38 O N04 FBAT 39 O N04 FMILL 40 O N04 FMLBST 41 O N04 FMCOP 43 O N04 FMBAT 44 O N04 AFDP 64 O N04 AFLB 84 O N04 AFBT 94 O N04 AFML 104 O N04 AFLS 114 O N04 AFCP 134 O N04 AFMB 144 O D 01N05 KA O OR 01N05 KB O K8 'JF021701' O DEPT 2 O REC 144 ODEPT D 01 05N04 O NAME 32 O LEAD 34 O LAB 36 O BAT 37 O MILL 38 O MLBST 39 O MCOP 41 O MBAT 42 O CMGRP 43 O ADP 70 O ALB 90 O ABT 100 O AML 110 O ALS 120 O ACP 140 O AMB 150 O ACT 200 O DADD 01 05 04 O DEPT 2 O NAME 32 O LEAD 34 O LAB 36 O BAT 37 O MILL 38 O MLBST 39 O MCOP 41 O MBAT 42 O CMGRP 43 O ADP 70 O ALB 90 O ABT 100 O AML 110 O ALS 120 O ACP 140 O AMB 150 O ACT 200 // CEND // COPY LIBRARY-S,NAME-JF021701,RECL-096,DATE-10/01/05,TIME-2104,SUB-FMT 0001 SJF021701 0124 0002 DH1 1 1 2Y Y Y Y 1 0003 D 21 2 2Y Y D E P A R T M E N T # 0004 DDEPT 2 225Y Y Y Y Y 0005 D 24 256Y Y ENTER=GET INFO FROM FILX 0006 DE 0007 D 25 3 2Y Y ***********************X 0008 D** 0009 D 16 356Y Y CK1=ADD NEW DEPT 0010 D 24 456Y Y CK2=CHANGE EXISTING DEPX 0011 DT 0012 D 15 556Y Y CK7=END PROGRAM 0013 D 19 6 2Y Y A=ACTIVE, D=DELETED 0014 DACT 1 636Y Y Y Y 0015 D 15 7 2Y Y DEPARTMENT NAME 0016 DNAME 30 736Y Y Y Y 0017 D 14 8 2Y Y DAYS LEAD TIME 0018 DLEAD 3 836Y YS B Y Y 0023 D 18 9 2Y Y X=COMMERCIAL GROUP 0024 DCMGRP 1 936Y Y Y Y 0019 D 2010 2Y Y # OF LABELS TO PRINT 0020 DLAB 31036Y YS B Y Y 0021 D 2211 2Y Y B=PRINT BATCHED LABELS 0022 DBAT 11136Y Y Y Y 0023 D 1712 2Y Y M=PRINT MILL COPY 0024 DMILL 11236Y Y Y Y 0025 D 2213 5Y Y L=LABEL, S=STOCK PAPER 0026 DMLBST 11336Y Y Y Y 0027 D 2014 5Y Y # OF COPIES TO PRINT 0028 DMCOP 31436Y YS B Y Y 0029 D 915 5Y Y B=BATCHED 0030 DMBAT 11536Y Y Y Y 0031 D 6516 2Y Y LIST OF OTHER DEPARTMENX 0032 DTS INVOLVED IF THIS IS FINAL DEPT (10 MAX) 0033 D 1117 2Y Y DEPARTMENT# 0034 DDEPT1 21731Y Y Y Y 0035 DDEPT2 21736Y Y Y Y 0036 DDEPT3 21741Y Y Y Y 0037 DDEPT4 21746Y Y Y Y 0038 DDEPT5 21751Y Y Y Y 0039 DDEPT6 21756Y Y Y Y 0040 DDEPT7 21761Y Y Y Y 0041 DDEPT8 21766Y Y Y Y 0042 DDEPT9 21771Y Y Y Y 0043 DDEPT10 21776Y Y Y Y 0044 D 1118 2Y Y # OF LABELS 0045 DLAB1 31831Y YS B Y Y 0046 DLAB2 31836Y YS B Y Y 0047 DLAB3 31841Y YS B Y Y 0048 DLAB4 31846Y YS B Y Y 0049 DLAB5 31851Y YS B Y Y 0050 DLAB6 31856Y YS B Y Y 0051 DLAB7 31861Y YS B Y Y 0052 DLAB8 31866Y YS B Y Y 0053 DLAB9 31871Y YS B Y Y 0054 DLAB10 31876Y YS B Y Y 0055 D 919 2Y Y B=BATCHED 0056 DBAT1 11931Y Y Y Y 0057 DBAT2 11936Y Y Y Y 0058 DBAT3 11941Y Y Y Y 0059 DBAT4 11946Y Y Y Y 0060 DBAT5 11951Y Y Y Y 0061 DBAT6 11956Y Y Y Y 0062 DBAT7 11961Y Y Y Y 0063 DBAT8 11966Y Y Y Y 0064 DBAT9 11971Y Y Y Y 0065 DBAT10 11976Y Y Y Y 0066 D 1720 2Y Y M=PRINT MILL COPY 0067 DMILL1 12031Y Y Y Y 0068 DMILL2 12036Y Y Y Y 0069 DMILL3 12041Y Y Y Y 0070 DMILL4 12046Y Y Y Y 0071 DMILL5 12051Y Y Y Y 0072 DMILL6 12056Y Y Y Y 0073 DMILL7 12061Y Y Y Y 0074 DMILL8 12066Y Y Y Y 0075 DMILL9 12071Y Y Y Y 0076 DMILL10 12076Y Y Y Y 0077 D 2221 5Y Y L=LABEL, S=STOCK PAPER 0078 DLBST1 12131Y Y Y Y 0079 DLBST2 12136Y Y Y Y 0080 DLBST3 12141Y Y Y Y 0081 DLBST4 12146Y Y Y Y 0082 DLBST5 12151Y Y Y Y 0083 DLBST6 12156Y Y Y Y 0084 DLBST7 12161Y Y Y Y 0085 DLBST8 12166Y Y Y Y 0086 DLBST9 12171Y Y Y Y 0087 DLBST10 12176Y Y Y Y 0088 D 1122 5Y Y # OF COPIES 0089 DMCOP1 32231Y YS B Y Y 0090 DMCOP2 32236Y YS B Y Y 0091 DMCOP3 32241Y YS B Y Y 0092 DMCOP4 32246Y YS B Y Y 0093 DMCOP5 32251Y YS B Y Y 0094 DMCOP6 32256Y YS B Y Y 0095 DMCOP7 32261Y YS B Y Y 0096 DMCOP8 32266Y YS B Y Y 0097 DMCOP9 32271Y YS B Y Y 0098 DMCOP10 32276Y YS B Y Y 0099 D 923 5Y Y B=BATCHED 0100 DMBAT1 12331Y Y Y Y 0101 DMBAT2 12336Y Y Y Y 0102 DMBAT3 12341Y Y Y Y 0103 DMBAT4 12346Y Y Y Y 0104 DMBAT5 12351Y Y Y Y 0105 DMBAT6 12356Y Y Y Y 0106 DMBAT7 12361Y Y Y Y 0107 DMBAT8 12366Y Y Y Y 0108 DMBAT9 12371Y Y Y Y 0109 DMBAT10 12376Y Y Y Y // CEND // COPY LIBRARY-S,NAME-JF0220,RECL-096,REF-000006,DATE-10/04/08,TIME-0950,SUB-RPG H B 1 1 JF0220 FXLABLS IPE F 230 230 2 DISK FXLABL2 IC F 230 230R DISK FLOAD UC F 100 100R 9AI 1 DISK FCUSMAS IC F 600 600R 6AI 1 DISK FMISCUS IC F 97 97R 7AI 1 DISK FXITHD IC F 42 42R 7AI 1 DISK FLABNOT IC F 50 50R DISK FPRT1 O F 132 132 OV LPRINTER U7 FPRT2 O F 132 132 OF LPRINTER U8 LPRT1 18FL 18OL LPRT2 18FL 18OL IXLABLS AA 01 167 CI I OR 02 167 CE I 1 2 DEPT L5 I 3 9 MITEM I 10 16 CITEM I 17 220LOAD L3 I 28 330CNO L4 I 94 940REGC I 95 103 BLDG I 104 111 LOT I 112 115 BSEQ I 116 1210DELDAT I 122 123 TRUCK I 127 127 BOINV I 128 128 RBO I 136 136 PRTY I P 149 1520MNFDT7 I P 169 1710QTYOR I P 172 1740QTYBO I P 175 1770QTYRBO I P 178 1800QTYINV I 214 214 LABEL I 216 2200HEADNO I 221 221 PREEND I 222 223 ENDEPT I 224 224 BATCH I 225 2260SET L1 I 227 2280TSET I 229 229 MILCOPL2 IXLABL2 AA I 127 127 DBOINV I 128 128 DRBO I P 169 1710DQTYOR I P 172 1740DQTYBO I P 175 1770DQTYRB I P 178 1800DQTYIN I 181 207 DESC I 208 208 LRH 11 I 209 2130LINFT I 214 214 DLABEL I 215 215 DSPRLD ILOAD AA ICUSMAS AA 12 600NCA I BB I 8 37 CNAM I 97 121 DEVCO IMISCUS AA 26 97NCA I BB I 8 37 CNAM IXITHD AA I 15 41 HDESC I 42 42 HLRH 10 ILABNOT AA I 1 45 WINOTE I 50 50 ACTNOT C MOVE ' ' BLNK9 9 C MOVE ' ' BLNK25 25 C MOVE ' ' BLNK30 30 C 01 LABEL COMP 'C' 14 C 01 14 RNO ADD 1 RNO C 01 14 Z-ADDRNO LRNO C 01 14 GOTO END C 01 05 EXSR PRINT C RNO ADD 1 RNO 60 C L5 'P1' COMP DEPT 22 C L5N22 'P2' COMP DEPT 22 C L5 'S5' COMP DEPT 27 C L5N27 'E2' COMP DEPT 27 C L3 MOVE BLNK30 CNAM C L3 MOVE BLNK30 DEVCO C L3 CNO CHAINCUSMAS 12 C L3 MOVELCNO CNO3 30 C L3 CNO3 COMP 630 28 C L3 28 MOVEL'L' MSCSKY 7 C L3 28 MOVE LOAD MSCSKY C L3 28 MSCSKY CHAINMISCUS 26 C L3 DEVCO COMP BLNK25 14 C L3 14 MOVELCNAM DEVCO C L3 MOVELLOAD LOADKY 9 C L3 MOVE '000' LOADKY C L3 LOADKY CHAINLOAD 23 C L3N23 SETON 24 C L3N23 EXCPT C L3N23 SETOF 24 C L3 REGC COMP 0 06 C L3 PRTY COMP 'X' 18 C L2 MILCOP COMP 'M' 21 C L1 SETON 09 C 01 SETON 05 C 01 Z-ADDRNO FRNO 60 C 01 Z-ADDRNO LRNO 60 C 01 MOVE MILCOP OMILCP 1 C 01 MOVE DEPT ODEPT 2 C 01 HEADNO COMP OHDNO 0404 C L1 SETON 04 C 01 Z-ADDHEADNO OHDNO 50 C 01 MOVE MITEM OITEM 7 C 01 Z-ADDLOAD OLOAD 60 C 01 MOVE BLDG OBLDG 9 C 01 OBLDG COMP BLNK9 41 C 01 MOVE LOT OLOT 8 C 01 OLOT COMP ' ' 42 C 01 MOVE BSEQ OBSEQ 4 C 01 OBSEQ COMP ' ' 43 C 01 U1 Z-ADDMNFDT7 ODAT 60 C 01 U2 Z-ADDDELDAT ODAT C 01 MOVE ' ' OASTER 1 C 01 ODAT COMP DELDAT 14 C 01 14 MOVE '*' OASTER C 01 MOVE TRUCK OTRUCK 2 C 01 OTRUCK COMP ' ' 0303 C 01 Z-ADDSET OSET 20 C 01 Z-ADDTSET OTSET 20 C 01 PREEND COMP 'E' 07 C 01 BATCH COMP 'B' 08 C* 01 Z-ADDQTYOR PQTYOR 40 C 01 RBO COMP 'B' 31 C 01N31 RBO COMP 'R' 31 C 01 BOINV COMP 'B' 33 C 01 QTYOR SUB QTYINV PQTY 40 C 01 31 QTYBO ADD QTYRBO PQTY C* 01 31 33PQTY COMP 0 34 C* 01 31 33 C*N 34 QTYOR SUB QTYINV PQTY C 01 MOVE LABEL OLABEL 1 C 02 Z-ADDRNO LRNO C END TAG CLR 05 SETON 35 CLR 05 EXSR PRINT CSR PRINT BEGSR CSR Z-ADD0 RUNOR 40 CSR OLABEL COMP 'S' 19 CSR 08 SETON 19 CSR 19 PQTY SUB 1 RUNOR CSR AGNORD TAG CSR RUNOR ADD 1 RUNOR CSR RUNOR COMP PQTY 14 CSR 14 GOTO ENDSR1 CSR FRNO SUB 1 RRNO 60 CSR 08N09 GOTO ENTITL CSR SETON 16 CSR EXCPT CSR SETOF 16 CSR Z-ADD9 PRTLNE 20 CSR SETOF 09 CSR ENTITL TAG CSR OHDNO COMP 0 14 CSR 14 GOTO AGNITM CSR 08N04 GOTO AGNITM CSR SETOF 04 CSR Z-ADD0 HDKEY 70 CSR MOVELOHDNO HDKEY CSR AGNHD TAG CSR HDKEY ADD 1 HDKEY CSR HDKEY CHAINXITHD 14 CSR 14 GOTO AGNITM CSR DSPRLD COMP 'L' 14 CSR PRTLNE COMP 17 20 CSR SETON 17 CSR EXCPT CSR 20 Z-ADD2 PRTLNE CSR SETOF 1720 CSRN21 PRTLNE ADD 2 PRTLNE CSR 21 PRTLNE ADD 1 PRTLNE CSR GOTO AGNHD CSR AGNITM TAG CSR RRNO ADD 1 RRNO CSR RRNO COMP FRNO 15 CSR RRNO CHAINXLABL2 CSR DRBO COMP 'B' 31 CSRN31 DRBO COMP 'R' 31 CSR DBOINV COMP 'B' 33 CSR DQTYOR SUB DQTYIN DQTY 40 CSR 31 DQTYBO ADD DQTYRB DQTY CSR 31 33 DQTY COMP 0 34 CSR 31 33 34DQTYOR SUB DQTYIN DQTY CSR DSPRLD COMP 'L' 14 CSR ODEPT COMP 'Z1' 25 CSRN25 ODEPT COMP 'L4' 25 CSR 25 DLABEL COMP 'C' 25 CSR PRTLNE COMP 17 20 CSR 22N21 PRTLNE COMP 15 20 CSR SETON 13 CSR EXCPT CSR 20 Z-ADD2 PRTLNE CSR SETOF 132025 CSRN21 U7 PRTLNE ADD 2 PRTLNE CSRN21 U8 PRTLNE ADD 1 PRTLNE CSR 21 PRTLNE ADD 1 PRTLNE CSR 15 22N21PRTLNE ADD 1 PRTLNE CSR RRNO COMP LRNO 14 CSRN14 GOTO AGNITM CSR GOTO AGNORD CSR ENDSR1 TAG CSRN35 ODEPT COMP DEPT 14 CSRN35 14 OMILCP COMP MILCOP 14 CSRN35 14 GOTO ENDSR2 CSR OMILCP COMP 'M' 1414 CSR 14 GOTO ENDSR2 CSR MOVELODEPT ODEPT1 1 CSR ODEPT1 COMP 'V' 1414 CSR 14 GOTO ENDSR2 CSR Z-ADD0 NOTREC 30 CSR AGNOTE TAG CSR NOTREC ADD 1 NOTREC CSR NOTREC CHAINLABNOT 30 CSR 30 GOTO ENDSR2 CSR ACTNOT COMP 'A' 3030 CSR 30 GOTO ENDSR2 CSR PRTLNE COMP 17 20 CSR SETON 32 CSR EXCPT CSR 20 Z-ADD2 PRTLNE CSR SETOF 3220 CSR PRTLNE ADD 1 PRTLNE CSR GOTO AGNOTE CSR ENDSR2 ENDSR OPRT1 H 0116 1P O 24 '***** SHOULD BE CENTERED' O 44 ' & ON TOP LINE *****' O E 001 16 O E 00 16 O 5 'ªPYª-' O E 001 16 O 9 'ªM0302000' O DEVCO 34 O 36 'ª-' O E 00 16 O 5 'ªPNª-' O E 11 16 O CNAM 30 O 07 40 'END DEPT' O N07 40 'PRE DEPT' O 21 45 '/MILL' O E 00 16 O 5 'ªPYª-' O E 00 16 O 9 'ªM0301000' O N41 15 'BL/BK-' O OBLDG 24 O N42 29 'LOT-' O OLOT 37 O N43 42 'S/U-' O OBSEQ 46 O* 31 48 '#' O* 33 48 '#' O OTRUCK 50 O 18 51 '$' O 31 51 '*' O 33 51 '*' O ODEPT 55 O 57 'ª-' O E 00 16 O 5 'ªPNª-' O E 11 16 O 6 'LOAD#-' O OLOAD M 13 O ODAT Y 21 O OASTER 23 O N06N27 28 'REG' O 06N27 28 'OPP' O N19 RUNOR M 40 O N19 PQTY M 47 O N19 35 'LABEL#' O N19 42 'OF' O 19 46 'LABEL# 1 OF 1' O E 01 16 O OSET M 40 O OTSET M 47 O 35 'SET#' O 42 'OF' O E 001 20 O E 01 17 21 O N14 HDESC 36 O 14 HDESC 38 O N10 HLRH 43 O E 00 17N21 O 5 'ªPYª-' O E 01 17N21 O 9 'ªM0201000' O N14 HDESC 45 O 14 HDESC 47 O 50 'ªW02' O N10 HLRH 51 O 53 'ª-' O E 00 17N21 O 5 'ªPNª-' O E 01 13 15 22 O AND N21 O E 01 13 21 O 15 OITEM 7 O N19N14 DESC 36 O N19 14 DESC 38 O N19N11 LRH 38 O 19 15 PQTY M 15 O 19 25 DQTY M 15 O 19N14 DESC 42 O 19 14 DESC 44 O 19N11 LRH 46 O E 00 13N21 O 5 'ªPYª-' O E 01 13N21 O 9 'ªM0201000' O 15 OITEM 16 O N19N14 DESC 45 O N19 14 DESC 47 O 19 15 PQTY M 24 O 19 25 DQTY M 24 O 19N14 DESC 51 O 19 14 DESC 52 O 56 'ªW02' O N11 LRH 58 O 60 'ª-' O E 00 13N21 O 5 'ªPNª-' O E 01 32 O WINOTE 45 OPRT2 H 0116 1P O 24 '***** SHOULD BE CENTERED' O 44 ' & ON TOP LINE *****' O E 101 16 O DEVCO 25 O E 01 16 O 24 '************************' O 25 '*' O E 01 16 O CNAM 30 O 07 40 'END DEPT' O N07 40 'PRE DEPT' O 21 45 '/MILL' O E 01 16 O N41 6 'BL/BK-' O OBLDG 15 O N42 20 'LOT-' O OLOT 28 O N43 33 'S/U-' O OBSEQ 37 O* 31 39 '#' O* 33 39 '#' O OTRUCK 41 O 18 51 '$' O 31 51 '*' O 33 51 '*' O ODEPT 46 O E 01 16 O 24 '************************' O 46 '**********************' O E 01 16 O 6 'LOAD#-' O OLOAD M 13 O ODAT Y 21 O OASTER 23 O N06N27 28 'REG' O 06N27 28 'OPP' O N19 RUNOR M 40 O N19 PQTY M 47 O N19 35 'LABEL#' O N19 42 'OF' O 19 46 'LABEL# 1 OF 1' O E 01 16 O OSET M 40 O OTSET M 47 O 35 'SET#' O 42 'OF' O E 001 20 O E 01 17 21 O N14 HDESC 36 O 14 HDESC 38 O N10 HLRH 43 O E 01 17N21 O N14 HDESC 36 O 14 HDESC 38 O N10 HLRH 38 O E 01 13 15 22 O AND N21 O E 01 13 21 O 15 OITEM 7 O N19N14 DESC 36 O N19 14 DESC 38 O N19N11 LRH 38 O 19 15 PQTY M 15 O 19 25 DQTY M 15 O 19N14 DESC 42 O 19 14 DESC 44 O 19N11 LRH 46 O E 01 13N21 O 15 OITEM 7 O N19N14 DESC 36 O N19 14 DESC 38 O 19 15 PQTY M 15 O 19 25 DQTY M 15 O 19N14 DESC 42 O 19 14 DESC 43 O N11 LRH 45 O E 01 32 O WINOTE 45 OLOAD E 24 O 73 'X' // CEND // COPY LIBRARY-S,NAME-JF0231,RECL-096,REF-000005,DATE-03/07/23,TIME-1005,SUB-RPG H B 1 JF0231 FINP IP F 79 79 KEYBORD FCNTRL IC F 32 32R DISK FOPENAP UC F 70 70R14AI 2 DISK FVENDOR UC F 300 300R 6AI 1 DISK FPRT O F 132 132 PRINTER FDISP O F 79 79 CRT E AMS 1 7 79 IOPENAP AA 01 I 1 1 PAYCD I 2 70VENDNO I 16 210INVDT I P 22 262IAMT I 32 370DATDU I 53 580DATPY I P 60 642DISGV I 65 700DATEN I 69 700YRENT ICNTRL AA 1 C0 2 C0 3 C7 I 4 32 CONAME IVENDOR AA I P 181 1862VAMT I P 187 1890VNUM ILDA UDS I 1 1 XDEL C N12 7 CHAINCNTRL C SETON 12 C AGNKEY TAG C AMS,1 SET KG C AMS,2 KEY VENDNO 60 C KG SETON LR C KG GOTO END C AMS,3 KEY INVNO 8 C MOVELVENDNO OAPKEY 14 C MOVE INVNO OAPKEY C OAPKEY CHAINOPENAP 03 C* N03 PAYCD COMP ' ' 07 C* 03 C*RN03N07 SETON 04 C* 03 C*RN03N07 EXCPT C* 03 C*RN03N07 SETOF 04 C* 03 C*RN03N07 GOTO AGNKEY C 03 SETON 04 C 03 EXCPT C 03 SETOF 04 C 03 GOTO AGNKEY C SETON 13 C EXCPT C SETOF 13 C YRENT COMP UYEAR 06 C INVDT SET KA C AMS,4 KEY INVDTN 60 05 C 05 Z-ADDINVDT INVDTN C KA Z-ADD0 INVDTN C DATDU SET KA C AMS,5 KEY DATDUN 60 05 C 05 Z-ADDDATDU DATDUN C KA Z-ADD0 DATDUN C DISGV SET KA C AMS,6 KEY DISGVN 92 05 C 05 Z-ADDDISGV DISGVN C KA Z-ADD0 DISGVN C DATEN SET KA C AMS,7 KEY DATENN 60 05 C 05 Z-ADDDATEN DATENN C KA Z-ADD0 DATENN C MOVE DATENN YRN 20 C YRN COMP UYEAR 09 C VENDNO CHAINVENDOR 10 C 10 GOTO END C 06 VAMT SUB IAMT VAMT C 06 VNUM SUB 1 VNUM C 09 VAMT ADD IAMT VAMT C 09 VNUM ADD 1 VNUM C END TAG ODISP H 11 1P O 24 'C O R R E C T P E R M ' O 48 'A N E N T A / P I N ' O 59 'V O I C E S' O E 11 04 03 O 24 'NOT IN ACCOUNTS PAYABLE ' O 44 'FILE - ENTRY IGNORED' O* E 11 04N03N07 O* 24 'ALREADY PAID - ENTRY IGN' O* 28 'ORED' OPRT H 103 1P O CONAME 29 O 55 'A / P I N V O I C E ' O 68 'C H A N G E S' O UDATE Y 85 O PAGE 100 O 96 'PAGE' O H 01 1P O 55 '************************' O 68 '*************' O H 01 1P O 20 'VENDOR#' O 32 'INVOICE#' O 58 'INV DATE' O 70 'DATE DUE' O 94 'DISCOUNT' O 106 'ENTERED' O H 02 1P O 24 '************************' O *PLACE 48 O *PLACE 72 O *PLACE 96 O *PLACE 120 O E 11 13 O 4 'FROM' O VENDNO 20 O INVNO 32 O INVDT Y 58 O DATDU Y 70 O DISGV J 95 O DATEN Y 106 O D 01 01 O 4 'TO' O INVDTNY 58 O DATDUNY 70 O DISGVNJ 95 O DATENNY 106 OOPENAP D 01 O INVDTN 21 O DATDUN 37 O DISGVN 64P O DATENN 70 OVENDOR D 01N10 O VAMT 186P O VNUM 189P ** PRESS COMMAND KEY 7 IF THERE ARE NO MORE ENTRIES, OR ENTER VENDOR NUMBER ENTER INVOICE NUMBER ENTER INVOICE DATE ENTER DATE DUE ENTER DISCOUNT GIVEN ON INVOICE ENTER DATE INVOICE ENTERED // CEND // COPY LIBRARY-S,NAME-JF0234,RECL-096,REF-000001,DATE-04/10/06,TIME-1102,SUB-RPG H B 1 JF0234 FVENDOR UC F 300 300R 6AI 1 DISK A FINP IP F 79 79 KEYBORD FDISP O F 79 79 CRT E AMS 1 20 79 E AML 9 5 2 IVENDOR AA 20 I 300 300 ACT C SETOF 99 C Z-ADD0 Z5 50 C Z-ADD0 Z11 110 C AMS,1 SET KG C AMS,2 KEY VENDNO 60 C KG SETON LR C KG GOTO END C VENDNO CHAINVENDOR 50 C N50 ACT COMP 'A' 52 C N50 SETON 51 C N50 EXCPT C N50 SETOF 51 C N50 52 GOTO END C AMS,3 KEY VENNAM 30 C AMS,4 KEY VENAD1 30 C AMS,5 KEY VENAD2 30 C AMS,6 KEY VENAD3 30 C AMS,7 KEY VENAD4 30 C AMS,8 KEY TERMS 20 C AMS,9 KEY SORT 4 C AMS,10 KEY XLOAD 1 C AMS,11 KEY XLIST 1 C XLIST COMP 'X' 05 C N05 MOVE ' ' XLIST C N05 Z-ADD0 AML C 05 AMS,12 KEY AML,1 C 05 AMS,13 KEY AML,2 C 05 AMS,14 KEY AML,3 C 05 AMS,15 KEY AML,4 C 05 AMS,16 KEY AML,5 C 05 AMS,17 KEY AML,6 C 05 AMS,18 KEY AML,7 C 05 AMS,19 KEY AML,8 C 05 AMS,20 KEY AML,9 C N50 VENDNO CHAINVENDOR C SETON 99 C END TAG ODISP H 11 1P O 24 'A D D T O V E N D O ' O 36 'R F I L E' O E 11 51 52 O 22 'ALREADY IN VENDOR FILE' OVENDOR E 51 O DADD 99 50 O VENDNO 6 O SORT 10 O VENNAM 40 O VENAD1 70 O VENAD2 100 O VENAD3 130 O VENAD4 160 O TERMS 180 O Z11 186P O Z5 189P O XLOAD 190 O XLIST 191 O AML 236 O 300 'A' O D 99N50 O SORT 10 O VENNAM 40 O VENAD1 70 O VENAD2 100 O VENAD3 130 O VENAD4 160 O TERMS 180 O Z11 186P O Z5 189P O XLOAD 190 O XLIST 191 O AML 236 O 300 'A' ** PRESS COMMAND KEY 7 & ENTER IF THERE ARE NO MORE ENTRIES TO BE MADE, OR ENTER VENDOR # ENTER VENDOR NAME ENTER VENDOR ADDRESS 1 ENTER VENDOR ADDRESS 2 ENTER VENDOR ADDRESS 3 ENTER VENDOR ADDRESS 4 ENTER VENDOR PAYMENT TERMS ENTER ALPHABETIC SORT FIELD ENTER X IF VENDOR IS TO HAVE LOADS AUTOMATICALLY RELIEVED FROM INVENTORY ENTER X IF VENDOR IS TO HAVE MULTIPLIERS FROM LIST PRICE FOR COSTING/PRICING ENTER COST MULTIPLIER % FROM LIST PRICE (2 DECIMAL POSITIONS) ENTER PRICE CODE 1 MULTIPLIER % FROM COST (2 DECIMAL POSITIONS) ENTER PRICE CODE 2 MULTIPLIER % FROM COST (2 DECIMAL POSITIONS) ENTER PRICE CODE 3 MULTIPLIER % FROM COST (2 DECIMAL POSITIONS) ENTER PRICE CODE 4 MULTIPLIER % FROM COST (2 DECIMAL POSITIONS) ENTER PRICE CODE 5 MULTIPLIER % FROM COST (2 DECIMAL POSITIONS) ENTER PRICE CODE 6 MULTIPLIER % FROM COST (2 DECIMAL POSITIONS) ENTER PRICE CODE 7 MULTIPLIER % FROM COST (2 DECIMAL POSITIONS) ENTER PRICE CODE 8 MULTIPLIER % FROM COST (2 DECIMAL POSITIONS) // CEND // COPY LIBRARY-S,NAME-JF0235,RECL-096,DATE-04/10/06,TIME-1102,SUB-RPG H B 1 JF0235 FVENDOR UC F 300 300R 6AI 1 DISK FINP IP F 79 79 KEYBORD FDISP O F 79 79 CRT E AMS 1 21 79 E AML 9 5 2 E ANML 9 5 2 IVENDOR AA 20 I 7 10 SORT I 11 40 NAME I 41 70 AD1 I 71 100 AD2 I 101 130 AD3 I 131 160 AD4 I 161 180 TERM I 190 190 XLOAD I 191 191 XLIST I 192 236 AML I 300 300 ACT C SETOF 99 C MOVE ' ' BLNK30 30 C MOVE ' ' BLNK20 20 C AMS,1 SET KG C AMS,2 KEY VENDNO 60 C KG SETON LR C KG GOTO END C VENDNO CHAINVENDOR 50 C N50 SETON 02 C N50 EXCPT C N50 SETOF 02 C 50 SETON 51 C 50 EXCPT C 50 SETOF 51 C 50 GOTO END C ACT SET KA C AMS,3 KEY NACT 1 C NACT COMP ' ' 01 C 01 MOVE ACT NACT C KA MOVE ' ' NACT C NACT COMP 'D' 0101 C 01 MOVE 'A' NACT C NAME SET KA C AMS,4 KEY NNAME 30 C NNAME COMP BLNK30 01 C 01 MOVE NAME NNAME C KA MOVE BLNK30 NNAME C AD1 SET KA C AMS,5 KEY NAD1 30 C NAD1 COMP BLNK30 01 C 01 MOVE AD1 NAD1 C KA MOVE BLNK30 NAD1 C AD2 SET KA C AMS,6 KEY NAD2 30 C NAD2 COMP BLNK30 01 C 01 MOVE AD2 NAD2 C KA MOVE BLNK30 NAD2 C AD3 SET KA C AMS,7 KEY NAD3 30 C NAD3 COMP BLNK30 01 C 01 MOVE AD3 NAD3 C KA MOVE BLNK30 NAD3 C AD4 SET KA C AMS,8 KEY NAD4 30 C NAD4 COMP BLNK30 01 C 01 MOVE AD4 NAD4 C KA MOVE BLNK30 NAD4 C TERM SET KA C AMS,9 KEY NTERM 20 C NTERM COMP BLNK20 01 C 01 MOVE TERM NTERM C KA MOVE BLNK20 NTERM C SORT SET KA C AMS,10 KEY NSORT 4 C NSORT COMP ' ' 01 C 01 MOVE SORT NSORT C KA MOVE ' ' NSORT C XLOAD SET KA C AMS,11 KEY NXLOAD 1 C NXLOAD COMP ' ' 01 C 01 MOVE XLOAD NXLOAD C KA MOVE ' ' NXLOAD C XLIST SET KA C AMS,12 KEY NXLIST 1 C NXLIST COMP ' ' 01 C 01 MOVE XLIST NXLIST C KA MOVE ' ' NXLIST C NXLIST COMP 'X' 0101 C 01 MOVE ' ' NXLIST C 01 Z-ADD0 ANML C 01 GOTO ENDLST C AML,1 SET KA C AMS,13 KEY ANML,1 01 C 01 Z-ADDAML,1 ANML,1 C KA Z-ADD0 ANML,1 C AML,2 SET KA C AMS,14 KEY ANML,2 01 C 01 Z-ADDAML,2 ANML,2 C KA Z-ADD0 ANML,2 C AML,3 SET KA C AMS,15 KEY ANML,3 01 C 01 Z-ADDAML,3 ANML,3 C KA Z-ADD0 ANML,3 C AML,4 SET KA C AMS,16 KEY ANML,4 01 C 01 Z-ADDAML,4 ANML,4 C KA Z-ADD0 ANML,4 C AML,5 SET KA C AMS,17 KEY ANML,5 01 C 01 Z-ADDAML,5 ANML,5 C KA Z-ADD0 ANML,5 C AML,6 SET KA C AMS,18 KEY ANML,6 01 C 01 Z-ADDAML,6 ANML,6 C KA Z-ADD0 ANML,6 C AML,7 SET KA C AMS,19 KEY ANML,7 01 C 01 Z-ADDAML,7 ANML,7 C KA Z-ADD0 ANML,7 C AML,8 SET KA C AMS,20 KEY ANML,8 01 C 01 Z-ADDAML,8 ANML,8 C KA Z-ADD0 ANML,8 C AML,9 SET KA C AMS,21 KEY ANML,9 01 C 01 Z-ADDAML,9 ANML,9 C KA Z-ADD0 ANML,9 C ENDLST TAG C VENDNO CHAINVENDOR C SETON 99 C END TAG ODISP H 11 1P O 24 'C H A N G E E X I S T ' O 45 'I N G V E N D O R S' O E 11 51 O 18 'VENDOR NOT IN FILE' OVENDOR E 02 O D 99 O NSORT 10 O NNAME 40 O NAD1 70 O NAD2 100 O NAD3 130 O NAD4 160 O NTERM 180 O NXLOAD 190 O NXLIST 191 O ANML 236 O NACT 300 ** PRESS COMMAND KEY 7 & ENTER IF THERE ARE NO MORE ENTRIES TO BE MADE, OR ENTER VENDOR NUMBER ENTER ACTIVITY: A = ACTIVE, D = DELETED ENTER VENDOR NAME ENTER VENDOR ADDRESS 1 ENTER VENDOR ADDRESS 2 ENTER VENDOR ADDRESS 3 ENTER VENDOR ADDRESS 4 ENTER VENDOR PAYMENT TERMS ENTER ALPHABETIC SORT FIELD ENTER X IF VENDOR IS TO HAVE LOADS AUTOMATICALLY RELIEVED FROM INVENTORY ENTER X IF VENDOR IS TO HAVE MULTIPLIERS FROM LIST PRICE FOR COSTING/PRICING ENTER COST MULTIPLIER % FROM LIST PRICE (2 DECIMAL POSITIONS) ENTER PRICE CODE 1 MULTIPLIER % FROM COST (2 DECIMAL POSITIONS) ENTER PRICE CODE 2 MULTIPLIER % FROM COST (2 DECIMAL POSITIONS) ENTER PRICE CODE 3 MULTIPLIER % FROM COST (2 DECIMAL POSITIONS) ENTER PRICE CODE 4 MULTIPLIER % FROM COST (2 DECIMAL POSITIONS) ENTER PRICE CODE 5 MULTIPLIER % FROM COST (2 DECIMAL POSITIONS) ENTER PRICE CODE 6 MULTIPLIER % FROM COST (2 DECIMAL POSITIONS) ENTER PRICE CODE 7 MULTIPLIER % FROM COST (2 DECIMAL POSITIONS) ENTER PRICE CODE 8 MULTIPLIER % FROM COST (2 DECIMAL POSITIONS) // CEND // COPY LIBRARY-S,NAME-JF0236,RECL-096,REF-000002,DATE-05/01/20,TIME-1436,SUB-RPG H B 1 JF0236 FVENDOR IP F 300 300 6AI 1 DISK U1 FCNTRL IC F 32 32R DISK FXVENLS IS F 300 300 2 DISK U2 FPRINT O F 132 132 OV PRINTER E AML 9 5 2 IVENDOR AA 01 300 CA I 1 60VEND I 11 40 NAME I 41 70 ADDR1 I 71 100 ADDR2 I 101 130 ADDR3 I 131 160 ADDR4 I 161 180 TERMS I 191 191 XLIST I 192 236 AML I BB 02 ICNTRL AA 1 C0 2 C0 3 C7 I 4 32 CONAME IXVENLS AA 01 300 CA I 1 60VEND I 11 40 NAME I 41 70 ADDR1 I 71 100 ADDR2 I 101 130 ADDR3 I 131 160 ADDR4 I 161 180 TERMS I 191 191 XLIST I 192 236 AML I BB 02 C 04 GOTO BEGIN C SETON 04 C MOVE ' ' BLNK30 30 C 7 CHAINCNTRL C SETON 05 C BEGIN TAG C OV SETON 05 C 05 EXCPT C 05 SETOF 05OV C 02 GOTO END C VEND COMP 50000 02 02 C 02 VEND COMP 59999 0202 C 02 SETOF 01 C 02 GOTO END C TOTVEN ADD 1 TOTVEN 40 C SETOF 111213 C SETOF 14 C ADDR4 COMP BLNK30 0303 C 03 SETON 111213 C 03 SETON 14 C ADDR3 COMP BLNK30 0303 C 03 SETON 111213 C ADDR2 COMP BLNK30 0303 C 03 SETON 1112 C ADDR1 COMP BLNK30 0303 C 03 SETON 11 C XLIST COMP 'X' 15 C END TAG OPRINT E 203 05 O CONAME 29 O 59 'VENDOR MASTER FILE LISTI' O 63 'NG -' O U1 71 'NUMERIC' O U2 74 'ALPHABETIC' O 100 'DATE' O UDATE Y 110 O 124 'PAGE' O PAGE 130 O E 01 05 O 24 'VENDOR# 50,000-59,999 EX' O 30 'CLUDED' O E 01 05 O 26 'VENDOR#, NAME, ADDRESS' O 60 'TERMS' O D 11 01 O VEND M 10 O NAME 50 O TERMS 75 O D 01 01 11 O ADDR1 50 O D 01 01 12 O ADDR2 50 O D 01 01 13 O ADDR3 50 O D 01 01 14 O ADDR4 50 O D 01 01 15 O 36 'MULTIPLIERS (%):' O AML,1 M 48 O 53 'COST' O AML,2 M 73 O 86 'PRICE CODE 1' O AML,3 M 98 O 111 'PRICE CODE 2' O D 01 01 15 O AML,4 M 48 O 61 'PRICE CODE 3' O AML,5 M 73 O 86 'PRICE CODE 4' O AML,6 M 98 O 111 'PRICE CODE 5' O D 01 01 15 O AML,7 M 48 O 61 'PRICE CODE 6' O AML,8 M 73 O 86 'PRICE CODE 7' O AML,9 M 98 O 111 'PRICE CODE 8' O T 11 LR O 24 'TOTAL ACTIVE VENDORS -' O TOTVENJ 32 // CEND // COPY LIBRARY-S,NAME-JF0238,RECL-096,REF-000001,DATE-03/07/23,TIME-1005,SUB-RPG H B 1 JF0238 FINP IP F 79 79 KEYBORD FCNTRL IC F 32 32R DISK FVENDOR IC F 300 300R 6AI 1 DISK FOPENAP IC F 70 70R14AI 2 DISK FXAPWK O F 64 64 5AI 2 DISK U FPRT O F 132 132 PRINTER U1 FDISP O F 79 79 CRT E AMS 1 11 79 E AVI 500 14 ICNTRL AA 1 C0 2 C0 3 C7 I 4 32 CONAME IVENDOR AA 21 300 CD I BB I 11 40 NAME IOPENAP AA C 05 GOTO BEGIN C SETON 05 C 7 CHAINCNTRL C SETON 06 C EXCPT C SETOF 06 C BEGIN TAG C AMS,1 KEY NO 50 C Z-ADDNO NOX 50 C NO SUB 1 NO C AGNVCH TAG C MOVE 00 LINE 50 C 100 ADD LINE LINE C SETON 11 C EXCPT C SETOF 11 C START TAG C AMS,2 KEY VENDNO 60 C VENDNO CHAINVENDOR 21 C SETON 01 C EXCPT C SETOF 01 C 21 GOTO START C AMS,3 SET KG C AMS,4 KEY INVNO 8 C KG SETON LR C KG GOTO END C MOVELVENDNO OAPKEY 14 C MOVE INVNO OAPKEY C OAPKEY CHAINOPENAP 02 C OAPKEY LOKUPAVI 03 C N02 COR 03 SETON 04 C 04 EXCPT C 04 SETOF 04 C N02 COR 03 GOTO START C I ADD 1 I 30 C MOVELOAPKEY AVI,I C AMS,5 KEY DATE 60 C AMS,6 KEY DAMT 92 16 C AMS,7 KEY DISAMT 92 C AMS,8 KEY DATDUE 60 C MOVE ' ' CRCODE 1 C 16 MOVE 'C' CRCODE C SETON 13 C EXCPT C SETOF 13 C TDAMT ADD DAMT TDAMT 92 C AGAIN TAG C NO ADD 1 NO C NOX ADD 1 NOX C 1 ADD LINE LINE C AMS,9 KEY ACOUNT 60 C AMS,10 KEY EXAMT 92 C SETON 15 C EXCPT C SETOF 15 C TEXAMT ADD EXAMT TEXAMT 92 C AMS,11 SET KAKG C KA GOTO AGNVCH C KG SETON LR C KG GOTO END C GOTO AGAIN C END TAG ODISP H 11 1P O 24 'A D D I N V O I C E ' O 48 'A N D E X P E N S E ' O 61 'R E C O R D S' O E 11 01 O N21 NAME 30 O 21 18 'NOT IN VENDOR FILE' O E 11 04 O 24 'DUPLICATE VENDOR/INVOICE' O 31 ' NUMBER' OPRT E 103 06 O CONAME 29 O 56 'ACCOUNTS PAYABLE' O 67 'DATA ENTRY' O E 32 11 O 15 'VENDOR NO' O 63 'INVOICE NO' O 72 'DATE' O 87 'AMOUNT' O 99 'DIS AMT' O 112 'DATE DUE' O 121 'CR' O 132 'VOUCHER#' O 28 'VENDOR NAME' O 4 'LINE' O E 2 13 O VENDNOZ 14 O NAME 48 O INVNO 62 O DATE Y 74 O DAMT 3 89 O DISAMT3 99 O DATDUEY 113 O CRCODE 121 O NOX 132 OXAPWK E 13 O LINE 6 O 1 ' ' O VENDNO 13 O INVNO 21 O DATE 27 O DAMT 32P O CRCODE 35 O 36 'D' O DATDUE 46 O DISAMT 64P OPRT E 11 13 O 15 'ACCOUNT' O 30 'AMOUNT' O 5 'LINE' O E 1 15 O LINE 5 O ACOUNT 15 O EXAMT 1 30 OXAPWK E 15 O LINE 6 O 1 ' ' O ACOUNT 13 O EXAMT 18P O NO 25 O 36 'E' OPRT T 3 LR O 12 'FINAL TOTALS' O 37 'INVOICE AMOUNTS' O 62 'EXPENSE AMOUNTS' O T 13 LR O TDAMT 1 37 O TEXAMT1 62 ** ENTER VOUCHER NUMBER ENTER VENDOR NUMBER PRESS COMMAND KEY 7 AND ENTER IF THERE ARE NO MORE ENTRIES, OR ENTER INVOICE NUMBER ENTER INVOICE DATE ENTER INVOICE AMOUNT ENTER DISCOUNT AMOUNT ENTER DATE DUE ENTER ACCOUNT NUMBER ENTER EXPENSE AMOUNT PRESS ENTER FOR NEXT EXPENSE,COMMAND KEY 1 NEXT INVOICE, 7 TO END // CEND // COPY LIBRARY-S,NAME-JF0239,RECL-096,REF-000002,DATE-03/07/23,TIME-1005,SUB-RPG H B 1 JF0239 FXAPWK UP F 64 64 5AI 2 DISK FCNTRL UC F 32 32R DISK FGLFILE IC F 224 224R 6AI 1 DISK FVENDOR IC F 300 300R 6AI 1 DISK FOPENAP IC F 70 70R14AI 2 DISK FPRT O F 132 132 OV PRINTER E AVI 500 14 IXAPWK AA 01 1NCD 36 CD I 2 4 CONTRLL1 I 2 60LINE I 8 130VENDNO I 14 21 INVNO 12 I 22 270DATE 10 I P 28 322DAMT I 35 35 CRCODE I 41 460DATDUE 11 I P 60 642DISAMT I BB 02 1NCD 36 CE I 2 4 CONTRLL1 I 2 60LINE I 8 130ACOUNT I P 14 182EXAMT I 21 250REFNO I DD 04 1 CD ICNTRL AA 1 C0 2 C0 3 C1 I 4 50ACCMN I BB 1 C0 2 C0 3 C5 I CC 1 C0 2 C0 3 C7 I 4 32 CONAME IVENDOR AA 05 300NCA I BB I 11 40 VNAME IGLFILE DD 20 224NCA I EE 99 224 CA IOPENAP AA C N06 MOVE 'G' OK 1 C N06 7 CHAINCNTRL C N06 1 CHAINCNTRL C N06 UMONTH COMP ACCMN 07 C N06 SETON 0608 C OV SETON 08 C EXCPT C SETOF 08OV C MOVE ' ' BLNK30 30 C 04 GOTO END C 01 MOVE BLNK30 VNAME C 01 VENDNO CHAINVENDOR 05 C 01 MOVELVENDNO OAPKEY 14 C 01 MOVE INVNO OAPKEY C 01 OAPKEY CHAINOPENAP 13 C 01 OAPKEY LOKUPAVI 14 C 01N13 COR 01 14 COR 01 12 GOTO END C 01 TDAMT ADD DAMT TDAMT 102 C 01 TDSAMT ADD DISAMT TDSAMT 102 C 01 Z-ADDDAMT TEST 92 C 01 GOTO END C ACOUNT CHAINGLFILE 20 C 20 GOTO END C TEXAMT ADD EXAMT TEXAMT 102 C TEST SUB EXAMT TEST C 01 12 COR 01N13 COR 01 14 COR 01 11 COR 01 10 COR 02 20 MOVE 'B' OK C END TAG CL1 TEST ADD 0 TEST 2222 CL1 TEST ADD FT FT 72 2323 CL1 22 MOVE 'B' OK CLR 5 CHAINCNTRL OPRT E 103 08 O CONAME 29 O E 01 08 O 16 'ACCOUNTS PAYABLE' O 26 'EDIT LIST' O UDATE Y 40 O 07 70 'CURRENT ACCOUNTING MONTH' O N07 70 'NEXT ACCOUNTING MONTH' O PAGE 132 O 128 'PAGE' O E 02 08 O 24 '************************' O *PLACE 48 O *PLACE 72 O *PLACE 96 O *PLACE 120 O 132 '************' O D 01 01 O 4 'LINE' O 15 'VENDOR NO' O 28 'VENDOR NAME' O 63 'INVOICE NO' O 72 'DATE' O 87 'AMOUNT' O 99 'DIS AMT' O 112 'DATE DUE' O 121 'CR' O D 02 01 O LINE 5 O VENDNOM 15 O VNAME 48 O INVNO 62 O DATE Y 74 O DISAMTJ 99 O DAMT J 87 O DATDUEY 113 O CRCODE 121 O D 01 02 O 15 'ACCOUNT' O 30 'AMOUNT' O 5 'LINE' O 40 'VOUCHER#' O D 02 02 O LINE 5 O ACOUNT 15 O EXAMT J 30 O REFNO 38 O D 02 02 20 O 24 'NO ACCOUNT NUMBER FOUND-' O 48 'EXPENSE DELETED FOR LINE' O LINE M 55 O D 02 01 12 O 24 'INVOICE NUMBER BLANK-INV' O 45 'OICE DELETED FOR LINE' O LINE M 52 O D 02 01N13 O OR 01 14 O 24 'DUPLICATE VENDOR/INV#-IN' O 46 'VOICE DELETED FOR LINE' O LINE M 53 O D 02 01 11 O 24 'NO DUE DATE ENTERED-SYST' O 45 'EM DATE USED FOR LINE' O LINE M 52 O D 02 01 10 O 24 'NO INVOICE DATE ENTERED-' O 48 'SYSTEM DATE USED FOR LIN' O 49 'E' O LINE M 56 O T 02 L1 22 O 24 'ACCOUNTS PAYABLE AMOUNT ' O 48 'DOES NOT EQUAL EXPENSE D' O 72 'ISTRIBUTIONS FOR ALL LIN' O 84 'ES BEGINNING' O CONTRL 89 O 91 'XX' O T 01 LR O 12 'FINAL TOTALS' O 37 'INVOICE AMOUNTS' O 57 'DISCOUNT AMOUNTS' O 77 'EXPENSE AMOUNTS' O T 00 LR O TDAMT J 37 O TDSAMTJ 57 O TEXAMTJ 77 OXAPWK D 02 20 O 1 'D' O D 01 O 10 UDATE 27 O 11 UDATE 46 O 12 1 'D' O N13 1 'D' O 14 1 'D' OCNTRL T LR O OK 4 // CEND // COPY LIBRARY-S,NAME-JF0241,RECL-096,DATE-01/03/23,TIME-1226,SUB-RPG H B 1 JF0241 FXAPWK UC F 64 64R 5AI 2 DISK FCNTRL IC F 32 32R DISK FINP IP F 79 79 KEYBORD FPRT O F 132 132 PRINTER FDISP O F 79 79 CRT E AMS 1 9 79 IXAPWK AA 01 36 CD I 8 130VENNO I 14 21 INVNO I P 28 322AMT I 22 270DATE I 41 460DATDU I P 60 642DIS I BB 02 36 CE I 8 130ACCT I P 14 182AMT I 21 250REFNO ICNTRL AA 1 C0 2 C0 3 C7 I 4 32 CONAME C 06 GOTO BEGIN C SETON 06 C 7 CHAINCNTRL C SETON 07 C BEGIN TAG C OV SETON 07 C 07 EXCPT C 07 SETOF 07OV C SETOF 0405 C AMS,1 SET KAKBKG C NKANKBNKG GOTO END C KG SETON LR C KG GOTO END C KA SETON 04 C KB SETON 05 C AGN TAG C SETOF 010220 C AMS,2 KEY LINE 50 C LINE CHAINXAPWK 20 C 20 EXCPT C 20 GOTO AGN C 05 GOTO END C SETON 12 C EXCPT C SETOF 12 C 02 ACCT SET KA C 02 AMS,3 KEY ACCTN 60 03 C 02 03 Z-ADDACCT ACCTN C 02 KA MOVE ' ' ACCTN C 02 AMT SET KA C 02 AMS,4 KEY AMTN 92 03 C 02 03 Z-ADDAMT AMTN C 02 KA Z-ADD0 AMTN C 02 REFNO SET KA C 02 AMS,5 KEY REFNON 50 03 C 02 03 Z-ADDREFNO REFNON C 02 KA Z-ADD0 REFNON C 01 DATE SET KA C 01 AMS,6 KEY DATEN 60 03 C 01 03 Z-ADDDATE DATEN C 01 KA Z-ADD0 DATEN C 01 AMT SET KA C 01 AMS,7 KEY AMTN 92 03 C 01 03 Z-ADDAMT AMTN C 01 KA Z-ADD0 AMTN C 01 DIS SET KA C 01 AMS,8 KEY DISN 92 03 C 01 03 Z-ADDDIS DISN C 01 KA Z-ADD0 DISN C 01 DATDU SET KA C 01 AMS,9 KEY DATDUN 60 03 C 01 03 Z-ADDDATDU DATDUN C 01 KA Z-ADD0 DATDUN C SETON 13 C EXCPT C SETOF 13 C END TAG ODISP H 12 1P O 24 'C O R R E C T O R D ' O 48 'E L E T E A / P I N ' O 59 'V O I C E S' O H 01 1P O 24 'NOTE-YOU CANNOT CHANGE T' O 48 'HE VENDOR OR INVOICE#. ' O H 01 1P O 29 'IF YOU WISH TO DO THIS Y' O 53 'OU MUST FIRST DELETE THE' O 77 ' INVOICE IN ITS ENTIRETY' O H 01 1P O 26 'AND THEN RE-ENTER IT.' O E 11 20 O 14 'INVALID LINE #' OPRT E 203 07 O CONAME 29 O 59 'A/P INVOICE CHANGES' O E 11 12 O 13 'AMOUNT' O 02 30 'ACCOUNT' O 02 40 'VOUCHER#' O 01 25 'DIS AMT' O 01 35 'DATE DUE' O 01 45 'INV DATE' O 01 60 'VENDOR NO' O 01 75 'INVOICE NO.' O 85 'LINE#' O E 12 13 O AMTN J 13 O 02 ACCTN 30 O 02 REFNON 38 O 01 DATDUNY 35 O 01 DATEN Y 45 O 01 DISN 3 25 O 01 VENNO M 60 O 01 INVNO 75 O LINE 85 O D 12 05N20 O 5 'LINE#' O LINE 11 O 18 'DELETED' OXAPWK D 04 O 1 ' ' O 01 AMTN 32P O 02 AMTN 18P O 02 ACCTN 13 O 02 REFNON 25 O 01 DATEN 27 O 01 DATDUN 46 O 01 DISN 64P O D 05N20 O 1 'D' ** PRESS COMMAND KEY 1 TO CORRECT A LINE, CK2 TO DELETE, CK7 TO END ENTER LINE NUMBER ENTER ACCOUNT NUMBER ENTER EXPENSE AMOUNT ENTER VOUCHER NUMBER ENTER INVOICE DATE ENTER INVOICE AMOUNT ENTER DISCOUNT AMOUNT ENTER DATE DUE FOR PAYMENT // CEND // COPY LIBRARY-S,NAME-JF0244,RECL-096,REF-000001,DATE-03/07/23,TIME-1005,SUB-RPG H B 1 JF0244 FXAPWK IP F 64 64 5AI 2 DISK FCNTRL IC F 32 32R DISK FVENDOR UC F 300 300R 6AI 1 DISK FOPENAP O F 70 70 14AI 2 DISK A FGLFILE UC F 224 224R 6AI 1 DISK FNMGLEN O F 19 19 2 DISK A FPRT O F 132 132 OV PRINTER E A 4 11 2 IXAPWK BB 02 1NCD 36 CD I 8 130VENDNO I 14 21 INVNO I 22 270DATE I P 28 322IAMT I 35 35 CRCODE I 2 4 LEVEL L1 I 41 460DATDUE I P 60 642DISAMT I CC 03 1NCD 36 CE I 8 130ACNTNO I P 14 182AMT I 2 4 LEVEL L1 I 21 250REFNO I DD 04 1 CD ICNTRL AA 1 C0 2 C0 3 C1 I 4 50ACCMN I 6 70ACCYR I BB 1 C0 2 C0 3 C7 I 4 32 CONAME IVENDOR AA I 11 40 VNAME I P 181 1862VAMT I P 187 1890VNUM IGLFILE FF 99 I P 194 217 A ILDA UDS I 100 101 COCODE C N09 COCODE COMP 'SB' 20 C N09 7 CHAINCNTRL C N09 1 CHAINCNTRL C N09 UYEAR COMP ACCYR 10 C N09 10 UMONTH COMP ACCMN 10 C N09 SETON 0911 C OV SETON 11 C EXCPT C SETOF 11OV C Z-ADD0 ZERO6 60 C Z-ADD0 ZERO9 90 C UMONTH ADD 1 MN 20 C MOVE ' ' BLNK30 30 C 02 SETON 0708 C 02 MOVE BLNK30 VNAME C 02 VENDNO CHAINVENDOR 06 C 02N06 VAMT ADD IAMT VAMT C 02N06 VNUM ADD 1 VNUM C 02 FT ADD IAMT FT 92 C 02 FD ADD DISAMT FD 92 C 02 CT ADD IAMT CT 92 C 02 CD ADD DISAMT CD 92 C N03 GOTO END C N07 SETOF 08 C SETOF 07 C Z-ADDACNTNO KEY 60 C AMT ADD TAMT TAMT 92 C FTE ADD AMT FTE 92 C KEY CHAINGLFILE C A,1 ADD AMT A,1 C A,3 ADD AMT A,3 C END TAG CL1N20 Z-ADD020010 KEY CL1 20 Z-ADD220010 KEY CL1 KEY CHAINGLFILE CL1 A,2 SUB IAMT A,2 CL1 A,4 SUB IAMT A,4 OGLFILE D 03 10 O A 217P O T L1 10 O A 217P ONMGLEN DADD 03N10 O ACNTNO 6 O 7 'D' O AMT 12P O UDATE 18 O 19 'A' O TADD L1N10 O KEY 6 O 7 'C' O IAMT 12P O UDATE 18 O 19 'A' OOPENAP DADD 02 O VENDNO 7 O INVNO 15 O DATE 21 O IAMT 26P O CRCODE 27 O DATDUE 37 O ZERO9 42P O ZERO9 47P O IAMT 52P O ZERO6 58 O DISAMT 64P O UDATE 70 OVENDOR D 02N06 O VAMT 186P O VNUM 189P OPRT E 203 11 O CONAME 29 O 60 'ACCOUNTS PAYABLE AND' O 81 'EXPENSE REGISTER FOR' O UDATE Y 91 O 10 120 'CURRENT ACCOUNTING MONTH' O N10 120 'FUTURE ACCOUNTING MONTH' O PAGE 132 O 128 'PAGE' O E 01 11 O 21 'INVOICE NO' O 32 'DATE' O 6 'VENDOR' O 47 'AMOUNT' O 62 'DISCOUNT' O 75 'DATE DUE' O 94 'ACCOUNT' O 109 'EXPENSE' O 124 'REF. NO' O D 11 02 O VENDNOZ 6 O INVNO 21 O DATE Y 32 O IAMT J 47 O DISAMTJ 62 O DATDUEY 75 O D 01 03 O 08 VNAME 30 O ACNTNO 94 O AMT J 109 O REFNO Z 123 O T 01 L1 O 47 '---------' O 62 '---------' O 99 '---------' O T 02 L1 O CT JB 47 O CD JB 62 O TAMT JB 99 O T 20 LR O 12 'FINAL TOTALS' O FT J 47 O FD J 62 O FTE J 99 // CEND // COPY LIBRARY-S,NAME-JF0245,RECL-096,DATE-01/03/23,TIME-1226,SUB-RPG H B 1 JF0245 FXAPWK IP F 64 64 5AI 2 DISK FINVACC O F 35 35 16AI 1 DISK A FGLTRAN O F 24 24 DISK A IXAPWK BB 02 1NCD 36 CD I 8 130VENDNO I 14 21 INVNO I 22 270DATE I P 28 322IAMT I 35 35 CRCODE I 2 4 LEVEL L1 I 41 460DATDUE I CC 03 1NCD 36 CE I 8 130ACNTNO I P 14 182AMT I 2 4 LEVEL L1 I 21 250REFNO I DD 04 1 CD ILDA UDS I 100 101 COCODE C COCODE COMP 'SB' 20 C Z-ADD0.00 ZERO11 112 C 02 Z-ADD0 LINENO 20 C N03 GOTO END C N06 Z-ADDREFNO REFNO1 50 C SETON 06 C LINENO ADD 1 LINENO C Z-SUBAMT SAMT 92 C TAMT ADD SAMT TAMT 112 C END TAG OINVACC DADD 03 O VENDNO 6 O INVNO 14 O LINENO 16 O ACNTNO 22 O ZERO11 28P O AMT 28P O ZERO11 34P O 35 'A' OGLTRAN TADD LR O N20 6 '020010' O 20 6 '220010' O TAMT 12P O REFNO1 15P O UDATE 21 O 23 'I' O 24 'A' // CEND // COPY LIBRARY-S,NAME-JF0247,RECL-096,REF-000002,DATE-03/07/23,TIME-1005,SUB-RPG H B 1 JF0247 FOPENAP IP F 70 70 14AI 2 DISK FVENDOR IC F 300 300R 6AI 1 DISK FAPPAY O F 256 256 14AI 1 DISK IOPENAP AA 01 1NCD 1NCX 1NCV I 2 70VENDNOL1 I 8 15 INVNO I 16 210DATE I 27 27 CRCODE I 32 370DATDUE I 32 330MN I 34 350DA I 36 370YR I P 43 472DISTK I P 48 522AMT I P 60 642DISCNT I 65 700DATENT I BB 02 IVENDOR CC 03 I 11 40 NAME I 41 160 ADRS C 99 GOTO BEGIN C MOVE ' ' BLK120120 C MOVELUMONTH UMNDA 40 C MOVE UDAY UMNDA C MOVE UMNDA UY4MD 80 C Z-ADDUYEAR Y4 40 C UYEAR COMP 70 05 C 05 MOVEL'19' Y4 C N05 MOVEL'20' Y4 C MOVELY4 UY4MD C SETON 99 C BEGIN TAG C 02 GOTO END C L1 MOVE BLK120 NAME C L1 MOVE BLK120 ADRS C L1 VENDNO CHAINVENDOR 04 C MOVELMN MD 40 C MOVE DA MD C MOVE MD Y4MD 80 C Z-ADDYR Y4 C YR COMP 70 05 C 05 MOVEL'19' Y4 C N05 MOVEL'20' Y4 C MOVELY4 Y4MD C Y4MD COMP UY4MD 2222 C 22 AMT SUB DISCNT NET 92 C 22 NET ADD DISTK NET C END TAG OAPPAY D 01 22 O VENDNO 6 O INVNO 14 O 16 ' ' O NAME 46 O ADRS 166 O NET B 171P O DISCNT B 176P O DATE 183 O DATDUE 193 O DATENT 199 // CEND // COPY LIBRARY-S,NAME-JF0248,RECL-096,REF-000002,DATE-01/03/23,TIME-1226,SUB-RPG H B 1 JF0248 FAPPAY IP F 256 256 14AI 1 DISK FCNTRL IC F 32 32R DISK FPRT O F 132 132 OV LPRINTER LPRT 66FL 58OL IAPPAY AA 01 I 1 60VENDNOL1 I 7 14 INVNO I 17 46 NAME I P 167 1712NET I P 172 1762DISCNT I 178 1830DATE I 188 1930DATDUE ICNTRL AA 1 C0 2 C0 3 C7 I 4 32 CONAME C 02 GOTO BEGIN C SETON 02 C 7 CHAINCNTRL C SETON 03 C BEGIN TAG C OV SETON 03 C 03 EXCPT C 03 SETOF 03OV C NET ADD DISCNT AMT 92 C CGRS ADD AMT CGRS 92 04 C CNET ADD NET CNET 92 C CDIS ADD DISCNT CDIS 92 CL1 FGRS ADD CGRS FGRS 92 CL1 FNET ADD CNET FNET 92 CL1 FDIS ADD CDIS FDIS 92 OPRT E 203 03 O CONAME 29 O 60 'ACCOUNTS PAYABLE DUE' O 72 'LISTING FOR' O UDATE Y 82 O E 2 03 O 6 'NUMBER' O 20 'NAME' O 45 'INVOICE' O 53 'DATE' O 70 'GROSS' O 85 'DISCOUNT' O 100 'NET' O 115 'DATE DUE' O D 1 01 O VENDNOZ 6 O NAME 37 O INVNO 46 O DATE Y 55 O AMT J 70 O DISCNTJ 85 O NET J 100 O DATDUEY 115 O T 12 L1 O 13 'VENDOR TOTAL' O CGRS JB 70 O CDIS JB 85 O CNET JB 100 O T 3 01 LR O 12 'FINAL TOTALS' O FGRS J 70 O FDIS J 85 O FNET J 100 // CEND // COPY LIBRARY-S,NAME-JF0249,RECL-096,REF-000002,DATE-01/03/23,TIME-1226,SUB-RPG H B 1 JF0249 FAPPAY UC F 256 256R14AI 1 DISK A FINP IP F 79 79 KEYBORD FDISP O F 79 79 CRT E AMS 1 8 79 IAPPAY AA 01 I 1 60VENDOR I 7 14 ENVNO I 16 16 PAYCOD 02 I P 167 1712NET I P 172 1762DISCNT C N99 MOVE ' ' BLNK14 14 C N99 AMS,1 KEY CHECK 60 C N99 BLNK14 CHAINAPPAY 16 C N99 SETON 15 C N99 EXCPT C N99 SETOF 15 C SETON 99 C START TAG C SETOF 20 C AMS,2 SET KG C AMS,3 KEY VENDOR 60 C KG SETON LR C KG GOTO END C AMS,4 KEY INVNO 8 C MOVELVENDOR KEY 14 C MOVE INVNO KEY C KEY CHAINAPPAY 20 C 20 SETON 21 C 20 EXCPT C 20 SETOF 21 C 20 GOTO START C AMS,5 SET KBKC C NKBNKC GOTO START C KB PAYCOD SET KA C KB AMS,6 KEY NPAYCD 1 C KB NPAYCD COMP ' ' 03 C KB 03 MOVE PAYCOD NPAYCD C KB KA MOVE ' ' NPAYCD C KC NET SET KA C KC AMS,7 KEY NNET 92 03 C KC 03 Z-ADDNET NNET C KC KA Z-ADD0 NNET C KC DISCNT SET KA C KC AMS,8 KEY NDISCN 92 03 C KC 03 Z-ADDDISCNT NDISCN C KC KA Z-ADD0 NDISCN C END TAG ODISP H 11 1P O 24 'C H A N G E I N V O I ' O 48 'C E S T O B E P A ' O 51 'I D' O E 11 21 O 22 'INVOICE NOT TO BE PAID' OAPPAY D 01 O KB NPAYCD 16 O KC NNET 171P O KC NDISCN 176P O EADD 15 16 O 16 'X' O CHECK 22 O E 15N16 O CHECK 22 ** ENTER FIRST CHECK NUMBER PRESS COMMAND KEY 7 & ENTER IF THERE ARE NO MORE ENTRIES TO BE MADE, OR ENTER VENDOR NUMBER ENTER INVOICE NUMBER PRESS COMMAND KEY 2 TO CHANGE OR CANCEL PAYMENT,3 FOR PARTIAL PAYMENT ENTER PAY CODE (N=DO NOT PAY, Y=PAY) ENTER NET AMOUNT ENTER DISCOUNT AMOUNT // CEND // COPY LIBRARY-S,NAME-JF0250,RECL-096,REF-000009,DATE-01/03/23,TIME-1226,SUB-RPG H B 1 JF0250 FAPPAY IP F 256 256 14AI 1 DISK FCNTRL IC F 32 32R DISK FPROOF O F 132 132 OV PRINTER IAPPAY AA 01 16NCX I 1 60VENDORL1 I 7 14 INVNO I 16 16 PAYCOD 03 I 17 46 NAME I P 167 1712NET I P 172 1762DISCNT I 178 1830DATE I BB 06 16 CX I 17 220CHECK ICNTRL AA 1 C0 2 C0 3 C1 I 4 50ACCMN I 1 C0 2 C0 3 C7 I 4 32 CONAME C N07 7 CHAINCNTRL C N07 1 CHAINCNTRL C N07 UMONTH COMP ACCMN 08 C N07 SETON 0709 C OV SETON 09 C EXCPT C SETOF 09OV C L1 SETOF 2324 C 06 GOTO END C PAYCOD COMP 'N' 21 C 21 GOTO END C 23 SETON 24 C SETON 23 C NET ADD DISCNT AMT 92 C COMPUT TAG C AMT ADD CGRS CGRS 92 C NET ADD CNET CNET 92 25 C DISCNT ADD CDIS CDIS 92 C FGRS ADD AMT FGRS 92 C FNET ADD NET FNET 92 C FDIS ADD DISCNT FDIS 92 C TOTINV ADD 1 TOTINV 40 C LINES ADD 1 LINES 20 C LINES COMP 33 99 C 99 SETON 98 C 99 EXCPT C 99 SETOF 98 C 99 CHECK ADD 1 CHECK C 99 Z-ADD0 LINES C END TAG CL1N23 GOTO ENDL1 CL1 SETON 22 CL1 EXCPT CL1 SETOF 22 CL1 CHECK ADD 1 CHECK CL1 Z-ADD0 LINES CL1 TOTCHK ADD 1 TOTCHK 40 CL1 ENDL1 TAG OPROOF E 203 09 O CONAME 29 O 54 'CHECK REGISTER' O U1 61 '- EDIT' O U2 63 '- UPDATE' O UDATE Y 82 O 08 110 'CURRENT ACCOUNTING MONTH' O N08 110 'NEXT ACCOUNTING MONTH' O PAGE 132 O 128 'PAGE' O D 00 01N21N24 O VENDOR 6 O NAME 38 O 50 'INVOICE' O 62 'DATE' O 80 'GROSS' O 94 'DISCOUNT' O 110 'NET' O D 10 01N21 O INVNO 51 O DATE Y 63 O AMT J 81 O DISCNTJ 95 O NET J 111 O E 01 98 O 124 'VOID CHECK#' O CHECK M 131 O E 10 22 25 O 55 'NEGATIVE TOTAL-' O 69 'A VOIDED CHECK' O 85 'WILL BE WRITTEN' O E 11 22 O 90 '------------------------' O 110 '--------------------' O E 12 22 O 66 'TOTALS' O CGRS JB 81 O CDIS JB 95 O CNET JB 111 O 124 'CHECK#' O CHECK M 131 O T 02 LR O 66 'TOTALS FOR ALL CHECKS' O FGRS J 81 O FDIS J 95 O FNET J 111 O T 02 LR O 17 'TOTAL INVOICES TO' O 25 'BE PAID' O TOTINVJ 31 O 60 'TOTAL CHECKS TO BE PAID' O TOTCHKJ 66 // CEND // COPY LIBRARY-S,NAME-JF0251,RECL-096,DATE-03/07/23,TIME-1005,SUB-RPG H B 1 JF0251 FVENDOR UPE F 300 300 6AI 1 DISK IVENDOR AA 01 C Z-ADD0 Z5 50 C Z-ADD0 Z11 110 OVENDOR D 01 O Z11 186P O Z5 189P // CEND // COPY LIBRARY-S,NAME-JF0252,RECL-096,DATE-10/03/11,TIME-1140,SUB-RPG H B 1 JF0252 FAPPAY IP F 256 256 14AI 1 DISK FCNTRL IC F 32 32R DISK FOPENAP UC F 70 70R14AI 2 DISK FINVACC UC F 35 35R16AI 1 DISK FCHKFLE O F 60 60 DISK A FGLFILE UC F 224 224R 6AI 1 DISK FNMGLEN O F 19 19 2 DISK A FGLTRAN O F 24 24 DISK A IAPPAY AA 01 16NCX I 1 14 KEY I 1 60VENDORL1 I 7 14 INVNO I 16 16 PAYCOD 03 I 17 46 NAME I 47 76 AD1 I 77 106 AD2 I 107 136 AD3 I 137 166 AD4 I P 167 1712NET I P 172 1762DISCNT I 178 1830DATE I 194 1990DATENT I BB 06 16 CX I 17 220CHECK ICNTRL AA I 4 50ACCMN I 6 70ACCYR IOPENAP CC 99 I P 22 262GROSS I P 38 422CSHPD I P 43 472DISTKN IINVACC DD 98 I 17 220ACCT I P 23 282ACAMTI I P 29 342AMACPD IGLFILE AA I P 194 1992DMTD I P 200 2052CMTD I P 206 2112DYTD I P 212 2172CYTD ILDA UDS I 100 101 COCODE C N14 COCODE COMP 'SB' 20 C N14 Z-ADDCHECK FCHECK 50 C N14 1 CHAINCNTRL C N14 UYEAR COMP ACCYR 15 C N14 15 UMONTH COMP ACCMN 15 C N14 SETON 14 C 06 GOTO END C L1 SETOF 02 C L1 Z-ADD0 CGRS C L1 Z-ADD0 CNET C L1 Z-ADD0 CDIS C PAYCOD COMP 'N' 21 C 21 GOTO END C SETON 02 C KEY CHAINOPENAP C NET ADD DISCNT AMT 92 C COMPUT TAG C AMT ADD CGRS CGRS 92 C NET ADD CNET CNET 82 25 C DISCNT ADD CDIS CDIS 92 C AMT ADD TGRS TGRS 102 C NET ADD TNET TNET 102 C DISCNT ADD TDIS TDIS 102 C NET ADD DISCNT AMTLFT 92 C CSHPD ADD NET CSHPD C DISTKN ADD DISCNT DISTKN C GROSS SUB CSHPD AMTDUE 92 C AMTDUE SUB DISTKN AMTDUE 05 C Z-ADD1 KEYNUM 20 C MOVE KEYNUM KEYACC 16 C MOVELKEY KEYACC C AGAIN1 TAG C KEYACC CHAININVACC 07 C N07 ACAMTI SUB AMACPD ACAMTI 08 C N07 08 05 SETON 11 C N07 08 05 EXCPT C N07 08 05 SETOF 11 C N07 08 KEYNUM ADD 1 KEYNUM C N07 08 MOVE KEYNUM KEYACC C N07 08 GOTO AGAIN1 C AGAIN2 TAG C Z-ADD0 DISACC 62 C N07 ACAMTI SUB DISACC ACAMTC 92 C N07 AMTLFT SUB ACAMTI AMTLFT 0912 C N07 09 ACAMTI ADD AMTLFT ACAMTI C N07 09 ACAMTI SUB DISACC ACAMTC C N07 ACAMTI ADD AMACPD AMACPD C N07 SETON 10 C N07 EXCPT C N07 SETOF 10 C N07N09N12KEYNUM ADD 1 KEYNUM C N07N09N12 MOVE KEYNUM KEYACC C N07N09N12KEYACC CHAININVACC 07 C N07N09N12 GOTO AGAIN2 C 1 ADD LINES LINES 20 C LINES COMP 33 22 C 22 CHECK ADD 1 CHECK C 22 Z-ADD0 LINES C END TAG CL1N02 GOTO ENDL1 CL1 CHECK ADD 1 CHECK CL1 Z-ADD0 LINES CL1 ENDL1 TAG CLRN20 Z-ADD020010 ACCT 60 CLR 20 Z-ADD220010 ACCT CLR ACCT CHAINGLFILE CLR DMTD ADD TGRS DMTD CLR DYTD ADD TGRS DYTD CLR MOVE 'D' DEBCRE 1 CLR Z-ADDTGRS NMAMT 92 CLR Z-ADDTGRS GLTAMT 112 CLR SETON 13 CLR EXCPT CLRN20 Z-ADD040401 ACCT CLR 20 Z-ADD240401 ACCT CLR ACCT CHAINGLFILE CLR CMTD SUB TDIS CMTD CLR CYTD SUB TDIS CYTD CLR MOVE 'C' DEBCRE CLR Z-ADDTDIS NMAMT CLR Z-SUBTDIS GLTAMT CLR EXCPT C*RN20 Z-ADD010001 ACCT C*R 20 Z-ADD210001 ACCT C**N20 Z-ADD010002 ACCT C** 20 Z-ADD210002 ACCT CLRN20 Z-ADD010001 ACCT CLR 20 Z-ADD210004 ACCT CLR ACCT CHAINGLFILE CLR CMTD SUB TNET CMTD CLR CYTD SUB TNET CYTD CLR Z-ADDTNET NMAMT CLR Z-SUBTNET GLTAMT CLR EXCPT CLR SETOF 13 OOPENAP D 01N21 O CSHPD 42P O DISTKN 47P O AMTDUE 52P O UDATE 58 O 05 1 'D' OINVACC E 11 05 O 35 'D' O E 10 O AMACPD 34P O 05 35 'D' OCHKFLE EADD 10 O ACCT 6 O DATE 12 O INVNO 20 O VENDOR 26 O UDATE 32 O CHECK 38 O ACAMTC 43P O DATENT 49 O DISCNT 55P O 60 'A' OGLFILE E 13 15 O DMTD 199P O CMTD 205P O DYTD 211P O CYTD 217P ONMGLEN EADD 13N15 O ACCT 6 O DEBCRE 7 O NMAMT 12P O UDATE 18 O 19 'A' OGLTRAN EADD 13 O ACCT 6 O GLTAMT 12P O FCHECK 15P O UDATE 21 O 23 'C' O 24 'A' // CEND // COPY LIBRARY-S,NAME-JF0253,RECL-096,DATE-01/03/23,TIME-1226,SUB-RPG H B 1 JF0253 FXGLTS IP F 8 8 1AI 1 DISK FXGLWK IS F 32 32 5AI 1 DISK FXJDES IS F 106 106 5AI 1 DISK FGLTRAN O F 24 24 DISK A FJRDESC O F 106 106 5AI 1 DISK A IXGLTS EE 05 I 2 2 XFTCOD 06 IXGLWK BB 02 32NCD I 6 110ACOUNT I P 12 172AMOUNT I 21 250REFNO I CC 03 32 CD IXJDES AA 08 106 CA I 1 106 DREC I BB 09 C 05 06 SETON 07 OGLTRAN DADD 02 07 O ACOUNT 6 O AMOUNT 12P O REFNO 15P O UDATE 21 O 23 'J' O 24 'A' OJRDESC DADD 08 07 O DREC 106 // CEND // COPY LIBRARY-S,NAME-JF0255,RECL-096,REF-000003,DATE-01/03/23,TIME-1226,SUB-RPG H B 1 JF0255 FINP IPE F 79 79 KEYBORD FCNTRL IC F 32 32R DISK FXJDES O F 106 106 5AI 1 DISK FXGLWK O F 32 32 5AI 1 DISK FDISP O F 79 79 CRT FPRT O F 132 132 OF PRINTER U1 E AMS 1 6 79 ICNTRL AA 1 C0 2 C0 3 C7 I 4 32 CONAME C 04 GOTO BEGIN C SETON 04 C 7 CHAINCNTRL C SETON 05 C BEGIN TAG C OV SETON 05 C 05 EXCPT C 05 SETOF 05OV C AMS,1 KEY REFNO 50 C Z-ADDREFNO XREF 50 C REFNO SUB 1 REFNO C AGN TAG C REFNO ADD 1 REFNO 50 C XREF ADD 1 XREF C LINE ADD 100 LINE 50 C AMS,2 KEY DESC1 50 C AMS,3 KEY DESC2 50 C SETON 06 C EXCPT C SETOF 06 C REPT TAG C AMS,4 KEY ACOUNT 60 C AMS,5 KEY AMOUNT 112 C AMOUNT ADD 0 AMOUNT 1413 C 13 TCR ADD AMOUNT TCR 112 C 14 TDR ADD AMOUNT TDR 112 C SETON 03 C EXCPT C SETOF 03 C AMS,6 SET KAKG C KG SETON LR C KG GOTO END C KA MOVE '00' LINE C KA GOTO AGN C LINE ADD 1 LINE C GOTO REPT C END TAG ODISP H 11 1P O 24 'E N T E R G E N E R A ' O 48 'L L E D G E R T R A ' O 65 'N S A C T I O N S' OPRT E 203 05 O CONAME 29 O 54 'GENERAL LEDGER TRANSACTI' O 62 'ON ENTRY' O E 3 05 O 14 'LINE ACCOUNT' O 30 'AMOUNT' O E 1 03 O LINE 5 O ACOUNT 14 O AMOUNTJ 33 OXJDES E 06 O REFNO 5 O DESC1 55 O DESC2 105 O 106 'A' OXGLWK E 03 O LINE 5 O ACOUNT 11 O AMOUNT 17P O REFNO 25 O 32 'A' ** ENTER REFERENCE NUMBER ENTER FIRST LINE OF JOURNAL ENTRY DESCRIPTION ENTER SECOND LINE OF JOURNAL ENTRY DESCRIPTION ENTER ACCOUNT NUMBER ENTER $ AMOUNT PRESS ENTER FOR ANOTHER ACCOUNT, CK1 FOR NEXT GROUP, CK7 TO END // CEND // COPY LIBRARY-S,NAME-JF0256,RECL-096,DATE-01/03/23,TIME-1226,SUB-RPG H B 1 JF0256 FXGLWK IPE F 32 32 5AI 1 DISK FCNTRL IC F 32 32R DISK FXJDES IC F 106 106R 5AI 1 DISK FJRDESC IC F 106 106R 5AI 1 DISK FPROOF O F 132 132 OV PRINTER FGLFILE IC F 224 224R 6AI 1 DISK FXGLTS O F 8 8 1AI 1 DISK IXGLWK AA 01 32NCD I 1 30GROUP L1 I 1 50LINE I 6 110ACOUNT 06 I P 12 172AMOUNT 05 I 21 250REFNO I BB 02 32 CD ICNTRL AA 1 C0 2 C0 3 C7 I 4 32 CONAME IXJDES AA 09 106NCA I BB I 6 55 DESC1 I 56 105 DESC2 IJRDESC AA IGLFILE EE 04 224NCA I FF 03 224 CA C 07 GOTO BEGIN C SETON 07 C MOVE ' ' BLNK50 50 C 7 CHAINCNTRL C SETON 08 C BEGIN TAG C OV SETON 08 C 08 EXCPT C 08 SETOF 08OV C L1 Z-ADD0 TAMT C L1 MOVE BLNK50 DESC1 C L1 MOVE BLNK50 DESC2 C L1 REFNO CHAINXJDES 09 C L1N09 REFNO CHAINJRDESC 14 C L1N09N14 SETON 13 C 02 GOTO END C SETOF 0304 C ACOUNT CHAINGLFILE 11 C 11 COR 04 SETON 13 C 11 COR 04 GOTO END C AMOUNT ADD TAMT TAMT 112 1212 C 1 ADD GPRECS GPRECS 30 C 1 ADD FTRECS FTRECS 40 C END TAG CL1 12 SETON 13 OPROOF E 203 08 O CONAME 29 O 54 'GENERAL LEDGER' O 71 'TRANSACTION EDIT' O UDATE Y 82 O E 02 08 O 14 'LINE ACCOUNT' O 30 'AMOUNT' O 45 'REFNO' O D 01 01 L1N09 O 18 'JOURNAL REFERENCE#' O REFNO 24 O DESC1 77 O N14 107 'DUPLICATE REFERENCE#' O D 01 01 L1N09 O DESC2 77 O D 01 01 O LINE 5 O ACOUNT 14 O AMOUNTJ 33 O REFNO 45 O D 01 11 01 O OR 04 01 O OR 05 01N06 O 05N06 29 'ZERO AMOUNT ENTERED' O 04 32 'DELETED ACCOUNT NUMBER' O 11 32 'INVALID ACCOUNT NUMBER' O 4 'LINE' O LINE Z 9 O T 02 L1 12 O 5 'GROUP' O GROUP Z 9 O 31 'DOES NOT ZERO BALANCE' O 49 'THE DIFFERENCE IS' O TAMT J 64 O T 22 LR O 30 'VALID ACCOUNT NUMBER' O 46 'RECORDS ENTERED' O FTRECS 5 O T 00 LR O 21 'LAST REFERENCE NUMBER' O REFNO Z 27 OXGLTS T LR O 1 '1' O 13 2 'X' // CEND // COPY LIBRARY-S,NAME-JF0258,RECL-096,REF-000004,DATE-01/03/23,TIME-1226,SUB-RPG H B 1 JF0258 FXGLTS IP F 8 8 1AI 1 DISK FXGLWK IS F 32 32 5AI 1 DISK FCNTRL IC F 32 32R DISK FXJDES IC F 106 106R 5AI 1 DISK FGLFILE UC F 224 224R 6AI 1 DISK FPRT O F 132 132 OV PRINTER E A 4 11 2 IXGLTS AA 01 I 2 2 XFTCOD 06 ICNTRL AA 1 C0 2 C0 3 C7 I 4 32 CONAME IXJDES AA 16 106NCA I BB I 6 55 DESC1 I 56 105 DESC2 IXGLWK BB 02 32NCD I 6 110ACOUNT I P 12 172AMOUNT 05 I 21 250REFNO I CC 03 32 CD IGLFILE EE 98 I 7 36 NAME I P 194 217 A C 08 GOTO BEGIN C SETON 08 C 7 CHAINCNTRL C SETON 09 C BEGIN TAG C OV SETON 09 C 09 EXCPT C 09 SETOF 09OV C 01 06 SETON 07 C N07 GOTO END C N02 GOTO END C REFNO COMP OREFNO 1414 C 14 REFNO CHAINXJDES 16 C 14 SETON 15 C 14 EXCPT C 14 SETOF 15 C Z-ADDREFNO OREFNO 50 C ACOUNT CHAINGLFILE 20 C 20 GOTO END C N05 A,2 ADD AMOUNT A,2 C N05 A,4 ADD AMOUNT A,4 C 05 A,1 ADD AMOUNT A,1 C 05 A,3 ADD AMOUNT A,3 C A,1 ADD A,2 MTD 112 C A,3 ADD A,4 YTD 112 C AMOUNT ADD FT FT 112 13 C END TAG OPRT E 203 09 O CONAME 29 O 48 'GENERAL LEDGER' O 72 ' TRANSACTIONS AND UPDATE' O UDATE Y 83 O PAGE 100 O 96 'PAGE' O E 01 09 O 14 'ACCOUNT NUMBER' O 32 'NAME' O 68 'TRANSACTION' O 86 'MONTH TO DATE' O 115 'YEAR TO DATE BALANCE' O 128 'REFERENCE' O E 01 09 O 24 '************************' O *PLACE 48 O *PLACE 72 O *PLACE 96 O *PLACE 120 O 132 '************' O E 11 15 O 10 'REFERENCE#' O REFNO 16 O N16 DESC1 70 O N16 DESC2 123 O D 01 02 07 O ACOUNT 10 O NAME 46 O AMOUNTA 68 O MTD A 86 O YTD A 115 O REFNO M 127 O T 3 LRN13 O 18 'TOTAL OF DR AND CR' O 40 'DOES NOT ZERO BALANCE' O 62 'NO UPDATING PERFORMED' OGLFILE D 02 07 O A 217P // CEND // COPY LIBRARY-S,NAME-JF0259,RECL-096,REF-000001,DATE-04/02/20,TIME-1633,SUB-RPG H B 1 JF0259 FINP IP F 79 79 KEYBORD FXGLWK UC F 32 32R 5AI 1 DISK A FDISP O F 79 79 CRT E AMS 1 6 79 IXGLWK AA 01 I 1 50LINE I 6 110ACOUNT I P 12 172AMOUNT I 32 32 DCODE I 21 250REFNO C AGN TAG C SETOF KD C AMS,1 SET KAKBKG C KG SETON LR C KG GOTO END C KB GOTO ADD C KA GOTO UPDT C GOTO AGN C UPDT TAG C AMS,2 SET KD C AMS,3 KEY LINE C LINE CHAINXGLWK 13 C KD GOTO END C 13 SETON 10 C 13 EXCPT C 13 SETOF 10 C 13 GOTO UPDT C SETON 14 C EXCPT C SETOF 14 C AMS,4 KEY ACOUNT C AMS,5 KEY AMOUNT C AMS,6 KEY REFNO C GOTO END C ADD TAG C AMS,3 KEY LINE C AMS,4 KEY ACOUNT C AMS,5 KEY AMOUNT C AMS,6 KEY REFNO C LINE CHAINXGLWK 13 C END TAG ODISP H 11 1P O 24 'C H A N G E A N D A ' O 48 'D D T R A N S A C T I ' O 53 'O N S' O E 11 10 O 22 'INVALID LINE -REENTER' O E 1 14 O 18 'INFORMATION NOW IS' O 26 'ACCOUNT' O ACOUNT 33 O 40 'AMOUNT' O AMOUNTJ 56 O 72 'REF#' O REFNO 78 OXGLWK D KA O ACOUNT 11 O AMOUNT 17P O REFNO 25 O 32 'A' O DADD KB 13 O LINE 5 O ACOUNT 11 O AMOUNT 17P O REFNO 25 O 32 'A' O D KBN13 O ACOUNT 11 O AMOUNT 17P O REFNO 25 O 32 'A' O D KD O 32 'D' ** PRESS COMMAND KEY 1 TO CORRECT OR DELETE, 2 TO ADD, 7 TO END PRESS COMMAND KEY 4 AND ENTER LINE NUMBER TO DELETE LINE, OR ENTER LINE NUMBER TO CHANGE LINE ENTER ACCOUNT NUMBER ENTER $ AMOUNT OF TRANSACTION ENTER REFERENCE NUMBER // CEND // COPY LIBRARY-S,NAME-JF0263,RECL-096,REF-000009,DATE-12/01/17,TIME-0726,SUB-RPG H B 1 JF0263 FXGLPL IP F 224 224 2 DISK FINP ID F 79 79 KEYBORD FGLFILE IC F 224 224R 6AI 1 DISK FPGLFIL IC F 224 224R 6AI 1 DISK FCNTRL UC F 32 32R DISK FCRT O F 79 79 CRT FPRT O F 132 132 OV PRINTER E AMS 1 3 79 E ACD 25 25 2 E AGR 1 26 44 E ASC 12 3 2 CURRENT % COST OF SALES E AWC 12 3 2 CURRENT % COST WHOLESALE SALES E ALC 12 3 2 CURRENT % DIRECT LABOR E ASP 12 3 2 PREVIOUS % COST OF SALES E AWP 12 3 2 PREVIOUS % COST WHOLESALE SALES E ALP 12 3 2 PREVIOUS % DIRECT LABOR E* APC 12 3 2 CURRENT % FOR CALCS E* APP 12 3 2 PREVIOUS % FOR CALCS E AO 12 3 2 FILE OUTPUT % E ADC 4 11 2 E ADCL 4 11 2 E ADCP 4 11 2 E AD 13 11 2 E AC 13 11 2 E ADL 13 11 2 E ACL 13 11 2 E ADP 13 11 2 E ACP 13 11 2 E AACC 4 11 2 E AGRP 4 11 2 E ATOT 4 11 2 E ANET 4 11 2 E ACST 4 11 2 E AWHL 4 11 2 E ACSW 4 11 2 E ALAB 4 11 2 E APRF 4 11 2 E APRT 4 11 2 IXGLPL AA 01 I 1 60ACCTNO I 7 36 ACCNAM I P 38 115 AD I P 116 193 AC I P 194 217 ADC I 218 219 CODE L1 IGLFILE AA 09 224 CD I BB I P 38 115 ADL I P 116 193 ACL I P 194 217 ADCL IPGLFIL AA 23 224 CD I BB I P 38 115 ADP I P 116 193 ACP I P 194 217 ADCP ICNTRL AA 1 C0 2 C0 3 C1 I 4 50ACCMN I 6 70ACCYR I 8 8 XDEC I AA 1 C0 2 C0 3 C2 I 4 132CMNEIN I 14 232PMNEIN I AA 1 C0 2 C0 3 C7 I 4 32 CONAME I AA 1 C0 2 C1 3 C7 I P 4 27 ASC I AA 1 C0 2 C1 3 C8 I P 4 27 AWC I AA 1 C0 2 C1 3 C9 I P 4 27 ALC I AA 1 C0 2 C2 3 C0 I P 4 27 ASP I AA 1 C0 2 C2 3 C1 I P 4 27 AWP I AA 1 C0 2 C2 3 C2 I P 4 27 ALP I AA ILDA UDS I 100 101 CO C 08 GOTO BEGIN C SETON 08 C TIME TIME 60 C MOVELTIME TIMEHM 40 C 1 CHAINCNTRL C Z-ADDACCMN CM 20 C ACCMN ADD 1 AM 20 C ACCMN ADD 2 LM 20 C XDEC COMP 'X' 07 C 7 CHAINCNTRL C 17 CHAINCNTRL C 18 CHAINCNTRL C 19 CHAINCNTRL C 20 CHAINCNTRL C 21 CHAINCNTRL C 22 CHAINCNTRL C SETON 11 C EXCPT C SETOF 11 C ' ' SET KA C AMS,1 KEY PC 32 C PC COMP 0 05 C 05 Z-ADDASC,CM PC C KA Z-ADD0 PC C CM SUB 1 RM 20 C AGNSC TAG C RM ADD 1 RM C Z-ADDPC ASC,RM C RM COMP 12 05 C 05 GOTO AGNSC C SETON 12 C EXCPT C SETOF 12 C ' ' SET KA C AMS,2 KEY PC C PC COMP 0 05 C 05 Z-ADDAWC,CM PC C KA Z-ADD0 PC C CM SUB 1 RM C AGNWC TAG C RM ADD 1 RM C Z-ADDPC AWC,RM C RM COMP 12 05 C 05 GOTO AGNWC C SETON 19 C EXCPT C SETOF 19 C ' ' SET KA C AMS,3 KEY PC C PC COMP 0 05 C 05 Z-ADDALC,CM PC C KA Z-ADD0 PC C CM SUB 1 RM C AGNLC TAG C RM ADD 1 RM C Z-ADDPC ALC,RM C RM COMP 12 05 C 05 GOTO AGNLC C* GET DIRECT LABOR (ACCTS 40402 & 40403) C CO COMP 'JF' 21 C 21 040402 CHAINGLFILE 09 C N21 240402 CHAINGLFILE 09 C N09 ALAB,1 ADD ADCL,1 ALAB,1 C N09 ALAB,1 ADD ADCL,2 ALAB,1 C N09 ALAB,2 ADD ADCL,3 ALAB,2 C N09 ALAB,2 ADD ADCL,4 ALAB,2 C N09 EXSR PREV C N09 ALAB,3 ADD PREVM ALAB,3 C N09 ALAB,4 ADD PREVY ALAB,4 C 21 040403 CHAINGLFILE 09 C N21 240403 CHAINGLFILE 09 C N09 ALAB,1 ADD ADCL,1 ALAB,1 C N09 ALAB,1 ADD ADCL,2 ALAB,1 C N09 ALAB,2 ADD ADCL,3 ALAB,2 C N09 ALAB,2 ADD ADCL,4 ALAB,2 C N09 EXSR PREV C N09 ALAB,3 ADD PREVM ALAB,3 C N09 ALAB,4 ADD PREVY ALAB,4 C SETON 20 C BEGIN TAG C OV SETON 20 C 20 EXCPT C 20 SETOF 20OV C NL1 COR L1 04 GOTO ENDINV C CODE COMP 'B ' 05 C N05 GOTO ENDINV C ANET SUB AWHL ACST C* ACST MULT ASC,CM ACST H C ACST,1 MULT ASC,CM ACST,1 H C ACST,2 MULT ASC,CM ACST,2 H C ACST,3 MULT ASP,CM ACST,3 H C ACST,4 MULT ASP,CM ACST,4 H C Z-SUBACST ACST C***** C AWHL,1 MULT AWC,CM ACSW,1 H C ACSW,2 ADD ACSW,1 ACSW,2 C AWHL,3 MULT AWP,CM ACSW,3 H C*** SWITCH NEXT TWO LINES C* AWHL,4 MULT AWP,CM ACSW,4 H C ACSW,4 ADD ACSW,3 ACSW,4 C*** C Z-SUBACSW ACSW C***** C AGRP SUB ACST APRT C APRT SUB ACSW APRT C Z-ADDAPRT,2 APRT,1 C Z-ADDAPRT,2 CENDIN 112 C Z-ADDAPRT,4 PENDIN 112 C Z-ADDAPRT,4 APRT,3 C* CALC DIRECT LABOR (USE %) C* Z-ADDALAB AACC C* Z-ADDALC APC C* Z-ADDALP APP C EXSR LABOR C* Z-ADDAACC ALAB C* ALAB MULT ALC,CM ALAB H C ACST ADD ALAB ATOT C ATOT ADD ACSW ATOT C ANET ADD ATOT APRF C SETON 10 C EXCPT C SETOF 10 C Z-ADD0 ATOT C SETON 04 C ENDINV TAG C L1N06 CODE COMP 'Y ' 05 C L1N06 05APRF ADD ATOT APRF C L1N06 05 SETON 16 C L1N06 05 EXCPT C L1N06 05 SETOF 16 C L1N06 05 Z-ADD0 ATOT C L1N06 05 SETON 06 C L1 Z-ADD1 I 20 C L1 Z-ADD0 AGRP C L1 SETOF 1314 C L1 CODE COMP 'A ' 15 C L1N15 CODE COMP 'B ' 15 C L1N15 CODE COMP 'Z ' 15 C L1 CODE LOKUPACD,I 05 C L1N05 Z-ADD26 I C Z-ADDADC,1 AACC,1 C AACC,1 ADD ADC,2 AACC,1 0202 C Z-ADDADC,3 AACC,2 C AACC,2 ADD ADC,4 AACC,2 0303 C Z-ADDAD ADL C Z-ADDAC ACL C EXSR PREV C Z-ADDPREVM AACC,3 C Z-ADDPREVY AACC,4 C N02 AACC,3 COMP 0 0202 C N03 AACC,4 COMP 0 0303 C 21 ACCTNO COMP 010150 05 C N21 ACCTNO COMP 210150 05 C 05 2 CHAINCNTRL C 05 AACC,1 ADD CMNEIN AACC,1 C 05 AACC,3 ADD PMNEIN AACC,3 C* 21 ACCTNO COMP 040402 05 C* 21N05 ACCTNO COMP 040403 05 C* 21 05 AACC MULT .42 AACC H C* N21 ACCTNO COMP 240402 05 C* N21N05 ACCTNO COMP 240403 05 C* N21 05 AACC MULT 0 AACC H C 21 ACCTNO COMP 040402 05 C 21N05 ACCTNO COMP 040403 05 C* 21 05 EXSR SALWAG C N21 ACCTNO COMP 240402 05 C N21N05 ACCTNO COMP 240403 05 C* 05 1 SUB ALC APC C* 05 1 SUB ALP APP C 05 EXSR SALWAG C CODE COMP 'A ' 05 C 05 ANET ADD AACC ANET C 05 21 ACCTNO COMP 030306 05 C 05N21 ACCTNO COMP 230306 05 C 05 AWHL ADD AACC AWHL C***** C N05 GOTO ENDWHP C Z-ADD0 ACSW,2 C Z-ADD1 J 20 C Z-ADD0 K 20 C AGNWHC TAG C J ADD 1 J C K ADD 1 K C J COMP AM 05 C 05 ADL,J ADD ACL,J AMT 92 C 05 AMT MULT AWC,K AMT H C 05 ACSW,2 ADD AMT ACSW,2 C 05 GOTO AGNWHC C ENDWHC TAG C Z-ADD0 ACSW,4 C ACCTNO CHAINPGLFIL 23 C 23 GOTO ENDWHP C Z-ADD1 J C Z-ADD0 K C AGNWHP TAG C J ADD 1 J C K ADD 1 K C J COMP AM 05 C 05 ADP,J ADD ACP,J AMT C 05 AMT MULT AWP,K AMT H C 05 ACSW,4 ADD AMT ACSW,4 C 05 GOTO AGNWHP C ENDWHP TAG C***** C AGRP ADD AACC AGRP C ATOT ADD AACC ATOT C 02 13 COR 03 13 SETON 14 C 02 COR 03 SETON 13 CL1 CODE COMP 'B ' 17 CL1 13 SETON 24 CL1 13 EXCPT CL1 13 SETOF 24 CLR Z-ADDASC AO CLR 17 CHAINCNTRL CLR SETON 22 CLR EXCPT CLR Z-ADDAO ASC CLR Z-ADDAWC AO CLR 18 CHAINCNTRL CLR EXCPT CLR Z-ADDAO AWC CLR Z-ADDALC AO CLR 19 CHAINCNTRL CLR EXCPT CLR Z-ADDAO ALC CLR SETOF 22 CLR APRF ADD ATOT APRF CLR 07 GOTO ENDLR CLR 3 CHAINCNTRL CLR Z-ADDCENDIN CCNTAM 102 CLR Z-ADDPENDIN PCNTAM 102 CLR SETON 18 CLR EXCPT CLR 4 CHAINCNTRL CLR Z-ADDAPRF,2 CCNTAM CLR Z-ADDAPRF,4 PCNTAM CLR EXCPT CLR SETOF 18 CLR ENDLR TAG CLR SETON 25 CLR EXCPT CLR SETOF 25 C***** CSR PREV BEGSR CSR Z-ADDADL,AM PREVM 112 CSR PREVM ADD ACL,AM PREVM CSR Z-ADDADL,1 PREVY 112 CSR PREVY ADD ACL,1 PREVY CSR Z-ADD14 P 20 CSR AGNPRV TAG CSR P SUB 1 P CSR P COMP LM 05 CSR 05 GOTO ENDPRV CSR PREVY SUB ADL,P PREVY CSR PREVY SUB ACL,P PREVY CSR GOTO AGNPRV CSR ENDPRV ENDSR C***** CSR LABOR BEGSR C*R 1 SUB ALC,CM PC CSR ALAB,1 MULT ALC,CM ALAB,1 H C* SET PRESENT YEAR TO PRESENT MONTH CSR Z-ADDALAB,1 ALAB,2 C* TO PRESENT YEAR ADD ALL MONTHS FROM 1 TO LAST MONTH CSR 21 040402 CHAINGLFILE 23 CSRN21 240402 CHAINGLFILE 23 C*R ACCTNO CHAINPGLFIL 23 CSR 23 GOTO ENLBC1 CSR Z-ADD1 J 20 CSR Z-ADD0 K 20 CSR AGLBC1 TAG CSR J ADD 1 J CSR K ADD 1 K CSR J COMP AM 05 CSR 05 ADL,J ADD ACL,J AMT 92 C*R 05 1 SUB ALC,K PC CSR 05 AMT MULT ALC,K AMT H CSR 05 ALAB,2 ADD AMT ALAB,2 CSR 05 GOTO AGLBC1 CSR ENLBC1 TAG CSR 21 040403 CHAINGLFILE 23 CSRN21 240403 CHAINGLFILE 23 C*R ACCTNO CHAINPGLFIL 23 CSR 23 GOTO ENLBC2 CSR Z-ADD1 J 20 CSR Z-ADD0 K 20 CSR AGLBC2 TAG CSR J ADD 1 J CSR K ADD 1 K CSR J COMP AM 05 CSR 05 ADL,J ADD ACL,J AMT 92 C*R 05 1 SUB ALC,K PC CSR 05 AMT MULT ALC,K AMT H CSR 05 ALAB,2 ADD AMT ALAB,2 CSR 05 GOTO AGLBC2 CSR ENLBC2 TAG C*R 1 SUB ALP,CM PC CSR ALAB,3 MULT ALP,CM ALAB,3 H C* SET PREVIOUS YEAR TO PREVIOUS MONTH CSR Z-ADDALAB,3 ALAB,4 C* TO PREVIOUS YEAR ADD ALL MONTHS FROM 1 TO LAST MONTH C* USING LAST YEARS GEN LED FILE (PGLFIL) ACCT X40402 CSR 21 040402 CHAINPGLFIL 23 CSRN21 240402 CHAINPGLFIL 23 C*R ACCTNO CHAINPGLFIL 23 CSR 23 GOTO ENLBP1 CSR Z-ADD1 J CSR Z-ADD0 K CSR AGLBP1 TAG CSR J ADD 1 J CSR K ADD 1 K CSR J COMP AM 05 CSR 05 ADP,J ADD ACP,J AMT C*R 05 1 SUB ALP,K PC CSR 05 AMT MULT ALP,K AMT H CSR 05 ALAB,4 ADD AMT ALAB,4 CSR 05 GOTO AGLBP1 CSR ENLBP1 TAG C* TO PREVIOUS YEAR ADD ALL MONTHS FROM 1 TO LAST MONTH C* USING LAST YEARS GEN LED FILE (PGLFIL) ACCT X40403 CSR 21 040403 CHAINPGLFIL 23 CSRN21 240403 CHAINPGLFIL 23 C*R ACCTNO CHAINPGLFIL 23 CSR 23 GOTO ENLBP2 CSR Z-ADD1 J CSR Z-ADD0 K CSR AGLBP2 TAG CSR J ADD 1 J CSR K ADD 1 K CSR J COMP AM 05 CSR 05 ADP,J ADD ACP,J AMT C*R 05 1 SUB ALP,K PC CSR 05 AMT MULT ALP,K AMT H CSR 05 ALAB,4 ADD AMT ALAB,4 CSR 05 GOTO AGLBP2 CSR ENLBP2 ENDSR C***** CSR SALWAG BEGSR CSR 1 SUB ALC,CM PC CSR AACC,1 MULT PC AACC,1 H C* SET PRESENT YEAR TO PRESENT MONTH CSR Z-ADDAACC,1 AACC,2 C* TO PRESENT YEAR ADD ALL MONTHS FROM 1 TO LAST MONTH CSR Z-ADD1 J 20 CSR Z-ADD0 K 20 CSR AGNWSC TAG CSR J ADD 1 J CSR K ADD 1 K CSR J COMP AM 05 CSR 05 ADL,J ADD ACL,J AMT 92 CSR 05 1 SUB ALC,K PC CSR 05 AMT MULT PC AMT H CSR 05 AACC,2 ADD AMT AACC,2 CSR 05 GOTO AGNWSC CSR ENDWSC TAG CSR 1 SUB ALP,CM PC CSR AACC,3 MULT PC AACC,3 H C* SET PREVIOUS YEAR TO PREVIOUS MONTH CSR Z-ADDAACC,3 AACC,4 C* TO PREVIOUS YEAR ADD ALL MONTHS FROM 1 TO LAST MONTH C* USING LAST YEARS GEN LED FILE (PGLFIL) CSR ACCTNO CHAINPGLFIL 23 CSR 23 GOTO ENDWSP CSR Z-ADD1 J CSR Z-ADD0 K CSR AGNWSP TAG CSR J ADD 1 J CSR K ADD 1 K CSR J COMP AM 05 CSR 05 ADP,J ADD ACP,J AMT CSR 05 1 SUB ALP,K PC CSR 05 AMT MULT PC AMT H CSR 05 AACC,4 ADD AMT AACC,4 CSR 05 GOTO AGNWSP CSR ENDWSP ENDSR OCRT E 10 11 O 24 'CURRENT MONTH % FOR COST' O 36 ' OF SALES IS' O ASC,CM 42 ' 0 -%' O E 10 11 O 24 'JUST PRESS ENTER TO ACCE' O 48 'PT %, KA TO SET TO 0, OR' O E 10 12 O 24 'CURRENT MONTH % FOR COST' O 46 ' OF WHOLESALE SALES IS' O AWC,CM 52 ' 0 -%' O E 10 12 O 24 'JUST PRESS ENTER TO ACCE' O 48 'PT %, KA TO SET TO 0,OR' O E 10 19 O 24 'CURRENT MONTH % FOR COST' O 36 ' OF LABOR IS' O ALC,CM 42 ' 0 -%' O E 10 19 O 24 'JUST PRESS ENTER TO ACCE' O 48 'PT %, KA TO SET TO 0,OR' OPRT E 203 20 O CONAME 29 O 72 'PROFIT AND LOSS STATEMEN' O 86 'T - MONTH/YEAR' O ACCMN 89 O 90 '/' O ACCYR 92 O PAGE 132 O 128 'PAGE' O E 01 20 O 3 'RUN' O UDATE Y 12 O TIMEHM 18 '0 : ' O E 01 20 O 27 'ACCOUNT DESCRIPTION' O 82 'PRESENT MONTH' O 98 'PRESENT YEAR' O 21 114 'PREVIOUS MONTH' O 21 130 'PREVIOUS YEAR' O E 01 20 O 24 '************************' O *PLACE 48 O *PLACE 72 O *PLACE 96 O *PLACE 120 O 132 '************' O D 11 13N14 02 O OR 13N14 03 O AGR,I 48 O 15 3 '***' O D 01 01 02 O OR 01 03 O ACCTNO 12 O ACCNAM 45 O AACC,1K 82 O AACC,2K 98 O 21 AACC,3K 114 O 21 AACC,4K 130 O E 01 24 13 O 82 '-------------' O 98 '-------------' O 21 114 '-------------' O 21 130 '-------------' O E 02 24 13 O N17 23 'TOTAL' O N17 AGR,I 68 O 17 26 'SUBTOTAL' O AGRP,1K 82 O AGRP,2K 98 O 21 AGRP,3K 114 O 21 AGRP,4K 130 O E 12 10 O 28 'LESS ENDING INVENTORY' O APRT,1K 82 O APRT,2K 98 O 21 APRT,3K 114 O 21 APRT,4K 130 O E 01 10 O 28 'COST OF SALES' O 43 '(CURRENT MONTH' O ASC,CM 49 ' 0 -%' O 50 ')' O ACST,1K 82 O ACST,2K 98 O 21 ACST,3K 114 O 21 ACST,4K 130 O E 01 10 O 38 'COST OF WHOLESALE SALES' O 53 '(CURRENT MONTH' O AWC,CM 59 ' 0 -%' O 60 ')' O ACSW,1K 82 O ACSW,2K 98 O 21 ACSW,3K 114 O 21 ACSW,4K 130 O E 01 10 O 32 'PLUS DIRECT LABOR' O 47 '(CURRENT MONTH' O ALC,CM 53 ' 0 -%' O 54 ')' O ALAB,1K 82 O ALAB,2K 98 O 21 ALAB,3K 114 O 21 ALAB,4K 130 O E 01 10 O 82 '-------------' O 98 '-------------' O 21 114 '-------------' O 21 130 '-------------' O E 02 10 O 38 'TOTAL COST OF SALES' O ATOT,1K 82 O ATOT,2K 98 O 21 ATOT,3K 114 O 21 ATOT,4K 130 O E 03 10 O 16 '*** GROSS PROFIT' O APRF,1K 82 O APRF,2K 98 O 21 APRF,3K 114 O 21 APRF,4K 130 O E 02 10 O 24 '*** SELLING & ADMINISTRA' O 37 'TIVE EXPENSES' O E 02 16 O 42 'TOTAL SELLING & ADMINIST' O 57 'RATIVE EXPENSES' O ATOT,1K 82 O ATOT,2K 98 O 21 ATOT,3K 114 O 21 ATOT,4K 130 O E 12 16 O 24 '*** INCOME FROM OPERATIO' O 26 'NS' O APRF,1K 82 O APRF,2K 98 O 21 APRF,3K 114 O 21 APRF,4K 130 O E 01 25 O 82 '-------------' O 98 '-------------' O 21 114 '-------------' O 21 130 '-------------' O E 01 25 O 82 '-------------' O 98 '-------------' O 21 114 '-------------' O 21 130 '-------------' O E 02 25 O 24 '*** INCOME BEFORE INCOME' O 30 ' TAXES' O APRF,1J 82 O APRF,2J 98 O 21 APRF,3J 114 O 21 APRF,4J 130 O E 21 25 O 23 'NOTE: MONTHLY %''S USED ' O 47 'IN VARIOUS CALCULATIONS:' O E 01 25 O 50 'JAN' O 57 'FEB' O 64 'MAR' O 71 'APR' O 78 'MAY' O 85 'JUN' O 92 'JUL' O 99 'AUG' O 106 'SEP' O 113 'OCT' O 120 'NOV' O 127 'DEC' O E 01 25 O 24 'COST OF SALES-CURRENT YE' O 26 'AR' O ASC,1 50 ' 0 -%' O ASC,2 57 ' 0 -%' O ASC,3 64 ' 0 -%' O ASC,4 71 ' 0 -%' O ASC,5 78 ' 0 -%' O ASC,6 85 ' 0 -%' O ASC,7 92 ' 0 -%' O ASC,8 99 ' 0 -%' O ASC,9 106 ' 0 -%' O ASC,10 113 ' 0 -%' O ASC,11 120 ' 0 -%' O ASC,12 127 ' 0 -%' O E 01 25 21 O 24 'COST OF SALES-PREVIOUS Y' O 27 'EAR' O ASP,1 50 ' 0 -%' O ASP,2 57 ' 0 -%' O ASP,3 64 ' 0 -%' O ASP,4 71 ' 0 -%' O ASP,5 78 ' 0 -%' O ASP,6 85 ' 0 -%' O ASP,7 92 ' 0 -%' O ASP,8 99 ' 0 -%' O ASP,9 106 ' 0 -%' O ASP,10 113 ' 0 -%' O ASP,11 120 ' 0 -%' O ASP,12 127 ' 0 -%' O E 01 25 O 24 'COST OF WHOLESALE SALES-' O 36 'CURRENT YEAR' O AWC,1 50 ' 0 -%' O AWC,2 57 ' 0 -%' O AWC,3 64 ' 0 -%' O AWC,4 71 ' 0 -%' O AWC,5 78 ' 0 -%' O AWC,6 85 ' 0 -%' O AWC,7 92 ' 0 -%' O AWC,8 99 ' 0 -%' O AWC,9 106 ' 0 -%' O AWC,10 113 ' 0 -%' O AWC,11 120 ' 0 -%' O AWC,12 127 ' 0 -%' O E 01 25 21 O 24 'COST OF WHOLESALE SALES-' O 37 'PREVIOUS YEAR' O AWP,1 50 ' 0 -%' O AWP,2 57 ' 0 -%' O AWP,3 64 ' 0 -%' O AWP,4 71 ' 0 -%' O AWP,5 78 ' 0 -%' O AWP,6 85 ' 0 -%' O AWP,7 92 ' 0 -%' O AWP,8 99 ' 0 -%' O AWP,9 106 ' 0 -%' O AWP,10 113 ' 0 -%' O AWP,11 120 ' 0 -%' O AWP,12 127 ' 0 -%' O E 01 25 O 24 'DIRECT LABOR-CURRENT YEA' O 25 'R' O ALC,1 50 ' 0 -%' O ALC,2 57 ' 0 -%' O ALC,3 64 ' 0 -%' O ALC,4 71 ' 0 -%' O ALC,5 78 ' 0 -%' O ALC,6 85 ' 0 -%' O ALC,7 92 ' 0 -%' O ALC,8 99 ' 0 -%' O ALC,9 106 ' 0 -%' O ALC,10 113 ' 0 -%' O ALC,11 120 ' 0 -%' O ALC,12 127 ' 0 -%' O E 01 25 21 O 24 'DIRECT LABOR-PREVIOUS YE' O 26 'AR' O ALP,1 50 ' 0 -%' O ALP,2 57 ' 0 -%' O ALP,3 64 ' 0 -%' O ALP,4 71 ' 0 -%' O ALP,5 78 ' 0 -%' O ALP,6 85 ' 0 -%' O ALP,7 92 ' 0 -%' O ALP,8 99 ' 0 -%' O ALP,9 106 ' 0 -%' O ALP,10 113 ' 0 -%' O ALP,11 120 ' 0 -%' O ALP,12 127 ' 0 -%' OCNTRL E 22 O AO 27P O E 18 O CCNTAM 13 O PCNTAM 23 ** ENTER NEW % FOR COST OF SALES (NO DECIMALS) ENTER NEW % FOR COST OF WHOLESALE SALES (NO DECIMALS) ENTER NEW % FOR LABOR (NO DECIMALS) ** A B C D E F G H I J K L M N O P Q R S T U V W X Z ** NET SALES COST OF SALES SALARIES & WAGES PAYROLL TAXES ADVERTISING AUTO & TRUCK EXPENSE CONTRIBUTIONS DEPRECIATION EMPLOYEE BENEFITS HOSPITALIZATION INSURANCE LICENSES & TAXES MAINTENANCE & REPAIRS, BUILDINGS & EQUIPMENT MILL EXPENSE MISC. EXPENSES OFFICE EXPENSE & SUPPLIES PROFESSIONAL FEES PROFIT SHARING REAL ESTATE TAXES TELEPHONE TRAVEL & ENTERTAINMENT UTILITIES MAINTENANCE RESEARCH EXPENSES OTHER EXPENSES & INCOME UNKNOWN ACCOUNT GROUPING // CEND // COPY LIBRARY-S,NAME-JF0265,RECL-096,REF-000001,DATE-08/01/16,TIME-1224,SUB-RPG H B 1 JF0265 FXGLBL IP F 224 224 2 DISK FCNTRL IC F 32 32R DISK FPRT O F 132 132 OV PRINTER E