Listing of file='IDS2PR33' on disk='vmedia/701-2716B.wvd.zip'
# Sector 447, program filename = 'IDS2PR33'
1000 REM "IDS2PR33" - Release 2.1 - RPT. DOC.(FILE READING SPECS/LEVEL BREAKS)
1010 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM"
: GOSUB '33("IDS2sR03")
: IF D6>43THEN GOSUB 1660
: GOSUB '71(2)
: E$="Companion file reading key specifications: "
: GOSUB '48(5,E$,0)
: GOSUB '49(0)
: E$="------------------------------------------ "
: GOSUB '48(5,E$,0)
: GOSUB '49(0)
: D6=D6+2
: GOSUB '71(1)
1030 E$="File"
: GOSUB '48(6,E$,0)
: GOSUB '48(16," Associated data file description",0)
: GOSUB '48(52," Comment",0)
: GOSUB '49(0)
: E$="----"
: GOSUB '48(6,E$,0)
: GOSUB '48(16," --------------------------------",0)
: GOSUB '48(52," -------",0)
: GOSUB '49(0)
: D6=D6+2
1040 GOSUB '48(3,"1",0)
: GOSUB '43(3)
: GOSUB '48(6,E$,0)
: GOSUB '43(4)
: IF POS(E$>00)>32THEN E$=" "
: GOSUB '48(16,E$,32)
: GOSUB '48(50," File is read automatically",0)
: GOSUB '49(0)
: D6=D6+1
1050 FOR I=2TO 7
: E0$()=HEX(01)
: CONVERT ITO E$,(#)
: GOSUB '48(3,E$,2)
: GOSUB '43(I*3-1)
: GOSUB '48(6,E$,8)
: GOSUB '43(I*3)
: GOSUB '48(16,E$,32)
: IF STR(E0$(),7,8)=" "THEN 1060
: GOSUB '48(50," Key is specified below ",0)
: GOSUB '49(0)
: D6=D6+1
1060 NEXT I
: IF D6>47THEN GOSUB 1660
: GOSUB '71(1)
: E$=HEX(80)&" File "&" I/U "&"# fields"&" Field/file"&" Field/file"&" F
ield/file"&" Field/file"&" Field/file"
: GOSUB '48(2,E$,0)
: GOSUB '49(0)
1075 E$=HEX(80)&" ---- "&" --- "&"--------"&" ----------"&" ----------"&" -
---------"&" ----------"&" ----------"
: GOSUB '48(2,E$,0)
: GOSUB '49(0)
: D6=D6+2
1080 FOR I=2TO 7
: E0$()=HEX(01)
: CONVERT ITO E$,(#)
: GOSUB '48(2,E$,0)
: GOSUB '43(I+22)
: IF E$=" "THEN 1140
: GOSUB '48(4,E$,0)
: GOSUB '43(I*11+14)
: GOSUB '48(13,E$,0)
: GOSUB '43(I+28)
: J0=Q
: GOSUB '48(19,E$,0)
: FOR J1=1TO J0
: GOSUB '43(I*11+J1*2+13)
: E$=STR(E$,,8)&"/"
: GOSUB '48(J1*11+14,E$,0)
: GOSUB '43(I*11+J1*2+14)
: GOSUB '48(J1*11+23,E$,0)
: NEXT J1
1130 GOSUB '49(0)
: D6=D6+1
1140 NEXT I
: GOSUB '33("IDS2sR04")
: IF D6>41THEN GOSUB 1660
: GOSUB '71(3)
: GOSUB '48(5,"Report level break specifications: ",0)
: GOSUB '49(0)
: GOSUB '48(5,"---------------------------------- ",0)
: GOSUB '49(0)
: D6=D6+2
: GOSUB '49(0)
: J0=0
: FOR I=0TO 9
: GOSUB '43(I*4+17)
: IF E$=" "THEN 1260
1230 GOSUB '48(1,"A level",0)
: CONVERT ITO E$,(#)
: STR(E$,2)=" break"
: GOSUB '48(-1,E$,0)
: GOSUB '43(I*4+20)
: IF E$="Y"THEN GOSUB '48(-1,"with top of form",0)
: GOSUB '48(-1,"occurs if field",0)
: GOSUB '43(I*4+17)
: GOSUB '48(-1,E$,0)
1240 GOSUB '43(I*4+18)
: J=Q
: IF J<1THEN 1250
: GOSUB '48(-1,"in file",0)
: GOSUB '43(J*2+1)
: GOSUB '48(-1,E$,0)
: GOSUB '48(-1,"changes",0)
1250 GOSUB '49(0)
: D6=D6+1
1260 NEXT I
: GOSUB '49(0)
: D6=D6+1
: STR(E$(),856,1)="D"
: LOAD T#2,"IDS2PR25"1000,
1600 STOP #
1660 E0$()=HEX(01)
: J4=J4+1
: GOSUB '48(0,HEX(0C),0)
: GOSUB '49(0)
: E$="Report "&HEX(22)&STR(E$(),2,8)&HEX(22)&" - "&STR(E$(),18,32)
: GOSUB '48(2,E$,0)
: E$=STR(R2$,1,2)&"/"&STR(R2$,3,2)&"/"&STR(R2$,5,2)&" Page ## of ##"
: CONVERT J4TO STR(E$,16,2),(##)
: CONVERT J9TO STR(E$,22,2),(##)
: GOSUB '48(57,E$,0)
: GOSUB '49(0)
: D6=2
: RETURN
1680 DEFFN'71(S)
: IF S<1THEN RETURN
: E$=" "
: IF S=1THEN 1690
: FOR J=1TO S-1
: E$=E$&HEX(0D)
: NEXT J
1690 E0$()=HEX(01)
: GOSUB '48(1,E$,0)
: GOSUB '49(0)
: D6=D6+S
: RETURN
3699 ON ERRORE1$,E2$GOTO 3700
3700 DEFFN'31
: E$="IDS2PR33"
: IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000,
: STOP "ERROR"