{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: RETURNIT867)}}
====== RETURNIT867 ======
(George Source)
**Macros used:** [[george:macro:BUDGINCR|BUDGINCR]], [[george:macro:CLOSBUDG|CLOSBUDG]], [[george:macro:CLOSETOP|CLOSETOP]], [[george:macro:CONSERNO|CONSERNO]], [[george:macro:DELETE|DELETE]], [[george:macro:DFLOAD|DFLOAD]], [[george:macro:DFSET|DFSET]], [[george:macro:DOWN|DOWN]], [[george:macro:FC|FC]], [[george:macro:FINDPEREC|FINDPEREC]], [[george:macro:FSHENTRY|FSHENTRY]], [[george:macro:GEOERR|GEOERR]], [[george:macro:HUNT|HUNT]], [[george:macro:JALLOC|JALLOC]], [[george:macro:JWPR|JWPR]], [[george:macro:LMODEQ|LMODEQ]], [[george:macro:LONGON|LONGON]], [[george:macro:LONGSET|LONGSET]], [[george:macro:LONGSTOP|LONGSTOP]], [[george:macro:MBC|MBC]], [[george:macro:MENDAREA|MENDAREA]], [[george:macro:MFREE|MFREE]], [[george:macro:MHUNT|MHUNT]], [[george:macro:MTINFORM|MTINFORM]], [[george:macro:NAME|NAME]], [[george:macro:NAMETOP|NAMETOP]], [[george:macro:OPEN|OPEN]], [[george:macro:OPENBUDO|OPENBUDO]], [[george:macro:OPENDIR|OPENDIR]], [[george:macro:OPENSYS|OPENSYS]], [[george:macro:OUTPARAM|OUTPARAM]], [[george:macro:READAGAIN|READAGAIN]], [[george:macro:REWRITE|REWRITE]], [[george:macro:SEGENTRY|SEGENTRY]], [[george:macro:SETALLOC|SETALLOC]], [[george:macro:SETNCORE|SETNCORE]], [[george:macro:SSCOR|SSCOR]], [[george:macro:SSEARCH|SSEARCH]], [[george:macro:STEP|STEP]], [[george:macro:SUICIDE|SUICIDE]], [[george:macro:TESTREP|TESTREP]], [[george:macro:TOPFCB2|TOPFCB2]], [[george:macro:UNLOAD|UNLOAD]], [[george:macro:UP|UP]]
22FL #LIS K0RETURNIT>K0LIBRARY>K0ALLGEO
22^= #SEG RETURNIT65 [N.R.BOULT
2357 ...[
2394 ...[ (C) COPYRIGHT INTERNATIONAL COMPUTERS LTD 1982
23#^ ...[
23DW 8HRETURNIT
23YG SEGENTRY K1RETURNIT,QK1RETURNIT
2435 ...#
245N ... FSHENTRY K2RETURNIT,QK2RETURNIT,QK2RETURNIT,QK2RETURNIT
248? ... FSHENTRY K3RETURNIT,,,
24=W ... FSHENTRY K4RETURNIT,,,
24*F ...#
24D6 TLANG 4HC1
24XQ SPOOL 12HPOOL TAPE ,0,0,0
254Y ...#UNS JMODGCR
25=6 ...#SKI
25CB ...SBITS #21560000
25X2 OPADD #10000000
26BL QK1RETURNIT
26W= XBEG
27*W HUNT 3,FILE,ENT
27TG LDX 6 ESER(3)
28*6 BZE 5 RET [J. IF NOT REQUESTED
28SQ READAGAIN 1
29#B HUNT 3,FILE,FRB
29S2 NAME 3,FILE,FWB
2=?L LDCT 0 #400
2=R= ORS 0 A1+5(3) [MARK TO-BE-RETURNED
2?=W REWRITE 1
2?QG MFREE FILE,FWB
2#=6 HUNT 3,FILE,ENT
2#PQ NAME 3,FILE,FWB
2*9B LDCT 0 #40
2*P2 ORS 0 EINF2(3) [MARK TO-BE-ERASED
2B8L REWRITE
2BN= MFREE FILE,FWB
2C7W BNG 7 RETB [J. IF RETURNB
2CMG CLOSETOP [DIRECTORY
2D76 CLOSETOP [SERIAL
2DLQ SUICIDE
2F6B RETB
2FL2 UP
2G5L RET
2GK= LDX 0 CPPTR(2) [TAPE ALLOCATED TO ACTIVITY
2H4W BNZ 0 NLD
2HJG FINDPEREC 3,APTSER,6 [TAPE LOADED?
2J46 BNG 3 NLD [J. IF NOT
2JHQ JALLOC 3,XALLOC
2K3B SETALLOC 3 [MARK ALLOCATED
2KH2 STO 3 CPPTR(2)
2L2L NLD READAGAIN 1
2LG= HUNT 3,FILE,FRB
2L^W LDX 5 A1+5(3)
2MFG STO 5 AWORK1(2) [SAVE WD5 OF SYS.SER RECORD
2M^6 ANDX 5 OPADD(1)
2NDQ BNZ 5 XDD [J.IF TO-BE-DEADED
2NYB MHUNT 1,FILE,ENT
2PD2 LDX 5 ELOC1(1)
2PXL LDX 4 ENUSE(1) [NO OF RECORDS
2QC= BZE 4 XDEL2 [J IF NO TRAP RECORDS
2QWW XDEL
2RBG STEP [POSITION AT END OF ENTRY
2RW6 BCT 4 XDEL
2S*Q MHUNT 1,FILE,ENT
2STB LDX 4 ENUSE(1) [NUMBER OF TRAP RECORDS
2T*2 XDEL2
2TSL ADN 4 1
2W#= XDEL1
2WRW DELETE
2X?G BCT 4 XDEL1 [DELETE ENTRY BACKWARDS
2XR6 LONGON #12,5 [NAME NOW AVAILABLE
2Y2Y ...WASDONINA
2Y=Q MHUNT 3,FILE,FRB
2YQB NAME 3,FILE,FWB
2^=2 STOZ A1+2(3) [ZEROISE USER NAME
2^PL STOZ A1+3(3)
329= STOZ A1+4(3)
32=^ ...#UNS JMODGCR
32#N ...(
32BC ... MBC 3,GSERBRTURN,GSERBDEAD,GSERBNAMWK,GSERBUSWR,GSERBBCKMP
32D6 ... FC 3,GSERFCTREQ
32FT ...)
32HJ ...#UNS JMODGCR
32K? ...#SKI
32M2 ...(
32NW LDX 0 SBITS(1)
338G ANDS 0 A1+5(3) [WORKTAPE,WRONGED,QUERY STATUS LEFT
33D# ...)
33N6 REWRITE 1 [SERIAL ENTRY
347Q MFREE FILE,FWB
34MB LDX 5 AWORK1(2)
3572 SLL 5 1
35LL LDX 0 CPPTR(2)
366= BZE 0 NTUP
36KW BNG 5 WKTP
375G DFSET ,POOL [MARK AS POOL TAPE
37K6 BRN NTUP
384Q WKTP DFSET ,WORK [MARK AS WORKFILE
38JB NTUP BNG 7 RB [RETURNB?
3942 CLOSETOP
39HL CLOSETOP
3=3= BNG 5 WT [J. IF WORK TAPE
3=GW LDN 0 3
3?2G SBX 0 7
3?G6 BZE 0 NWT [RETURNA
3?^Q UPBUG
3#FB CALL 4 XBUDG [UPDATE BUDGETS
3#^2 NWT CONSERNO 6,ACOMMUNE1
3*DL OUTPARAM ACOMMUNE1(2),ACOMMUNE2
3*Y= MTINFORM GRET [NOW A POOL TAPE MESSAGE
3BCW LDX 0 CPPTR(2)
3BXG BZE 0 NUNL [TAPE NOT UP
3CC6 BPZ 7 TSTQ [NOT RETURNB
3CWQ CLOSETOP
3DBB CLOSETOP
3DW2 STO 7 AWORK2(2) [INDICATE FILES CLOSED
3F*L ...TSTQ LDCT 0 #004
3FT= ANDX 0 AWORK1(2)
3G#W BNZ 0 UNLT [J. IF IN QUERY STATUS
3GSG LDX 0 CPPTR(2)
3H#6 LMODEQ 0,1 [CURRENT MODE
3HRQ DFLOAD 0,SMODE,2 [STANDARD MODE
3J?B TXU 1 2
3JR2 BCS UNLT [UNLOAD IF NOT STANDARD
3K=L LDX 1 FX1
3KQ= LDX 2 FX2
3L9W JWPR ,RENMT
3LPG BRN UNLT [NO WPR
3M96 RENMT
3MNQ SETNCORE 7,3,AONBS,GREN
3N8B LDN 0 SPOOL(1)
3NN2 LDN 1 A1+1(3)
3P7L MOVE 0 6
3PM= STO 6 A1(3)
3Q6W STOZ ACOMMUNE2(2)
3QLG DOWN RENAMEMT,3 [TO REHEAD THE TAPE
3R66 BRN UNLT [NO WPR
3RKQ TESTREP TAPEFAIL,XFAIL [FAIL ON RELABELLING
3S5B TESTREPN OK,UNLT
3SK2 UNLOAD ,,,RET
3T4L BRN XLONG
3TJ= XFAIL
3W3W CONSERNO 6,ACOMMUNE1
3WHG OUTPARAM ACOMMUNE1(2),ACOMMUNE2
3X36 MTINFORM FAILPT [INFORM TAPE NOT REHEADED
3XGQ UNLT
3Y2B UNLOAD ,,,UNL [UNLOAD TAPE
3YG2 XLONG LONGON #61,6
3Y^L NUNL BNG 7 RTNB [RETURNB
3^F= SUIC SUICIDE
3^YW RTNB
42DG LDX 0 AWORK2(2) [FILES OPEN?
42Y6 BZE 0 RETB
43CQ OPFL HUNT 1,AONBS,GLIST
43XB LDX 0 A1(1)
44C2 SBN 0 1
44WL BZE 0 SUIC [ALL TAPES DEALT WITH
45B= OPENSYS XBRKERR,SERIAL,GENERAL
45TW OPEN XBRKERR,GENERAL,ERASING,QUERY
46*G TESTREP OK,RETB
46T6 CLOSETOP
47#Q SUICIDE
47SB WT
48#2 STO 5 AWORK2(2) [INDICATE FILES CLOSED
48RL BRN TSTUP
49?= RB
49QW STOZ AWORK2(2) [FILES STILL OPEN
4==G BPZ 5 UPBUG
4=Q6 TSTUP LDX 0 CPPTR(2)
4?9Q BZE 0 NUNL [NOT UP
4?PB LDX 0 AWORK2(2)
4#92 BNZ 0 UNLT [J.IF FILES ALREADY CLOSED
4#NL CLOSETOP [DIRECTORY
4*8= CLOSETOP [SERIAL
4*MW STO 7 AWORK2(2) [FILES NOW CLOSED
4B7G BRN UNLT
4BM6 ...XDD DOWN DEADA,2
4C6Q BNG 7 OPFL [J. IF RETURNB
4CLB LDX 0 AWORK1(2)
4D62 SLL 0 1
4DKL BNG 0 SUIC [J. IF WORKTAPE
4F5= CALL 4 XBUDG [UPDATE BUDGETS
4FJW SUICIDE
4G4G #
4GJ6 #
4H3Q XALLOC
4HHB LONGSET #61,WTSTYLE,6
4J32 READAGAIN 1
4JGL HUNT 3,FILE,FRB
4K2= NAME 3,FILE,FWB
4KFW LDX 0 GSIGN
4K^G ORS 0 A1+5(3)
4LF6 LDN 0 1 [UPDATE COUNT OF REQUESTERS
4LYQ ADS 0 A1+5(3)
4MDB REWRITE 1
4MY2 MFREE FILE,FWB
4NCL MHUNT 3,FILE,ENT
4NX= NAMETOP 3,FILE,FWB
4PBW LDCT 0 #40 [TO BE RETURNED
4PWG ORS 0 EINF2(3)
4QB6 REWRITE
4QTQ MFREE FILE,FWB
4R*B SETNCORE 12,3,FILE,FABSNB
4RT2 LDN 0 #2001
4S#L ORS 0 ATYPE(3)
4SS= LDN 0 10
4T?W STO 0 A1(3)
4TRG TOPFCB2 2
4W?6 ADN 2 FME1
4WQQ ADN 3 A1+1
4X=B MOVE 2 3 [USER NAME OF DIRECTORY
4XQ2 STOZ 3(3)
4Y9L LDN 2 3(3)
4YP= LDN 3 4(3)
4^8W MOVE 2 5 [ZERO LOCAL NAME
4^NG LDN 0 1
5286 NGS 0 5(3) [RETENTION PERIOD
52MQ STO 6 6(3) [TSN
537B CLOSETOP [DIRECTORY
53M2 CLOSETOP [SERIAL
546L LONGSTOP XBRKERR [WAIT FOR TAPE TO BE FREED
54L= OPENSYS XBRKERR,SERIAL,GENERAL
555W SSEARCH ,6 [FIND RECORD IN SYSTEM.SERIAL
55KG OPENDIR XBRKERR,GENERAL,QUERY,ERASING
5656 TESTREPN OK,XGEO
56JQ MFREE FILE,FABSNB
574B READAGAIN 1 [SERIAL RECORD
57J2 MHUNT 3,FILE,FRB
583L NAME 3,FILE,FWB
58H= SSCOR A1(3),DEC [SUBTRACT 1 FROM CNT OF REQUESTERS
592W LDX 5 A1+5(3)
59GG ANDN 5 #7777
5=FQ REWRITE 1
5=^B MFREE FILE,FWB
5?F2 ... BRN XBEG
5#XW # SUBROUTINES
5*CG #
5*X6 XBUDG
5BBQ SBX 4 FX1
5BWB SETNCORE 4,3,FILE,FABSNB
5CB2 ADN 3 A1+1
5CTL HUNT 2,FLIB,FTJOB
5D*= ADN 2 A1
5DSW MOVE 2 3
5F#G SBN 3 1
5FS6 LDN 0 4
5G?Q STO 0 0(3)
5GRB ... OPENBUDO XNOUS
5H?2 NGN 5 1
5HQL BUDGINCR GSPACEMT,5
5J== CLOSBUDG
5JPW ...XNOUS ADX 4 FX1
5K9G EXIT 4 0
5KP6 #
5L8Q # GEOERRS
5LNB XBRKERR
5M82 GEOERR 1,BRKIN
5MML WTSTYLE
5N7= GEOERR 1,WTSTYLE
5NLW XGEO
5P6G GEOERR 1,NOUSER
5PL6 MENDAREA 50,K99RETURNIT
5Q5Q #END
^^^^ ...63062061000200000000