Joined: 02 Dec 2002 Posts: 625 Topics: 175 Location: Stockholm, Sweden
Posted: Fri Jun 29, 2018 2:23 am Post subject: Send file to system printer
I hope my subject is expressed correctly. Today, we have a program that sends a file directly to the system printer. What I would like to do is change the JCL so that the output file goes to a "proper" file, after which I run something like IEBCOPY to send it to the system printer as well. Here is my JCL at the moment
Code:
//OUTF OUTPUT CLASS=F
//OUTZ OUTPUT CLASS=Z
//*
//* )IM DIUTSK11
//MICHAEL EXEC PGM=IEBCOPY
//*-------------------------------------------------
//* COPY THE SYS008 FILE SO IT'S SENT TO system printer
//*-------------------------------------------------
//SYSUT1 DD DISP=SHR,DSN=SIMMIC.DIALTELP.KBN110.SYS008
//SYSUT2 DD SYSOUT=(Z,,DXGN),
// FCB=CB50,
// DEST=(JES2IFP,BARRNJ1),OUTPUT=(*.OUTZ)
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD DUMMY
When I submit this, I get the following error:-
Code:
IEB1128I *** COPYR1 (1ST PDSU PHYSICAL RECORD)
00A4A0 FFF8 00000000 00000000 4040C4D1 C4C540C6 ! DJDE F!
00A4B0 0008 D6D9D4E2 7ED5D6D5 C56BC4E4 D7D3C5E7 !ORMS=NONE,DUPLEX!
00A4C0 0018 7EE8C5E2 6BC6C5C5 C47EC1E4 E76BC2C5 !=YES,FEED=AUX,BE!
00A4D0 0028 C7C9D57E 4DF14BF6 F56BF04B F95D6BC1 !GIN=(1.65,0.9),A!
00A4E0 0038 E2E2C9C7 D57E4DF1 7F000000 80807FF8 !SSIGN=(1" "8!
00A4F0 0048 00009800 00124000 00006988 00006CE0 ! q h %É!
00A500 0058 02000000 0000A4E8 000069B8 0C001318 ! uY !
00A510 0068 000069B0 00009800 00000000 00000000 ! q !
00A520 0078 00000000 43000200 06124000 20007FF8 ! "8!
00A530 0088 00000000 00000000 00000000 00000000 !!
00A540 0098 00000000 00000000 00000000 00000000 !!
IEB120I SYSUT1 VALIDATION ERROR
IEB178I NOT AN IEBCOPY UNLOADED DATA SET - 1ST PHYSICAL RECORD NOT 64 BYTES LONG
IEB1030I DDNAME SYSUT1 REFERS TO PDSU DATA SET ON VOLUME WRKT02 NAMED SIMMIC.D
IEB166I NO MEMBERS COPIED TO DATA SET REFERENCED BY SYSUT2
What would be the best way of handling this ?
(I'm assuming I can't change the first program's JCL so that somehow or other, ONE output file is sent to TWO destinations at once. If this is doable, then I'd be happy with that)
The answer was to do an IEBGENER instead. _________________ Michael
Last edited by misi01 on Fri Jun 29, 2018 4:05 am; edited 1 time in total
You cannot post new topics in this forum You cannot reply to topics in this forum You cannot edit your posts in this forum You cannot delete your posts in this forum You cannot vote in polls in this forum