(George Source)
Macros used: BITDEFS, FIELDDEF
22FL # 22^= # 23DW # BLOCK TYPE DEFINITIONS FOR SHARED FILESTORE ENHANCEMENT 23YG # 24D6 # 24XQ [DEF FSH=#1600 25CB # 25X2 # 26BL [DEF FSHIN=#01 26W= [DEF FSHOUT=#02 27*W # 27TG # 28*6 #DEF FSHRINGA=A1 [FSHIN/FSHOUT BLOCK FORMAT 28SQ #DEF FSHLASTBUFF=FSHRINGA+2 29#B #DEF FSHBUFF=FSHLASTBUFF+1 29S2 # 2=?L #DEF FSHFLAG=0 2=R= #DEF FSHTYPE=FSHFLAG+1 2?=W #DEF FSHBACK1=FSHTYPE+1 2?QG #DEF FSHBACK2=FSHBACK1+1 2#=6 #DEF FSHLOGLEN=FSHBACK2+1 2#PQ #DEF FSHRINGNO=FSHLOGLEN+1 2*9B #DEF FSHA1=FSHRINGNO+1 2*P2 # 2B8L # 2BN= [DEF FSHREQ=#03 2C7W # 2CMG #DEF FSHCODEID=A1 2D76 #DEF FSHBITS=FSHCODEID+1 2DLQ #DEF FSHCACTNO=FSHBITS+1 2F6B #DEF FSHCACTTYPE=FSHCACTNO+1 2FL2 #DEF FSHJOBNO=FSHCACTTYPE+1 2G5L #DEF FSHTACT=FSHJOBNO+1 2GK= #DEF FSHLINK=FSHTACT+1 2H4W #DEF FSHOFFSET=FSHLINK 2HJG #DEF FSHCHCHCT=FSHLINK+1 2J46 #DEF FSHACCS=FSHCHCHCT+1 2JHQ #DEF FSHAWORK=FSHACCS+5 2K3B #DEF FSHDATA=FSHAWORK+4 2KH2 # 2L2L # 2LG= [DEF FSHTERM=#04 2L^W # 2MFG # 2M^6 [DEF FSHARED=#05 2NDQ [DEF FSHAREDLEN=0 2NYB # 2PD2 #DEF FSHRING=JOBRING [FSHARED ACTIVITY FORMAT 2PXL # 2Q4S ...[DEF FSHBPM=#06 [FSHBPM ACTIVITY FORMAT 2Q=2 ...[DEF FSHBPMLEN=0 2QC= # 2QWW [DEF FSHTRAN=#05 2RBG # 2RW6 # 2S*Q [DEF FULLB=#06 2STB # 2T*2 # 2TSL [DEF FSHSTORE=#07 2W#= # 2WRW # 2X?G [DEF FSHMARKER=#10 2XR6 # 2Y=Q #DEF FSHMARKPTR=FSHRINGA+2 2YQB #DEF FSHMARKLIST=FSHMARKPTR+1 2^=2 #DEF FSHMARKELEM=2 [LENGTH OF ENTRY IN 2^PL [ /FSHMARKER BLOCK 329= # 32NW # 338G [DEF FSHBDEL=#11 33N6 # 347Q # 34MB [DEF FSHBINS=#12 3572 # 35LL # 366= [DEF FSHMOVE=#13 36KW # 375G #DEF FSHMVFCBNO=A1 37K6 #DEF FSHMVSTATE=FSHMVFCBNO+1 384Q #DEF FSHMVELLEN=FSHMVSTATE-FSHMVFCBNO+1 [LENGTH OF ENTRY 38JB # [ IN FSHMOVE BLOCK 3942 # 39HL # 3=3= [DEF FSHAPIA=#14 3=GW # 3?2G # 3?G6 [DEF FSHREQX=#15 [RENAMED /FSHREQ BLOCK 3?^Q # 3#FB # 3#^2 [DEF FSHTERMX=#16 [RENAMED /FSHTERM BLOCK 3*DL # 3*Y= # 3BCW [DEF FSHIPS=#17 [IP CORRESPONDENCE TABLE BLOCK 3BXG # 3CC6 # 3CWQ [DEF FSHJCOUNTS=#20 3DBB # 3DW2 #DEF FSHABACK=A1 3F*L #DEF FSHAMOP=FSHABACK+1 3FT= #DEF FSHABACKL=FSHAMOP+1 3G#W #DEF FSHAMOPL=FSHABACKL+1 3GSG #DEF FSHBBACK=FSHAMOPL+1 3H#6 #DEF FSHBMOP=FSHBBACK+1 3HRQ #DEF FSHBBACKL=FSHBMOP+1 3J?B #DEF FSHBMOPL=FSHBBACKL+1 3JR2 #DEF FSHBACKR=FSHBMOPL+1 3K=L #DEF FSHMOPR=FSHBACKR+1 3KQ= #DEF FSHJOBTYPE=FSHMOPR+1 3L9W #DEF FSHX7=FSHJOBTYPE+1 3LPG #DEF FSHELEM=FSHX7+1 3M96 # 3MNQ #DEF FSHBACK=0 3N8B #DEF FSHMOP=FSHBACK+1 3NN2 #DEF FSHBACKL=FSHMOP+1 3P7L #DEF FSHMOPL=FSHBACKL+1 3PM= # 3Q6W [DEF FSHAMBLES=#21 [UNANTICIPATED CLOSEDOWN BLOCK 3QLG # 3QQC ...#DEF FSHCDLINK=A1 3QW# ...#DEF FSHWORK=FSHCDLINK+1 3R29 ...# 3R66 # 3RKQ [DEF FINLK = #22 [ MARKER BLOCK FOR 'FINISH LINK' 3S5B # 3SK2 # 3T4L # 3TJ= [DEF FAPB=#62 [APPEND BLOCK USED BY PERFORMANCE ACT. 3W3W # 3WHG # 3X36 # NEW SUB-TYPES FOR JWELL BLOCK ON MISCELLANEOUS CHAIN 3XGQ # 3Y2B [DEF ACOUNTS=#06 [SUB-TYPE FOR 'A' MACHINE COUNTS 3YG2 # 3Y^L [DEF BCOUNTS=#07 [SUB-TYPE FOR 'B' MACHINE COUNTS 3^F= # 3^YW # 42DG # SUBTYPE DEFINITION FOR BSTB/HORSE BLOCK 42Y6 # 43CQ [DEF HORSE=#24 [ALIEN DATA BLOCK FOR CG COMMAND 43XB # 44C2 # 44WL # FSH CODE IDENTIFIERS 45B= # 45TW # 46*G #DEF FSHZ=0 [IDENTIFIERS FOR TRANSBEG MACRO 46T6 #DEF FSHZAUT=#4000 47#Q #DEF FSHZSUP=#2000 47SB #DEF FSHZGETACT=#1000 48#2 #DEF FSHZNEST=#400 48RL # 49?= # 49QW #DEF FSHNOID = 0 [NULL CODE IDENTIFIER 4==G #DEF FSHOPEN = 1 [CODE IDENTIFIER FOR "OPEN" 4=Q6 #DEF FSHUSEROPEN= 2 [CODE IDENTIFIER FOR "USEROPEN" 4?9Q #DEF FSHCMULT = 3 [CODE IDENTIFIER FOR "CLOSEMULT" 4?PB #DEF FSHERMULT = 4 [CODE IDENTIFIER FOR "ERASEMULT" 4#92 #DEF FSHCLOSEID = 5 [CODE IDENTIFIER FOR "CLOSE" 4#NL #DEF FSHERRORID = 6 [CODE IDENTIFIER FOR "ERROR" 4*8= #DEF FSHISPERID = 7 [CODE IDENTIFIER FOR "ISPER" 4*MW #DEF FSHBRKIN = 8 [CODE IDENTIFIER FOR "BREAKIN" 4B7G #DEF FSHBSID = 9 [CODE IDENTIFIER FOR "B.S.A.S." 4BM6 #DEF FSHCREATEID=10 [CODE IDENTIFIER FOR "CREATE" 4C6Q #DEF FSHCOPYID =11 [CODE IDENTIFIER FOR "COPY" 4CLB #DEF FSHLFID =12 [CODE IDENTIFIER FOR "LF COMMAND" 4D62 #DEF FSHSLOUTID =13 [CODE IDENTIFIER FOR "OL SLOW O/P" 4DKL #DEF FSHBCAST =14 [CODE IDENTIFIER FOR "BROADCAST" 4F5= #DEF FSHABANDON =15 [CODE IDENTIFIER FOR "ABANDON" 4FJW #DEF FSHSAVEID =16 [CODE IDENTIFIER FOR "SAVE" 4G4G #DEF FSHMOVEID =17 [CODE IDENTIFIER FOR INTERNAL FSHMOVE 4GJ6 #DEF FSHTRANSACT=18 [CODE IDENTIFIER FOR "TRANSACT" MACRO 4H3Q ...#DEF FSHANSWER =19 [CODE IDENTIFIER FOR "ANSWER" 4HHB #DEF FSHQUESTION=20 [CODE IDENTIFIER FOR "QUESTION" 4J32 #DEF FSHCANTDO =21 [CODE IDENTIFIER FOR "CANTDO" 4JGL #DEF FSHMESSAGE =22 [CODE IDENTIFIER FOR MESSAGE SYSTEM 4K2= #DEF FSHDEADID =23 [CODE IDENTIFIER FOR "DEAD" 4KFW #DEF FSHNEWID =24 [CODE IDENTIFIER FOR "NEW" 4K^G #DEF FSHRETID =25 [CODE IDENTIFIER FOR "RETURN" 4LF6 #DEF FSHCONSOUT =26 [CODE IDENTIFIER FOR "CONSOUT" MACRO 4LYQ #DEF FSHBSCHEDID=27 [CODE IDENTIFIER FOR ACTLF/BSCHED 4MDB #DEF FSHACTLFID =28 [CODE IDENTIFIER FOR OTHER ACTLF'S 4MY2 #DEF FSHMKID =29 [CODE IDENTIFIER FOR "MAKEDIR" 4NCL #DEF FSHERASEID =30 [CODE IDENTIFIER FOR "ERASE" 4NX= #DEF FSHCOMPRESS=31 [CODE IDENTIFIER FOR COMPRESS 4PBW #DEF FSHMACROID =32 [CODE IDENTIFIER FOR MACRO SEARCH 4PWG #DEF FSHLDID =33 [CODE IDENTIFIER FOR "LISTDIR" 4QB6 #DEF FSHPERFID =34 [CODE IDENTIFIER FOR PERF. ACT 4QTQ #DEF FSHWORKID =35 [CODE IDENTIFIER FOR WORKFILES 4R*B #DEF FSHTRAPID =36 [CODE IDENTIFIER FOR TRAP COMMANDS 4RT2 #DEF FSHWFID =37 [CODE IDENTIFIER FOR "WORKFILEMOVE" 4S#L #DEF FSHIPSID =38 [CODE IDENTIFIER FOR IPS 4SS= #DEF FSHRETRIEVE=39 [CODE IDENTIFIER FOR "RETRIEVE" 4T?W #DEF FSHCANCRVX =40 [CODE IDENTIFIER FOR "CANCEL RV" 4TRG #DEF FSHINCDUMP =41 [CODE IDENTIFIER FOR "INCDUMP" 4W?6 #DEF FSHTHTW =42 [CODE IDENTIFIER FOR TAPERIGHT/WRONG 4WQQ #DEF FSHCGID =43 [CODE IDENTIFIER FOR "CARTRIDGE" 4X=B #DEF FSHLIBID =44 [CODE IDENTIFIER FOR LIBRARIAN 4XQ2 #DEF FSHLISTIDF =45 [CODE IDENTIFIER FOR "IDFLIST" 4Y9L #DEF FSHINITJBID=46 [CODE IDENTIFIER FOR INITJOB 4YP= #DEF FSHLOGOUTID=47 [CODE IDENTIFIER FOR LOGOUT 4^8W #DEF FSHJOBINPID=48 [CODE IDENTIFIER FOR INPUT DURING JOB 4^NG #DEF FSHLOGNALID=49 [CODE IDENTIFIER FOR LOG ANALYSIS 5286 #DEF FSHCHEKPWID=50 [CODE IDENTIFIER FOR PASSWORD CHECK 52MQ #DEF FSHJLSOCSID=51 [CODE IDENTIFIER FOR JLASSOCS MACRO 537B #DEF FSHADICTWID=52 [CODE IDENTIFIER FOR DICTWELL 53M2 #DEF FSHFZCOMID =53 [CODE IDENTIFIER FOR 'FREEZE' 546L #DEF FSHRGCOMID =54 [CODE IDENTIFIER FOR 'REGENERATE' 54L= #DEF FSHLOGACCID=55 [CODE IDENTIFIER FOR 'LOGACC' 555W #DEF FSHFCBFIND =56 [CODE IDENTIFIER FOR FCBFIND MAC 55KG #DEF FSHRENAMEID=57 [CODE IDENTIFIER FOR 'RENAME' 5656 #DEF FSHCLOSFZID=58 [CODE IDENTIFIER FOR 'FREEZESAVE' 56JQ #DEF FSHWPID =59 [CODE IDENTIFIER FOR 'WHATPER' 574B #DEF FSHTFID =60 [CODE IDENTIFIER FOR TRANFAIL 57J2 #DEF FSHSCID =61 [CODE IDENTIFIER FOR 'SCHEDULE' 583L #DEF FSHWJID =62 [CODE IDENTIFIER FOR 'WHATJOBS' 58H= #DEF FSHWSID =63 [CODE IDENTIFIER FOR 'WHATSTATE' 592W #DEF FSHWSEXTRA =64 [CODE IDENTIFIER FOR 'WS' EXTRACODE 59GG #DEF FSHWSWAIT =65 [CODE IDENTIFIER FOR WS WAITING JOBS 5=26 #DEF FSHWSPERIS =66 [CODE IDENTIFIER FOR WS PERIPHERALS 5=FQ #DEF FSHDSCNCTID=67 [CODE IDENTIFIER FOR 'DC' COMMAND 5=^B #DEF FSHCNECTID =68 [CODE IDENTIFIER FOR 'CN' COMMAND 5?F2 #DEF FSHALLOC1ID=69 [CODE IDENTIFIER FOR COPYFILE STAGE 1 5?YL #DEF FSHALLOC2ID=70 [CODE IDENTIFIER FOR COPYFILE STAGE 2 5#D= #DEF FSHADDJOBID=71 [CODE IDENTIFIER FOR ADDJOB 5#XW #DEF FSHFNID =72 [CODE IDENTIFIER FOR FINISH 5*CG #DEF FSHWJWSID =73 [CODE IDENTIFIER FOR WJ OR WS START 5*X6 #DEF FSHWSJOBS =74 [CODE IDENTIFIER FOR WSJOBS SEGMENT 5BBQ #DEF FSHOPID =75 [CODE IDENTIFIER FOR SL,WL AND CH 5BWB #DEF FSHREADFAIL=76 [CODE IDENTIFIER FOR READ FAILURES 5CB2 #DEF FSHWAID =77 [CODE IDENTIFIER FOR WA (WHATPROP) 5CTL #DEF FSHHLSEXID =78 [CODE IDENTIFIER FOR SCHEDJOB 5D*= #DEF FSHHLSEVID =79 [CODE IDENTIFIER FOR HLSEVENT 5DSW #DEF FSHAUID =80 [CODE IDENTIFIER FOR AU & CC AU 5F24 ...#DEF FSHUNSAVEID=81 [CODE IDENTIFIER FOR UNSAVE 5F7= ...#DEF FSHWAITINID=82 [CODE IDENTIFIER FOR 'WAITIN' EVENT 5F9W ...#DEF FSHLONGMESS=83 [CODE IDENTIFIER FOR LONGWAIT MESSAGE 5F9^ ...#DEF FSHPROPID =84 [CODE IDENTIFIER FOR 'PR' COMMAND 5F=4 ...#DEF FSHIDFID =85 [CODE IDENTIFIER FOR IDF CHANGES 5F=7 ...#DEF FSHIDFPERID=86 [CODE IDENTIFIER FOR IDFPER(LISTFILE) 5F== ...#DEF FSHREROUTE =87 [CODE IDENTIFIER FOR REROUTED OUTPUT 5F=* ... [ IN SEGMENT CONSROOT 5F=D ...#DEF FSHPROPARS =88 [CODE IDENTIFIER FOR 'PR' COMMAND TO 5F=H ... [ RETURN TO HOME M/C FOR 'PARSORT' 5F=L ...#DEF FSHCONCLID =89 [CODE IDENTIFIER FOR CONCEPTUALS 5F=N ...#DEF FSHACTPRI =90 [CODE IDENTIFIER FOR UPDATING ACT PRI 5F=P ...#DEF FSHINCBX=91 [CODE ID FOR INCRCUBX OBEYED ON HOME 5F=Q ...#DEF FSHNOTFINID=240 [CODE ID FOR /FSHREQ TO PROTECT 5F?L ... [/FSHARED FROM TRANCHKN IN SUP'V'SORY 5F#G # 5FJ# ...# 5FS6 # CERTAIN OPERATIONS REQUIRE TRANSBEG'S TO BE ISSUED UNDER THE 5G?Q # PROTECTION OF THE 'FSHCHAIN' SEMAPHORE. THESE TRANSBEG'S MUST 5GRB # USE A SPECIAL RANGE OF CODE IDENTIFIERS WHICH INDICATE THAT THE 5H?2 # SEMAPHORE IS ALREADY HELD. 5HQL # 5J== #DEF FSHNOCOORID=240 [IDENTIFIER FOR LAST ORDINARY CODE ID 5JPW # 5K9G #DEF FSHRSCHEDID=255 [CODE IDENTIFIER FOR SCHEDJOB 5KP6 # 5L8Q #DEF FSHOWNSHREQ=#7777 5LNB # 5M82 # 5MML # OTHER IDENTIFIERS 5N7= # 5NLW # 5P6G #DEF FSHIPCLEN=256 [LENGTH OF TRANSFERS ACROSS IPB 5PL6 # 5Q5Q # 5QKB #DEF FSHBSBLOCKS=64 [NO OF B/S BLOCKS GOT FOR M/C 'B' 5R52 # 5RJL # 5S4= #DEF FSHFIXED=0 [IDENTIFIERS FOR FSHTABLE MACRO 5SHW #DEF FSHCURRACT=1 5T3G #DEF FSHJOBQUE=2 5TH6 # 5W2Q #DEF FSHNOBLOCKS=#77 [PSEUDO BLOCK TYPE FOR TRANSBEG 5WGB # 5X22 # 5XFL #DEF FSHTIMEOUT=8 [IPC TRANSFER TIME-OUT PERIOD (APPROX 5X^= # [30 SECONDS) 5YDW # 5YYG #DEF FSHPREFIX=0 [IDENTIFIERS FOR USE WITH THE RESTORE 5^D6 #DEF FSHPREFIXA=0 [ TIME MACRO 'MCONSPFIX' TO INDICATE 5^XQ #DEF FSHPREFIXB=0 [ THE SETTING OF PARAMETER 3 TO ONE 62CB # [ OF THE VALUES 'A', 'B' OR NULL. 62X2 # 63BL # 63W= # 64*W # BIT DEFINITIONS 64TG # 65*6 # 1. IN THE CODE IDENTIFIER WORD 65SQ # 66#B BITDEFS FSHCODEID,12,FSHAUTOTRAN,FSHSUPERV,FSHNEWACT,FSHNESTED 66S2 FIELDDEF FSHCODENUM,8,FSHCODEID,23 67?L # 67R= # 2. IN THE BITS MARKER WORD 68=W # 68QG BITDEFS FSHBITS,0,FSHTRANSFIN,FSHNODATA,FSHKEEPREQ,FSHACTNUM 692# ... BITDEFS FSHBITS,4,FSHTRANSET 69=6 FIELDDEF FSHNESTCT,9,FSHBITS,23 69PQ # 6=9B # 3. IN THE FIXED CORE FSH STATUS WORD 6=P2 # 6?8L BITDEFS FSHSTATE,0,FSHRUNNING,FSHNOTESTAB,FSHRTRAN,FSHWTRAN 6?N= BITDEFS FSHSTATE,4,FSHINBATCH,FSHRECHECK,FSHCLOSE,FSHSELECTED 6#7W ... BITDEFS FSHSTATE,8,FSHIPCSET,FSHCLOSDOWN,FSHONEWORD 6#MG BITDEFS FSHSTATE,12,FSHLINKCOM,FSHCHAINB1,FSHCHAINB2 6*76 FIELDDEF FSHAREDCT,9,FSHSTATE,23 6*LQ # 6B6B # DECLARE SEMAPHORE CONTROL CHAINING OF DATA BY TRANSFER ROUTINES 6BL2 # 6C5L SEMAPHOR FSHCHAIN,FSHCHAINB1,FSHCHAINB2,FSHCHAINWT 6CK= # 6D4W # 6DJG # 4. IN THE ACTIVITY BLOCK 6F46 # 6FHQ [ BITDEFS AFLAG,2,BFSHACTB [ ALSO IN COMPS CORE 6G3B [ BITDEFS CLONG1,7,FSHALIEN,EXINERT,FSHNOTJOBNO 6GH2 [ ALSO IN COMPS ACTBLK 6H2L [ BITDEFS EXT+9,12,EXBIAWAY [ ALSO IN COMPS COMPRO 6HG= # 6H^W # 5. IN THE FIXED CORE DUMPER WORD 6JFG # 6J^6 [ BITDEFS INCWORD,13,BFSHB [ ALSO IN COMPSDUMP 6KDQ # 6KYB # 6. IN THE JOB BLOCK (JOBQUE) 6LD2 # 6LXL [ BITDEFS JCLASS,5,JBFSHALIEN [ ALSO IN LLSBITS 6MC= # 6MWW # 7. IN THE FILE CONTROL BLOCK 6NBG # 6NW6 ...[ BITDEFS FINFD,0,BFSETUPB,BFSETMAPB,BFOPENBW,BFCOMMONB,BFBLUPDATE 6P*Q [ ALSO IN FILECOMPS 6PTB # 6Q*2 # 8. IN THE FSH/FSHMOVE BLOCK 6QSL # 6R#= BITDEFS FSHMVSTATE,0,BFSHMVFCBTB,BFSHMVFMAPP,BFSHMVMAPTB 6RRW BITDEFS FSHMVSTATE,3,BFSHMVNTONB,BFSHMVFCBTA,BFSHMVUPB,BFSHMVMAPB 6S?G ... BITDEFS FSHMVSTATE,7,BFSHMVCLOS,BFSHMVCOPY,BFSHMVBLUP 6SR6 # 6T=Q # 9. IN THE BSTB/CART AND BSTB/HORSE BLOCKS 6TQB # 6W=2 BITDEFS A1+3,0,BCGSHARED,BCGDEDIC,BCGFILESTOR,BCGHOMESWAP 6WPL BITDEFS A1+3,4,BCGAWAYSWAP 6X9= # 6XNW # 10. IN SYSTEM.JOBLIST AND 'JSAINFO' IN FIXED CORE & IN HLSQ BL 6Y8G # 6YN6 [ BITDEFS JLSTATX,4,JLBMACHA,JLBMACHB,JLBRUNB 6^7Q [ BITDEFS JSAINFO,12,JSVIRTMOPB,JSVIRTBACKB,JSPREFERA 6^MB [ BITDEFS HLSYONQA,13,BLASTRUNB 7272 # 72LL # 11. IN THE FILE CONTROL AREA (FCA) 736= # 73KW [ BITDEFS FGENERAL2,17,BAOPENONB [ALSO IN FILECOMPS 745G # 74K6 # 12. IN THE FSH/FSHJCOUNTS BLOCK 754Q # 75JB BITDEFS FSHJOBTYPE,0,FSHBJOB,FSHONLYONE,FSHAFULL,FSHBFULL 7642 BITDEFS FSHJOBTYPE,23,FSHSTMOP 76HL # 76J7 ...# 13. IN THE IPCA/FSHBPM ACTIVITY 76JN ...# 76K9 ... BITDEFS AWORK1,0,FSHBPMLKCOM,FSHBPMACTWT,FSHBPMDOWN,FSHBPMKILL 76KQ ... BITDEFS AWORK1,4,FSHBPMLOKB1,FSHBPMLOKB2,FSHBPMFNCOM 76L? ...# 76LS ...# SEMAPHOR TO CONTROL 'CHANGEFILE'ING OF MONITORING FILE TO /FSHBPM 76M* ...# 76MW ... SEMAPHOR FSHBPMLOCK,FSHBPMLOKB1,FSHBPMLOKB2,FSHBPMLOKWT 76NC ...# 76NY ...# 14. IN :SYSTEM.DOCUMENT 76PF ...# 76Q2 ...# BASIC INPUT DEVICE DOCUMENT RECORDS 76QH ...# 76R4 ... BITDEFS A1+1,14,BFSHDOCB 76RK ...# 76S6 ...# 76SM ...# AND THE IDENTIFIERS USED FOR MAGNETIC TAPE ENTRIES 76T8 ...# ORDINARY IDENTIFIERS REFER TO FWB,FRB,FMAGH BLOCK POINTERS 76TP ...# 'N' IDENTIFIERS REFER TO 'STEP' POINTERS. 76W= ...# 76WR ...[DEF FSDSTAT = A1+21 76X# ...[DEF FSDSTATN = 21 76XT ...# 76YB ...[ BITDEFS FSDSTAT,2,BFSHMCB 76YX ...[ BITDEFS FSDSTATN,2,BNFSHMCB 76^D ...# 76^^ ...# 773= # 77GW # 782G # WAITING STYLES [ ALSO IN COMPSWAITING 78G6 # 78^Q [DEF FSHIPCEMS=#200 [WAITING STYLE FOR IPB ACTIVITIES 79FB # [IN EMS ON 'B' MACHINE 79^2 [DEF FSHMVWAIT=#201 [FSHMOVE WAITING FOR FCB(OR FMAPP) 7=DL # [ TO ARRIVE ON 'B' 7=Y= ...[DEF FSHMVOPENB=#203 [WAITING FOR PARTIALLY COMPLETED OPEN 7?CW # [ ON 'B' TO FINISH 7?XG ...[DEF FSHCHAINWT=#204 ['FSHCHAIN' SEMAPHORE WAITING STYLE 7#C6 # 7#WQ ...[DEF FSHBPMLOKWT=#205 ['FSHBPMLOCK' SEMAPHOR WAITING STYLE 7*BB ...# ^^^^ ...436632230129