Listing of file='IDS2PR09' on disk='vmedia/701-2716B.wvd.zip'
# Sector 147, program filename = 'IDS2PR09'
1000 REM "IDS2PR09" - Release 2.1 - REPORT GENERATOR LEVEL BREAK SPECIFICATION
S
1010 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM"
: GOSUB '32("IDS2sR04")
: R3$(1)="IDS2PR05"
: IF E$(1)="\F2"THEN E$="Report"
: ELSE E$="Batch"
: GOSUB '45(57,E$)
: GOSUB '45(58,E$)
: F0=56
: IF E$(1)="\E2"THEN 1027
: PRINT HEX(0F);AT(2,76);"TOF";AT(20,0);BOX(2,79);
1026 PRINT AT(20,1);"4. The ";HEX(22);"TOF";HEX(22);" indicator is used to spe
cify a top-of-form (new page) after all";AT(21,4);"footers for the specif
ied level have been printed. (Y = go to new page.)"
: GOTO 1030
1027 FOR I=20TO 56STEP 4
: STR(E2$(I),5,3)=AND HEX(FEFF3F)
: NEXT I
1030 FOR I=1TO 16
: GOSUB '37(I)
: NEXT I
: FOR I=0TO 9
: X=I*4+17
: GOSUB '37(X)
: IF E$=" "THEN 1034
: GOSUB '37(X+1)
: GOSUB '43(Q+2)
: GOSUB '45(X+2,E$)
: GOSUB '37(X+3)
: GOTO 1034
1034 NEXT I
1040 GOSUB '53("EXECUTE = Accept, '0-'9 = Level break specs, '16 = Field names
")
: GOSUB '34(250)
: IF Q=16THEN 1200
: IF Q<10THEN 1300
: IF Q=32THEN 1070
: PRINT HEX(07);
: GOTO 1040
1070 X=0
: FOR I=17TO 53STEP 4
: GOSUB '43(I)
: IF E$<>" "THEN X=X+1
: NEXT I
: CONVERT XTO E$(849),(#)
: MAT REDIM E$(24)83
: DATA SAVE DA T#3,(E4)E$()
: LOAD T#2,"IDS2PR05"1000,
1200 R3$(1)="IDS2PR09"
: LOAD T#2,"IDS2PS17"1000,
1300 J1=Q
: F=J1*4+16
1315 F=F+1
: IF F<20OR F>56OR MOD(F,4)<>0THEN 1320
: GOSUB '43(F)
: IF E$=" "THEN GOSUB '45(F,"N")
1320 GOSUB '34(F)
: X=MOD(F-17,4)+1
: ON XGOTO 1350,1360,1315,1380
1350 E7$=E$
: IF E7$<>" "THEN 1315
: FOR I=FTO F+3
: GOSUB '45(I," ")
: NEXT I
: GOTO 1040
1360 IF Q>0AND Q<8THEN 1362
1361 GOSUB '35("File number must be one of those listed above")
: GOTO 1320
1362 GOSUB '43(Q*2+1)
: F5$=E$OR ALL(20)
: IF E$<>" "THEN 1364
: FOR I=FTO F+2
: GOSUB '45(I," ")
: NEXT I
: GOTO 1361
1364 GOSUB '39(F5$,5)
: MAT REDIM E3$(3)83
: DATA LOAD DA T#P,(A)E3$()
: IF STR(E3$(),10,1)<"5"THEN 1366
: F5$=STR(E3$(),82,8)OR ALL(20)
: GOTO 1364
1366 MAT REDIM E3$(24)83
: DATA LOAD DA T#P,(A+8)E3$()
: MAT REDIM E3$(249)8
: MAT SEARCHE3$(),=STR(E7$,1,8)TO F9$STEP 8
: IF F9$=HEX(0000)THEN 1370
: GOSUB '43(F)
: GOSUB '43(Q*2+1)
: GOSUB '45(F+1,E$)
: GOTO 1315
1370 GOSUB '35("Field is not in file specified")
: F=F-1
: GOTO 1320
1380 IF E$="Y"OR E$="N"THEN 1040
: GOSUB '35("Top-of-form flag must be 'Y' or 'N'")
: GOTO 1320
1799 STOP #
: ON ERRORE1$,E2$GOTO 3700
3700 DEFFN'31
: E$="IDS2PR09"
: IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000,
: STOP "ERROR"