image of READY prompt

Wang2200.org

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"