JDTWO864
(George Source)
Macros used: BITDEFS, BS, BXE, BXU, CLOSETOP, COMBRKIN, ERRORX, FNORM, FREECORE, FSHCODE, FSHENTRY, JBC, JBS, JLADJUST, MHUNT, MHUNTW, NAMETOP, OPENDIR, PARAFREE, PARAMOVE, PARANOT, PARANOTX, SEG, SEGENTRY, TESTREP2, UP, UPPLUS
- JDTWO864.txt
22FL SEG JDTWO,864,SECTION CENT 22^= [OVERFLOW FROM JOBDATA:SHFS AND TSN CODE 23DW [ 23YG FSHENTRY K1JDTWO,XK1,XK1,XK1 [SHFS 24D6 SEGENTRY K2JDTWO,XK2 [TSN 24XQ [ 25CB BITDEFS AWORK4,2,TFORMAT,STARTCOM,SIGNEED 25X2 BITDEFS AWORK4,5,SINGLE,TMINUS,TPLUS,PMINUS 26BL XK2 MHUNT 3,CPB,CUNI 26W= [NOW FOR AWKWARD CASE:FNORM WANTS ONLY FOLLOWING STRONG 27*W [EG IFIENT IS TSN THEN MUST CATER FOR TSN(NUMBER) OR TSN((NUMBER)) 27TG [ OR TSN(TAPE NAME,(NUMBER)) OR TSNTAPENAME(NUMBER) 28*6 [AND FNORM WANTS PARENTHESES ROND NUMBER 28SQ LDX 7 AWORK1(2) 29#B LDX 5 JPARNUM(3) 29S2 JBS PTSN1,2,SINGLE [J IF NO PARALYSE DONR 2=?L LDCH 0 APARA(3) 2=R= SBN 0 10 2?=W BPZ 0 PTSN2 [DROP THRU IF DIGIT MUST PUT () BACK 2?GN ...PTSN1 FREECORE 3 2?QG ... JBS JDPAR,2,STARTCOM 2#2# ... PARAFREE 2#=6 PARAMOVE 7,5 [SET CALAS TO FOLLOWING STRING 2#PQ PARANOTX 5 [GET CB,CUNI 2#R^ ... BRN PTSN3 2#W8 ...JDPAR LDN 7 4 2#YC ... PARAFREE 7 2*2L ... LDN 7 3 2*4T ... PARANOT 2,7 2*74 ...PTSN3 2*9B MHUNT 3,CPB,CUNI 2*P2 PTSN2 2B8L NAMETOP 3,FILE,FNAME 2BN= FNORM [PUT MT NAME IN FABSNB 2C7W MHUNT 3,FILE,FNAME 2CMG NAMETOP 3,CPB,CUNI 2D76 TESTREP2 NAMEFORM,XEROP [PARAM. FORMAT ERR. 2DLQ MHUNT 3,FILE,FABSNB 2F6B SMO ALOGLEN(3) 2FL2 LDX 7 A1-1(3) [T.S.N. PERHAPS 2G5L LDX 0 ATYPE(3) 2GK= ANDN 0 #2000 2H4W BNZ 0 TSN9 [J IF TSN GIVEN 2HJG LDN 0 1 2J46 ORS 0 ATYPE(3) [SET MT INDICATORFOR OPENDIR 2JHQ OPENDIR XBREAK,READ,QUERY 2K3B TESTREPN2 OK,XMTER 2KH2 MHUNT 3,FILE,ENT 2L2L LDX 7 ESER(3) [T.S.N. 2LG= FREECORE 3 2L^W CLOSETOP [CLOSE DIRECTORY 2MFG TSN9 2M^6 STO 7 ACOMMUNE1(2) 2NDQ UPPLUS 2 2NYB XEROP UPPLUS 1 2PD2 XMTER UP 2PXL XBREAK COMBRKIN 2QC= # 2QWW FSHCODE AORB 2RBG ( 2RW6 XMACH 4HMACH 2S*Q # 2STB XMACHA 4HA 2T*2 4H(A) 2TSL # 2W#= XMACHB 4HB 2WRW 4H(B) 2X?G # 2XR6 XJPARNULL +JPARNULL 2Y=Q XAPFERR +APFERR 2YQB XFSHMACHER +FSHMACHER 2^=2 XMACHDOWN +FSHMACHDOWN 2^PL # 329= # 32NW # 338G XK1 [ENTRY POINT ONE 33N6 # 347Q # WE ARE ENTERED HERE FROM JOBDATA WHEN THERE HAS BEEN NO MATCH 34MB # WITH THE STANDARD SCHEDULING IDENTIFIERS. A CHECK IS MADE TO 3572 # SEE IF WE HAVE A 'MACH' PARAMETER 35LL # 366= MHUNT 3,CPB,CUNI [FIND THE PARAMETER BLOCK 36KW LDX 7 ANUM(3) 375G ANDN 7 #7777 [GET THE LENGTH OF THE PARAMETER IN 37K6 SBN 7 4 [CHARACTERS 384Q BNG 7 NOMATCH [JIF PARAMETER IS LESS THAN 4 CHARS 38JB # 3942 LDX 0 APARA(3) [JIF THE FIRST FOUR CHARS OF THE 39HL BXU 0 XMACH(1),NOMATCH [PARAMETER ARE NOT 'MACH' 3=3= # 3=GW BZE 7 PARNULL [JIF PARAMETER IS NULL AFTER 'MACH' 3?2G # 3?G6 LDEX 4 ATYPE(3) [GET NUMBER OF PARAMETER 3?^Q FREECORE 3 [AND FREE OLD UNI BLOCK 3#FB PARANOTX 4 [GET PARAMETER WITHOUT SPACES 3#^2 MHUNT 3,CPB,CUNI 3*DL LDX 7 ANUM(3) [GET LENGTH OF PARAMETER NOW 3*Y= ANDN 7 #7777 [THAT SPACES ARE REMOVED 3BCW SBN 7 9 3BXG BPZ 7 PARAFORM [JIF STRING > 8 CHARS 3CC6 # 3CWQ LDX 4 APARA+1(3) [GET REMAINDER OF STRING FOR CHECKING 3DBB MHUNTW 3,JWELL,COPYSYS [FIND THE JOBLIST ENTRY BLOCK 3DW2 JLADJUST 3 [AND SET POINTER FOR 'BIT' MACROS 3F*L # 3FT= BXE 4 XMACHA(1),MACHA [JIF WE HAVE EITHER FORM OF PARAMETER 3G#W BXE 4 XMACHB(1),MACHB [FOR BOTH MACHINES!! 3GSG BXE 4 XMACHA+1(1),MACHA 3H#6 BXE 4 XMACHB+1(1),MACHB 3HRQ BRN PARAFORM [ELSE PARAMETER FORMAT ERROR 3J?B # 3JR2 MACHA 3K=L JBS RONGMACH,3,JLBMACHB [JIF CONFLICT OF REQUIREMENTS 3KQ= BS 3,JLBMACHA [ELSE SET MACHINE 'A' MARKER 3L9W BRN OKEND 3LPG # 3M96 MACHB 3MNQ JBS RONGMACH,3,JLBMACHA [JIF OTHER MACHINE'S BIT SET 3N8B BS 3,JLBMACHB [ELSE SET MACHINE 'B' MARKER 3NN2 FSHCODE AORB 3P7L ( 3PM= LDXC 0 AWORK1(2) [CHECK THE 'NOWELL' GIVEN MARKER 3Q6W BCC OKEND [JIF NOT THE 'NOWELL' CASE 3QLG # 3R66 JBC XNOWELL,,FSHRUNNING [JIF 'NOWELL' & MACH 'B' NOT RUNNING 3R?# ... LDXC 0 FINISHB 3RDG ... BCS XNOWELL [J IF NOWELL & B CLOSING DOWN 3RKQ ) 3S5B # 3SK2 OKEND 3T4L LDN 3 2 [SET OFFSET FOR UPPLUS 3TJ= # 3W3W UPPLUS 3WHG UPPLUS 0(3) [RETURN TO CALLING ROUTINE 3X36 # 3XGQ # 3Y2B PARNULL [ERROR - NULL PARAMETER 3YG2 # 3Y^L LDX 7 XJPARNULL(1) 3^F= # 3^YW XERROR 42DG ERRORX 7 [OUTPUT THE COMMAND ERROR MESSAGE 42Y6 LDN 3 0 [OFFSET FOR THE ERROR CASE 43CQ BRN UPPLUS 43XB # 44C2 # 44WL PARAFORM [ERROR - PARAMETER FORMAT WRONG 45B= # 45TW LDX 7 XAPFERR(1) 46*G BRN XERROR 46T6 # 47#Q # 47SB RONGMACH [ERROR - CONFLICTING MACHINE REQUIREMENTS 48#2 # 48RL LDX 7 XFSHMACHER(1) 49?= BRN XERROR 49QW # 4==G # 4=Q6 XNOWELL [ERROR - 'NOWELL' REQUESTED FOR 'B' JOB & LINK DOWN!! 4?9Q # 4?PB LDX 7 XMACHDOWN(1) 4#92 BRN XERROR 4#NL # 4*8= # 4*MW NOMATCH [THIS IS NOT A 'MACH' PARAMETER SO GO BACK TO TRY 4B7G # [OTHER OPTIONS LIKE 2ND FORMAT 'NEEDS'!!!! 4BM6 # 4C6Q LDN 3 1 4CLB BRN UPPLUS 4D62 # 4DKL # 4F5= # 4FJW # 4G4G ) 4GJ6 #END ^^^^ ...757510750003