Re: IEBGENER and JES System Symbol

2022-11-14 Thread Allan Staller 
Classification: Confidential

SYSSYM=ALLOW in JES JOBCLASS DEF?

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Wendell Lovewell
Sent: Monday, November 14, 2022 10:08 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: IEBGENER and JES System Symbol

[CAUTION: This Email is from outside the Organization. Unless you trust the 
sender, Don’t click links or open attachments as it may be a Phishing email, 
which can steal your Information and compromise your Computer.]

Hey Gil.

I changed to //SYSINDD  *,SYMBOLS=(EXECSYS,SYSPRINT) and the log showed the 
PROC variables in the SYSIN data NOT being substituted.

-

If I only code the  &  parameters in the SYSIN data, JES complains with 
IEFC657I messages because I didn't use the parms to the PROC:

   3 //RECATL   PROC DSN=,VOL=
 //EX1  EXPORT SYMLIST=*
 //RECTIDX  EXEC PGM=IDCAMS
 //SYSPRINT DD SYSOUT=L
 //SYSINDD  *,SYMBOLS=(EXECSYS,SYSPRINT)
 //PEND
 //*
   4 //R1 EXEC RECATL,DSN=WRL1.LINEAR,VOL=MACK07
   5 ++RECATL   PROC DSN=,VOL=
   6 ++EX1  EXPORT SYMLIST=*
   7 ++RECTIDX  EXEC PGM=IDCAMS
   8 ++SYSPRINT DD SYSOUT=L
   9 ++SYSINDD  *,SYMBOLS=(EXECSYS,SYSPRINT)
 STMT NO. MESSAGE
4 IEFC001I PROCEDURE RECATL WAS EXPANDED USING INSTREAM PROCEDURE 
DEFINITION
4 IEFC657I THE SYMBOL DSN WAS NOT USED
4 IEFC657I THE SYMBOL VOL WAS NOT USED

-

If I add dummy SET statements to get around the IEFC657I messages, but use the 
same symbol names in the SYSIN data as the PROC uses, SYSIN doesn't get changed:

//RECATL   PROC DSN=,VOL=
//EX1  EXPORT SYMLIST=*
// SET DS=
// SET VL=
//RECTIDX  EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=L
//SYSINDD  *,SYMBOLS=(EXECSYS,SYSPRINT)
  DEFINE  CLUSTER(NAME() -
   RECATALOG LINEAR VOL()) -
   DATA(NAME())
//PEND
//*
//R1 EXEC RECATL,DSN=WRL1.LINEAR,VOL=MACK07

SYSIN: RECORD 1 BEFORE SUBSTITUTION
SYSIN:   DEFINE  CLUSTER(NAME() -
SYSIN: RECORD 1 AFTER SUBSTITUTION

  DEFINE  CLUSTER(NAME() -
SYSIN:   DEFINE  CLUSTER(NAME() -
SYSIN: RECORD 2 BEFORE SUBSTITUTION
SYSIN:RECATALOG LINEAR VOL()) -
SYSIN: RECORD 2 AFTER SUBSTITUTION
SYSIN:RECATALOG LINEAR VOL()) -
SYSIN: RECORD 3 BEFORE SUBSTITUTION
SYSIN:DATA(NAME())
SYSIN: RECORD 3 AFTER SUBSTITUTION
IDC3203I ITEM '' DOES NOT ADHERE TO RESTRICTIONS
   RECATALOG LINEAR VOL()) -
   DATA(NAME())
IDC3202I ABOVE TEXT BYPASSED UNTIL NEXT COMMAND. CONDITION CODE IS 12

IDC0002I IDCAMS PROCESSING COMPLETE. MAXIMUM CONDITION CODE WAS 12
SYSIN:DATA(NAME())
-

If I rename the PROC variables using SET statements, and then use the SET names 
in SYSIN, it works:

//RECATL   PROC DSN=,VOL=MACK07
//EX1  EXPORT SYMLIST=*
// SET DS=
// SET VL=
//RECTIDX  EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=L
//SYSINDD  *,SYMBOLS=(EXECSYS,SYSPRINT)
  DEFINE  CLUSTER(NAME() -
   RECATALOG LINEAR VOL()) -
   DATA(NAME())
