Listing of file='ddu.005l' on disk='vmedia/701-2720C.wvd.zip'
# Sector 810, program filename = 'ddu.005l'
1045 COM B1$1,K8$(500)1,P$(2)120,P1$(120)1,P2$(120)1,C3$,A1$20,A2$20,A3$20,A4$
4
1050 COM R9$(10)8,R9$1,R9,I9,I9$24,I9(5),I9$(4)8,I8$3
: LOAD T"DDA.VARC"0,0BEG 1060
1060 LOAD T"DDA.DAT"7000,7999BEG 1065
1065 GOSUB '140(3,"150152156")
: IF R9$<>HEX(00)THEN 1730
: LOAD T<R9>R9$()7050,7999BEG 1075
1075 IF STR(K9$,1,6)=" "THEN 1750
: IF VAL(STR(K9$,7,1))<1OR VAL(STR(K9$,8,1))<8THEN 1750
: IF STR(K9$,7,2)<>" "THEN 1100
: C3$="@MENU "
: GOTO 1130
1100 IF STR(K9$,VAL(STR(K9$,7,1)),8)<>" "THEN 1110
: C3$="@MENU "
: GOTO 1115
1110 C3$=STR(K9$,VAL(STR(K9$,7,1)),8)
: GOTO 1115
1115 C8=VAL(STR(K9$,7,1))
: C9=VAL(STR(K9$,8,1))
: MAT COPY -K9$<C8+8,C9-8>TO -K9$<C8,C9-8>
: STR(K9$,C8+C9-8,8)="@MENU "
1130 GOSUB '150("1 12142 2324283 3233344 4243")
: IF M<>0THEN 1770
1140 LINPUT "Enter file name within Data Dictionary-",?-A1$
: GOSUB '152("KY","1"," ",A1$," "," "," ")
: IF M<>52THEN 1165
: PRINT HEX(07);"File not found - retry";
: GOTO 1140
1165 IF M<>0THEN 1770
: SELECT PRINT /215(132)
: PRINT "FILE DEFINITION:"
: PRINT
: GOSUB '90(97)
: GOSUB '152("NX","1","2"," "," "," "," ")
: IF M<>0THEN 1770
: A2$=M5$
: PRINT "FILE/RECORD RELATIONSHIP:"
: PRINT
: GOSUB '90(16)
: GOSUB '152("KY","2"," ",A2$," "," "," ")
: IF M<>0THEN 1770
: PRINT "RECORD DEFINITION:"
: PRINT
: GOSUB '90(97)
1245 GOSUB '152("NX","2","3"," "," "," "," ")
: IF M=64THEN 1395
: IF M<>0THEN 1770
: A3$=M5$
: PRINT "RECORD/FIELD RELATIONSHIP:"
: PRINT
: GOSUB '90(16)
: GOSUB '152("KY","3"," ",A3$," "," "," ")
: IF M<>0THEN 1770
: PRINT "FIELD DEFINITION:"
: PRINT
: GOSUB '90(57)
: GOSUB '152("KY","3","2",A3$," ",A2$," ")
: IF M<>0THEN 1770
1315 PRINT "FIELD/RECORD DEFINITION:"
: PRINT
: GOSUB '90(16)
1330 GOSUB '152("NX","3","3"," "," "," "," ")
: IF M=64THEN 1365
: IF M<>0THEN 1770
: PRINT "FIELD/FIELD RELATIONSHIP:"
: PRINT
: GOSUB '90(16)
: GOTO 1330
1365 GOSUB '152("NX","3","4"," "," "," "," ")
: IF M=64THEN 1245
: IF M<>0THEN 1770
: PRINT "FIELD/INDEX RELATIONSHIP:"
: PRINT
: GOSUB '90(21)
: GOTO 1365
1395 GOSUB '152("NX","1","4"," "," "," "," ")
: IF M=64THEN 1536
: IF M<>0THEN 1770
: A4$=M5$
: PRINT "FILE/INDEX RELATIONSHIP:"
: PRINT
: GOSUB '90(21)
: GOSUB '152("KY","2","4",A2$," ",A4$," ")
: IF M<>0THEN 1770
: PRINT "RECORD/INDEX RELATIONSHIP:"
: PRINT
: GOSUB '90(21)
: GOSUB '152("KY","4","2",A4$," ",A2$," ")
: IF M<>0THEN 1770
1465 PRINT "INDEX/RECORD RELATIONSHIP:"
: PRINT
: GOSUB '90(21)
: GOSUB '152("KY","4"," ",A4$," "," "," ")
: IF M<>0THEN 1770
: PRINT "INDEX DEFINITION:"
: PRINT
: GOSUB '90(113)
1505 GOSUB '152("NX","4","3"," "," "," "," ")
: IF M=64THEN 1395
: IF M<>0THEN 1770
: PRINT "INDEX/FIELD RELATIONSHIP:"
: PRINT
: GOSUB '90(21)
: GOTO 1505
1536 PRINT "COMMON FIELD DATA STRUCTURE:"
1540 MAT REDIM K8$(500)1
: GOSUB '152("NX","2","8"," "," "," "," ")
: IF M=64THEN 1630
: IF M<>0THEN 1770
: MAT REDIM K8$(13)35
: PRINT "NAME:";M5$
: FOR C3=1TO 13
: HEXUNPACKSTR(K8$(C3),1,35)TO P$()
: C5=0
: FOR C4=1TO 70STEP 2
: C5=C5+1
: P1$(C5)=STR(P$(),C4,1)
: P2$(C5)=STR(P$(),C4+1,1)
: NEXT C4
1607 $TRAN(K8$(C3),HEX(200120022003200420052006200720082009200A200B200C200D))R
: PRINT " ASCII:";K8$(C3)
: PRINT " HEX:";STR(P1$(),1,35)
: PRINT " ";STR(P2$(),1,35)
: NEXT C3
: GOTO 1540
1630 SELECT PRINT /005(80)
: GOSUB '156("AL")
1640 C5$=C3$
1645 COM CLEAR B1$
: LOAD TC5$
1655 DEFFN'90(L)
: HEXUNPACKSTR(K8$(),1,L)TO P$()
: D=0
: FOR D1=1TO (L*2)STEP 2
: D=D+1
: P1$(D)=STR(P$(),D1,1)
: P2$(D)=STR(P$(),D1+1,1)
: NEXT D1
: $TRAN(K8$(),HEX(200120022003200420052006200720082009200A200B200C200D))R
: PRINT " KEY: ";STR(M2$,1,20);STR(M5$,1,20)
: PRINT " ASCII RECORD: ";STR(K8$(),1,L)
1705 PRINT " HEX. RECORD: ";STR(P1$(),1,L)
: PRINT " ";STR(P2$(),1,L)
: PRINT
: RETURN
1730 SELECT PRINT /005(80)
: PRINT AT(23,0,);HEX(07);"ERROR OCCURRED DURING SOFTWARE SELECTION"
: GOTO 1640
1750 SELECT PRINT /005(80)
: PRINT AT(23,0,);HEX(07);"INVALID COMMON INFO. BUFFER"
: C5$="@MENU"
: GOTO 1645
1770 SELECT PRINT /005(80)
: GOSUB '140(1,"160")
: IF R9$<>HEX(00)THEN 1730
: LOAD T<R9>R9$()7050,7999BEG 1790
1790 GOSUB '160(1,"ddu.005l"," ")
: GOTO 1640