load control statement , out put of syspunch step

ALIREZA BAGHBAN

load control statement , out put of syspunch step

Hi ,  I have a scheduled program, that gets unload data from one tablespace and loads its output dataset to another table space every day , to moving data between 2 subsystems. (with the help of shared dasd)

currently we have DB2 10.1 on z/OS.

I am trying to change load control statement automatically before load utility , for example when unload creating it.

i want to change the control statement dataset in any way except manual editing after unload , because i have to add some options like REPLACE or NOCOPYPEND to the ACNTL dataset

 

Does anyone know how to?

Thanks in Advance to all.

Colin Clayton

load control statement , out put of syspunch step
(in response to ALIREZA BAGHBAN)
Alireza,

I’m assuming you are using the IBM Unload utility (not a user program) to unload the data and create SYSPUNCH load control cards, correct ?

Unfortunately the IBM utility does not contain any built-in functionality that will allow you to customize the load cards at the time they are generated.

Certain (nameless) ISV tools do have that functionality.

The alternative would be to write a small REXX or similar to edit the control cards before the load is executed.

Colin


From: ALIREZA BAGHBAN [mailto:[login to unmask email]
Sent: 07 November 2017 14:40
To: [login to unmask email]
Subject: [DB2-L] - load control statement , out put of syspunch step


Hi , I have a scheduled program, that gets unload data from one tablespace and loads its output dataset to another table space every day , to moving data between 2 subsystems. (with the help of shared dasd)

currently we have DB2 10.1 on z/OS.

I am trying to change load control statement automatically before load utility , for example when unload creating it.

i want to change the control statement dataset in any way except manual editing after unload , because i have to add some options like REPLACE or NOCOPYPEND to the ACNTL dataset



Does anyone know how to?

Thanks in Advance to all.

-----End Original Message-----

Michael Arlebrandt

SV: load control statement , out put of syspunch step
(in response to ALIREZA BAGHBAN)
Hi,


Here is a sample how to change UNLOAD syspunch cards. Note the . and blanks are important so you don't change other text by mistake.


//CHNG001 EXEC PGM=ICEMAN,COND=(4,LT)
//SORTIN DD DISP=SHR,
// DSN=hlq.DBCLONE.UNL.N001.S001.SYSP
//SORTOUT DD DISP=(,CATLG),
// DSN=hlq.DBCLONE.UNL.N001.S001.SYSP2,
// LIKE=hlq.DBCLONE.UNL.N001.S001.SYSP
//SYSOUT DD SYSOUT=*
//SYSIN DD *
OPTION COPY
OUTREC FINDREP=(INOUT=(C'"SCHEMA1".',C'"SCHEMA2".',
C' LOG NO ',C' LOG NO ENFORCE NO NOCOPYPEND ',
C' RESUME YES ',C' REPLACE '))
/*


best regards

Michael Arlebrandt
HCL


________________________________
Från: ALIREZA BAGHBAN <[login to unmask email]>
Skickat: den 7 november 2017 15:40
Till: [login to unmask email]
Ämne: [DB2-L] - load control statement , out put of syspunch step


Hi , I have a scheduled program, that gets unload data from one tablespace and loads its output dataset to another table space every day , to moving data between 2 subsystems. (with the help of shared dasd)

currently we have DB2 10.1 on z/OS.

I am trying to change load control statement automatically before load utility , for example when unload creating it.

i want to change the control statement dataset in any way except manual editing after unload , because i have to add some options like REPLACE or NOCOPYPEND to the ACNTL dataset



Does anyone know how to?

Thanks in Advance to all.

-----End Original Message-----


::DISCLAIMER::
----------------------------------------------------------------------------------------------------------------------------------------------------

The contents of this e-mail and any attachment(s) are confidential and intended for the named recipient(s) only.
E-mail transmission is not guaranteed to be secure or error-free as information could be intercepted, corrupted,
lost, destroyed, arrive late or incomplete, or may contain viruses in transmission. The e mail and its contents
(with or without referred errors) shall therefore not attach any liability on the originator or HCL or its affiliates.
Views or opinions, if any, presented in this email are solely those of the author and may not necessarily reflect the
views or opinions of HCL or its affiliates. Any form of reproduction, dissemination, copying, disclosure, modification,
distribution and / or publication of this message without the prior written consent of authorized representative of
HCL is strictly prohibited. If you have received this email in error please delete it and notify the sender immediately.
Before opening any email and/or attachments, please check them for viruses and other defects.

----------------------------------------------------------------------------------------------------------------------------------------------------

ALIREZA BAGHBAN

RE: SV: load control statement , out put of syspunch step
(in response to Michael Arlebrandt)

Your help solved my problem

Thanks

Philip Sevetson

load control statement , out put of syspunch step
(in response to Michael Arlebrandt)
**please note my email address change**
Michael,

This chances to fit a similar need in our team. Do you, by any chance, know how to code ICEMAN to insert a record (actually two records) _after_ the line containing LOAD DATA as well as making these changes?

We need to:

1) Change RESUME YES to RESUME NO REPLACE NOCOPYPEND (DSNUTILB, first line)

2) Put ENFORCE NO on a new line (because of the 72-byte limit, after adding the new text above to the first line)

3) Insert STATISTICS parameters (third line)

Can someone illustrate adding a new record? I'm told that it's possible but can't identify sample code in DFSORT/SYNCSORT.

Philip Sevetson
Computer Systems Manager
5 Manhattan West (33rd St at 10th Ave)
New York, NY 10001-2632
212-857-1688 w
917-991-7052 c
212-857-1659 f
[cid:[login to unmask email]

From: Michael Arlebrandt [mailto:[login to unmask email]
Sent: Tuesday, November 07, 2017 10:59 AM
To: [login to unmask email]
Subject: [DB2-L] - SV: load control statement , out put of syspunch step


Hi,



Here is a sample how to change UNLOAD syspunch cards. Note the . and blanks are important so you don't change other text by mistake.


//CHNG001 EXEC PGM=ICEMAN,COND=(4,LT)
//SORTIN DD DISP=SHR,
// DSN=hlq.DBCLONE.UNL.N001.S001.SYSP
//SORTOUT DD DISP=(,CATLG),
// DSN=hlq.DBCLONE.UNL.N001.S001.SYSP2,
// LIKE=hlq.DBCLONE.UNL.N001.S001.SYSP
//SYSOUT DD SYSOUT=*
//SYSIN DD *
OPTION COPY
OUTREC FINDREP=(INOUT=(C'"SCHEMA1".',C'"SCHEMA2".',
C' LOG NO ',C' LOG NO ENFORCE NO NOCOPYPEND ',
C' RESUME YES ',C' REPLACE '))
/*



best regards

Michael Arlebrandt
HCL

________________________________
Från: ALIREZA BAGHBAN <[login to unmask email]<mailto:[login to unmask email]>>
Skickat: den 7 november 2017 15:40
Till: [login to unmask email]<mailto:[login to unmask email]>
Ämne: [DB2-L] - load control statement , out put of syspunch step


Hi , I have a scheduled program, that gets unload data from one tablespace and loads its output dataset to another table space every day , to moving data between 2 subsystems. (with the help of shared dasd)

currently we have DB2 10.1 on z/OS.

I am trying to change load control statement automatically before load utility , for example when unload creating it.

i want to change the control statement dataset in any way except manual editing after unload , because i have to add some options like REPLACE or NOCOPYPEND to the ACNTL dataset



Does anyone know how to?

Thanks in Advance to all.

-----End Original Message-----
**This e-mail, including any attachments, may be confidential, privileged, or otherwise legally protected. It is intended only for the addressee. If you received this e-mail in error or from someone who was not authorized to send it to you, do not disseminate, copy, or otherwise use this e-mail or its attachments. Please notify the sender immediately by reply e-mail and delete the e-mail from your system.**
Attachments

  • image001.png (3.3k)

Michael Arlebrandt

load control statement , out put of syspunch step
(in response to Philip Sevetson)
Sorry Phil I don't know how to do that with ICEMAN but it's very easy to do with a couple of rexx lines...

But I also believe it can be done with ICEMAN as I saw that you can do a lot with Dfsort while I searched Google for my change.

/Michael
Den 8 nov. 2017, kI 21:53, "Sevetson, Phil" <[login to unmask email]<mailto:[login to unmask email]>> skrev:
**please note my email address change**
Michael,


This chances to fit a similar need in our team. Do you, by any chance, know how to code ICEMAN to insert a record (actually two records) _after_ the line containing LOAD DATA as well as making these changes?


We need to:

1) Change RESUME YES to RESUME NO REPLACE NOCOPYPEND (DSNUTILB, first line)

2) Put ENFORCE NO on a new line (because of the 72-byte limit, after adding the new text above to the first line)

3) Insert STATISTICS parameters (third line)


Can someone illustrate adding a new record? I’m told that it’s possible but can’t identify sample code in DFSORT/SYNCSORT.


Philip Sevetson
Computer Systems Manager
5 Manhattan West (33rd St at 10th Ave)
New York, NY 10001-2632
212-857-1688 w
917-991-7052 c
212-857-1659 f
[cid:[login to unmask email]




::DISCLAIMER::
----------------------------------------------------------------------------------------------------------------------------------------------------

The contents of this e-mail and any attachment(s) are confidential and intended for the named recipient(s) only.
E-mail transmission is not guaranteed to be secure or error-free as information could be intercepted, corrupted,
lost, destroyed, arrive late or incomplete, or may contain viruses in transmission. The e mail and its contents
(with or without referred errors) shall therefore not attach any liability on the originator or HCL or its affiliates.
Views or opinions, if any, presented in this email are solely those of the author and may not necessarily reflect the
views or opinions of HCL or its affiliates. Any form of reproduction, dissemination, copying, disclosure, modification,
distribution and / or publication of this message without the prior written consent of authorized representative of
HCL is strictly prohibited. If you have received this email in error please delete it and notify the sender immediately.
Before opening any email and/or attachments, please check them for viruses and other defects.

----------------------------------------------------------------------------------------------------------------------------------------------------

James Campbell

load control statement , out put of syspunch step
(in response to Philip Sevetson)
I use TSO/E EDIT - documented in the TSO/E Command Reference.

There is an example of its use, although it doesn't show an INSERT statement, in sample
job DSNTEJ2A.

James Campbell


On 8 Nov 2017 at 20:26, Sevetson, Phil wrote:

>
> **please note my email address change**
> Michael,
>  
> This chances to fit a similar need in our team. Do you, by any chance, know how to code
> ICEMAN to insert a record (actually two records) _after_ the line containing LOAD DATA
> as well as making these changes?
>  
> We need to:
> 1)     Change RESUME YES to RESUME NO REPLACE NOCOPYPEND (DSNUTILB, first
> line)
> 2)     Put ENFORCE NO on a new line (because of the 72-byte limit, after adding the new
> text above to the first line)
> 3)     Insert STATISTICS parameters (third line)
>  
> Can someone illustrate adding a new record? I´m told that it´s possible but can´t identify
> sample code in DFSORT/SYNCSORT.
>  
> Philip Sevetson
<rest snipped>

Michael Arlebrandt

RE: load control statement , out put of syspunch step
(in response to Philip Sevetson)

Hi Phil,

After a good night sleep I remembered the option to skip the first line in SYSPUNCH using ICEMAN

such as

//*--------------------------------------------------------------------

//CHNG001 EXEC PGM=ICEMAN,COND=(4,LT)
//SORTIN DD DISP=SHR,
// DSN=&SYSUID..DBCLONE.UNL.N001.S001.SYSP
//SORTOUT DD DISP=(,CATLG),
// DSN=&SYSUID..DBCLONE.UNL.N001.S001.SYSP2,
// LIKE=&SYSUID..DBCLONE.UNL.N001.S001.SYSP
//SYSOUT DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=COPY,SKIPREC=1
/*

and then in the LOAD job you can add whatever options you like

//*--------------------------------------------------------------------
//LOAD001 EXEC DSNUPROC,SYSTEM=D2VT,
// UID='XL100101',UTPROC='',COND=(4,LT)
//SORTDIAG DD DUMMY <= TO HAVE MORE MESSAGES WRITTEN
//SYSREC DD DISP=SHR,
// DSN=&SYSUID..DBCLONE.UNL.N001.S001.SYSR
//SYSIN DD *

LOAD DATA INDDN SYSREC
LOG NO
ENFORCE NO
NOCOPYPEND
REPLACE
STATISTICS

//   DD DISP=SHR,
//         DSN=&SYSUID..DBCLONE.UNL.N001.S001.SYSP2

 
best regards
Michael

venkata rama rajesh mallina

RE: load control statement , out put of syspunch step
(in response to ALIREZA BAGHBAN)

Are both subsystems connected through communication database

If yes, why you not trying CROSS LOAD utility.

Venkata Rama Rajesh