//PEND
//*
//R1 EXEC RECATL,DSN=WRL1.LINEAR,VOL=MACK07

SYSIN: RECORD 1 BEFORE SUBSTITUTION
SYSIN:   DEFINE  CLUSTER(NAME() -
SYSIN: RECORD 1 AFTER SUBSTITUTION
SYSIN:   DEFINE  CLUSTER(NAME(WRL1.LINEAR) -
SYSIN: RECORD 2 BEFORE SUBSTITUTION
SYSIN:RECATALOG LINEAR VOL()) -
SYSIN: RECORD 2 AFTER SUBSTITUTION
SYSIN:RECATALOG LINEAR VOL(MACK07)) -
SYSIN: RECORD 3 BEFORE SUBSTITUTION
SYSIN:DATA(NAME())
SYSIN: RECORD 3 AFTER SUBSTITUTION

  DEFINE  CLUSTER(NAME(WRL1.LINEAR) -
   RECATALOG LINEAR VOL(MACK07)) -
   DATA(NAME(WRL1.LINEAR.DATA))
IDC3013I DUPLICATE DATA SET NAME
IDC3009I ** VSAM CATALOG RETURN CODE IS 8 - REASON CODE IS IGG0CLEH-38 IDC3003I 
FUNCTION TERMINATED. CONDITION CODE IS 12

IDC0002I IDCAMS PROCESSING COMPLETE. MAXIMUM CONDITION CODE WAS 12
SYSIN:DATA(NAME(WRL1.LINEAR.DATA))

(The dataset was fine before I started, so IDCAMS fails rc 12.  But the 
variables in the SYSIN data were substituted correctly.)

-

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN
::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 interce

Re: IEBGENER and JES System Symbol

2022-11-14 Thread Wendell Lovewell 
Hey Gil.  

I changed to //SYSINDD  *,SYMBOLS=(EXECSYS,SYSPRINT) and the log showed the 
PROC variables in the SYSIN data NOT being substituted. 

-

If I only code the  &  parameters in the SYSIN data, JES complains with 
IEFC657I messages because I didn't use the parms to the PROC:

   3 //RECATL   PROC DSN=,VOL=
 //EX1  EXPORT SYMLIST=*
 //RECTIDX  EXEC PGM=IDCAMS
 //SYSPRINT DD SYSOUT=L
 //SYSINDD  *,SYMBOLS=(EXECSYS,SYSPRINT)
 //PEND
 //*
   4 //R1 EXEC RECATL,DSN=WRL1.LINEAR,VOL=MACK07
   5 ++RECATL   PROC DSN=,VOL=
   6 ++EX1  EXPORT SYMLIST=*
   7 ++RECTIDX  EXEC PGM=IDCAMS
   8 ++SYSPRINT DD SYSOUT=L
   9 ++SYSINDD  *,SYMBOLS=(EXECSYS,SYSPRINT)
 STMT NO. MESSAGE
4 IEFC001I PROCEDURE RECATL WAS EXPANDED USING INSTREAM PROCEDURE 
DEFINITION
4 IEFC657I THE SYMBOL DSN WAS NOT USED
4 IEFC657I THE SYMBOL VOL WAS NOT USED

-

If I add dummy SET statements to get around the IEFC657I messages, but use the 
same symbol names in the SYSIN data as the PROC uses, SYSIN doesn't get changed:

//RECATL   PROC DSN=,VOL=
//EX1  EXPORT SYMLIST=*
// SET DS=
// SET VL=
//RECTIDX  EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=L
//SYSINDD  *,SYMBOLS=(EXECSYS,SYSPRINT)
  DEFINE  CLUSTER(NAME() -
   RECATALOG LINEAR VOL()) -
   DATA(NAME())
//PEND
//*
//R1 EXEC RECATL,DSN=WRL1.LINEAR,VOL=MACK07

