CROSS-POSTED to IBM_MAIN and JES2-L
Dear Group,
This simple task to move print from one JES spool to another is still
dragging on. Does anyone have a copy of a working EXIT40 that moves print
between spools?
I have modified SYS1.SHASAMP(HASX40A) with the following code:
LH R9, PDBDRMT (PDBDRMT - x'1C82' - 2 bytes in
length) - Load R9 with PDBDRMT value, fill the other half with good stuff.
MVC PDBDRMT(2),ZEROES (PDBDRMT - x'0000' - 2 bytes in length).
CVD R9,ANS (ANS - 8 bytes in length) - Convert
X'1C82' to Packed Decimal '00 00 00 00 00 07 29 8C'.
MVC INAREA(8),BLANKS (Pre load OUTAREA with 8 spaces).
MVC INAREA(1),EWE (Move "U" to position 1 of OUTAREA for a
length of 1).
UNPK NUMOUT(4),ANS (NUMOUT - 4 bytes in length) - Convert '00 00
00 00 00 07 29 8C' to 'F7 F2 F9 F8'.
If the first operand
is too short to contain all digits of the second operand,
The remaining
left-most portion of the second operand is ignored.
MVC PDBUSER(8),INAREA (Move 'E4 F7 F2 F9 F8 40 40 40' to PDBUSER).
LTORG
ANS DS CL8
BLANKS DC XL8'4040404040404040'
ZEROES DC XL2'0000'
EWE DC CL1'U'
OUTAREA DS 0CL8
INAREA DS CL1
NUMOUT DS CL4
HOLDER DS CL3
My logic was just update the PDBDNODE. But now I see the RMT field also
needs to be updated.
Thank you, Dave
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
