Listing of file='IDS2PF16' on disk='vmedia/701-2717B.wvd.zip'
# Sector 199, program filename = 'IDS2PF16'
1000 REM "IDS2PF16" - DATA FILE EDITOR - PRINT GENERAL FILE DOCUMENTATION
1010 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM"
: MAT REDIM E2$(24)83
: DATA LOAD DC OPEN T#2,"IDS2sF15"
: DATA LOAD DC #2,E2$(),E2$()
: MAT REDIM E2$(250)9
: GOSUB '43(1)
: F1$=E$
: OR (E$,20)
: MAT REDIM E$(24)83
: GOSUB '39(E$,5)
: DATA LOAD DA T#P,(A)E$()
: MAT REDIM E$(E8)1
: C3=0
: FOR I=49TO 64
: GOSUB '43(I)
: IF E$<>" "THEN C3=C3+1
: NEXT I
1050 E0$()=HEX(01)
: GOSUB '71(HEX(0C))
: GOSUB '49(0)
: GOSUB '63("Now printing doc","umentation."," ")
1060 E$=" Data file "&HEX(22)&STR(E$(),2,8)&HEX(2220)&STR(E$(),22,32)
: GOSUB '71(E$)
: E$=STR(R2$,1,2)&"/"&STR(R2$,3,2)&"/"&STR(R2$,5)&" Page 1 of X"
: GOSUB '48(62,E$,0)
: GOSUB '43(71)
: CONVERT INT((C3+Q+26)/50)+1TO STR(E0$(),83),(#)
: GOSUB '49(0)
: GOSUB '49(0)
1070 GOSUB '71(" Revision number")
: GOSUB '48(-1,STR(E$(),11),5)
: GOSUB '48(32,"Version",0)
: GOSUB '48(52,STR(E$(),54),1)
: GOSUB '48(62,"User class",0)
: GOSUB '48(82,STR(E$(),62),1)
: GOSUB '49(0)
1080 E$=" Last revised "&STR(E$(),16,2)&"/"&STR(E$(),18,2)&"/"&STR(E$(),20,2)
: GOSUB '71(E$)
: GOSUB '48(32,"Application code",0)
: GOSUB '48(50,STR(E$(),55),3)
: GOSUB '48(62,"User ID code",0)
: GOSUB '48(80,STR(E$(),63),3)
: GOSUB '49(0)
1090 GOSUB '71(" Last revised by")
: GOSUB '48(-3,STR(E$(),447),3)
: GOSUB '48(32,"Function code",0)
: GOSUB '48(49,STR(E$(),58),4)
: GOSUB '48(62,"Password",0)
: GOSUB '48(75,STR(E$(),66),8)
: GOSUB '49(0)
: GOSUB '49(0)
1100 GOSUB '71(" Read user class = . User ID code = ... Write user class =
. User ID code =")
: FOR I=0TO 1
: GOSUB '48(I*42+21,STR(E$(),I*4+74),1)
: GOSUB '48(I*42+38,STR(E$(),I*4+75),3)
: NEXT I
: GOSUB '49(0)
: GOSUB '49(0)
: GOSUB '48(12,"T",0)
: GOSUB '48(68,"P D",0)
: GOSUB '49(0)
1122 GOSUB '48(12,"Y",0)
: GOSUB '48(65,"K A P A K",0)
: GOSUB '49(0)
: GOSUB '48(12,"P",0)
: GOSUB '48(65,"E C T T I SORT ",0)
: GOSUB '49(0)
: GOSUB '71(" KEY FILE E FIELD FIELD FIELD FIELD FIELD
Y K R A E ARRAY")
: GOSUB '49(0)
1140 GOSUB '71(" -------- - --------- --------- --------- --------- ---------
-- -- - -- -- -----")
: GOSUB '49(0)
: FOR J=0TO 16
: GOSUB '43(J+48)
: IF E$=" "THEN 1180
: GOSUB '48(3,E$,8)
: OR (E$,20)
: GOSUB '39(E$,5)
: IF Q>0THEN 1160
: GOSUB '48(-1,"- FILE NOT CURRENTLY AVAILABLE",0)
: GOSUB '49(0)
: GOTO 1180
1160 MAT REDIM E$(6)83
: DATA LOAD DA T#P,(A)E$()
: GOSUB '48(-1,STR(E$(),10),1)
: FOR I=108TO 176STEP 17
: GOSUB '48(-1,STR(E$(),I+16),1)
: GOSUB '48(0,STR(E$(),I),8)
: NEXT I
: GOSUB '48(-1,STR(E$(),193),2)
: FOR I=44TO 47
: GOSUB '43(I)
: GOSUB '48(LEN(E$)-2-ABS(SGN(45-I)),E$,0)
: NEXT I
1165 X=(VAL(STR(E$(),416))+VAL(STR(E$(),417))+4)*(VAL(STR(E$(),435),2)+1)
: CONVERT XTO E$,(########)
: STR(E$,9)="X"
: STR(E$,1,POS(E$>30)-1)=" "
: GOSUB '48(78,STR(E$,4),5)
: GOSUB '49(0)
: GOSUB '43(48)
: OR (E$,20)
: MAT REDIM E$(24)83
: GOSUB '39(E$,5)
: DATA LOAD DA T#P,(A)E$()
: MAT REDIM E$(E8)1
1180 NEXT J
: GOSUB '49(0)
: E$=F1$
: OR (E$,20)
: MAT REDIM E$(24)83
: GOSUB '39(E$,5)
: DATA LOAD DA T#P,(A)E$()
: MAT REDIM E$(E8)1
: GOSUB '71(" Record statistics: Numeric =")
: GOSUB '48(-1,STR(E$(),97),4)
: GOSUB '48(-2,"Records currently on file =",0)
: GOSUB '48(-1,STR(E$(),458),8)
: GOSUB '49(0)
1210 GOSUB '71(" No. of fields =")
: GOSUB '48(-2,STR(E$(),480),3)
: GOSUB '48(-1," Upper case =",0)
: GOSUB '48(-1,STR(E$(),101),4)
: GOSUB '48(-2,STR(E$(),466),6)
: GOSUB '48(0,"% full as specified @",0)
: GOSUB '48(-1,STR(E$(),201),8)
: GOSUB '49(0)
1220 GOSUB '71(" Record length =")
: GOSUB '48(-1,STR(E$(),93),4)
: GOSUB '48(-1," Packed length =",0)
: GOSUB '48(-1,STR(E$(),218),4)
: GOSUB '48(-2,STR(E$(),472),6)
: GOSUB '48(0,"% full as provided @",0)
: GOSUB '48(-1,STR(E$(),209),8)
: GOSUB '49(0)
: GOSUB '49(0)
1230 GOSUB '71(" Key to field attribute description column headings:")
: GOSUB '49(0)
: GOSUB '71(" FIELD = Field name")
: GOSUB '49(0)
: GOSUB '71(" POS = Position in record of first character in field")
: GOSUB '49(0)
: GOSUB '71(" LEN = Length of field")
: GOSUB '49(0)
1270 GOSUB '71(" T = Type of field as follows: 0 = Digits only 4 =
Upper case letterd")
: GOSUB '49(0)
: GOSUB '48(39,"1 = Digits & signs 5 = U/C letters & digits",0)
: GOSUB '49(0)
: GOSUB '48(39,"2 = Digits & dec pt 6 = U/C numerics & punct",0)
: GOSUB '49(0)
1300 GOSUB '48(39,"3 = Any numeric 7 = Any character",0)
: GOSUB '49(0)
: GOSUB '71(" J = Justification (blank if left justified, 'R' if righ
t)")
: GOSUB '49(0)
: Q=C3
: LOAD DC T#2,"IDS2PF17"1000,
1370 DEFFN'71(E4$())
: GOSUB '48(0,E4$(),0)
: RETURN
3699 ON ERRORE1$,E2$GOTO 3700
3700 DEFFN'31
: E$="IDS2PF16"
: IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000,
: STOP "ERROR"