SYSIN: RECORD 1 BEFORE SUBSTITUTION
SYSIN:   DEFINE  CLUSTER(NAME() -
SYSIN: RECORD 1 AFTER SUBSTITUTION

  DEFINE  CLUSTER(NAME() -
SYSIN:   DEFINE  CLUSTER(NAME() -
SYSIN: RECORD 2 BEFORE SUBSTITUTION
SYSIN:RECATALOG LINEAR VOL()) -
SYSIN: RECORD 2 AFTER SUBSTITUTION
SYSIN:RECATALOG LINEAR VOL()) -
SYSIN: RECORD 3 BEFORE SUBSTITUTION
SYSIN:DATA(NAME())
SYSIN: RECORD 3 AFTER SUBSTITUTION
IDC3203I ITEM '' DOES NOT ADHERE TO RESTRICTIONS
   RECATALOG LINEAR VOL()) -
   DATA(NAME())
IDC3202I ABOVE TEXT BYPASSED UNTIL NEXT COMMAND. CONDITION CODE IS 12

IDC0002I IDCAMS PROCESSING COMPLETE. MAXIMUM CONDITION CODE WAS 12
SYSIN:DATA(NAME())
-

If I rename the PROC variables using SET statements, and then use the SET names 
in SYSIN, it works:

//RECATL   PROC DSN=,VOL=MACK07
//EX1  EXPORT SYMLIST=*
// SET DS=
// SET VL=
//RECTIDX  EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=L
//SYSINDD  *,SYMBOLS=(EXECSYS,SYSPRINT)
  DEFINE  CLUSTER(NAME() -
   RECATALOG LINEAR VOL()) -
   DATA(NAME())
//PEND
//*
//R1 EXEC RECATL,DSN=WRL1.LINEAR,VOL=MACK07

SYSIN: RECORD 1 BEFORE SUBSTITUTION
SYSIN:   DEFINE  CLUSTER(NAME() -
SYSIN: RECORD 1 AFTER SUBSTITUTION
SYSIN:   DEFINE  CLUSTER(NAME(WRL1.LINEAR) -
SYSIN: RECORD 2 BEFORE SUBSTITUTION
SYSIN:RECATALOG LINEAR VOL()) -
SYSIN: RECORD 2 AFTER SUBSTITUTION
SYSIN:RECATALOG LINEAR VOL(MACK07)) -
SYSIN: RECORD 3 BEFORE SUBSTITUTION
SYSIN:DATA(NAME())
SYSIN: RECORD 3 AFTER SUBSTITUTION

  DEFINE  CLUSTER(NAME(WRL1.LINEAR) -
   RECATALOG LINEAR VOL(MACK07)) -
   DATA(NAME(WRL1.LINEAR.DATA))
IDC3013I DUPLICATE DATA SET NAME
IDC3009I ** VSAM CATALOG RETURN CODE IS 8 - REASON CODE IS IGG0CLEH-38
IDC3003I FUNCTION TERMINATED. CONDITION CODE IS 12

IDC0002I IDCAMS PROCESSING COMPLETE. MAXIMUM CONDITION CODE WAS 12
SYSIN:DATA(NAME(WRL1.LINEAR.DATA))

(The dataset was fine before I started, so IDCAMS fails rc 12.  But the 
variables in the SYSIN data were substituted correctly.)

-

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: IEBGENER and JES System Symbol

2022-11-12 Thread Paul Gilmartin 
On Sat, 12 Nov 2022 10:09:43 -0600, Wendell Lovewell  
wrote:

>I can't explain why, but it works for me if I follow the //EX1  EXPORT 
>SYMLIST=* with SET statements using "renamed" variables, and then use the new 
>names in the in-stream data:
> 
Might logging-DDname be enlightening?  Can logging-DDname be merged with 
another SYSOUT,
as in:
...
//SYSPRINT DD SYSOUT=L
//SYSINDD  *,SYMBOLS=(EXECSYS,SYSPRINT)
...

