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"