{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: JDTWO864)}}
====== JDTWO864 ======
(George Source)
**Macros used:** [[george:macro:BITDEFS|BITDEFS]], [[george:macro:BS|BS]], [[george:macro:BXE|BXE]], [[george:macro:BXU|BXU]], [[george:macro:CLOSETOP|CLOSETOP]], [[george:macro:COMBRKIN|COMBRKIN]], [[george:macro:ERRORX|ERRORX]], [[george:macro:FNORM|FNORM]], [[george:macro:FREECORE|FREECORE]], [[george:macro:FSHCODE|FSHCODE]], [[george:macro:FSHENTRY|FSHENTRY]], [[george:macro:JBC|JBC]], [[george:macro:JBS|JBS]], [[george:macro:JLADJUST|JLADJUST]], [[george:macro:MHUNT|MHUNT]], [[george:macro:MHUNTW|MHUNTW]], [[george:macro:NAMETOP|NAMETOP]], [[george:macro:OPENDIR|OPENDIR]], [[george:macro:PARAFREE|PARAFREE]], [[george:macro:PARAMOVE|PARAMOVE]], [[george:macro:PARANOT|PARANOT]], [[george:macro:PARANOTX|PARANOTX]], [[george:macro:SEG|SEG]], [[george:macro:SEGENTRY|SEGENTRY]], [[george:macro:TESTREP2|TESTREP2]], [[george:macro:UP|UP]], [[george:macro:UPPLUS|UPPLUS]]
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