>//RECATL   PROC DSN=,VOL=
>//EX1  EXPORT SYMLIST=*
>// SETDS=
>// SETVL=
>//RECATEXEC PGM=IDCAMS
>//SYSPRINT DD SYSOUT=L
>//SYSINDD  *,SYMBOLS=(EXECSYS)
>  DEFINE  CLUSTER(NAME() -
>   LINEAR RECATALOG VOL()) -
>   DATA(NAME())
>//*
>//PEND

-- 
gil

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: IEBGENER and JES System Symbol

2022-11-12 Thread Wendell Lovewell 
I can't explain why, but it works for me if I follow the //EX1  EXPORT 
SYMLIST=* with SET statements using "renamed" variables, and then use the new 
names in the in-stream data:

//RECATL   PROC DSN=,VOL=
//EX1  EXPORT SYMLIST=*
// SETDS=
// SETVL=
//RECATEXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=L
//SYSINDD  *,SYMBOLS=(EXECSYS)
  DEFINE  CLUSTER(NAME() -
   LINEAR RECATALOG VOL()) -
   DATA(NAME())
//*
//PEND


Wendell Lovewell

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: IEBGENER and JES System Symbol

2022-11-11 Thread Radoslaw Skorupka 
Just to complement other answers: IEBGENER has nothing to do with it. It 
could be IEBCOPY, IDCAMS or your own program.


--
Radoslaw Skorupka
Lodz, Poland





W dniu 11.11.2022 o 19:14, Sasso, Len pisze:

 - JES System Symbol (Name of the job - SASSTEST)
- Dynamic System Symbols

According to IBM, I should be able to use (substitute) the values of these 
symbols into the In-Stream Data,
if I code "SYMBOLS=EXECSYS" on the DD Statement.
Below is a PROC and Pend executing IEBGENER and the contents of the output file:

JOBNAME: 
_D2022.ZIP

Question: Why wasn't the value of the JES System Symbol (SASSTEST) substituted 
in the two records, but the values of the Dynamic System Symbols were 
substituted?
Any help would be appreciated.


//SASSTEST JOB OPS,'TEST',CLASS=A,MSGCLASS=X
//*
//COPYPROC PROC
//*
//PS0010   EXEC PGM=IEBGENER
//SYSINDD DUMMY
//SYSUDUMP DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//*
//SYSUT1   DD DUMMY
//*
//SYSUT2   DD UNIT=DISK,SPACE=(TRK,(1,1),RLSE),
//DISP=(,CATLG,DELETE),DSN=SASS.PRD.LSASSO.TST
//*
//PS0020   EXEC PGM=IEBGENER
//SYSINDD DUMMY
//SYSUDUMP DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//*
//SYSUT1   DD DISP=SHR,DSN=SASS.PRD.LSASSO.TST
//*
//SYSUT2   DD SYSOUT=*
//*
// PEND
//**
//JS0010   EXEC COPYPROC
//*
//PS0010.SYSUT1 DD *,SYMBOLS=EXECSYS
JOBNAME: 
_D
//*
//**


Thank You and Please Be Safe!

Len Sasso
Systems Administrator Senior
CSRA, A General Dynamics Information Technology Company
327 Columbia TPKE
Rensselaer, NY 12144

TEAM: Together Everyone Achieves More

Office Hours: M-F  7 AM - 3:45 PM

Vacation:

Phone: (518) 257-4209
Cell: (518) 894-0879
Fax: (518) 257-4300
len.sa...@gdit.com
URL: www.gdit.com




--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: IEBGENER and JES System Symbol

2022-11-11 Thread Sasso, Len 
OA55138: SYSJOBID AND SYSJOBNM INCORRECTLY DOCUMENTED IN THE MVS JCL REFERENCE 
V2R3

On page 50 of the MVS JCL Reference V2R3 under section "Using
the SYSUID system symbol" is the following statement referring
to SYSUID, SYSJOBNM and SYSJOBID:

"These symbols are available to JCL and can be used in in-stream
datasets, and are exported to the running address space."

The statement is misleading because it implies SYSJOBNM and
SYSJOBID can be used in in-stream datasets without an implicit
EXPORT/SET statement like SYSUID. This is not the case.

