Listing of file='IDS2PS26' on disk='vmedia/701-2716B.wvd.zip'
# Sector 953, program filename = 'IDS2PS26'
1000 REM "IDS2PS26" - Release 2.1 - SCREEN/REPORT/BATCH SET FIELD SPECIFICATIO
NS
1010 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM"
: CONVERT VAL(STR(E$(),78))-31TO STR(E$(),2073,2),(##)
: IF E0$="IDS2sS34"THEN 1030
: GOSUB '32("IDS2sS34")
: GOSUB '36
1030 STR(F6$(),11,4)=ALL("Y")
: IF STR(E$(),98,1944)<>" "THEN 2000
1040 F=9
1050 F=F+1
: IF F>F0THEN 2000
: IF F<>10THEN 1070
: GOSUB '43(10)
: IF E$=" "THEN GOSUB '45(10,"N")
: GOTO 1070
1065 GOSUB '45(F," ")
1070 GOSUB '34(F)
: ON F-8GOTO 2100,1090,,1100
: IF F<13THEN 1050
: X=MOD(F-13,16)+1
: ON XGOTO 1120,1130,1140,1150,1130,1140,1150,1130,1140,1150,1130,1140,1150
,1130,1140,1150
1090 IF E$="Y"THEN 1050
: GOSUB '45(11," ")
: GOSUB '45(12," ")
: F=12
: GOTO 1050
1100 IF E$="Y"OR E$="N"THEN 1050
: GOSUB '35("Must be 'Y' or 'N'")
: GOTO 1065
1120 IF E$=" "THEN 1125
: GOSUB 2120
: MAT SEARCHE3$(),=STR(E$,,8)TO F9$
: IF F9$>HEX(0000)OR VER(E$,"@TSTFLD#")=8OR E$="@SYSBUF0"THEN 1050
1122 GOSUB '35("Invalid field name")
: GOTO 1065
1125 FOR I=FTO 12+INT((F+4)/16)*16
: GOSUB '45(I," ")
: NEXT I
: GOTO 2000
1130 ON POS(" FC"=E$)GOTO 1132,1050,1050
: GOSUB '35("Must be 'F', 'C', or blank")
: GOTO 1065
1132 IF F<>14AND F<>30AND F<>46AND F<>62THEN 1125
: GOSUB '35("Required field")
: GOTO 1065
1140 GOSUB '43(F-1)
: IF E$="C"THEN 1050
: GOSUB '43(F)
: IF E$=" "THEN 1122
: GOSUB 2120
: MAT SEARCHE3$(),=STR(E$,,8)TO F9$
: IF F9$=HEX(0000)AND VER(E$,"@TSTFLD#")<8AND E$<>"@SYSBUF0"THEN 1122
: GOTO 1050
1150 IF E$=" "THEN 1125
: IF E$="+"OR E$="&"OR VER(E$,"# ")=2OR VER(E$,"##")=2THEN 1152
1151 GOSUB '35("Invalid specification")
: GOTO 1065
1152 IF E$="0"OR E$="00"OR E$>"80"THEN 1151
: IF F=28OR F=44OR F=60OR F=76THEN 2000
: GOTO 1050
2000 F0$=", EXEC = Accept, EDIT = Modify,"
: IF J9=1THEN F0$=F0$&" FN'9 = Delete,"
: F0$=F0$&" FN'31 = Cancel"
: GOSUB '63("FN'1-4 = Results",F0$," ")
: GOSUB '34(250)
: IF Q>0AND Q<5THEN 2070
: IF Q=33THEN 1040
: IF Q=32THEN LOAD T#2,"IDS2PS28"1000,
: IF Q=9THEN 2080
: GOTO 2000
2070 F=Q*16-4
: GOTO 1050
2080 IF Q=9AND J9<>0THEN 2090
: PRINT HEX(07);
: GOTO 2000
2090 F6$(14)="N"
: STR(E$(),2042)=" "
: FOR I=1TO 9
: C9$=STR(E$(),82,16)&E$(78)&E$(76)&BIN(I+47)
: Q=0
: IF I=1OR F6$(42+I)="Y"THEN GOSUB '41(E1$(2),C9$,.5)
: F$()=" "
: IF Q<>0THEN GOSUB '42(E1$(2),0)
: NEXT I
: F6$(14)="Y"
: LOAD T#2,"IDS2PS18"1000,
2100 F5$="IDS2PS26"
: LOAD T#2,"IDS2PS96"1000,
2110 F5$="IDS2PS26"
: LOAD T#2,"IDS2PS96"1000,
2120 MAT REDIM E3$(24)83
: IF C5$="S"THEN I=51
: ELSE I=17
: DATA LOAD DA T#3,(E4+I)E3$()
: MAT REDIM E3$(249)8
: RETURN
2130 STOP #
: ON ERRORE1$,E2$GOTO 3700
3700 DEFFN'31
: E$="IDS2PS26"
: IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000,
: STOP "ERROR"