Listing of file='B327040' on disk='vmedia/bsc_3271_rel_1.14.04.wvd.zip'
# Sector 1036, program filename = 'B327040' 0010 REM B327040 12/22/82 3270 Open Spooler files for Off-Line 0012 LOAD DC T#0,"32WPCAT "4000,9999BEG 50 0013 COM R1$1,U0,U0(23),U0$3,U3$1,U4,U4$4,U5(10),U6,U8,V0,V2,V5,V5(9),V5$(160) 1,V6,V6(9),V9,V9(9) : COM U1$(16)16,U7,U7$68,U8$,U9$,V0,V1,V3,V4$1,V7(10),V8 : COM D0,D0(4),S0$8,S$8,D1$3,M$2,D,E0$(5)1,R9$,R2$ : COM H,T,U0,U3,U4,U5,U6,U8,U9,V2,V5,V9,U : COM C9$(16)16 0022 DIM R1$1,U2$(16)4,V0$(1)1 : DIM I,M : DIM M$2,E$(5)80,F$(99)4,D9,B1,B2 : DIM D1$(4),E1$(20)16,A2$(16)4,K1$20,E$80 0050 A=1 : $PSTAT=" " : N$=B$ : IF B$<>"D"THEN 58 : N$="Delete" : N$(5)="B327045" 0054 A$=$PSTAT(A) : ERRORGOTO 80 0056 AND (STR(A$,,8),7F) : IF STR(A$,,8)="Delete"OR STR(A$,,4)="List"THEN 70 : A=A+1 : GOTO 54 0058 N$(5)="B327041" : IF B$="P"THEN N$(5)="B327043" : IF B$<>"R"THEN 60 : N$(5)="B327061" : B$="L" 0060 IF B$="Q"THEN N$="Lookat Q" : IF B$="P"THEN N$="ListViaQ" : IF B$<>"L"THEN 80 : N$="Listing" 0064 A$=$PSTAT(A) : ERRORGOTO 80 0066 IF STR(A$,,8)="Delete"THEN 70 : A=A+1 : GOTO 64 0070 BIN(C$)=VAL(STR(A$,15))+48 : STR(A$,9)=" active on terminal "&C$ : GOSUB '99(10,A$) : GOTO 1180 0080 $PSTAT=N$ : SELECT @PART"3270UNIV" : %.ERR X77 shows 3270UNIVersal not loaded into partition 1 0090 GOSUB 2010 : SELECT CI 001,INPUT 001,LIST 005(80),CO 005(80),PRINT 005(80) : INIT(0A)D8$ : STR(D8$,1,1)=HEX(01) : IF B$<>"P"THEN 100 : E$=A$ : B$="L" : GOTO 110 0100 GOSUB 1000 0110 ON IGOTO 140 : S$=STR(E$,5) : D1$=STR(E$,14) : ON VAL(E$)-48GOTO 170,200,140 : STOP # 0140 GOSUB 1100 : GOTO 100 0170 IF STR(@P$(5),24,9)<>"Active"THEN 180 : IF B$<>"D"THEN 175 0172 STR(@P$(5),24,9)=N$&" "&BIN(#TERM+48) 0175 E0$(5)="A" : GOTO 220 0180 IF B$<>"D"THEN 185 : C$=STR(@P$(5),31,1) : IF #TERM=VAL(C$)-48THEN 172 : A$="Delete of the on-line file was requested from terminal "&C$ : GOSUB '99(10,A$) : GOTO 50 0185 GOSUB '99(10,"On-line file not now active") : GOTO 50 0200 E0$(5)="P" 0220 DIM Y$(4)62 : A=VAL(STR(@C$,24))-65 : DATA LOAD DC OPEN T#0,"3270CALL" : IF A<1OR A>14THEN 240 : DSKIP #0,A 0240 DATA LOAD DC #0,Y$() : R9$=STR(Y$(),193,16) : R2$=STR(Y$(),209,16) : E$(5)=@P$(5) : SELECT PRINT 005(80) : SELECT #4005,#9001 : A$="Opening Spooled Files for "&STR(N$,,LEN(N$))&" Utility" : GOSUB '99(0,A$) : PRINT TAB(28);"File is ";S$;" on ";D1$ : GOSUB 3260 : SELECT #2<D1$> : GOSUB 1995 : IF N$="Delete"THEN 380 : IF N$="Listing"THEN 570 : MAT COPY E1$()TO C9$() 0348 D0=4 : IF N$="Lookat Q"THEN LOAD T#0,"B327055" : IF N$="ListViaQ"THEN LOAD T#0,"B327042" : STOP "What exit"# 0380 IF STR(@P$(5),24,6)<>N$THEN 570 : FOR A=1TO 4 : IF STR(@A$,20+A,1)=" "OR STR(@P$(A),6,1)<>"D"THEN 420 : STR(N$,20+A)=STR(@A$,20+A,1) : STR(@A$,20+A,1)=" " 0420 NEXT A : FOR A=1TO 4 0450 $BREAK : IF STR(N$,20+A,1)=" "THEN 470 : IF STR(@P$(A),24,1)<>"D"THEN 450 0470 NEXT A : FOR A=1TO 4 0500 $BREAK : IF STR(N$,20+A,1)=" "THEN 520 : IF @T$(A+8)<>HEX(00)THEN 500 0520 NEXT A : GOSUB '99(10,"Streams detached for duration of Delete") 0570 COM CLEAR U : LOAD T#0,"B327040L" 0900 DEFFN'99(A,A$) : PRINT HEX(03);BOX(5,79);HEX(0A0A0E);TAB(40-LEN(A$)/2);A$ : IF A=0THEN RETURN : SELECT P2 : FOR A=ATO 0STEP -1 : PRINT A;HEX(0C) : NEXT A : SELECT P : RETURN 1000 PRINT HEX(030E);" Wang 2200 / 3270 ";N$;" Utility" : PRINT "TO OPERATE -- Press S.F. KEY or DIGIT corresponding to name," : PRINT "or position # via RETURN, SPACE or BACKSPACE and key RUN" : GOSUB 1470 : D=5 : D1=2 : A=1 : ON IGOTO 1080 1060 % ' ## to ############################################################# ####### 1070 GOSUB 1200 1080 IF A>0THEN C$,E$=E1$(A) : RETURN 1100 PRINT HEX(030E);" Wang 2200 / 3270 ";N$;" Utility -- WPSYSTEM's other f ile names" : PRINT " TO OPERATE -- Key '0 to exit Key other key to return to prior d isplay" : GOSUB 1670 : PRINT AT(1,0);BOX(1,79) : KEYIN C$,,1140 : RETURN 1140 IF C$>HEX(00)THEN RETURN 1180 DEFFN'0 : W$=" " : COM CLEAR B$ : LOAD T#0,N$(1) 1200 DIM A$(1)12 : A$(1)=HEX(080D2082313233343536373839) : A=1 : GOTO 1370 1240 KEYIN C$,,1410 : MAT SEARCHA$(),=C$TO M$ : C=VAL(STR(M$,2)) : IF C=0THEN 1240 : PRINT STR(D8$,1,A+D-1);BOX(-1,-68);TAB(D1+1) : ON CGOTO 1360,1340,1340,1440 : AND (C$,0F) : GOTO 1410 1340 A=A+1 : IF A<=ITHEN 1370 : A=1 : GOTO 1370 1360 A=A-1 : IF A>0THEN 1370 : A=I 1370 PRINT STR(D8$,1,A+D-1);BOX(1,68);TAB(D1);"#";HEX(08); : SELECT PRINT 005 : GOTO 1240 1410 IF C$=HEX(00)THEN 1180 : C=VAL(C$) : IF C>ITHEN 1370 : PRINT STR(D8$,1,A+D-1);BOX(-1,-68);TAB(D1+1) : A=C 1440 PRINT STR(D8$,1,A+D-1);BOX(1,7);TAB(D1);"*"; : RETURN 1470 I=0 : B2,B3=1 : PRINT : GOSUB '246(1) : GOSUB 1640 : IF @C$=" "THEN @P$(5)=" " : IF @P$(5)=" "OR STR(@P$(5),41,1)="N"THEN 1520 : E$="1...use ' ' on xxx -- the active On-Line Spooler file" : STR(E$,10,8)=STR(@P$(5),66,8) : STR(E$,23,3)=STR(@P$(5),55,3) 1506 I=I+1 : E1$(I)=E$ : STR(E1$(I),5)=STR(E$,10) : STR(E1$(I),14)=STR(E$,23) 1510 A$=STR(E$,5) : PRINTUSING 1060,I,A$ 1520 E$="2...use ' ' on xxx -- Available Off-line Spooler file" : STR(E$,10,8)=STR(U1$(B2),1,8) : STR(E$,23,3)=STR(U2$(B2),1,3) : GOSUB 1820 : IF K1$<>"Yes"THEN 1565 : IF STR(@P$(5),66,8)=STR(E$,10,8)THEN 1565 : I=I+1 : E1$(I)=E$ : STR(E1$(I),5)=STR(E$,10) : STR(E1$(I),14)=STR(E$,23) 1560 B2=B2+1 : IF 1=INT(B2/16)THEN 1580 : IF I<19THEN 1510 : GOTO 1590 1565 B2=B2+1 : IF 1=INT(B2/16)THEN 1580 : GOTO 1520 1580 IF K1$=" "THEN 1590 : B3=B3+16 : GOSUB 1640 : B2=1 : GOTO 1520 1590 IF B2=ITHEN RETURN : E$="3...see 'WPSYSTEM's other spooler file names" : B3=1 : GOSUB 1640 : E1$(I+1)=E$ : I=I+1 : A$=STR(E$,5) : PRINTUSING 1060,I,A$ : E$="2...use ' ' on xxx -- Available Off-line Spooler file" 1640 U1$(),U2$()=" " : GOSUB '236(16,B3) : RETURN 1670 B2=1 : I=0 : PRINT : GOSUB '246(1) : GOSUB 1640 1710 E$="2...' ' on xxx -- " : STR(E$,6,8)=STR(U1$(B2),1,8) : STR(E$,19,3)=STR(U2$(B2),1,3) : GOSUB 1820 : IF K1$="Yes"THEN 1760 : STR(E$,26)=K1$ : I=I+1 : IF K1$=" "THEN 1750 : A$=STR(E$,5) : PRINTUSING 1780,I,A$ 1750 B2=B2+1 : IF 1=INT(B2/16)THEN 1770 : IF I<16THEN 1710 : STOP # 1760 B2=B2+1 : IF 1=INT(B2/16)THEN 1770 : GOTO 1710 1770 RETURN 1780 % ## is ############################################################# ####### 1820 Z3$=U2$(B2) : K1$=" " : IF Z3$=" "THEN 1840 : GOSUB '200(Z3$,F$()) : ON X4GOSUB 1860,1870,1880,1890 1840 A2$(B2)=K1$ : RETURN 1860 K1$="disk not in table" : RETURN 1870 K1$="disk not configured" : RETURN 1880 K1$="disk is unavailable" : RETURN 1890 K1$="disk not in list" : RETURN 1900 DEFFN'200(Z3$,F$()) : X4=0 : MAT SEARCHF$(),=STR(Z3$,1,3)TO X7$STEP 4 : IF VAL(X7$,2)=0THEN 1980 : SELECT #2<Z3$> : X=0 1915 $OPEN 1970,#2 : ERRORX4=2 : RETURN 1920 $CLOSE#2 : Z$=" " : HEXPACKZ$FROMSTR(Z3$,2,1) : $GIO(731002000301122270A040008600,Z$) : ERRORX=ERR : X4=3 : RETURN 1940 IF STR(Z$,8,1)=HEX(00)THEN 1950 : X4=3 : RETURN 1950 S$=U1$(B2) : LIMITS T#2,S$,A,B1,C,D : ERRORD=1 : K1$="Access error =" : CONVERT ERRTO STR(K1$,16,2),(##) : RETURN 1960 K1$="Yes" : IF D=2THEN 1990 : K1$="File not found" : RETURN 1970 $BREAK1 : X=X+1 : IF X<99THEN 1915 : X4=2 : RETURN 1980 X4=4 : RETURN 1990 IF C<200OR B1-A+1-C<>0THEN K1$="Improper file found" : IF K1$<>"Yes"THEN RETURN 1995 S0$=S$ : OR (STR(S0$,8,1),80) : LIMITS T#2,S0$,A,B1,C,D : IF D=2THEN RETURN : K1$="No report names file" : RETURN 2010 F$()="310 320 330 340 350 360 370 B10 B20 B30 B40 B50 B60 B70 D10 D11 D12 D13 D14 D15 D20 D21 D22 D23 D24 D25 D30 D31 D32 D33 D34 D35 D50 D51 D52 D53 D54 D55 D60 D61 D62 D63 D64 D65 D70 D71 D72 D73 D74 D75" : RETURN 3260 GOSUB '246(1) : D1$(1)="STRM.1" : D1$(2)="STRM.2" : D1$(3)="STRM.3" : D1$(4)="STRM.4" : B$=HEX(01) : FOR D9=1TO 4 : GOSUB '211(D1$(D9),S$,"3270",B$) : ON POS(HEX(00)=R1$)+1GOTO ,3330 : GOSUB 3900 : GOSUB '99(3,A$) : D9=4 : NEXT D9 : INPUT "key 1 to loop",B$ : IF B$="1"THEN 3260 : RETURN CLEAR : GOTO 90 3330 D0(D9)=V3 : NEXT D9 : RETURN 3900 RESTORE LINE3902,POS(HEX(010203040506070809102022232425262728505152535455 565758595A5B5C5D5E5F60616263)=R1$) : READ A$ : PRINT HEX(07) : RETURN 3902 DATA "Volume Full","File or Volume already exists","Spooler File does not exist","No Free Device Slots","Incorrect Password","Open access type err or","File not Open","Illegal File ID","Not enough room in file","File mes s up","EOF Reached - Unexpected" 3904 DATA "Destination VAU not Valid","Buffer Variables not Valid","No VAUs in File","Source & VAU # Inconsistent","Volume init parameter inconsistent" ,"Byte parameter error in replace","EOF reached - Expected" 3906 DATA "Disk File not Open","Disk File Full","Disk File not in Catalog","Di sk File Already Cataloged","Disk File not Scratched","Catalog Index Full" ,"Catalog End Error","No End-of-File","Wrong Record Type Read","Sector Ad dress beyond End-of-File" 3909 DATA "Disk Hardware Error","Disk Hardware Error","Timeout Error","Disk Fo rmat Error","Format Key Engaged","Disk Device Error","Data Error","LRC Er ror","Illegal Sector Address or Platter not Mounted","Read-After-Write Er ror"