When SYSJOBNM/SYSJOBID are used in-stream without being
exported, it will result in the literal words "" and
"" appearing in-stream, with no substitution.


Thank You and Please Be Safe!

Len Sasso
Systems Administrator Senior
CSRA, A General Dynamics Information Technology Company
327 Columbia TPKE
Rensselaer, NY 12144

TEAM: Together Everyone Achieves More

Office Hours: M-F  7 AM - 3:45 PM

Vacation:

Phone: (518) 257-4209
Cell: (518) 894-0879
Fax: (518) 257-4300
len.sa...@gdit.com
URL: www.gdit.com<http://www.gdit.com/>

From: IBM Mainframe Discussion List  on behalf of 
Steve Smith 
Sent: Friday, November 11, 2022 2:03 PM
To: IBM-MAIN@LISTSERV.UA.EDU 
Subject: Re: IEBGENER and JES System Symbol



 [External: Use caution with links & attachments]

 isn't a system symbol.  It's a JES2 symbol.

 should work for this purpose, I use it.  The other is for JCL
(only, it seems) where  usually resolves to "JES2".

sas

On Fri, Nov 11, 2022 at 1:15 PM Sasso, Len <
039db7f8412a-dmarc-requ...@listserv.ua.edu> wrote:

>  - JES System Symbol (Name of the job - SASSTEST)
> - Dynamic System Symbols
>
> According to IBM, I should be able to use (substitute) the values of these
> symbols into the In-Stream Data,
> if I code "SYMBOLS=EXECSYS" on the DD Statement.
> Below is a PROC and Pend executing IEBGENER and the contents of the output
> file:
>
> JOBNAME: 
> _D2022.ZIP
>
> Question: Why wasn't the value of the JES System Symbol (SASSTEST)
> substituted in the two records, but the values of the Dynamic System
> Symbols were substituted?
> Any help would be appreciated.
>
>
> //SASSTEST JOB OPS,'TEST',CLASS=A,MSGCLASS=X
> //*
> //COPYPROC PROC
> //*
> //PS0010   EXEC PGM=IEBGENER
> //SYSINDD DUMMY
> //SYSUDUMP DD SYSOUT=*
> //SYSPRINT DD SYSOUT=*
> //*
> //SYSUT1   DD DUMMY
> //*
> //SYSUT2   DD UNIT=DISK,SPACE=(TRK,(1,1),RLSE),
> //DISP=(,CATLG,DELETE),DSN=SASS.PRD.LSASSO.TST
> //*
> //PS0020   EXEC PGM=IEBGENER
> //SYSINDD DUMMY
> //SYSUDUMP DD SYSOUT=*
> //SYSPRINT DD SYSOUT=*
> //*
> //SYSUT1   DD DISP=SHR,DSN=SASS.PRD.LSASSO.TST
> //*
> //SYSUT2   DD SYSOUT=*
> //*
> // PEND
> //**
> //JS0010   EXEC COPYPROC
> //*
> //PS0010.SYSUT1 DD *,SYMBOLS=EXECSYS
>JOBNAME: 
>_D
> //*
> //**
>
>
> Thank You and Please Be Safe!
>
> Len Sasso
> Systems Administrator Senior
> CSRA, A General Dynamics Information Technology Company
> 327 Columbia TPKE
> Rensselaer, NY 12144
>
> TEAM: Together Everyone Achieves More
>
> Office Hours: M-F  7 AM - 3:45 PM
>
> Vacation:
>
> Phone: (518) 257-4209
> Cell: (518) 894-0879
> Fax: (518) 257-4300
> len.sa...@gdit.com
> URL: www.gdit.com<http://www.gdit.com/>
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: IEBGENER and JES System Symbol

2022-11-11 Thread Steve Smith 
 isn't a system symbol.  It's a JES2 symbol.

 should work for this purpose, I use it.  The other is for JCL
(only, it seems) where  usually resolves to "JES2".

sas

