Listing of file='IDS2PR16' on disk='vmedia/701-2716B.wvd.zip'
# Sector 220, program filename = 'IDS2PR16'
1000 REM "IDS2PR16" - Release 2.1 - REPORT GENERATOR OPERATIONS SPECIFICATIONS
PART 2
1010 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM"
1020 COM C9$19,C5$1
: C5$="R"
: IF E$(1)="\E2"THEN C5$="B"
: E$="Report"
: IF C5$="B"THEN E$="Batch"
: GOSUB '45(12,E$)
: GOSUB '45(13,E$)
: R3$(1)="IDS2PR13"
: GOSUB '33("IDS2sR05")
: AND (STR(E2$(3),5,1),FE)
1031 PRINT AT(18,1,40);HEX(0F);"Touch '16 to add or modify an Edit";AT(19,1,40
);"associated with the current operation"
1040 GOSUB '43(9)
: E8$=ALL(00)
: MAT SEARCHF$(),=STR(E8$,1,9)TO F9$STEP 9
: C6=INT(VAL(F9$,2)/9)
1080 IF C6=0THEN 1150
: E$=" "
: PRINT HEX(060F);
: FOR I=(Q-1)*63TO MIN(Q*63-1,C6-1)
: CONVERT I+1TO E$,(###)
: F5$=STR(F$(),I*9+1,6)&ALL(00)
: FOR J=1TO 8
: ROTATEC(STR(F5$,J),-2)
: NEXT J
: ADD(F5$,20)
: PRINT AT(MOD(I,21)+2,INT((I-(Q-1)*63)/21)*13+41);STR(E$,1,4);F5$
: NEXT I
1150 IF STR(E$(),1600,8)=" "THEN 1680
: GOSUB '63("EXEC=Accept, EDI","T=Modify, '16=Edit process, '10=Change op n
umber, '31=Cancel"," ")
: GOSUB '34(250)
: IF Q=24THEN 2000
: IF Q=16THEN 1500
: IF Q=33THEN 1210
: IF Q=32THEN 1680
: IF Q=31THEN LOAD T#2,"IDS2PR13"1000,
: IF Q=10THEN 1700
: IF Q>16AND Q<21THEN 1190
1180 PRINT HEX(07);
: GOTO 1150
1190 Q=Q-16
: PRINT HEX(06);
: FOR I=2TO 22
: PRINT AT(I,40,40);
: NEXT I
: GOTO 1080
1210 E1=1
: GOTO 1300
1300 F=4
1305 F=F+1
1308 GOSUB '34(F)
: ON F-2GOTO 1305,1305,1390,1400,1410
: IF F<3THEN 1305
: ELSE GOTO 1150
: STOP "NO."
1390 IF POS(" 0123456789PR"=E$)>0THEN 1305
: GOSUB '35("Level must be blank, 0-9, 'R', or 'P'")
: GOTO 1308
1400 IF E$=" "THEN 1405
: IF E$>="0"AND E$<="9"THEN 1305
: IF E$>="A"AND E$<="Z"THEN 1305
: GOSUB '35("Sysflag designator must be 0-9 or A-Z")
: GOTO 1308
1405 GOSUB '45(F+1," ")
: GOTO 1150
1410 IF E$="Y"OR E$="N"THEN 1150
: GOSUB '35("Sysflag state must be 'Y' (ON) or 'N' (OFF)")
: GOTO 1308
1500 IF STR(E$(),1600,8)=" "THEN 1180
: MAT REDIM E$(24)83
: DATA SAVE DA T#3,(E4)E$()
: MAT REDIM E$(E8)1
: MAT REDIM F$(27)83
: DATA SAVE DA T#3,(E4+25)F$()
: MAT REDIM F$(E9)1
: C9$=STR(E$(),2,8)&STR(E$(),1600,8)
: R3$(1)="IDS2PR14"
: LOAD T#2,"IDS2PS18"1000,
1680 E8$=STR(E$(),1600,8)&STR(E$(),1611,3)&E$(1614)&ALL(00)
: ADD(STR(E8$,1,11),E0)
: FOR I=12TO 1STEP -1
: ROTATEC(STR(E8$,I),2)
: NEXT I
: GOSUB '43(4)
: STR(F$(),Q*9-8,9)=STR(E8$,,9)
: MAT REDIM F$(27)83
: DATA SAVE DA T#3,(E4+25)F$()
: LOAD T#2,"IDS2PR13"1000,
1700 IF C6<2THEN 1180
: GOSUB '43(3)
: F5$=E$ADDALL(E0)
: FOR I=8TO 1STEP -1
: ROTATEC(STR(F5$,I),2)
: NEXT I
: MAT SEARCHF$(),=STR(F5$,1,6)TO F9$STEP 9
: IF F9$=HEX(0000)THEN 1180
: J3=INT(VAL(F9$,2)/9)+1
: OR (STR(E2$(4),5,1),01)
1710 F0$="Please enter new operation number (001-###)"
: CONVERT C6TO STR(F0$,POS(F0$="#"),3),(###)
: GOSUB '53(F0$)
: GOSUB '34(4)
: IF Q=0OR Q>C6THEN 1710
: AND (STR(E2$(4),5,1),FE)
: IF Q=J3THEN 1150
: X=J3*9-8
: E8$=STR(F$(),X)
: STR(F$(),X)=STR(F$(),X+9)&ALL(00)
1730 Q=Q*9-8
: MAT COPY -F$()<Q,2242-Q>TO -F$()<Q+9,2242-Q>
: STR(F$(),Q,9)=E8$
: GOTO 1040
1799 STOP #
2000 GOSUB '43(1)
: J6$=E$
: IF E$=" "THEN 1020
: GOSUB '43(3)
: STR(J6$,9)=E$
: IF E$=" "THEN 1020
: MAT REDIM E$(24)83
: DATA SAVE DA T#3,(E4)E$()
: MAT REDIM E$(E8)1
: MAT REDIM F$(27)83
: DATA SAVE DA T#3,(E4+25)F$()
: MAT REDIM F$(E9)1
: F$()=J6$
: COM CLEAR J6$
: R3$(1)="IDS2PR13"
: LOAD T#2,"IDS2PS98"1000,
3699 ON ERRORE1$,E2$GOTO 3700
3700 DEFFN'31
: E$="IDS2PR16"
: IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000,
: STOP "ERROR"