image of READY prompt

Wang2200.org

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"