On Fri, Nov 11, 2022 at 1:15 PM Sasso, Len <
039db7f8412a-dmarc-requ...@listserv.ua.edu> wrote:

>  - JES System Symbol (Name of the job - SASSTEST)
> - Dynamic System Symbols
>
> According to IBM, I should be able to use (substitute) the values of these
> symbols into the In-Stream Data,
> if I code "SYMBOLS=EXECSYS" on the DD Statement.
> Below is a PROC and Pend executing IEBGENER and the contents of the output
> file:
>
> JOBNAME: 
> _D2022.ZIP
>
> Question: Why wasn't the value of the JES System Symbol (SASSTEST)
> substituted in the two records, but the values of the Dynamic System
> Symbols were substituted?
> Any help would be appreciated.
>
>
> //SASSTEST JOB OPS,'TEST',CLASS=A,MSGCLASS=X
> //*
> //COPYPROC PROC
> //*
> //PS0010   EXEC PGM=IEBGENER
> //SYSINDD DUMMY
> //SYSUDUMP DD SYSOUT=*
> //SYSPRINT DD SYSOUT=*
> //*
> //SYSUT1   DD DUMMY
> //*
> //SYSUT2   DD UNIT=DISK,SPACE=(TRK,(1,1),RLSE),
> //DISP=(,CATLG,DELETE),DSN=SASS.PRD.LSASSO.TST
> //*
> //PS0020   EXEC PGM=IEBGENER
> //SYSINDD DUMMY
> //SYSUDUMP DD SYSOUT=*
> //SYSPRINT DD SYSOUT=*
> //*
> //SYSUT1   DD DISP=SHR,DSN=SASS.PRD.LSASSO.TST
> //*
> //SYSUT2   DD SYSOUT=*
> //*
> // PEND
> //**
> //JS0010   EXEC COPYPROC
> //*
> //PS0010.SYSUT1 DD *,SYMBOLS=EXECSYS
>JOBNAME: 
>_D
> //*
> //**
>
>
> Thank You and Please Be Safe!
>
> Len Sasso
> Systems Administrator Senior
> CSRA, A General Dynamics Information Technology Company
> 327 Columbia TPKE
> Rensselaer, NY 12144
>
> TEAM: Together Everyone Achieves More
>
> Office Hours: M-F  7 AM - 3:45 PM
>
> Vacation:
>
> Phone: (518) 257-4209
> Cell: (518) 894-0879
> Fax: (518) 257-4300
> len.sa...@gdit.com
> URL: www.gdit.com
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: IEBGENER and JES System Symbol

2022-11-11 Thread Allan Staller 
Classification: Confidential

Syssym=allow in jesparms?

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Sasso, Len
Sent: Friday, November 11, 2022 12:14 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: IEBGENER and JES System Symbol

[CAUTION: This Email is from outside the Organization. Unless you trust the 
sender, Don't click links or open attachments as it may be a Phishing email, 
which can steal your Information and compromise your Computer.]

 - JES System Symbol (Name of the job - SASSTEST)
- Dynamic System Symbols

According to IBM, I should be able to use (substitute) the values of these 
symbols into the In-Stream Data, if I code "SYMBOLS=EXECSYS" on the DD 
Statement.
Below is a PROC and Pend executing IEBGENER and the contents of the output file:

JOBNAME: 
_D2022.ZIP

Question: Why wasn't the value of the JES System Symbol (SASSTEST) substituted 
in the two records, but the values of the Dynamic System Symbols were 
substituted?
Any help would be appreciated.


//SASSTEST JOB OPS,'TEST',CLASS=A,MSGCLASS=X
//*
//COPYPROC PROC
//*
//PS0010   EXEC PGM=IEBGENER
//SYSINDD DUMMY
//SYSUDUMP DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//*
//SYSUT1   DD DUMMY
//*
//SYSUT2   DD UNIT=DISK,SPACE=(TRK,(1,1),RLSE),
//DISP=(,CATLG,DELETE),DSN=SASS.PRD.LSASSO.TST
//*
//PS0020   EXEC PGM=IEBGENER
//SYSINDD DUMMY
//SYSUDUMP DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//*
//SYSUT1   DD DISP=SHR,DSN=SASS.PRD.LSASSO.TST
//*
//SYSUT2   DD SYSOUT=*
//*
// PEND
//**
//JS0010   EXEC COPYPROC
//*
//PS0010.SYSUT1 DD *,SYMBOLS=EXECSYS
   JOBNAME: 
   _D
