IB Compile of CRTNXT.IBS, SYO to , SYO Version: 0 on 10/04/11 at 13:29:33 1 CRTNXT IBS 0000 !//IB// OBJ(CRTNXT,SYO) OPT(B) 2 CRTNXT IBS 0000 !======================================================================! 3 CRTNXT IBS 0000 SET PROGRAM.ID$ = "CRTNXT" 4 CRTNXT IBS 0000 INCLUDE "^Z1.INC" 1 ^Z1 INC 0000 !================== SYSTEM DATA FILE ===========================================! 100 2 ^Z1 INC 0000 ! FILE "Z1" , 252 , 32 ! 200 3 ^Z1 INC 0000 ! ! 300 4 ^Z1 INC 0000 ! KEY= TERM$ ! 400 5 ^Z1 INC 0000 ! VARIABLE DEFIFITIONS ! 500 6 ^Z1 INC 0000 LENGTH 16 & LOCAL KEYZ1$ ! 600 7 ^Z1 INC 0000 LENGTH 1 & LOCAL ZPT$ ! 700 8 ^Z1 INC 0000 LENGTH 2 & LOCAL ZZCO$ ! 800 9 ^Z1 INC 0000 LENGTH 3 & LOCAL ZLP$,ZLP2$,ZSTATE$,ZFIXDISK$,ZREMDISK$ ! 900 10 ^Z1 INC 0000 LENGTH 3 & LOCAL ZPART$(5) ! 910 11 ^Z1 INC 0000 LENGTH 5 & LOCAL ZZIP$,ZJULIAN$ ! 1000 12 ^Z1 INC 0000 LENGTH 6 & LOCAL ZAGED$ ! 1100 13 ^Z1 INC 0000 LENGTH 8 & LOCAL ZDATE$ ! 1200 14 ^Z1 INC 0000 LENGTH 11 & LOCAL ZPCODE$,ZFID$ ! 1300 15 ^Z1 INC 0000 LENGTH 12 & LOCAL ZPHONE$ ! 1400 16 ^Z1 INC 0000 LENGTH 15 & LOCAL ZCITY$ ! 1500 17 ^Z1 INC 0000 LENGTH 25 & LOCAL ZNAME$,ZADR1$,ZADR2$,ZADR3$ ! 1600 18 ^Z1 INC 0000 LENGTH 27 & LOCAL ZEXDATE$ ! 1700 19 ^Z1 INC 0000 LENGTH 5 & LOCAL FILLZ1$ ! 1720 20 ^Z1 INC 0000 ! ! 1800 21 ^Z1 INC 0000 !===============================================================================! 1900 22 ^Z1 INC 0000 ! RECORD FORMAT FIELD DESCRIPTIONS Length Size Position !! 2000 23 ^Z1 INC 0000 ! !! 2100 24 ^Z1 INC 0000 0990 FORMAT _ ! 2200 25 ^Z1 INC 0000 KEYZ1$;_ ! KEY TO Z1 FILE 16 ! 2250 26 ^Z1 INC 0004 ZDATE$;_ ! NUMERIC DATE 8 ! 2300 27 ^Z1 INC 0008 ZZCO$;_ ! COMPANY CODE 2 ! 2350 28 ^Z1 INC 000C ZEXDATE$;_ ! EXPANDED DATE 27 ! 2400 29 ^Z1 INC 0010 ZLP$;_ ! PRINTER MNEMONIC 3 ! 2500 30 ^Z1 INC 0014 ZPT$;_ ! PRINTER TYPE 1 ! 2600 31 ^Z1 INC 0018 ZNAME$;_ ! COMPANY NAME 25 ! 2700 32 ^Z1 INC 001C ZADR1$;_ ! ADDRESS 1 25 ! 2800 33 ^Z1 INC 0020 ZADR2$;_ ! ADDRESS 2 25 ! 2900 34 ^Z1 INC 0024 ZCITY$;_ ! CITY 15 ! 3000 35 ^Z1 INC 0028 ZSTATE$;_ ! STATE 3 ! 3100 36 ^Z1 INC 002C ZZIP$;_ ! ZIP CODE 5 ! 3200 37 ^Z1 INC 0030 ZADR3$;_ ! CITY/STATE/ZIP 25 ! 3300 38 ^Z1 INC 0034 ZPHONE$;_ ! PHONE NUMBER 12 ! 3400 39 ^Z1 INC 0038 ZAGED$;_ ! AGING DATE YYMMDD 6 ! 3500 40 ^Z1 INC 003C ZJULIAN$;_ ! JULIAN DATE YYDDD 5 ! 3600 41 ^Z1 INC 0040 ZPCODE$;_ ! SECURITY CODE 11 ! 3700 42 ^Z1 INC 0044 ZFIXDISK$;_ ! Fixed Disk Label 3 ! 4000 43 ^Z1 INC 0048 ZREMDISK$;_ ! Removable Disk Label 3 ! 4100 44 ^Z1 INC 004C ZFID$;_ ! FED ID CODE 11 ! 4200 45 ^Z1 INC 0050 ZPART$(1),5*3;_ ! BACKGROUND PARTITIONS 3 ! 4300 46 ^Z1 INC 005A ZLP2$ ! LINE PRINTER 2 IN A PROGRAM 3 ! 4400 47 ^Z1 INC 005F !! FILLZ1$ ! FILL ! 4500 48 ^Z1 INC 005F !===================================================================== ! 5000 5 CRTNXT IBS 005F INCLUDE "^EXIT.INC" 1 ^EXIT INC 005F ! ! 2 ^EXIT INC 005F !=========================> ^EXIT <===============================! 3 ^EXIT INC 005F ! ! 4 ^EXIT INC 005F ! Exit Program Process ! 5 ^EXIT INC 005F ! ! 6 ^EXIT INC 005F !====================================================================! 7 ^EXIT INC 005F !-- 0---|--- 10---|--- 20---|--- 30---|--- 40---|--- 50---|--- 60---|--- 70---| 8 ^EXIT INC 005F !23456789|123456789|123456789|123456789|123456789|123456789|123456789|123456789| 9 ^EXIT INC 005F !====================================================================! 10 ^EXIT INC 005F .if DECPASS 11 ^EXIT INC 005F .ifdef SETVALS.NOT.LOADED 12 ^EXIT INC 005F !====================================================================! 13 ^EXIT INC 005F !=========================> ^SETVALS <=============================! 14 ^EXIT INC 005F !====================================================================! ! 15 ^EXIT INC 005F !-- 0---|--- 10---|--- 20---|--- 30---|--- 40---|--- 50---|--- 60---|--- 70---| 16 ^EXIT INC 005F !23456789|123456789|123456789|123456789|123456789|123456789|123456789|123456789| 17 ^EXIT INC 005F !====================================================================! ! 18 ^EXIT INC 005F SET CONSOLE=0 19 ^EXIT INC 005F ! 20 ^EXIT INC 005F SET ALL.ANS$="ALL" 21 ^EXIT INC 005F SET ALL.PAD.ANS$="ALL " 22 ^EXIT INC 005F ! 23 ^EXIT INC 005F SET END.ANS$="END" 24 ^EXIT INC 005F SET END.PAD.ANS$="END " 25 ^EXIT INC 005F ! 26 ^EXIT INC 005F SET N.ANS$="N" 27 ^EXIT INC 005F SET NO.ANS$="NO" !stripped of trailing blanks 28 ^EXIT INC 005F SET NO.PAD.ANS$="NO " !padded with blank 29 ^EXIT INC 005F ! 30 ^EXIT INC 005F SET OK.ANS$="OK" 31 ^EXIT INC 005F SET OK.PAD.ANS$="OK " 32 ^EXIT INC 005F ! 33 ^EXIT INC 005F SET Y.ANS$="Y" 34 ^EXIT INC 005F SET YES.ANS$="YES" 35 ^EXIT INC 005F SET YES.PAD.ANS$="YES" 36 ^EXIT INC 005F !====================================================================! 37 ^EXIT INC 005F .endif 37 ^EXIT INC 005F .ENDIF 38 ^EXIT INC 005F !--------------------------------------------------------------------! 39 ^EXIT INC 005F ! MSGBOX.EOL is ASCII 40 ^EXIT INC 005F SET MSGBOX.EOL$ = "@0D0A@" 41 ^EXIT INC 005F !--------------------------------------------------------------------! 42 ^EXIT INC 005F LENGTH 1 & LOCAL PRINT.TO.CONSOLE$ ! 43 ^EXIT INC 005F LENGTH 1.0 & LOCAL NUM.ERR ! 44 ^EXIT INC 005F LENGTH 2 & LOCAL EDITERR$ ! 45 ^EXIT INC 005F .ifdef LEN.AN 46 ^EXIT INC 005F LENGTH LEN.AN & LOCAL AN$ ! CHR returns 1 byte hex # ! 47 ^EXIT INC 005F .else 47 ^EXIT INC 005F .ELSE 48 ^EXIT INC 005F LENGTH 6 & LOCAL AN$ ! CHR returns 1 byte hex # ! 49 ^EXIT INC 005F .endif 50 ^EXIT INC 005F LENGTH 32 & LOCAL RTN$ ! Routine name used in MESS$ ! 51 ^EXIT INC 005F .ifdef LEN.MESS 52 ^EXIT INC 005F LENGTH LEN.MESS & LOCAL MESS$ ! Message requires "^MESRTR.."! 53 ^EXIT INC 005F .else 53 ^EXIT INC 005F .ELSE 54 ^EXIT INC 005F LENGTH 60 & LOCAL MESS$ ! Message requires "^MESRTR.."! 55 ^EXIT INC 005F .endif 56 ^EXIT INC 005F LENGTH 60 & LOCAL TRACE.MESS$ ! 57 ^EXIT INC 005F LENGTH 254 & LOCAL MSGBOX.MESS$ ! 58 ^EXIT INC 005F !--------------------------------------------------------------------! 59 ^EXIT INC 005F .endif 60 ^EXIT INC 005F .if EXEPASS 61 ^EXIT INC 005F !====================================================================! 62 ^EXIT INC 005F !====== EXIT ========================================================= 63 ^EXIT INC 005F !===================================================================== 64 ^EXIT INC 005F DUMP.RTN.EXCP: MESS$ = STRIP(MESS$) + " RTN=" + RTN$ 65 ^EXIT INC 005F DUMP.EXCP: MESS$ = STRIP(MESS$) + " EXCP=" + STR(EXCP) 66 ^EXIT INC 005F PRINT.OPERATOR.MESS: 67 ^EXIT INC 005F 9000 INCLUDE "^MESSAGE.INC" 68 ^EXIT INC 005F ERRORTO.EXIT: 69 ^EXIT INC 005F MESS$ = STRIP(MESS$) + " Last RTN=" + RTN$ 70 ^EXIT INC 005F GOSUB DUMP.EXCP 71 ^EXIT INC 005F .ifdef GENERATE.LOCAL.DUMP.RTN 72 ^EXIT INC 005F IF AN$ EQ "?" THEN GOSUB LOCAL.DUMP.RTN 73 ^EXIT INC 005F .endif 74 ^EXIT INC 005F IF AN$ EQ "!" THEN ERROR 75 ^EXIT INC 005F INVALID.EXIT: 76 ^EXIT INC 005F EDITERR$ = "@FFFF@" 77 ^EXIT INC 005F GOTO PROGRAM.EXIT 78 ^EXIT INC 005F VALID.EXIT: 79 ^EXIT INC 005F EDITERR$ = "@0000@" 80 ^EXIT INC 005F GOTO PROGRAM.EXIT 81 ^EXIT INC 005F !<<<>>> Exit ========================================================= 82 ^EXIT INC 005F PROGRAM.EXIT: 83 ^EXIT INC 005F SELECT CASE RUNSTATE 84 ^EXIT INC 005F CASE 6 85 ^EXIT INC 005F EXIT 86 ^EXIT INC 005F CASE ELSE 87 ^EXIT INC 005F STOP 88 ^EXIT INC 005F ENDSELECT 89 ^EXIT INC 005F !====================================================================== 90 ^EXIT INC 005F .endif 90 ^EXIT INC 005F .ENDIF 6 CRTNXT IBS 005F LENGTH 3 & LOCAL CRTDIR$ ! 7 CRTNXT IBS 005F !======================================================================! 8 CRTNXT IBS 005F ! EXECUTION BEGINS HERE ! 9 CRTNXT IBS 005F !======================================================================! 10 CRTNXT IBS 005F CLEAR LOCAL 11 CRTNXT IBS 0005 ESCAPETO PROGRAM.EXIT 12 CRTNXT IBS 0008 ERRORTO ERRORTO.EXIT 13 CRTNXT IBS 000B CLOSE & OPEN (0) TERM$ 14 CRTNXT IBS 0011 SET Z1=1 15 CRTNXT IBS 0011 OPEN (Z1) "Z1" 16 CRTNXT IBS 0016 READ (Z1,0990)KEY=TERM$ 17 CRTNXT IBS 001E !======================================================================! 18 CRTNXT IBS 001E CRTDIR$ = "NXT" 19 CRTNXT IBS 0024 CREATE "-AR-SCG1.IBS",DIR=CRTDIR$ 20 CRTNXT IBS 002A CREATE "-CPMR.IBS",DIR=CRTDIR$ 21 CRTNXT IBS 0030 CREATE "-GFS.IBS",DIR=CRTDIR$ 22 CRTNXT IBS 0036 CREATE "-OA1.IBS",DIR=CRTDIR$ 23 CRTNXT IBS 003C CREATE "-OC.IBS",DIR=CRTDIR$ 24 CRTNXT IBS 0042 CREATE "-OE2.IBS",DIR=CRTDIR$ 25 CRTNXT IBS 0048 CREATE "-OM2.IBS",DIR=CRTDIR$ 26 CRTNXT IBS 004E CREATE "-OM4.IBS",DIR=CRTDIR$ 27 CRTNXT IBS 0054 CREATE "-OP1-JO.IBS",DIR=CRTDIR$ 28 CRTNXT IBS 005A CREATE "-RE2-JO.IBS",DIR=CRTDIR$ 29 CRTNXT IBS 0060 CREATE "-SC1-JO.IBS",DIR=CRTDIR$ 30 CRTNXT IBS 0066 CREATE "-SC1.IBS",DIR=CRTDIR$ 31 CRTNXT IBS 006C CREATE "-SI1-JO.IBS",DIR=CRTDIR$ 32 CRTNXT IBS 0072 CREATE "-SI1.IBS",DIR=CRTDIR$ 33 CRTNXT IBS 0078 CREATE "-SPDS0N.IBS",DIR=CRTDIR$ 34 CRTNXT IBS 007E CREATE "-WUI.IBS",DIR=CRTDIR$ 35 CRTNXT IBS 0084 CREATE "-WUL.IBS",DIR=CRTDIR$ 36 CRTNXT IBS 008A CREATE "AR-SCG1.IBS",DIR=CRTDIR$ 37 CRTNXT IBS 0090 CREATE "ARATBT1.IBS",DIR=CRTDIR$ 38 CRTNXT IBS 0096 CREATE "ARINQ.IBS",DIR=CRTDIR$ 39 CRTNXT IBS 009C CREATE "AUWSSCAN.IBS",DIR=CRTDIR$ 40 CRTNXT IBS 00A2 CREATE "BLCOMPSL.IBS",DIR=CRTDIR$ 41 CRTNXT IBS 00A8 CREATE "chkcomp.ibs",DIR=CRTDIR$ 42 CRTNXT IBS 00AE CREATE "CIA.IBS",DIR=CRTDIR$ 43 CRTNXT IBS 00B4 CREATE "CIA2CSV.IBS",DIR=CRTDIR$ 44 CRTNXT IBS 00BA CREATE "CM.IBS",DIR=CRTDIR$ 45 CRTNXT IBS 00C0 CREATE "COMPTYPE.IBS",DIR=CRTDIR$ 46 CRTNXT IBS 00C6 CREATE "CPHI-JO.IBS",DIR=CRTDIR$ 47 CRTNXT IBS 00CC CREATE "CPI-WR.IBS",DIR=CRTDIR$ 48 CRTNXT IBS 00D2 CREATE "CPI.IBS",DIR=CRTDIR$ 49 CRTNXT IBS 00D8 CREATE "CPI2-AE.IBS",DIR=CRTDIR$ 50 CRTNXT IBS 00DE CREATE "CPI2-HE.IBS",DIR=CRTDIR$ 51 CRTNXT IBS 00E4 CREATE "CPI2-WR.IBS",DIR=CRTDIR$ 52 CRTNXT IBS 00EA CREATE "CPI2.IBS",DIR=CRTDIR$ 53 CRTNXT IBS 00F0 CREATE "CPI3-WR.IBS",DIR=CRTDIR$ 54 CRTNXT IBS 00F6 CREATE "CPI3.IBS",DIR=CRTDIR$ 55 CRTNXT IBS 00FC CREATE "CPI4-AE.IBS",DIR=CRTDIR$ 56 CRTNXT IBS 0102 CREATE "CPI4-HE.IBS",DIR=CRTDIR$ 57 CRTNXT IBS 0108 CREATE "CPI4-WQ.IBS",DIR=CRTDIR$ 58 CRTNXT IBS 010E CREATE "CPI4-WR.IBS",DIR=CRTDIR$ 59 CRTNXT IBS 0114 CREATE "CPI4.IBS",DIR=CRTDIR$ 60 CRTNXT IBS 011A CREATE "CPI5.IBS",DIR=CRTDIR$ 61 CRTNXT IBS 0120 CREATE "CPIQ.IBS",DIR=CRTDIR$ 62 CRTNXT IBS 0126 CREATE "CPM1.IBS",DIR=CRTDIR$ 63 CRTNXT IBS 012C CREATE "CPM1SAV.IBS",DIR=CRTDIR$ 64 CRTNXT IBS 0132 CREATE "CPM2-WR.IBS",DIR=CRTDIR$ 65 CRTNXT IBS 0138 CREATE "CPM2.IBS",DIR=CRTDIR$ 66 CRTNXT IBS 013E CREATE "CPM3.IBS",DIR=CRTDIR$ 67 CRTNXT IBS 0144 CREATE "CPM3Q.IBS",DIR=CRTDIR$ 68 CRTNXT IBS 014A CREATE "CPMDEL.IBS",DIR=CRTDIR$ 69 CRTNXT IBS 0150 CREATE "CPMR.IBS",DIR=CRTDIR$ 70 CRTNXT IBS 0156 CREATE "CRI.IBS",DIR=CRTDIR$ 71 CRTNXT IBS 015C CREATE "CRJOLD.IBS",DIR=CRTDIR$ 72 CRTNXT IBS 0162 CREATE "CRJORG.IBS",DIR=CRTDIR$ 73 CRTNXT IBS 0168 CREATE "CRJXXXX.IBS",DIR=CRTDIR$ 74 CRTNXT IBS 016E CREATE "CRN.IBS",DIR=CRTDIR$ 75 CRTNXT IBS 0174 CREATE "CRU.IBS",DIR=CRTDIR$ 76 CRTNXT IBS 017A CREATE "CTI.IBS",DIR=CRTDIR$ 77 CRTNXT IBS 0180 CREATE "CTL.IBS",DIR=CRTDIR$ 78 CRTNXT IBS 0186 CREATE "CTM.IBS",DIR=CRTDIR$ 79 CRTNXT IBS 018C CREATE "CTR.IBS",DIR=CRTDIR$ 80 CRTNXT IBS 0192 CREATE "CTRI.IBS",DIR=CRTDIR$ 81 CRTNXT IBS 0198 CREATE "CVC1B.ibs",DIR=CRTDIR$ 82 CRTNXT IBS 019E CREATE "CVCOMP.IBS",DIR=CRTDIR$ 83 CRTNXT IBS 01A4 CREATE "CVCOMPLC.IBS",DIR=CRTDIR$ 84 CRTNXT IBS 01AA CREATE "CVPHCTRL.ibs",DIR=CRTDIR$ 85 CRTNXT IBS 01B0 CREATE "CVPHOITM.IBS",DIR=CRTDIR$ 86 CRTNXT IBS 01B6 CREATE "CVS0N.ibs",DIR=CRTDIR$ 87 CRTNXT IBS 01BC ! CREATE "CVTS0A.first.IBS",DIR=CRTDIR$ 88 CRTNXT IBS 01BC CREATE "CVTS0A.IBS",DIR=CRTDIR$ 89 CRTNXT IBS 01C2 CREATE "CVTS0B.IBS",DIR=CRTDIR$ 90 CRTNXT IBS 01C8 CREATE "CVWCOMP.first.IBS",DIR=CRTDIR$ 91 CRTNXT IBS 01CE CREATE "CVWCOMP.IBS",DIR=CRTDIR$ 92 CRTNXT IBS 01D4 CREATE "DPI.IBS",DIR=CRTDIR$ 93 CRTNXT IBS 01DA CREATE "DPJ.IBS",DIR=CRTDIR$ 94 CRTNXT IBS 01E0 CREATE "DPU.IBS",DIR=CRTDIR$ 95 CRTNXT IBS 01E6 CREATE "ECE.IBS",DIR=CRTDIR$ 96 CRTNXT IBS 01EC CREATE "ECR.IBS",DIR=CRTDIR$ 97 CRTNXT IBS 01F2 CREATE "ECU.IBS",DIR=CRTDIR$ 98 CRTNXT IBS 01F8 CREATE "EOD.IBS",DIR=CRTDIR$ 99 CRTNXT IBS 01FE CREATE "EOD68.IBS",DIR=CRTDIR$ 100 CRTNXT IBS 0204 CREATE "EODOLD.IBS",DIR=CRTDIR$ 101 CRTNXT IBS 020A CREATE "EXCOMP.IBS",DIR=CRTDIR$ 102 CRTNXT IBS 0210 CREATE "EXCOMPT.IBS",DIR=CRTDIR$ 103 CRTNXT IBS 0216 CREATE "EXSOLD.IBS",DIR=CRTDIR$ 104 CRTNXT IBS 021C CREATE "FIXARTO.IBS",DIR=CRTDIR$ 105 CRTNXT IBS 0222 CREATE "GFS-HE.IBS",DIR=CRTDIR$ 106 CRTNXT IBS 0228 CREATE "GFS-WR.IBS",DIR=CRTDIR$ 107 CRTNXT IBS 022E CREATE "GFS.IBS",DIR=CRTDIR$ 108 CRTNXT IBS 0234 CREATE "GMM.IBS",DIR=CRTDIR$ 109 CRTNXT IBS 023A CREATE "HSM.IBS",DIR=CRTDIR$ 110 CRTNXT IBS 0240 CREATE "IAI.IBS",DIR=CRTDIR$ 111 CRTNXT IBS 0246 CREATE "INDALCSV.IBS",DIR=CRTDIR$ 112 CRTNXT IBS 024C CREATE "IPCL.IBS",DIR=CRTDIR$ 113 CRTNXT IBS 0252 CREATE "IPE.IBS",DIR=CRTDIR$ 114 CRTNXT IBS 0258 CREATE "IPEF.IBS",DIR=CRTDIR$ 115 CRTNXT IBS 025E CREATE "IPR.IBS",DIR=CRTDIR$ 116 CRTNXT IBS 0264 CREATE "IPU.IBS",DIR=CRTDIR$ 117 CRTNXT IBS 026A CREATE "LED.IBS",DIR=CRTDIR$ 118 CRTNXT IBS 0270 CREATE "LSHP.IBS",DIR=CRTDIR$ 119 CRTNXT IBS 0276 CREATE "LSNSH2M.IBS",DIR=CRTDIR$ 120 CRTNXT IBS 027C CREATE "MCU.IBS",DIR=CRTDIR$ 121 CRTNXT IBS 0282 CREATE "MCU1.IBS",DIR=CRTDIR$ 122 CRTNXT IBS 0288 CREATE "ME.IBS",DIR=CRTDIR$ 123 CRTNXT IBS 028E CREATE "MEROICA.IBS",DIR=CRTDIR$ 124 CRTNXT IBS 0294 CREATE "MIU.IBS",DIR=CRTDIR$ 125 CRTNXT IBS 029A CREATE "MIU1.IBS",DIR=CRTDIR$ 126 CRTNXT IBS 02A0 CREATE "MR-HM.IBS",DIR=CRTDIR$ 127 CRTNXT IBS 02A6 CREATE "MTHM.IBS",DIR=CRTDIR$ 128 CRTNXT IBS 02AC CREATE "NE1.IBS",DIR=CRTDIR$ 129 CRTNXT IBS 02B2 CREATE "NRU.IBS",DIR=CRTDIR$ 130 CRTNXT IBS 02B8 CREATE "NRUQ.IBS",DIR=CRTDIR$ 131 CRTNXT IBS 02BE CREATE "OA1.IBS",DIR=CRTDIR$ 132 CRTNXT IBS 02C4 CREATE "OA1HM.IBS",DIR=CRTDIR$ 133 CRTNXT IBS 02CA CREATE "OBCS1.IBS",DIR=CRTDIR$ 134 CRTNXT IBS 02D0 CREATE "OBI2-FR.IBS",DIR=CRTDIR$ 135 CRTNXT IBS 02D6 CREATE "OBSI1.IBS",DIR=CRTDIR$ 136 CRTNXT IBS 02DC CREATE "OC-JO.IBS",DIR=CRTDIR$ 137 CRTNXT IBS 02E2 CREATE "OC.IBS",DIR=CRTDIR$ 138 CRTNXT IBS 02E8 CREATE "OCHM.IBS",DIR=CRTDIR$ 139 CRTNXT IBS 02EE CREATE "OCL-DI.IBS",DIR=CRTDIR$ 140 CRTNXT IBS 02F4 CREATE "OCL1-SS.IBS",DIR=CRTDIR$ 141 CRTNXT IBS 02FA CREATE "OCL1_SS.IBS",DIR=CRTDIR$ 142 CRTNXT IBS 02FB ! CREATE "OE2-JO.IBS",DIR=CRTDIR$ 142 CRTNXT IBS 03 ******************* 143 CRTNXT IBS 02FE CREATE "OE2-SV.IBS",DIR=CRTDIR$ 144 CRTNXT IBS 0304 CREATE "OE2.IBS",DIR=CRTDIR$ 145 CRTNXT IBS 030A CREATE "OE2HM.IBS",DIR=CRTDIR$ 146 CRTNXT IBS 0310 CREATE "OIDH-AL.IBS",DIR=CRTDIR$ 147 CRTNXT IBS 0316 CREATE "OIDH.IBS",DIR=CRTDIR$ 148 CRTNXT IBS 031C CREATE "OIDP-AL.IBS",DIR=CRTDIR$ 149 CRTNXT IBS 0322 CREATE "OLDCM.IBS",DIR=CRTDIR$ 150 CRTNXT IBS 0328 CREATE "OM2-JO.IBS",DIR=CRTDIR$ 151 CRTNXT IBS 032E CREATE "OM2-SV.IBS",DIR=CRTDIR$ 152 CRTNXT IBS 0334 CREATE "OM2.IBS",DIR=CRTDIR$ 153 CRTNXT IBS 033A CREATE "OM2HM.IBS",DIR=CRTDIR$ 154 CRTNXT IBS 0340 CREATE "OM4-JO.IBS",DIR=CRTDIR$ 155 CRTNXT IBS 0346 CREATE "OM4.IBS",DIR=CRTDIR$ 156 CRTNXT IBS 034C CREATE "OM4HM.IBS",DIR=CRTDIR$ 157 CRTNXT IBS 0352 CREATE "OOBD.IBS",DIR=CRTDIR$ 158 CRTNXT IBS 0358 CREATE "OOBPHI.IBS",DIR=CRTDIR$ 159 CRTNXT IBS 035E CREATE "OP1-JO.IBS",DIR=CRTDIR$ 160 CRTNXT IBS 0364 CREATE "OP1FR.IBS",DIR=CRTDIR$ 161 CRTNXT IBS 036A CREATE "OPL-TC.IBS",DIR=CRTDIR$ 162 CRTNXT IBS 0370 CREATE "OPM.IBS",DIR=CRTDIR$ 163 CRTNXT IBS 0376 CREATE "OSI.IBS",DIR=CRTDIR$ 164 CRTNXT IBS 037C CREATE "PARTOVSM.IBS",DIR=CRTDIR$ 165 CRTNXT IBS 0382 CREATE "PHI.IBS",DIR=CRTDIR$ 166 CRTNXT IBS 0388 CREATE "PHP.IBS",DIR=CRTDIR$ 167 CRTNXT IBS 038E CREATE "PHR.IBS",DIR=CRTDIR$ 168 CRTNXT IBS 0394 CREATE "PL-BP.IBS",DIR=CRTDIR$ 169 CRTNXT IBS 039A CREATE "PL-CA.IBS",DIR=CRTDIR$ 170 CRTNXT IBS 03A0 CREATE "PL-CN.IBS",DIR=CRTDIR$ 171 CRTNXT IBS 03A6 CREATE "PL-GP.IBS",DIR=CRTDIR$ 172 CRTNXT IBS 03AC CREATE "PL-HE.IBS",DIR=CRTDIR$ 173 CRTNXT IBS 03B2 CREATE "PL.IBS",DIR=CRTDIR$ 174 CRTNXT IBS 03B8 CREATE "PL460.IBS",DIR=CRTDIR$ 175 CRTNXT IBS 03BE CREATE "PLABC.IBS",DIR=CRTDIR$ 176 CRTNXT IBS 03C4 CREATE "PS.IBS",DIR=CRTDIR$ 177 CRTNXT IBS 03CA CREATE "PSPPRC.ibs",DIR=CRTDIR$ 178 CRTNXT IBS 03D0 CREATE "RC-JO.IBS",DIR=CRTDIR$ 179 CRTNXT IBS 03D6 CREATE "RC.IBS",DIR=CRTDIR$ 180 CRTNXT IBS 03DC CREATE "RDFADD.IBS",DIR=CRTDIR$ 181 CRTNXT IBS 03E2 CREATE "RDFADDO.IBS",DIR=CRTDIR$ 182 CRTNXT IBS 03E8 CREATE "RE2-JO.IBS",DIR=CRTDIR$ 183 CRTNXT IBS 03EE CREATE "RED.IBS",DIR=CRTDIR$ 184 CRTNXT IBS 03F4 CREATE "REDW.IBS",DIR=CRTDIR$ 185 CRTNXT IBS 03FA CREATE "REMW.IBS",DIR=CRTDIR$ 186 CRTNXT IBS 0400 CREATE "REP-AL.IBS",DIR=CRTDIR$ 187 CRTNXT IBS 0406 CREATE "RIDM-DQ.IBS",DIR=CRTDIR$ 188 CRTNXT IBS 040C CREATE "RIDM.IBS",DIR=CRTDIR$ 189 CRTNXT IBS 0412 CREATE "RP.IBS",DIR=CRTDIR$ 190 CRTNXT IBS 0418 CREATE "RP1-AL.IBS",DIR=CRTDIR$ 191 CRTNXT IBS 041E CREATE "RP1-JO.IBS",DIR=CRTDIR$ 192 CRTNXT IBS 0424 CREATE "RPU1-DI.IBS",DIR=CRTDIR$ 193 CRTNXT IBS 042A CREATE "RPU1-JO.IBS",DIR=CRTDIR$ 194 CRTNXT IBS 0430 CREATE "RPU3-DI.IBS",DIR=CRTDIR$ 195 CRTNXT IBS 0436 CREATE "RPU3-JO.IBS",DIR=CRTDIR$ 196 CRTNXT IBS 043C ! CREATE "RPU3.2010-04-30.IBS",DIR=CRTDIR$ 197 CRTNXT IBS 043C CREATE "RR1-JO.IBS",DIR=CRTDIR$ 198 CRTNXT IBS 0442 CREATE "RR1.IBS",DIR=CRTDIR$ 199 CRTNXT IBS 0448 CREATE "RSETC1O.IBS",DIR=CRTDIR$ 200 CRTNXT IBS 044E CREATE "SC1-JO.IBS",DIR=CRTDIR$ 201 CRTNXT IBS 0454 CREATE "SC1.IBS",DIR=CRTDIR$ 202 CRTNXT IBS 045A CREATE "SC1HM.IBS",DIR=CRTDIR$ 203 CRTNXT IBS 0460 CREATE "SI1.IBS",DIR=CRTDIR$ 204 CRTNXT IBS 0466 CREATE "SI1HM.IBS",DIR=CRTDIR$ 205 CRTNXT IBS 046C CREATE "SIM.IBS",DIR=CRTDIR$ 206 CRTNXT IBS 0472 CREATE "SNSHIPM.IBS",DIR=CRTDIR$ 207 CRTNXT IBS 0478 CREATE "SONYITEM.IBS",DIR=CRTDIR$ 208 CRTNXT IBS 047E CREATE "SONYOTB.IBS",DIR=CRTDIR$ 209 CRTNXT IBS 0484 CREATE "SPDS0I.IBS",DIR=CRTDIR$ 210 CRTNXT IBS 048A CREATE "SPDS0K.IBS",DIR=CRTDIR$ 211 CRTNXT IBS 0490 CREATE "SPDS0N.IBS",DIR=CRTDIR$ 212 CRTNXT IBS 0496 CREATE "SPDS0S.IBS",DIR=CRTDIR$ 213 CRTNXT IBS 049C CREATE "SPPRICE.IBS",DIR=CRTDIR$ 214 CRTNXT IBS 04A2 ! CREATE "spprice.save.ibs",DIR=CRTDIR$ 215 CRTNXT IBS 04A2 CREATE "SS1.IBS",DIR=CRTDIR$ 216 CRTNXT IBS 04A8 CREATE "SSC.IBS",DIR=CRTDIR$ 217 CRTNXT IBS 04AE CREATE "SSF.IBS",DIR=CRTDIR$ 218 CRTNXT IBS 04B4 CREATE "STM1-AE.IBS",DIR=CRTDIR$ 219 CRTNXT IBS 04BA CREATE "STM1-TC.IBS",DIR=CRTDIR$ 220 CRTNXT IBS 04C0 CREATE "STM1-WR.IBS",DIR=CRTDIR$ 221 CRTNXT IBS 04C6 CREATE "SUQ.IBS",DIR=CRTDIR$ 222 CRTNXT IBS 04CC CREATE "TINVCSV.IBS",DIR=CRTDIR$ 223 CRTNXT IBS 04D2 CREATE "TSTEOD.IBS",DIR=CRTDIR$ 224 CRTNXT IBS 04D8 CREATE "TSTWOE.IBS",DIR=CRTDIR$ 225 CRTNXT IBS 04DE CREATE "WOE.IBS",DIR=CRTDIR$ 226 CRTNXT IBS 04E4 CREATE "WOEBAD.IBS",DIR=CRTDIR$ 227 CRTNXT IBS 04EA CREATE "WOECATN.IBS",DIR=CRTDIR$ 228 CRTNXT IBS 04F0 CREATE "WOEOLD.IBS",DIR=CRTDIR$ 229 CRTNXT IBS 04F6 CREATE "WUI.IBS",DIR=CRTDIR$ 230 CRTNXT IBS 04FC CREATE "WUIS2.IBS",DIR=CRTDIR$ 231 CRTNXT IBS 0502 CREATE "WUL.IBS",DIR=CRTDIR$ 232 CRTNXT IBS 0508 CREATE "WULS2.IBS",DIR=CRTDIR$ 233 CRTNXT IBS 050E CREATE "XCIOLD.IBS",DIR=CRTDIR$ 234 CRTNXT IBS 0514 CREATE "XIDM.IBS",DIR=CRTDIR$ 235 CRTNXT IBS 051A CREATE "XMADD.IBS",DIR=CRTDIR$ 236 CRTNXT IBS 0520 CREATE "XMAINT1.IBS",DIR=CRTDIR$ 237 CRTNXT IBS 0526 CREATE "XMXREF.IBS",DIR=CRTDIR$ 238 CRTNXT IBS 052C CREATE "^CPMDL-W.IBS",DIR=CRTDIR$ 239 CRTNXT IBS 0532 CREATE "^CPMDL.IBS",DIR=CRTDIR$ 240 CRTNXT IBS 0538 CREATE "^^CPMDL.IBS",DIR=CRTDIR$ 241 CRTNXT IBS 053E ! CREATE "_ARCONCO.IBS",DIR=CRTDIR$ 242 CRTNXT IBS 053E CREATE "_ARCONOA.IBS",DIR=CRTDIR$ 243 CRTNXT IBS 053F CREATE "_ARCRJRO.IBS",DIR=CRTDIR$ 244 CRTNXT IBS 053F CREATE "_ARCU-BA.IBS",DIR=CRTDIR$ 244 CRTNXT IBS 03 ************** _ARCU-BA.IBS",DIR=CRTDIR$ 245 CRTNXT IBS 0541 CREATE "_ARCUTRF.IBS",DIR=CRTDIR$ 246 CRTNXT IBS 0541 CREATE "_ARDPENT.IBS",DIR=CRTDIR$ 247 CRTNXT IBS 0541 CREATE "_ARINQ-T.IBS",DIR=CRTDIR$ 248 CRTNXT IBS 0541 CREATE "_ARJR-BA.IBS",DIR=CRTDIR$ 249 CRTNXT IBS 0541 CREATE "_ARMENT.IBS",DIR=CRTDIR$ 250 CRTNXT IBS 0541 CREATE "_ARMERG.IBS",DIR=CRTDIR$ 251 CRTNXT IBS 0541 CREATE "_ARSTATU.IBS",DIR=CRTDIR$ 252 CRTNXT IBS 0541 !======================================================================! 253 CRTNXT IBS 0542 GOTO VALID.EXIT 254 CRTNXT IBS 0545 !======================================================================! 255 CRTNXT IBS 0545 INCLUDE "^EXIT.INC" 1 ^EXIT INC 0545 ! ! 2 ^EXIT INC 0545 !=========================> ^EXIT <===============================! 3 ^EXIT INC 0545 ! ! 4 ^EXIT INC 0545 ! Exit Program Process ! 5 ^EXIT INC 0545 ! ! 6 ^EXIT INC 0545 !====================================================================! 7 ^EXIT INC 0545 !-- 0---|--- 10---|--- 20---|--- 30---|--- 40---|--- 50---|--- 60---|--- 70---| 8 ^EXIT INC 0545 !23456789|123456789|123456789|123456789|123456789|123456789|123456789|123456789| 9 ^EXIT INC 0545 !====================================================================! 10 ^EXIT INC 0545 .if DECPASS 11 ^EXIT INC 0545 .ifdef SETVALS.NOT.LOADED 12 ^EXIT INC 0545 !====================================================================! 13 ^EXIT INC 0545 !=========================> ^SETVALS <=============================! 14 ^EXIT INC 0545 !====================================================================! ! 15 ^EXIT INC 0545 !-- 0---|--- 10---|--- 20---|--- 30---|--- 40---|--- 50---|--- 60---|--- 70---| 16 ^EXIT INC 0545 !23456789|123456789|123456789|123456789|123456789|123456789|123456789|123456789| 17 ^EXIT INC 0545 !====================================================================! ! 18 ^EXIT INC 0545 SET CONSOLE=0 19 ^EXIT INC 0545 ! 20 ^EXIT INC 0545 SET ALL.ANS$="ALL" 21 ^EXIT INC 0545 SET ALL.PAD.ANS$="ALL " 22 ^EXIT INC 0545 ! 23 ^EXIT INC 0545 SET END.ANS$="END" 24 ^EXIT INC 0545 SET END.PAD.ANS$="END " 25 ^EXIT INC 0545 ! 26 ^EXIT INC 0545 SET N.ANS$="N" 27 ^EXIT INC 0545 SET NO.ANS$="NO" !stripped of trailing blanks 28 ^EXIT INC 0545 SET NO.PAD.ANS$="NO " !padded with blank 29 ^EXIT INC 0545 ! 30 ^EXIT INC 0545 SET OK.ANS$="OK" 31 ^EXIT INC 0545 SET OK.PAD.ANS$="OK " 32 ^EXIT INC 0545 ! 33 ^EXIT INC 0545 SET Y.ANS$="Y" 34 ^EXIT INC 0545 SET YES.ANS$="YES" 35 ^EXIT INC 0545 SET YES.PAD.ANS$="YES" 36 ^EXIT INC 0545 !====================================================================! 37 ^EXIT INC 0545 .endif 38 ^EXIT INC 0545 !--------------------------------------------------------------------! 39 ^EXIT INC 0545 ! MSGBOX.EOL is ASCII 40 ^EXIT INC 0545 SET MSGBOX.EOL$ = "@0D0A@" 41 ^EXIT INC 0545 !--------------------------------------------------------------------! 42 ^EXIT INC 0545 LENGTH 1 & LOCAL PRINT.TO.CONSOLE$ ! 43 ^EXIT INC 0545 LENGTH 1.0 & LOCAL NUM.ERR ! 44 ^EXIT INC 0545 LENGTH 2 & LOCAL EDITERR$ ! 45 ^EXIT INC 0545 .ifdef LEN.AN 46 ^EXIT INC 0545 LENGTH LEN.AN & LOCAL AN$ ! CHR returns 1 byte hex # ! 47 ^EXIT INC 0545 .else 48 ^EXIT INC 0545 LENGTH 6 & LOCAL AN$ ! CHR returns 1 byte hex # ! 49 ^EXIT INC 0545 .endif 50 ^EXIT INC 0545 LENGTH 32 & LOCAL RTN$ ! Routine name used in MESS$ ! 51 ^EXIT INC 0545 .ifdef LEN.MESS 52 ^EXIT INC 0545 LENGTH LEN.MESS & LOCAL MESS$ ! Message requires "^MESRTR.."! 53 ^EXIT INC 0545 .else 54 ^EXIT INC 0545 LENGTH 60 & LOCAL MESS$ ! Message requires "^MESRTR.."! 55 ^EXIT INC 0545 .endif 56 ^EXIT INC 0545 LENGTH 60 & LOCAL TRACE.MESS$ ! 57 ^EXIT INC 0545 LENGTH 254 & LOCAL MSGBOX.MESS$ ! 58 ^EXIT INC 0545 !--------------------------------------------------------------------! 59 ^EXIT INC 0545 .endif 59 ^EXIT INC 0545 .ENDIF 60 ^EXIT INC 0545 .if EXEPASS 61 ^EXIT INC 0545 !====================================================================! 62 ^EXIT INC 0545 !====== EXIT ========================================================= 63 ^EXIT INC 0545 !===================================================================== 64 ^EXIT INC 0545 DUMP.RTN.EXCP: MESS$ = STRIP(MESS$) + " RTN=" + RTN$ 65 ^EXIT INC 0558 DUMP.EXCP: MESS$ = STRIP(MESS$) + " EXCP=" + STR(EXCP) 66 ^EXIT INC 0573 PRINT.OPERATOR.MESS: 67 ^EXIT INC 0573 9000 INCLUDE "^MESSAGE.INC" 1 ^MESSAGEINC 0573 ! 2 ^MESSAGEINC 0573 ! 3 ^MESSAGEINC 0573 !=-==-=-=-=-=-=-= MESSAGE WRITER =-=-=-=-=-=-=-=-=-==-=-=-=-=-=-= 4 ^MESSAGEINC 0573 AN$=CHR(38-LEN(MESS$)*0.5) 5 ^MESSAGEINC 0593 PRINT (0) '@011800040601184F0C0118@';AN$;MESS$;'@0C@' 6 ^MESSAGEINC 05A7 ! @(0,23);(BF);@(79,23);(TM);@(P,23) P = AN$ 7 ^MESSAGEINC 05A7 INPUT (0) AN$ 8 ^MESSAGEINC 05AF PRINT (0) '@0118000406@' ! @(0,23); (BF) 9 ^MESSAGEINC 05B7 RETURN 68 ^EXIT INC 05B8 ERRORTO.EXIT: 69 ^EXIT INC 05B8 MESS$ = STRIP(MESS$) + " Last RTN=" + RTN$ 70 ^EXIT INC 05CB GOSUB DUMP.EXCP 71 ^EXIT INC 05CE .ifdef GENERATE.LOCAL.DUMP.RTN 72 ^EXIT INC 05CE IF AN$ EQ "?" THEN GOSUB LOCAL.DUMP.RTN 73 ^EXIT INC 05CE .endif 73 ^EXIT INC 05CE .ENDIF 74 ^EXIT INC 05CE IF AN$ EQ "!" THEN ERROR 75 ^EXIT INC 05D7 INVALID.EXIT: 76 ^EXIT INC 05D7 EDITERR$ = "@FFFF@" 77 ^EXIT INC 05DD GOTO PROGRAM.EXIT 78 ^EXIT INC 05E0 VALID.EXIT: 79 ^EXIT INC 05E0 EDITERR$ = "@0000@" 80 ^EXIT INC 05E6 GOTO PROGRAM.EXIT 81 ^EXIT INC 05E9 !<<<>>> Exit ========================================================= 82 ^EXIT INC 05E9 PROGRAM.EXIT: 83 ^EXIT INC 05E9 SELECT CASE RUNSTATE 84 ^EXIT INC 05E9 CASE 6 85 ^EXIT INC 05F4 EXIT 86 ^EXIT INC 05F6 CASE ELSE 87 ^EXIT INC 05F9 STOP 88 ^EXIT INC 05FA ENDSELECT 89 ^EXIT INC 05FA !====================================================================== 90 ^EXIT INC 05FA .endif ZZZZZZZ CRTNXT IBS 05FA END WARNING: Statement DUMP.RTN.EXCP Defined At 0545, Has no Reference Compilation Memory Usage Available 00065057 Symbol Table 00005174 TOTAL ERRORS 00002 Compile Completed