Listing of file='IDS2PU29' on disk='vmedia/701-2725B.wvd.zip'
# Sector 370, program filename = 'IDS2PU29'
1000 REM "IDS2PU29" - FIELD/OPERATION X-REFERENCE UTILITY (-REPORT TYPE 2-) HE
ADING
1005 COM D0,D1
: IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM"
: DIM D0$4
: GOSUB 1160
: PRINT AT(22,15,);BOX(-1,-49);AT(21,27);BOX(-1,-20)
: PRINT AT(21,11);BOX(1,58);" Printing References To Field ";HEX(22);"
";HEX(22);", Field Of"
1090 KEYIN E6$,1090,1100
: GOTO 1140
1100 IF VAL(E6$)<>31THEN 1140
: E$="Cross Reference Cancelled"
: GOSUB 1620
: LOAD T#2,R3$(1)1000,
1140 LOAD T#2,"IDS2PU26"1000,
1160 D0=D0+1
: CONVERT D0TO D0$,(####)
: E0$()=HEX(01)
: E$=HEX(0C0D)
: GOSUB 1620
: D1=0
: E$=" "
: STR(E$,25)="DATA FILE FIELD CROSS-REFERENCE"
: GOSUB 1620
: GOSUB 1620
: E$="Data File "&STR(J0$,,8)&" - "&STR(J0$,9,32)&" "&STR(R2$,,2)&"/"&
STR(R2$,3,2)&"/"&STR(R2$,5,2)&" Page "&D0$
: GOSUB 1620
: GOSUB 1620
1330 E$="File Types:"
: IF J0(1)=1THEN E$=E$&" "&"SCREENS -"
: IF J0(2)=1THEN E$=E$&" "&"REPORTS -"
: IF J0(3)=1THEN E$=E$&" "&"BATCH PROGRAMS -"
: E$=STR(E$,,LEN(E$)-2)
: GOSUB 1620
1360 IF POS(J1$<>HEX(00))+POS(J2$<>HEX(FF))=0THEN 1390
: E$="File Ranges: minimum -"
: IF POS(J1$<>HEX(00))=0THEN E$=E$&"**none**"
: ELSE E$=E$&" "&STR(J1$)&" maximum"
: IF POS(J2$<>HEX(FF))=0THEN E$=E$&"**none**"
: ELSE E$=E$&" "&J2$
: GOSUB 1620
1390 IF POS(J3$<>HEX(00))+POS(J4$<>HEX(FF))=0THEN 1420
: E$="Field Ranges: minimum -"
: IF POS(J3$<>HEX(00))=0THEN E$=E$&"**none**"&" maximum"
: ELSE E$=E$&" "&STR(J3$)&" maximum"
: IF POS(J4$<>HEX(FF))=0THEN E$=E$&"**none**"
: ELSE E$=E$&" "&J4$
: GOSUB 1620
1420 E$=J5$&J6$&J7$
: IF E$=" "THEN 1450
: E$="Version: "&STR(J5$)&" Application: "&STR(J6$)&" Function: "&STR(J7$)
: GOSUB 1620
1450 E$="Total Number Of Data File Fields: "&J9$
: GOSUB 1620
: GOSUB 1620
: E$=" "
: STR(E$,23,1)="T"
: STR(E$,49)="T J Z D F E N # S C B"
: GOSUB 1620
: STR(E$,16)="FILE Y R C"
: STR(E$,49)="Y U F D I K R U X B E G I M F L"
: GOSUB 1620
: E$="FLD"
1570 STR(E$,16)="WHERE P O O LENGTH POSITION P S I E S B Q L E P D R G M
L N"
: GOSUB 1620
: E$=" # FIELD USED E W L MEM RPT BEG END E T L C P D D L C S
T P N A T K"
: GOSUB 1620
1610 E$="--- -------- -------- - -- -- --- --- ---- ---- - - - - - - - - - - -
- - - - - -"
1620 GOSUB '48(0,E$,0)
: GOSUB '49(0)
: D1=D1+1
: E$=" "
: RETURN
3699 ON ERRORE1$,E2$GOTO 3700
3700 DEFFN'31
: E$="IDS2PU29"
: IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000,
: STOP "ERROR"