(George Source)
Macros used: ABANDCOM, AND, APPEND, ASSMESS, BITDEFS, BS, BSON, BXU, CLOSE, COMERR, COOR3, CREATEB, DO, ELSE, ELSF, ENDCOM, ERASE, ERASEWORK, FI, FON, FREECORE, FRIGMONF, FSHCODE, FSHENTRY, FSHMOVE, FSHSKIP, GEOERR, HUNT2J, IF, ISSUCOMB, LOBSFILE, MFREE, MHUNT, NAME, NOTALIEN, OFF, ON, OPENSYS, OR, OUTMON, PAIR, PARAFREE, PARALYSE, PARANUMB, PROPERTY, READ, REPEAT, REWIND, SEGENTRY, SETNCORE, SETUPCORE, SPARABEG, STEP, TESTBRKIN, TESTREP2, TESTRPN2, THEN, TRANSBEG, TRANSDIE, TRANSFIN, USEROPEN, WHILE
22FL #OPT K0WA = 0 22^= #LIS K0WA 23DW #SEG WA 23YG 8HWA 24D6 [ 24XQ SEGENTRY K1WA,WAK1 [ WHATPROP COMMAND 252* ...[ 254Y ... FSHENTRY K2WA,QENTRY2,,QENTRY2 257H ... FSHENTRY K3WA,QENTRY3,,QENTRY3 25=6 ... FSHENTRY K4WA,QENTRY4,,QENTRY4 25#P ... FSHENTRY K5WA,QENTRY5,,QENTRY5 25B3 ... FSHENTRY K7WA,QENTRY7,,QENTRY7 25CB [ 25X2 [ 26BL [************************************************************ 26W= [ 27*W [ PRESET DATA 27TG [ 28*6 [************************************************************ 28SQ [ 29#B [ 29B# ...# 29D= ... FSHCODE AORB 29G8 ...( 29J6 ...SCDLINK [ LINK FOR UNANTICIPATED CLOSEDOWN 29L4 ... PAIR WA,7 29N2 ...) 29PY ...# 29S2 PVAL2 2 2=?L PVAL4 4 2=R= PSTRLIST 4HLIST 2?=W PROPERTY 8HPROPERTY 2?QG PHEADING +APROPHEAD 2#=6 PPERM 4H Y 2#PQ PCONS 2*9B PEXCL 4HY 2*P2 #DEF WNAME = A1+2 2B8L #DEF WEXCL = A1+6 2BN= #DEF WPERM = A1+7 2C7W #DEF WCONS = A1+9 2CMG BITDEFS CONTEXT,19,WBOPER,,,WBNOUSER,WBUSER 2D76 BITDEFS AWORK2,0,WBLIST,WBLISTPR 2DLQ P10000 [ GENERATION NO. CONVERSION 2F6B +10000 2FL2 PFILEDES [ FILE DESCRIPTION FOR OUTPUT FILE 2G5L 10 2GK= POPERATORS 2H4W 12HOPERATORS [ USERNAME 2HJG 12HWHATLIST [ FILENAME 2J46 1 [ REEL NUMBER 2JHQ #20000001 [ GENERATION NUMBER 2K3B 4HB1 [ LANGUAGE CODE 2KH2 PRUNJOB [ RUNJOB COMMAND TO TO LIST OUTPUT FI 2L2L 32HRJ WLIST0000,:OPERATORS,WLISTJDF 2LG= PRJPROP [ EXTRA FOR LIST(PR .....) 2L^W 9H,PARAM(PR 2MFG PRJBRAC 2M^6 1H) 2NDQ PLF [ LISTFILE COMMAND FOR OUTPUT TO WORK 2NYB 17HLF !,*LP,PA,MO#60 2PD2 PLFPROP [ EXTRA FOR LIST(PR....) 2PXL 3H,PR 2QC= [ 2QWW [ 2QX^ ...[ ENTRY POINT TO OBEY 'SCLOSE' S/R IN M/C A FOR M/C B 2Q^4 ...[ 2R27 ... FSHCODE A,SNONEEDINB 2R3= ...( 2R4* ...QENTRY5 2R5D ... FSHMOVE END [THE OUTPUT FILE 2R6H ... STO 7 5 [PRESERVE M/C B'S LINK ACC 2R7L ... CALL 7 SCLOSE [CLODE + ERASE THE OUTPUT FILE 2R8P ... LDX 7 5 [RECOVER M/C B'S LINK 2R9S ... TRANSFIN [AND RETURN 2R=X ...SNONEEDINB 2R#2 ...) 2R*5 ...[ 2RBG [************************************************************ 2RW6 [ 2S*Q SCLOSE 2STB [ 2T*2 [************************************************************ 2TSL [ 2W#= [ CLOSE OUTPUT FILE ( AFTER :SYSTEM.PROPERTY ) 2WRW [ 2X?G [ X6 - ZERO - NORMAL EXIT 2XR6 [ NON-ZERO - BREAKIN 2Y=Q SBX 7 FX1 2Y## ... FSHCODE B,XCLOSEA [ OBEY S/R IN M/C A ONLY 2Y*W ...( 2YCD ... SETNCORE 0,3,FSH,FSHTERM [ SET UP DELIMITER BLOCK 2YF2 ... FSHMOVE START [ OUTPUT FILE 2YGJ ... TRANSBEG FSHWAID,WA,5,,,ACOMMUNE1 [ AND GO TO M/C A 2YJ6 ...XCLOSEA 2YKN ...) 2YM= ... FSHSKIP B,XCLOSEB [ REST OF S/R EXCEPT EXIT NOT NEEDED 2YNS ...( 2YQB CLOSE 2^=2 IF BS,2,WBUSER [ USER CONTEXT 2^PL THEN [ ERASE WORKFILE 329= SETNCORE 10,3,FILE,FABSNB 32NW LDN 0 10 338G STO 0 A1(3) 33N6 #SKI IFS 347Q ADN 2 FUSER1-FCBRING 34MB #SKI IFS<1$1 3572 LDX 2 BWORKRING(2) 35LL ADN 2 FUSER1 366= ADN 3 A1+1 36KW MOVE 2 9 375G ERASEWORK 1 37K6 TESTREP2 NOFILE,ZERREW 384Q ELSF EITHER,BC,2,WBLIST [ NOT LIST 38JB OR 6,NZ [ BREAKIN 3942 THEN [ ERASE :OPERATORS.WHATLIST 39HL SETNCORE 10,3,FILE,FABSNB 3=3= LDN 1 PFILEDES(1) 3=GW LDN 2 A1(3) 3?2G MOVE 1 10 3?G6 SMO FX2 3?^Q LDX 0 AWORK1 3#FB STO 0 A1+8(3) [ GENERATION NO. 3#^2 ERASE 3*DL TESTREP2 NOFILE,ZERREOW 3*Y= FI 3B5D ...XCLOSEB 3B=L ...) 3BCW ADX 7 FX1 3BXG EXIT 7 0 3CC6 [ 3CWQ [ 3DBB [ WW WW W 3DW2 [ WW WW WW 3F*L [ WW WW WWW 3FT= [ WWWW WW 3G#W [ WWWWW WW 3GSG [ WW WW WW 3H#6 [ WW WW WW 3HRQ [ WW WW WW 3J?B [ 3JR2 WAK1 3K=L [ 3KQ= [ 3L9W [************************************************************ 3LPG [ 3M96 [ CHECK PARAMETERS 3MNQ [ SET UP OUTPUT FILE 3N8B [ OPEN PROPERTY 3NN2 [ GENERATE OUTPUT 3P7L [ CLOSE PROPERTY 3PM= [ LIST OUTPUT 3Q6W [ TIDY UP 3QLG [ 3R66 [************************************************************ 3RKQ [ 3S5B [ 3SK2 STOZ AWORK2(2) [ CLEAR BITS WORD 3T4L [ 3TJ= [ CHECK PARAMETERS 3W3W [ 3WHG SPARABEG 1,PVAL4(1),PSTRLIST(1),,0 3X36 MHUNT 3,CPB,CUNI 3XGQ LDX 7 ANUM(3) 3Y2B IF 7,PZ [ IF 'LIST' PRESENT 3YG2 THEN 3Y^L BS 2,WBLIST [ SET LIST BIT 3^F= IF 7,NZ [ IF PROPERTY STRING 3^YW THEN 42DG LDX 3 JPARNUM(3) 42Y6 PARALYSE ,,3 [ THEN SPLIT INTO "LIST" AND (PR P 433= ...#UNS ANSTOOMANY 436B ... TESTREP2 UNPAIR,ZLISTWR,TOOMANY,ZMAXPAR 439G ...#UNS ANSTOOMANY 43#L ...#SKI 43CQ TESTREP2 UNPAIR,ZLISTWR [ IF UNPAIRED DELIM, ERR FI 43XB PARANUMB 4 44C2 BXU 4 PVAL2(1),ZLISTWR [ IF NOT TWO PARAMS, ERR FI 44WL LDN 1 2 45B= PARALYSE ,,1 [ STRIP BRACKETS OFF PARAM 2 45HD ...#UNS ANSTOOMANY 45NL ... TESTREP2 TOOMANY,ZMAXPAR 45TW LDN 7 8 46*G WHILE 7,NZ 46T6 SPARABEG 1,7,PROPERTY(1) [ LOOK FOR 'PR' PARAM 47#Q MHUNT 3,CPB,CUNI 47SB LDX 6 ANUM(3) 48#2 AND 6,NG [ PARAMETER NOT FOUND 48RL DO 49?= FREECORE 3 [ ELSE 49QW SRL 7 2 [ TRY AGAIN FI 4==G REPEAT 4=Q6 BZE 7 ZWRQUAL [ IF NO 'PR...' FOUND , ERROR FI 4?9Q BZE 6 ZWRQUAL [ IF PARAM NULL, ERROR FI 4?PB HUNT2J 3,CPB,CUNI,,(GEOERR) [ FIND 'LIST' CUNI 4#92 FREECORE 3 [ FREE IT (KEPT IN CASE OF ERR MES 4#NL BS 2,WBLISTPR [ SET PROPERTY BIT 4*8= PARAFREE [ FREE CMULTI ANYWAY 4*MW FI [ FI 4B7G ELSE 4BM6 FREECORE 3 4C6Q PARANUMB 4 4CLB BNZ 4 ZLISTWR [ IF ANY OTHER PARAM, ERROR FI 4D62 FI 4DKL [ 4F5= [ SET UP OUTPUT FILE 4FJW [ 4FLK ... FSHCODE B,XREMHERE 4FN# ...( 4FQ3 ... TRANSBEG FSHWAID,WA,2,CLB,,ACOMMUNE1 4FRQ ... FSHMOVE END 4FTF ... BRN XSTAY 4FX8 ...XREMHERE 4FYX ...) 4G2L ...QENTRY2 4G4G CREATEB 4 4GJ6 IF MBS,2,WBOPER,WBNOUSER [ OPERATOR OR NO USER CONTEXT 4H3Q THEN [ CREATE AND OPEN :OPERATORS.WHATLIST(+1) 4HHB LDN 1 POPERATORS(1) [ CREATION OF FILES REQUIRES 4J32 LDN 2 CPREFIX(2) [ OWNERSHIP SO INSERT :OPERATORS IN C 4JGL MOVE 1 3 4K2= SETNCORE 10,3,FILE,FABSNB 4KFW LDN 1 PFILEDES(1) 4K^G LDN 2 A1(3) 4LF6 MOVE 1 10 4LYQ USEROPEN ZOUTFILEBRK,APPEND,CREATE,LEAVE,FROZEN 4MDB TESTRPN2 OK,ZERROOW 4MY2 MHUNT 3,FILE,ENT 4NCL LDX 0 EGEN(3) 4NX= STO 0 AWORK1(2) 4PBW FREECORE 3 4PWG ELSE [ OPEN WORKFILE AT TOP LEVEL 4QB6 FRIGMONF ZERROW,1 4QTQ LOBSFILE 4R*B FI 4RT2 MFREE FILE,FABSNB 4S#L [ PUT HEADING IN OUTPUT FILE 4SS= LDX 4 PHEADING(1) 4T?W ASSMESS 4 4TRG MHUNT 3,GMON,AOUT 4W?6 NAME 3,FILE,FAPB 4WQQ LDEX 0 A1(3) 4X=B ADN 0 11 4XQ2 SRL 0 2 4Y9L DEX 0 A1(3) 4YP= APPEND 0,ZAPPEND0 4^8W [ PRESET FILE/FAPB FOR MAIN OUTPUT ( ASSUMES HEADING LENGTH > MAIN OUTPU 4^NG MHUNT 3,FILE,FAPB 5286 LDX 1 A1(3) 52MQ SBN 1 3 537B LDX 0 ACES 53M2 STO 0 WNAME(3) 546L LDN 2 WNAME(3) 54L= ADN 3 WNAME+1 555W MOVE 2 0(1) 55KG [ 5656 [ OPEN PROPERTY 56JQ [ 574B OPENSYS ZPROPBRK,PROPERTY,READ 57J2 [ 57KJ ... FSHCODE A,XSTAY 57M6 ...( 57NN ... NOTALIEN XSTAY 57Q= ... LDN 4 2 57RS ... FSHMOVE START,4 57TB ... TRANSFIN 57WY ...) 57YG ...XSTAY 5824 ...[ 583L [ GENERATE OUTPUT 58H= [ 592W WHILE TRUE 59GG STEP 5=26 AND 3,NZ [ NOT END OF FILE 5=FQ DO 5=^B MHUNT 2,FILE,FAPB 5?F2 LDX 0 ACES [ CLEAR OUT "Y" S 5?YL STO 0 WEXCL(2) 5#D= STO 0 WPERM(2) 5#XW STO 0 WCONS(2) 5*CG LDN 0 APROPNAME(3) [ PROPERTY NAME 5*X6 LDN 1 WNAME(2) 5BBQ MOVE 0 3 5BWB LDN 5 5 [ LENGTH OF OUTPUT LINE 5CB2 LDX 1 FX1 5CTL LDX 4 APROPNO(3) 5D*= IF 4,NG [ EXCLUSIVE 5DSW THEN 5F#G LDX 0 PEXCL(1) 5FS6 STO 0 WEXCL(2) 5G?Q LDN 5 7 5GRB FI 5H?2 SLL 4 1 5HQL IF 4,NG [ PERMANENT 5J== THEN 5JPW LDX 0 PPERM(1) 5K9G STO 0 WPERM(2) 5KP6 LDN 5 8 5L8Q FI 5LNB LDX 4 APROPGROUP(3) 5M82 IF 4,NG [ CONSOLE 5MML THEN 5N7= LDX 0 PCONS(1) 5NLW STO 0 WCONS(2) 5P6G LDN 5 10 5PL6 FI 5Q5Q DEX 5 A1(2) [ SIG. LENGTH OF DATA 5QKB APPEND 1,ZAPPEND1 5R52 REPEAT 5RJL [ 5S4= [ CLOSE PROPERTY 5SHW [ 5T3G CLOSE 5TH6 [ 5W2Q [ LIST OUTPUT 5WGB [ 5X22 IF BS,2,WBLIST [ LIST 5XFL THEN 5X^= STOZ 7 5YDW IF BS,2,WBLISTPR [ LIST(PR...) 5YYG THEN 5^D6 MHUNT 2,CPB,CUNI 5^XQ LDEX 7 ANUM(2) 62CB FI 62X2 ADN 7 CPDATA-A1*4+51 63BL SRL 7 2 63W= SETUPCORE 7,3,ADATA,CREADL 64*W IF MBS,2,WBOPER,WBNOUSER [ OPERATOR OR NO USER CONTEXT 64TG THEN [ RUNJOB 65*6 LDN 5 PRUNJOB(1) 65SQ LDN 6 CPDATA(3) 66#B MVCH 5 32 66S2 IF BS,2,WBLISTPR [ ,PARAM(PR...) 67?L THEN 67R= LDN 5 PRJPROP(1) 68=W MVCH 5 9 [,PARAM(PR 68QG MHUNT 2,CPB,CUNI 69=6 LDN 5 APARA(2) 69PQ LDEX 2 ANUM(2) 6=9B MVCH 5 0(2) [ PROPERTY STRING 6=P2 LDN 5 PRJBRAC(1) 6?8L MVCH 5 1 6?N= FI 6#7W LDX 2 FX2 6#MG LDX 4 AWORK1(2) 6*76 LDN 5 0 6*LQ DVR 4 P10000(1) 6B6B LDX 4 5 6BL2 LDCT 5 #200 6C5L LDN 1 CPDATA+2(3) 6CK= LDN 0 4 6D4W DO [ CONVERT GENERATION NO. 6DJG CBD 4 0(1) 6F46 BCHX 1 £ 6FHQ REPEAT CT 0 6G3B SBN 6 CPDATA(3) 6GH2 SLC 6 2 6H2L STO 6 A1(3) 6HG= LDX 5 GSIGN [ FOR SYSTEM ISSUED CONTEXT 6H^W ORS 5 CONTEXT(2) 6JFG ISSUCOMB XCOMERRJ,XCOMERRJ 6J^6 XCOMERRJ 6KDQ ERS 5 CONTEXT(2) 6KYB ELSE [ LISTFILE 6LD2 LDN 5 PLF(1) 6LXL LDN 6 CPDATA(3) 6MC= MVCH 5 17 [ LF 6MWW IF BS,2,WBLISTPR [ ,PR... 6NBG THEN 6NW6 LDN 5 PLFPROP(1) 6P*Q MVCH 5 3 6PTB MHUNT 2,CPB,CUNI 6Q*2 LDN 5 APARA(2) 6QSL LDEX 2 ANUM(2) 6R#= MVCH 5 0(2) [ PROPERTY STRING 6RRW FI 6S?G SBN 6 CPDATA(3) 6SR6 SLC 6 2 6T=Q STO 6 A1(3) [ LENGTH 6TQB ISSUCOMB XCOMERLF,XCOMERLF 6W=2 XCOMERLF 6WPL FI 6X9= ELSE 6XNW IF BS,2,WBOPER [ OPERATOR CONTEXT 6Y8G THEN 6Y=9 ... FSHCODE B,XGETSEMA 6Y?Y ...( 6Y*M ... TRANSBEG FSHWAID,WA,3,NOBLOCKS,,ACOMMUNE1 6YCB ... BRN XLOCKED 6YF5 ...XGETSEMA 6YGS ...) 6YJH ...QENTRY3 6YL= ...[ 6YN6 XLOCK 6^7Q [ IF CONSOLE FREE 6^MB BSON AWHATBIT,WAIT 7272 [ THEN LOCK OUT CONSOLE 72LL ON AWHATBIT 72NT ... FSHCODE AORB 72R4 ...( 72T? ... NOTALIEN XNOSHAMBL 72WB ... SETNCORE 1,3,FSH,FSHAMBLES 72XF ... LDX 0 SCDLINK(1) 72YJ ... STO 0 FSHCDLINK(3) 72^P ...XNOSHAMBL 733Y ...) 736= BRN XLOCKED 73KW [ ELSE WAIT,THEN TRY AGAIN 745G WAIT 74K6 COOR3 #114 754Q BRN XLOCK 75JB [ FI 7642 XLOCKED 765Y ...[ 767W ... FSHCODE A,XSEMAHELD 769S ...( 76?Q ... TRANSFIN ,,ALIEN 76*N ...XSEMAHELD 76CL ...) 76FJ ...[ 76HL FI 773= REWIND 77GW WHILE TRUE 782G READ 78G6 MHUNT 3,FILE,FRB 78^Q LDX 0 ALOGLEN(3) 79FB SBN 0 1 79^2 ORX 0 A1(3) 7=DL AND 0,NZ [ NOT END OF FILE 7=Y= DO 7?CW TESTBRKIN ZHEREBRK 7?XG LDEX 6 A1+FRH(3) 7#C6 SLL 6 2 7#WQ SBN 6 8 7*BB OUTMON 6,A1+FRH+2,A1+FRH+1(3),FILE,FRB 7*W2 MFREE FILE,FRB 7B*L REPEAT 7BT= IF BS,2,WBOPER [ OPERATOR CONTEXT 7C#W THEN 7CBS ... FSHCODE B,XRELSEMA 7CDQ ...( 7CGN ... TRANSBEG FSHWAID,WA,4,NOBLOCKS,,ACOMMUNE1 7CJL ... BRN XRELD 7CLJ ...XRELSEMA 7CNG ...) 7CQD ...QENTRY4 7CSG OFF AWHATBIT [ RELEASE CONSOLE 7D#6 FON #114 7D*T ... FSHCODE A,SNOSHAMBL 7DCJ ...( 7DF? ... NOTALIEN SNOSHAMBL 7DH2 ... MFREE FSH,FSHAMBLES 7DJP ... TRANSFIN 7DLD ...SNOSHAMBL 7DN7 ...) 7DPW ...XRELD 7DRQ FI 7F?B FI 7FR2 [ 7G=L [ TIDY UP 7GQ= [ 7H9W LDN 6 0 7HPG CALL 7 SCLOSE 7J96 ENDCOM 7JNQ [ 7K8B [*********************************************************************** 7KN2 [ 7L7L [ ERRORS 7LM= [ 7M6W [*********************************************************************** 7MLG [ 7N66 ZWRQUAL 7NKQ COMERR BADQUAL [ERROR IN 'LIST' QUALIFIER 7P5B ZLISTWR 7PK2 COMERR APFERR [ PARAMETER FORMAT ERROR 7PMK ...#UNS ANSTOOMANY 7PQ8 ...( 7PSR ...ZMAXPAR 7PXB ... COMERR JMAXPAR 7P^^ ...) 7Q4L [ 7Q5H ... FSHCODE AORB 7Q6D ...( 7Q7* ...[ 7Q8= ...[*********************************************************************** 7Q97 ...[ 7Q=4 ...[ UNANTICIPATED CLOSEDOWN 7Q=^ ...[ 7Q?W ...[*********************************************************************** 7Q#R ...QENTRY7 7Q*N ... OFF AWHATBIT 7QBK ... FON #114 7QCG ... MFREE FSH,FSHAMBLES 7QDC ... TRANSDIE 7QF# ...[ 7QG9 ...) 7QH6 ...[ 7QJ= [*********************************************************************** 7R3W [ 7RHG [ BREAKIN 7S36 [ 7SGQ [*********************************************************************** 7T2B [ 7TG2 [ 7T^L ZHEREBRK [ BREAKIN DURING HERE OUTPUT 7WF= [ 7WYW IF BS,2,WBOPER [ OPERATOR CONTEXT 7XDG THEN 7XGP ... FSHCODE B,XCLSEMA 7XJY ...( 7XM7 ... TRANSBEG FSHWAID,WA,4,NOBLOCKS,,ACOMMUNE1 7XPB ... BRN SEMAFREE 7XRK ...XCLSEMA 7XTS ...) 7XY6 OFF AWHATBIT [ RELEASE CONSOLE 7YCQ FON #114 7YMJ ...SEMAFREE 7YXB FI 7^C2 [ 7^WL ZPROPBRK [ BREAKIN ON OPENING :SYSTEM.PROPERTY 82B= [ 82TW LDN 6 1 83*G CALL 7 SCLOSE 83T6 [ 84#Q ZOUTFILEBRK [ BREAKIN ON OPENING OUTPUT FILE 84SB [ 85#2 ABANDCOM 85RL [ 86?= [ 86QW ZAPPEND1 [ APPEND MACRO LABEL 87=G [ 87Q6 CLOSE 889Q [ 88PB ZAPPEND0 [ HEADINGS APPEND MACRO LABEL 8992 [ 89NL 8=8= LDN 6 1 8=MW CALL 7 SCLOSE 8?7G ABANDCOM 8?M6 [ 8#6Q [*********************************************************************** 8#LB [ 8*62 [ GEOERRS 8*KL [ 8B5= [*********************************************************************** 8BJW [ 8C4G [ 8CJ6 ZERROOW 8D3Q ZERROW 8DHB GEOERR 1,WAOPEN 8F32 ZERREOW 8FGL ZERREW 8G2= GEOERR 1,WAERASE 8GFW [ 8G^G #END ^^^^ ...606052210003