Listing of file='IDS2PR35' on disk='vmedia/701-2716B.wvd.zip'
# Sector 462, program filename = 'IDS2PR35'
1000 REM "IDS2PR35" - Release 2.1 - REPORT DOCUMENTATION - RANGE, SELECT, SORT
1010 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM"
: IF STR(E$(),887,120)<>" "THEN 1080
: IF D6+4>58THEN GOSUB 1860
: ELSE GOSUB 1920
: GOSUB '48(10,"No Descriptions are specified for this report",0)
: D6=D6+1
: GOSUB '49(0)
: GOTO 1180
1080 IF D6+6+VAL(E$(1601))>56THEN GOSUB 1860
: ELSE GOSUB 1920
: GOSUB '48(10,"Record Selection Descriptions specified are as follows : ",
0)
: D6=D6+2
: GOSUB '49(0)
: GOSUB '49(0)
: GOSUB '48(20," Description Field From ",0)
: D6=D6+1
: GOSUB '49(0)
1085 GOSUB '48(20,"Key (as seen by operator) Name File ",0)
: D6=D6+1
: GOSUB '49(0)
: GOSUB '48(20,"--- --------------------- -------- --------",0)
: D6=D6+1
: GOSUB '49(0)
: FOR I=1TO VAL(E$(1601))
: F9$=BIN(I+64)
: GOSUB '71(F9$)
: GOSUB '48(21,STR(E$,2,1),0)
: GOSUB '48(25,STR(E$,19,20),0)
1128 GOSUB '48(48,STR(E$,10,8),0)
: GOSUB '48(58,STR(E$(),78+(VAL(STR(E$,7))-49)*8,8),8)
: D6=D6+1
: GOSUB '49(0)
: NEXT I
1180 D6=D6+1
: GOSUB '49(0)
: IF STR(E$(),1307,160)<>" "THEN 1240
: IF D6+4>56THEN GOSUB 1860
: ELSE GOSUB 1920
: E$="No Record Selection (RANGE) Criteria is specified for this"
: IF C5$="B"THEN E$=E$&" program"
: ELSE E$=E$&" report"
: GOSUB '48(10,E$,0)
: D6=D6+1
: GOSUB '49(0)
: GOTO 1420
1240 IF D6+8+VAL(E$(151))-48>56THEN GOSUB 1860
: ELSE GOSUB 1920
: GOSUB '48(10,"Default Record Selection (RANGE) Criteria specified in this
",0)
: IF C5$="B"THEN E$=" program :"
: ELSE E$=" report :"
: GOSUB '48(61,E$,0)
: D6=D6+2
: GOSUB '49(0)
: GOSUB '49(0)
: GOSUB '48(1,"All Fields for RANGE are from Data File",0)
1260 E$=HEX(2022)&STR(E$(),78,8)&HEX(22202D20)&STR(E$(),449,32)
: GOSUB '48(0,E$,0)
: D6=D6+1
: GOSUB '49(0)
: D6=D6+1
: GOSUB '49(0)
: GOSUB '48(1,"Field Description Minimum Value Maxi
mum Value",0)
: D6=D6+1
: GOSUB '49(0)
: Q=1307
: FOR I=1TO VAL(E$(151))-48
: GOSUB '71(E$(1485+I))
: X=VAL(STR(E$,42))
1350 GOSUB '48(1,STR(E$,10,30),30)
: GOSUB '48(31,STR(E$(),Q,X),0)
: GOSUB '48(57,STR(E$(),Q+80,X),0)
: Q=Q+X
: D6=D6+1
: GOSUB '49(0)
: NEXT I
: D6=D6+1
: GOSUB '49(0)
1420 GOSUB '72("Range selection may",774)
: D6=D6+1
: GOSUB '49(0)
: IF E$(1468)<>" "THEN 1490
: IF D6+4>56THEN GOSUB 1860
: ELSE GOSUB 1920
: GOSUB '48(10,"No Record Selection (LOGIC) criteria is specified for this
report",0)
: D6=D6+1
: GOSUB '49(0)
: GOTO 1712
1490 Q=4
: IF E$(1468)<>" "THEN Q=Q+1
: IF E$(1472)<>" "THEN Q=Q+1
: IF E$(1475)<>" "THEN Q=Q+1
: IF E$(1479)=" "THEN Q=Q+1
: IF E$(1482)=" "THEN Q=Q+1
: IF D6+Q>56THEN GOSUB 1860
: ELSE GOSUB 1920
1499 GOSUB '48(10,"Default Record Selection (LOGIC) criteria used in this",0)
: IF C5$="B"THEN E$=" program :"
: ELSE E$=" report :"
: GOSUB '48(57,E$,0)
: D6=D6+2
: GOSUB '49(0)
: GOSUB '49(0)
: GOSUB '48(1,"Key File Field Description Rel Key File Field
Description",0)
: D6=D6+1
: GOSUB '49(0)
1510 Q=1468
: I=1
1520 IF E$(Q)=" "THEN 1710
: GOSUB '71(E$(Q))
: GOSUB '48(1,E$,38)
: GOSUB '48(41,STR(E$(),Q+1,2),0)
: Q=Q+3
: IF E$(Q)<>"V"THEN 1620
: E$="Constant Value Default"
: X=VAL(E$(Q-3))-65
: E$=E$&HEX(2022)&STR(E$(),757+I*20,VAL(E$(1604+X*6)))&HEX(22)
: GOTO 1630
1620 GOSUB '71(E$(Q))
1630 GOSUB '48(44,E$,40)
: D6=D6+1
: GOSUB '49(0)
: I=I+1
: IF I>3THEN 1710
: IF E$(Q+1)=" "THEN 1710
: GOSUB '48(41,STR(E$(),Q+1,3),0)
: D6=D6+1
: GOSUB '49(0)
: Q=Q+4
: GOTO 1520
1710 D6=D6+1
: GOSUB '49(0)
1712 GOSUB '72("Logic selection may",775)
: D6=D6+1
: GOSUB '49(0)
: IF STR(E$(),1486,5)<>" "THEN 1770
: IF D6+4>56THEN GOSUB 1860
: ELSE GOSUB 1920
: GOSUB '48(10,"No Record Sort is specified for this",0)
: IF C5$="B"THEN E$=" program :"
: ELSE E$=" report :"
: GOSUB '48(40,E$,0)
: D6=D6+1
: GOSUB '49(0)
: GOTO 1840
1770 IF D6+6+POS(-STR(E$(),1486,5)<>20)+1>56THEN GOSUB 1860
: ELSE GOSUB 1920
: GOSUB '48(10,"Default Record Sort Criteria specified for this",0)
: IF C5$="B"THEN E$=" program:"
: ELSE E$=" report:"
: GOSUB '48(0,E$,0)
: D6=D6+2
: GOSUB '49(0)
: GOSUB '49(0)
1780 GOSUB '48(20," Description Field From ",0)
: D6=D6+1
: GOSUB '49(0)
: GOSUB '48(20,"Key (as seen by operator) Name File ",0)
: D6=D6+1
: GOSUB '49(0)
: GOSUB '48(20,"--- --------------------- -------- --------",0)
: D6=D6+1
: GOSUB '49(0)
1790 FOR I=1TO POS(-STR(E$(),1486,5)<>20)
: GOSUB '71(E$(1485+I))
: GOSUB '48(21,STR(E$,2,1),0)
: GOSUB '48(25,STR(E$,19,20),0)
: GOSUB '48(48,STR(E$,10,8),0)
: GOSUB '48(58,STR(E$(),78+(VAL(STR(E$,7))-49)*8,8),8)
: D6=D6+1
: GOSUB '49(0)
: NEXT I
1840 D6=D6+1
: GOSUB '49(0)
: GOSUB '72("Sort specification may",776)
: D6=D6+1
: GOSUB '49(0)
: LOAD T#2,"IDS2PR36"1000,1921
1860 E0$()=HEX(01)
: J4=J4+1
: GOSUB '48(0,HEX(0C0D),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)
: D6=1
: GOSUB '49(0)
: GOSUB 1920
: RETURN
1880 DEFFN'71(F9$)
: X=VAL(F9$)-65
: E$=" "&F9$&" "&E$(872+X)&" "&STR(E$(),887+X*8,8)&" "&STR(E$(),1007+X*
20,20)&" "&STR(E$(),1602+X*6,6)
: RETURN
1920 INIT("-")E$
: GOSUB '48(1,E$,0)
: D6=D6+2
: GOSUB '49(0)
: GOSUB '49(0)
: RETURN
1921 DEFFN'72(E$,X)
: GOSUB '48(10,E$,0)
: IF E$(X)<>"Y"THEN GOSUB '48(-1,"not",0)
: GOSUB '48(-1,"be modified by the operator at execution time.",0)
: GOSUB '49(0)
: D6=D6+1
: RETURN
3699 ON ERRORE1$,E2$GOTO 3700
3700 DEFFN'31
: E$="IDS2PR35"
: IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000,
: STOP "ERROR"