(George Source)
Macros used: CLOSE, ERALLWF, ERASEND, FJOCA, FREECORE, GDE, GEOERR, JBC, MFREE, MHUNT, MHUNTW, OPEN, SEG, SEGENTRY, SETNCORE, TESTRPN2, TRACEIF, UP
22FL SEG FILELOG,,GEORGE PORTER,FILESTORE 22^= SEGENTRY K1FILELOG,START 23DW SLAN 4HC1 [TEMPORARY DIRECTORY LANGUAGE 23YG 4HB1B0 [MONITORING FILE LANGUAGE 24D6 4HB5B1 [JOB-DESCRIPTION-FILE LANGUAGE 24XQ +0 25CB # THIS SEGMENT ERASES THE THE TEMP FILE STACK & THE MONITORING FILE. 25X2 # IF FILES CANT BE ERASED BECAUSE THEY ARE OPEN, A TO BE ERASED BIT 26BL # BE LEFT IN THEIR DIRECTORY ENTRIES. 26W= [ 27*W START [ENTRY POINT 27TG TRACEIF K6FILELOG,99,299,JOBNO(2),FILELOG 28*6 ERALLWF [ERASE WORKFILES 28SQ SETNCORE 6,1,FILE,FLOCNB 29#B SETNCORE 10,3,FILE,FABSNB 29S2 LDN 0 4 [RECORD HEADER 2=?L STO 0 A1(3) [HEADER 2=R= FJOCA 1,2 [GET X1->JOB BLOCK 2?=W LDN 2 JUSER(1) 2?QG ADN 3 A1+1 2#=6 MOVE 2 3 [USERNAME TO FABSNB 2#PQ MHUNTW 3,FILE,FLOCNB 2*9B LDN 2 JNAME(1) 2*P2 ADN 3 A1 2B8L MOVE 2 3 [LOCAL NAME TO FLOCNB 2BN= LDCT 4 2 2C7W ANDX 4 JMISC(1) [BIT 7 OF JMISC SET IF TEMP DIR CREAT 2CMG SLC 4 8 [SET X4 =0 OR 1 [SEE NEW 2D76 ERN 4 1 [=0 IF TEMP DIR EXISTS 2DLQ OPEN NO,GENERAL [OPEN USERS DIRECTORY 2F6B TESTRPN2 OK,NO 2FL2 NEXT 2G5L SMO 4 [MODIFIER FOR LANGUAGE WORD 2GK= LDX 3 SLAN(1) [GET NEXT LANGUAGE WORD 2H4W MHUNT 1,FILE,FLOCNB 2HJG BZE 3 XITA [J IF NO MORE TEMP FILES 2J46 STO 3 A1+5(1) [LANGUAGE 2JHQ ADN 4 1 [INCREASE LANGUAGE WORD MODIFIER 2K3B ... STOZ A1+4(1) [GEN 1 2L2L STOZ A1+3(1) [REEL 2LG= GDE [FIND DIRECTORY ENTRY FOR THIS FILE 2L^W TESTRPN2 OK,NEXT [JDF MAY NOT EXIST 2MFG MHUNTW 1,FILE,ENT 2M^6 JBC XFREE,1,BETEMP [IGNORE UNLESS TEMPORARY FILE (?) 2NDQ MHUNT 2,FILE,FABSNB 2NYB LDX 0 ALOGLEN(2) 2PD2 STO 0 A1(2) [SET REC HEADER = LOGICAL LENGTH 2PXL ADX 2 0 2QC= ADN 2 A1-6 2QWW MHUNT 1,FILE,FLOCNB [FIND LOCAL NAME 2RBG ADN 1 A1 2RW6 MOVE 1 6 [MOVE INTO END OF FABSNB 2S*Q ERASEND [ERASE NEXT TEMP FILE 2STB BRN NEXT 2T*2 XFREE 2TSL FREECORE 1 [ENT 2W#= BRN NEXT 2WRW XITA 2X?G FREECORE 1 [FLOCNB 2XR6 MFREE FILE,FABSNB 2Y=Q CLOSE [CLOSE USER'S DIRECTORY 2YQB UP 2^=2 NO GEOERR BRIEFPM,FILELOG [UNABLE TO OPEN USER'S DIRECTORY 2^PL #END ^^^^ ...71446730000300000000