//*
//**


Thank You and Please Be Safe!

Len Sasso
Systems Administrator Senior
CSRA, A General Dynamics Information Technology Company
327 Columbia TPKE
Rensselaer, NY 12144

TEAM: Together Everyone Achieves More

Office Hours: M-F  7 AM - 3:45 PM

Vacation:

Phone: (518) 257-4209
Cell: (518) 894-0879
Fax: (518) 257-4300
len.sa...@gdit.com
URL: 
https://apc01.safelinks.protection.outlook.com/?url=http%3A%2F%2Fwww.gdit.com%2Fdata=05%7C01%7Callan.staller%40HCL.COM%7C4fdbcc63edb64f40be4b08dac410aae2%7C189de737c93a4f5a8b686f4ca9941912%7C0%7C0%7C638037873151500379%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C3000%7C%7C%7Csdata=lYX7kEx6pocnoqgMah6R6dJDcZ0SavuaLDxlbW9mPKw%3Dreserved=0<https://apc01.safelinks.protection.outlook.com/?url=http%3A%2F%2Fwww.gdit.com%2Fdata=05%7C01%7Callan.staller%40HCL.COM%7C4fdbcc63edb64f40be4b08dac410aae2%7C189de737c93a4f5a8b686f4ca9941912%7C0%7C0%7C638037873151500379%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C3000%7C%7C%7Csdata=lYX7kEx6pocnoqgMah6R6dJDcZ0SavuaLDxlbW9mPKw%3Dreserved=0>

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN
::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.


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

IEBGENER and JES System Symbol

2022-11-11 Thread Sasso, Len 
 - JES System Symbol (Name of the job - SASSTEST)
- Dynamic System Symbols

According to IBM, I should be able to use (substitute) the values of these 
symbols into the In-Stream Data,
if I code "SYMBOLS=EXECSYS" on the DD Statement.
Below is a PROC and Pend executing IEBGENER and the contents of the output file:

JOBNAME: 
_D2022.ZIP

Question: Why wasn't the value of the JES System Symbol (SASSTEST) substituted 
in the two records, but the values of the Dynamic System Symbols were 
substituted?
Any help would be appreciated.


//SASSTEST JOB OPS,'TEST',CLASS=A,MSGCLASS=X
//*
//COPYPROC PROC
//*
//PS0010   EXEC PGM=IEBGENER
//SYSINDD DUMMY
//SYSUDUMP DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//*
//SYSUT1   DD DUMMY
//*
//SYSUT2   DD UNIT=DISK,SPACE=(TRK,(1,1),RLSE),
//DISP=(,CATLG,DELETE),DSN=SASS.PRD.LSASSO.TST
//*
//PS0020   EXEC PGM=IEBGENER
//SYSINDD DUMMY
//SYSUDUMP DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//*
//SYSUT1   DD DISP=SHR,DSN=SASS.PRD.LSASSO.TST
//*
//SYSUT2   DD SYSOUT=*
//*
// PEND
//**
//JS0010   EXEC COPYPROC
//*
//PS0010.SYSUT1 DD *,SYMBOLS=EXECSYS
   JOBNAME: 
   _D
//*
//**


Thank You and Please Be Safe!

Len Sasso
Systems Administrator Senior
CSRA, A General Dynamics Information Technology Company
327 Columbia TPKE
Rensselaer, NY 12144

TEAM: Together Everyone Achieves More

Office Hours: M-F  7 AM - 3:45 PM

Vacation:

Phone: (518) 257-4209
Cell: (518) 894-0879
Fax: (518) 257-4300
len.sa...@gdit.com
URL: www.gdit.com

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN