Re: Friday Follies/Why won't this work?/TSO Rant #387

[Wayne Bickerdike]

Slight diversion. A colleague wanted some REXX code so I sent it as an XMIT
file. He was working remotely and said, the RECEIVE fails.

When I next saw him, I went to his desk and watched the RECEIVE command.
Boom, "UNABLE TO ALLOCATE LOG.MISC".

He had TSO PROFILE(NOPREFIX) and didn't have RACF ALTER against LOG prefix.

For years he was wrapping quotes around his dataset names. I mean
everywhere!

On Sat, May 23, 2020 at 10:48 AM Phil Smith III  wrote:

> Metz wrote:
>
> > Running with signal on novalue and quoting everything leads to
> hard-to-debug surprises errors when you get the case wrong (present
> example is typical.) ;-)
>
>
>
> After almost 40 years of writing Rexx, I've never had that problem.
> Quoting literals avoids far more problems than it causes, as
> does SIGNAL ON NOVALUE. You want hard-to-debug surprises, try not quoting
> a literal and then having someone define a variable that
> happens to match your literal token.
>
>
>
> ...phsiii
>
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>


-- 
Wayne V. Bickerdike

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

Re: Friday Follies/Why won't this work?/TSO Rant #387

[Charles Mills]

Have to say that I agree 100% with @Phil (other than that I have only been
coding Rexx for about 25 years).

The other problem with omitting SIGNAL ON NOVALUE is that you can code IF
ARG(1) = FOOO ... and never realize that ARG(1) will never equal FOOO
because the variable is really named FOO, and FOOO will always have a value
of, well, 'FOOO'. The problem is compounded by the fact that Rexx is not
compiled and so references to undefined variables only show up if you
actually execute the code in question, which may not happen in testing. (I
know, everyone on this list tests every code path, but some of our
associates might forget once in a while.)

If you have access to a Rexx compiler I recommend compiling any significant
"production" Rexx code. You don't have to actually run the compiled Rexx --
it's just that the compiler will pick up problems like omitted or misspelled
labels that the interpreter may miss.

Charles


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Phil Smith III
Sent: Friday, May 22, 2020 5:48 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Friday Follies/Why won't this work?/TSO Rant #387

Metz wrote:

> Running with signal on novalue and quoting everything leads to
hard-to-debug surprises errors when you get the case wrong (present
example is typical.) ;-)



After almost 40 years of writing Rexx, I've never had that problem. Quoting
literals avoids far more problems than it causes, as
does SIGNAL ON NOVALUE. You want hard-to-debug surprises, try not quoting a
literal and then having someone define a variable that
happens to match your literal token.

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

Re: How to get last node in DFSORT

[Wayne Bickerdike]

Sri,

I ignored the cc51 in my first attempt. I had to post using a fixed font
too, so that the last field actually did appear in cc51 as viewed.

Love your work BTW.

Regards.

On Sat, May 23, 2020 at 10:44 AM Sri h Kolusu  wrote:

> > Col 51...
>
> For some reason the original question did not arrive in my inbox, but the
> subsequent emails came in. So I did not see the actual requirement. So
> adjusted the control cards to put the last node at position 51 now.  Here
> are the updated control cards.
>
> //SYSINDD *
>   OPTION COPY
>   INREC IFTHEN=(WHEN=INIT,
>  PARSE=(%=(ENDAT=C' '),
> %01=(SUBPOS=9,FIXLEN=8)),
>  BUILD=(01,44,%01)),
>   IFTHEN=(WHEN=(52,1,CH,EQ,C'.'),BUILD=(01,44,51:53,1)),
>   IFTHEN=(WHEN=(51,1,CH,EQ,C'.'),BUILD=(01,44,51:52,2)),
>   IFTHEN=(WHEN=(50,1,CH,EQ,C'.'),BUILD=(01,44,51:51,3)),
>   IFTHEN=(WHEN=(49,1,CH,EQ,C'.'),BUILD=(01,44,51:50,4)),
>   IFTHEN=(WHEN=(48,1,CH,EQ,C'.'),BUILD=(01,44,51:49,5)),
>   IFTHEN=(WHEN=(47,1,CH,EQ,C'.'),BUILD=(01,44,51:48,6)),
>   IFTHEN=(WHEN=(46,1,CH,EQ,C'.'),BUILD=(01,44,51:47,7)),
>   IFTHEN=(WHEN=(45,1,CH,EQ,C'.'),BUILD=(01,44,51:46,8)),
>   IFTHEN=(WHEN=NONE,BUILD=(01,44,51:45,9,JFY=(SHIFT=LEFT)))
> /*
>
> Thanks,
> Kolusu
> DFSORT Development
> IBM Corporation
>
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>


-- 
Wayne V. Bickerdike

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

Re: Friday Follies/Why won't this work?/TSO Rant #387

[Phil Smith III]

Metz wrote:

> Running with signal on novalue and quoting everything leads to hard-to-debug 
> surprises errors when you get the case wrong (present
example is typical.) ;-)



After almost 40 years of writing Rexx, I've never had that problem. Quoting 
literals avoids far more problems than it causes, as
does SIGNAL ON NOVALUE. You want hard-to-debug surprises, try not quoting a 
literal and then having someone define a variable that
happens to match your literal token.

 

...phsiii 


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

Re: How to get last node in DFSORT

[Sri h Kolusu]

> Col 51...

For some reason the original question did not arrive in my inbox, but the
subsequent emails came in. So I did not see the actual requirement. So
adjusted the control cards to put the last node at position 51 now.  Here
are the updated control cards.

//SYSINDD *
  OPTION COPY
  INREC IFTHEN=(WHEN=INIT,
 PARSE=(%=(ENDAT=C' '),
%01=(SUBPOS=9,FIXLEN=8)),
 BUILD=(01,44,%01)),
  IFTHEN=(WHEN=(52,1,CH,EQ,C'.'),BUILD=(01,44,51:53,1)),
  IFTHEN=(WHEN=(51,1,CH,EQ,C'.'),BUILD=(01,44,51:52,2)),
  IFTHEN=(WHEN=(50,1,CH,EQ,C'.'),BUILD=(01,44,51:51,3)),
  IFTHEN=(WHEN=(49,1,CH,EQ,C'.'),BUILD=(01,44,51:50,4)),
  IFTHEN=(WHEN=(48,1,CH,EQ,C'.'),BUILD=(01,44,51:49,5)),
  IFTHEN=(WHEN=(47,1,CH,EQ,C'.'),BUILD=(01,44,51:48,6)),
  IFTHEN=(WHEN=(46,1,CH,EQ,C'.'),BUILD=(01,44,51:47,7)),
  IFTHEN=(WHEN=(45,1,CH,EQ,C'.'),BUILD=(01,44,51:46,8)),
  IFTHEN=(WHEN=NONE,BUILD=(01,44,51:45,9,JFY=(SHIFT=LEFT)))
/*

Thanks,
Kolusu
DFSORT Development
IBM Corporation


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

Re: How to get last node in DFSORT

[Wayne Bickerdike]

Col 51...
  /* REXX */
  ADDRESS TSO
  'ALLOC F(INDD) DA(OUTLIST(DSNS)) SHR REUSE'
  "EXECIO * DISKR  INDD  (STEM LINE. FINIS"
SAY '+1+2+3+4+5+6'

  DO I = 1 TO LINE.0
STR = PARSIT(LINE.I)
  END
  EXIT
  PARSIT:
  ARG STR
  REV = REVERSE(STR)
  PARSE VALUE REV WITH LASTVAR '.' .
  LASTVAR = REVERSE(LASTVAR)
  OUTSTR = INSERT(STR,LASTVAR,0,50)

  SAY OUTSTR
  RETURN STR
+1+2+3+4+5+6
A.B.C.D.E E
A.B.C.D.EFEF
A.B.C.D.EFG   EFG
A.B.C.D.EFGH  EFGH
A.B.C.D.EFGHI EFGHI
A.B.C.D.EFGHIJEFGHIJ
A.B.C.D.EFGHIJK   EFGHIJK
A.B.C.D.EFGHIJKL  EFGHIJKL
JOSEPH.CONTROL.SAMPLIB.JCLJCL
PRODUCTION.CONTROL.VSAM.DATABASE.INDEXINDEX
SYS1.PARMLIB  PARMLIB
SYS5.NPLEX1.PARMLIB   PARMLIB
SYS4.UBS.EXEC EXEC
SYS3.UBS.A.B.C.D  D
SYS3.UBS.ABC.C.DE DE
SYS3.UBS.AB.BC.DE DE
SYS3.UBS.AB.BC.XABXAB
***
Proportional spacing, bah!

On Sat, May 23, 2020 at 10:16 AM Wayne Bickerdike  wrote:

>   /* REXX */
>   ADDRESS TSO
> 'ALLOC F(INDD) DA(OUTLIST(DSNS)) SHR REUSE'
> "EXECIO * DISKR  INDD  (STEM LINE. FINIS"
>   DO I = 1 TO LINE.0
> STR = PARSIT(LINE.I)
>   END
>   EXIT
>   PARSIT:
>   ARG STR
>   REV = REVERSE(STR)
>   PARSE VALUE REV WITH LASTVAR '.' .
>   LASTVAR = REVERSE(LASTVAR)
>   SAY STR LASTVAR
>   RETURN STR
>
> A.B.C.D.E E
> A.B.C.D.EF EF
> A.B.C.D.EFG EFG
> A.B.C.D.EFGH EFGH
> A.B.C.D.EFGHI EFGHI
> A.B.C.D.EFGHIJ EFGHIJ
> A.B.C.D.EFGHIJK EFGHIJK
> A.B.C.D.EFGHIJKL EFGHIJKL
> JOSEPH.CONTROL.SAMPLIB.JCL JCL
> PRODUCTION.CONTROL.VSAM.DATABASE.INDEX INDEX
> SYS1.PARMLIB PARMLIB
> SYS5.NPLEX1.PARMLIB PARMLIB
> SYS4.UBS.EXEC EXEC
> SYS3.UBS.A.B.C.D D
> SYS3.UBS.ABC.C.DE DE
> SYS3.UBS.AB.BC.DE DE
> SYS3.UBS.AB.BC.XAB XAB
>
>
> On Sat, May 23, 2020 at 7:42 AM Sri h Kolusu  wrote:
>
>> Billy,
>>
>> Use the following DFSORT JCL which will give you the desired results
>>
>> //STEP0100 EXEC PGM=SORT
>> //SYSOUT   DD SYSOUT=*
>> //SORTIN   DD *
>> A.B.C.D.E
>> A.B.C.D.EF
>> A.B.C.D.EFG
>> A.B.C.D.EFGH
>> A.B.C.D.EFGHI
>> A.B.C.D.EFGHIJ
>> A.B.C.D.EFGHIJK
>> A.B.C.D.EFGHIJKL
>> JOSEPH.CONTROL.SAMPLIB.JCL
>> PRODUCTION.CONTROL.VSAM.DATABASE.INDEX
>> SYS1.PARMLIB
>> SYS5.NPLEX1.PARMLIB
>> SYS4.UBS.EXEC
>> SYS3.UBS.A.B.C.D
>> SYS3.UBS.ABC.C.DE
>> SYS3.UBS.AB.BC.DE
>> SYS3.UBS.AB.BC.XAB
>> //SORTOUT  DD SYSOUT=*
>> //SYSINDD *
>>   OPTION COPY
>>   INREC IFTHEN=(WHEN=INIT,
>>  PARSE=(%=(ENDAT=C' '),
>> %01=(SUBPOS=9,FIXLEN=8)),
>>  BUILD=(01,44,%01)),
>>   IFTHEN=(WHEN=(52,1,CH,EQ,C'.'),BUILD=(01,44,53,1)),
>>   IFTHEN=(WHEN=(51,1,CH,EQ,C'.'),BUILD=(01,44,52,2)),
>>   IFTHEN=(WHEN=(50,1,CH,EQ,C'.'),BUILD=(01,44,51,3)),
>>   IFTHEN=(WHEN=(49,1,CH,EQ,C'.'),BUILD=(01,44,50,4)),
>>   IFTHEN=(WHEN=(48,1,CH,EQ,C'.'),BUILD=(01,44,49,5)),
>>   IFTHEN=(WHEN=(47,1,CH,EQ,C'.'),BUILD=(01,44,48,6)),
>>   IFTHEN=(WHEN=(46,1,CH,EQ,C'.'),BUILD=(01,44,47,7)),
>>   IFTHEN=(WHEN=(45,1,CH,EQ,C'.'),BUILD=(01,44,46,8)),
>>   IFTHEN=(WHEN=NONE,BUILD=(01,44,45,9,JFY=(SHIFT=LEFT)))
>> /*
>>
>>
>> The output from this job is
>>
>> A.B.C.D.E   E
>> A.B.C.D.EF  EF
>> A.B.C.D.EFG EFG
>> A.B.C.D.EFGHEFGH
>> A.B.C.D.EFGHI   EFGHI
>> A.B.C.D.EFGHIJ  EFGHIJ
>> A.B.C.D.EFGHIJK EFGHIJK
>> A.B.C.D.EFGHIJKLEFGHIJKL
>> JOSEPH.CONTROL.SAMPLIB.JCL  JCL
>> PRODUCTION.CONTROL.VSAM.DATABASE.INDEX  INDEX
>> SYS1.PARMLIBPARMLIB
>> SYS5.NPLEX1.PARMLIB PARMLIB
>> SYS4.UBS.EXEC   EXEC
>> SYS3.UBS.A.B.C.DD
>> SYS3.UBS.ABC.C.DE   DE
>> SYS3.UBS.AB.BC.DE   DE
>> SYS3.UBS.AB.BC.XAB  XAB
>>
>>
>> Further if you have any questions, please let me know
>>
>>
>> Thanks,
>> Kolusu
>> DFSORT Development
>> IBM Corporation
>>
>>
>>
>> --
>> For IBM-MAIN subscribe / signoff / archive access instructions,
>> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>>
>
>
> --
> Wayne V. Bickerdike
>
>

-- 
Wayne V. Bickerdike

--
For IBM-MAIN 

Re: How to get last node in DFSORT

[Wayne Bickerdike]

  /* REXX */
  ADDRESS TSO
'ALLOC F(INDD) DA(OUTLIST(DSNS)) SHR REUSE'
"EXECIO * DISKR  INDD  (STEM LINE. FINIS"
  DO I = 1 TO LINE.0
STR = PARSIT(LINE.I)
  END
  EXIT
  PARSIT:
  ARG STR
  REV = REVERSE(STR)
  PARSE VALUE REV WITH LASTVAR '.' .
  LASTVAR = REVERSE(LASTVAR)
  SAY STR LASTVAR
  RETURN STR

A.B.C.D.E E
A.B.C.D.EF EF
A.B.C.D.EFG EFG
A.B.C.D.EFGH EFGH
A.B.C.D.EFGHI EFGHI
A.B.C.D.EFGHIJ EFGHIJ
A.B.C.D.EFGHIJK EFGHIJK
A.B.C.D.EFGHIJKL EFGHIJKL
JOSEPH.CONTROL.SAMPLIB.JCL JCL
PRODUCTION.CONTROL.VSAM.DATABASE.INDEX INDEX
SYS1.PARMLIB PARMLIB
SYS5.NPLEX1.PARMLIB PARMLIB
SYS4.UBS.EXEC EXEC
SYS3.UBS.A.B.C.D D
SYS3.UBS.ABC.C.DE DE
SYS3.UBS.AB.BC.DE DE
SYS3.UBS.AB.BC.XAB XAB


On Sat, May 23, 2020 at 7:42 AM Sri h Kolusu  wrote:

> Billy,
>
> Use the following DFSORT JCL which will give you the desired results
>
> //STEP0100 EXEC PGM=SORT
> //SYSOUT   DD SYSOUT=*
> //SORTIN   DD *
> A.B.C.D.E
> A.B.C.D.EF
> A.B.C.D.EFG
> A.B.C.D.EFGH
> A.B.C.D.EFGHI
> A.B.C.D.EFGHIJ
> A.B.C.D.EFGHIJK
> A.B.C.D.EFGHIJKL
> JOSEPH.CONTROL.SAMPLIB.JCL
> PRODUCTION.CONTROL.VSAM.DATABASE.INDEX
> SYS1.PARMLIB
> SYS5.NPLEX1.PARMLIB
> SYS4.UBS.EXEC
> SYS3.UBS.A.B.C.D
> SYS3.UBS.ABC.C.DE
> SYS3.UBS.AB.BC.DE
> SYS3.UBS.AB.BC.XAB
> //SORTOUT  DD SYSOUT=*
> //SYSINDD *
>   OPTION COPY
>   INREC IFTHEN=(WHEN=INIT,
>  PARSE=(%=(ENDAT=C' '),
> %01=(SUBPOS=9,FIXLEN=8)),
>  BUILD=(01,44,%01)),
>   IFTHEN=(WHEN=(52,1,CH,EQ,C'.'),BUILD=(01,44,53,1)),
>   IFTHEN=(WHEN=(51,1,CH,EQ,C'.'),BUILD=(01,44,52,2)),
>   IFTHEN=(WHEN=(50,1,CH,EQ,C'.'),BUILD=(01,44,51,3)),
>   IFTHEN=(WHEN=(49,1,CH,EQ,C'.'),BUILD=(01,44,50,4)),
>   IFTHEN=(WHEN=(48,1,CH,EQ,C'.'),BUILD=(01,44,49,5)),
>   IFTHEN=(WHEN=(47,1,CH,EQ,C'.'),BUILD=(01,44,48,6)),
>   IFTHEN=(WHEN=(46,1,CH,EQ,C'.'),BUILD=(01,44,47,7)),
>   IFTHEN=(WHEN=(45,1,CH,EQ,C'.'),BUILD=(01,44,46,8)),
>   IFTHEN=(WHEN=NONE,BUILD=(01,44,45,9,JFY=(SHIFT=LEFT)))
> /*
>
>
> The output from this job is
>
> A.B.C.D.E   E
> A.B.C.D.EF  EF
> A.B.C.D.EFG EFG
> A.B.C.D.EFGHEFGH
> A.B.C.D.EFGHI   EFGHI
> A.B.C.D.EFGHIJ  EFGHIJ
> A.B.C.D.EFGHIJK EFGHIJK
> A.B.C.D.EFGHIJKLEFGHIJKL
> JOSEPH.CONTROL.SAMPLIB.JCL  JCL
> PRODUCTION.CONTROL.VSAM.DATABASE.INDEX  INDEX
> SYS1.PARMLIBPARMLIB
> SYS5.NPLEX1.PARMLIB PARMLIB
> SYS4.UBS.EXEC   EXEC
> SYS3.UBS.A.B.C.DD
> SYS3.UBS.ABC.C.DE   DE
> SYS3.UBS.AB.BC.DE   DE
> SYS3.UBS.AB.BC.XAB  XAB
>
>
> Further if you have any questions, please let me know
>
>
> Thanks,
> Kolusu
> DFSORT Development
> IBM Corporation
>
>
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>


-- 
Wayne V. Bickerdike

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

Re: How to get last node in DFSORT

[Sri h Kolusu]

Billy,

Use the following DFSORT JCL which will give you the desired results

//STEP0100 EXEC PGM=SORT
//SYSOUT   DD SYSOUT=*
//SORTIN   DD *
A.B.C.D.E
A.B.C.D.EF
A.B.C.D.EFG
A.B.C.D.EFGH
A.B.C.D.EFGHI
A.B.C.D.EFGHIJ
A.B.C.D.EFGHIJK
A.B.C.D.EFGHIJKL
JOSEPH.CONTROL.SAMPLIB.JCL
PRODUCTION.CONTROL.VSAM.DATABASE.INDEX
SYS1.PARMLIB
SYS5.NPLEX1.PARMLIB
SYS4.UBS.EXEC
SYS3.UBS.A.B.C.D
SYS3.UBS.ABC.C.DE
SYS3.UBS.AB.BC.DE
SYS3.UBS.AB.BC.XAB
//SORTOUT  DD SYSOUT=*
//SYSINDD *
  OPTION COPY
  INREC IFTHEN=(WHEN=INIT,
 PARSE=(%=(ENDAT=C' '),
%01=(SUBPOS=9,FIXLEN=8)),
 BUILD=(01,44,%01)),
  IFTHEN=(WHEN=(52,1,CH,EQ,C'.'),BUILD=(01,44,53,1)),
  IFTHEN=(WHEN=(51,1,CH,EQ,C'.'),BUILD=(01,44,52,2)),
  IFTHEN=(WHEN=(50,1,CH,EQ,C'.'),BUILD=(01,44,51,3)),
  IFTHEN=(WHEN=(49,1,CH,EQ,C'.'),BUILD=(01,44,50,4)),
  IFTHEN=(WHEN=(48,1,CH,EQ,C'.'),BUILD=(01,44,49,5)),
  IFTHEN=(WHEN=(47,1,CH,EQ,C'.'),BUILD=(01,44,48,6)),
  IFTHEN=(WHEN=(46,1,CH,EQ,C'.'),BUILD=(01,44,47,7)),
  IFTHEN=(WHEN=(45,1,CH,EQ,C'.'),BUILD=(01,44,46,8)),
  IFTHEN=(WHEN=NONE,BUILD=(01,44,45,9,JFY=(SHIFT=LEFT)))
/*


The output from this job is

A.B.C.D.E   E
A.B.C.D.EF  EF
A.B.C.D.EFG EFG
A.B.C.D.EFGHEFGH
A.B.C.D.EFGHI   EFGHI
A.B.C.D.EFGHIJ  EFGHIJ
A.B.C.D.EFGHIJK EFGHIJK
A.B.C.D.EFGHIJKLEFGHIJKL
JOSEPH.CONTROL.SAMPLIB.JCL  JCL
PRODUCTION.CONTROL.VSAM.DATABASE.INDEX  INDEX
SYS1.PARMLIBPARMLIB
SYS5.NPLEX1.PARMLIB PARMLIB
SYS4.UBS.EXEC   EXEC
SYS3.UBS.A.B.C.DD
SYS3.UBS.ABC.C.DE   DE
SYS3.UBS.AB.BC.DE   DE
SYS3.UBS.AB.BC.XAB  XAB


Further if you have any questions, please let me know


Thanks,
Kolusu
DFSORT Development
IBM Corporation



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

Re: Friday Follies/Why won't this work?/TSO Rant #387

[Seymour J Metz]

Running with signal on novalue and quoting everything leads to hard-to-debug 
surprises errors when you get the case wrong (present example is typical.) ;-)


--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Charles Mills [charl...@mcn.org]
Sent: Friday, May 22, 2020 4:56 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Friday Follies/Why won't this work?/TSO Rant #387

True enough, but in my (actual) Rexx programs I always code Signal On
Novalue. To do otherwise is to invite hard-to-debug surprises (present
example notwithstanding).

Charles


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Seymour J Metz
Sent: Friday, May 22, 2020 12:28 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Friday Follies/Why won't this work?/TSO Rant #387

Hence my quote: had he not quoted the value then it would have been a symbol
and REXX would have translated it to upper case.

--
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: How to get last node in DFSORT

[Wayne Bickerdike]

REV = REVERSE(PRODUCTION.CONTROL.VSAM.DATABASE.INDEX)
PARSE VALUE REV WITH LASTNODE '. '   .
LASTNODE = REVERSE(LASTNODE)



On Sat, May 23, 2020 at 7:16 AM Wayne Bickerdike  wrote:

> Use REXX REVERSE function.
> Then parse out the first value.
> Reverse it again.
>
>
> On Sat, May 23, 2020 at 5:57 AM Billy Ashton 
> wrote:
>
>> Hi folks! This should be easy, but it escapes me...
>>
>> I have an 80-byte LRECL list of filenames (starting in col 1, varying
>> lengths), and I need to capture just the last node of the file, and
>> store it as a separate word on the record, in col 51.
>>
>> For example, if the file has
>> JOSEPH.CONTROL.SAMPLIB.JCL
>> PRODUCTION.CONTROL.VSAM.DATABASE.INDEX
>>
>> I would like the records to be
>> JOSEPH.CONTROL.SAMPLIB.JCL(now here 24 spaces)JCL
>> PRODUCTION.CONTROL.VSAM.DATABASE.INDEX(12 spaces)INDEX
>>
>> I expect I can use a Parse statement, but not sure how to get the last
>> occurrence of something...
>>
>> Thanks for your help!
>> Billy
>>
>> --
>> For IBM-MAIN subscribe / signoff / archive access instructions,
>> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>>
>
>
> --
> Wayne V. Bickerdike
>
>

-- 
Wayne V. Bickerdike

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

Re: How to get last node in DFSORT

[Wayne Bickerdike]

Use REXX REVERSE function.
Then parse out the first value.
Reverse it again.


On Sat, May 23, 2020 at 5:57 AM Billy Ashton  wrote:

> Hi folks! This should be easy, but it escapes me...
>
> I have an 80-byte LRECL list of filenames (starting in col 1, varying
> lengths), and I need to capture just the last node of the file, and
> store it as a separate word on the record, in col 51.
>
> For example, if the file has
> JOSEPH.CONTROL.SAMPLIB.JCL
> PRODUCTION.CONTROL.VSAM.DATABASE.INDEX
>
> I would like the records to be
> JOSEPH.CONTROL.SAMPLIB.JCL(now here 24 spaces)JCL
> PRODUCTION.CONTROL.VSAM.DATABASE.INDEX(12 spaces)INDEX
>
> I expect I can use a Parse statement, but not sure how to get the last
> occurrence of something...
>
> Thanks for your help!
> Billy
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>


-- 
Wayne V. Bickerdike

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

Re: Friday Follies/Why won't this work?/TSO Rant #387

[Charles Mills]

True enough, but in my (actual) Rexx programs I always code Signal On
Novalue. To do otherwise is to invite hard-to-debug surprises (present
example notwithstanding).

Charles


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Seymour J Metz
Sent: Friday, May 22, 2020 12:28 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Friday Follies/Why won't this work?/TSO Rant #387

Hence my quote: had he not quoted the value then it would have been a symbol
and REXX would have translated it to upper case.

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

Re: z/OS 2.3 systems show OPI=YES

[Clark Morris]

[Default] On 22 May 2020 12:24:27 -0700, in bit.listserv.ibm-main
lenru...@gmail.com (lenru...@gmail.com) wrote:

> Remember DYL-AUDIT?  I wonder if it still lives?  Or for that matter any of 
> the DYL "languages".  IIRC we had DYL-260 and DYL-280 or something like that. 
>On Friday, May 22, 2020, 02:08:06 PM CDT, Carmen Vitullo 
>  wrote:  

DYL280 became Vision:Results from Broadcom.  It was a really powerful
tool.  I would like to see a good optimizing compiler for it.

Clark Morris
> 
> Indeed, I'm aging myself, but I remember in the mid 70's auditors coming in 
> the data center with their own deck, 5081's 
>programs that they loaded, ran their audits then left. 
>working for an outsourcer some time in 2001 the customer's auditors came in, 
>reviewed your (their) system you built, and interviewed you, they knew the 
>system, or appeared to. 
>now I'm not so confident they know what they are asking, and why 
>
>
>Carmen Vitullo 
>
>- Original Message -
>
>From: "Seymour J Metz"  
>To: IBM-MAIN@LISTSERV.UA.EDU 
>Sent: Friday, May 22, 2020 1:46:08 PM 
>Subject: Re: z/OS 2.3 systems show OPI=YES 
>
>You were lucky; I've encountered far too many auditors who did not know what 
>to look for and at best could follow a cookbook, and not always an appropriate 
>cookbook. OTOH, a good auditor is a resource to be treasured. 

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

How to get last node in DFSORT

[Billy Ashton]

Hi folks! This should be easy, but it escapes me...

I have an 80-byte LRECL list of filenames (starting in col 1, varying 
lengths), and I need to capture just the last node of the file, and 
store it as a separate word on the record, in col 51.


For example, if the file has
JOSEPH.CONTROL.SAMPLIB.JCL
PRODUCTION.CONTROL.VSAM.DATABASE.INDEX

I would like the records to be
JOSEPH.CONTROL.SAMPLIB.JCL(now here 24 spaces)JCL
PRODUCTION.CONTROL.VSAM.DATABASE.INDEX(12 spaces)INDEX

I expect I can use a Parse statement, but not sure how to get the last 
occurrence of something...


Thanks for your help!
Billy

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

Re: z/OS 2.3 systems show OPI=YES

[Carmen Vitullo]

now that you mention, yes from the makers of DYL250 - DYCLAR systems (sp) ? 
Sears used DYL250 in just about every application to fix(edit) raw data from 
Singer system, and then Series I systems from the store's polling data 




Carmen Vitullo 

- Original Message -

From: "lenru...@gmail.com"  
To: IBM-MAIN@LISTSERV.UA.EDU 
Sent: Friday, May 22, 2020 2:24:10 PM 
Subject: Re: z/OS 2.3 systems show OPI=YES 

Remember DYL-AUDIT? I wonder if it still lives? Or for that matter any of the 
DYL "languages". IIRC we had DYL-260 and DYL-280 or something like that. On 
Friday, May 22, 2020, 02:08:06 PM CDT, Carmen Vitullo  
wrote: 

Indeed, I'm aging myself, but I remember in the mid 70's auditors coming in the 
data center with their own deck, 5081's 
programs that they loaded, ran their audits then left. 
working for an outsourcer some time in 2001 the customer's auditors came in, 
reviewed your (their) system you built, and interviewed you, they knew the 
system, or appeared to. 
now I'm not so confident they know what they are asking, and why 


Carmen Vitullo 

- Original Message - 

From: "Seymour J Metz"  
To: IBM-MAIN@LISTSERV.UA.EDU 
Sent: Friday, May 22, 2020 1:46:08 PM 
Subject: Re: z/OS 2.3 systems show OPI=YES 

You were lucky; I've encountered far too many auditors who did not know what to 
look for and at best could follow a cookbook, and not always an appropriate 
cookbook. OTOH, a good auditor is a resource to be treasured. 


-- 
Shmuel (Seymour J.) Metz 
http://mason.gmu.edu/~smetz3 

 
From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Carmen Vitullo [cvitu...@hughes.net] 
Sent: Friday, May 22, 2020 2:20 PM 
To: IBM-MAIN@LISTSERV.UA.EDU 
Subject: Re: z/OS 2.3 systems show OPI=YES 

I found this out by trial and error, and one level 1 support tech actually told 
me what you had said, not documented that way but then why would it . 
Auditors of past, on the mainframe knew what to look for, knew where to look 
and understood parmlib and the values, now... not so much 


Carmen Vitullo 

- Original Message - 

From: "Peter Relson"  
To: IBM-MAIN@LISTSERV.UA.EDU 
Sent: Friday, May 22, 2020 1:13:08 PM 
Subject: Re: z/OS 2.3 systems show OPI=YES 

 
have in a shared parmlib IEASYS00 member OPI=NO 
... 
IEASYS LIST = (00,SA,20) (OP) 
... 
Mark's IPLINFO rexx shows 
OPI=YES, Default 
 

The OPI setting is reset as each IEASYSxx is processed, and it defaults to 
"YES". 
So as each IEASYSxx member is processed, its OPI value is set as the 
single OPI value that can be displayed after IPL. That is what is going 
on. That has little to do with what OPI=xxx values were in effect for the 
set of IEASYSxx members. 

So yes if for some reason you want the display to show "NO" then you will 
need OPI=NO in the last IEASYSxx. But that provides no useful information 
for cases where you have multiple IEASYSxx's. Only by manual examination 
can you see that all IEASYSxx's had OPI=NO in effect (and that no 
individual IEASYSxx parameter had specified OPI). 

If your audit wants to know that there was no use of OPI=YES (or OPI for 
an individual parameter), you're not going to be have a happy auditor 
unless they're willing to examine all the IEASYSxx's that were identified 
as being used. 

Peter Relson 
z/OS Core Technology Design 


-- 
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 


-- 
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: Friday Follies/Why won't this work?/TSO Rant #387

[Seymour J Metz]

Hence my quote: had he not quoted the value then it would have been a symbol 
and REXX would have translated it to upper case.


--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Robert Garrett [rob...@garrettfamily.us]
Sent: Friday, May 22, 2020 1:45 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Friday Follies/Why won't this work?/TSO Rant #387

Your problem is caused by using lower case characters in your CART parameter 
value, the value of variable MyCart.   If you used all upper case, or all 
numerics, it would work fine.
That's not documented anywhere that I've thus far been able to find.

Cheers,
Robert

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Seymour J Metz
Sent: Friday, May 22, 2020 11:01 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Friday Follies/Why won't this work?/TSO Rant #387


 I called my congressman and he said quote
 I'd like to help you son, but you're too young to vote.



--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Charles Mills [charl...@mcn.org]
Sent: Friday, May 22, 2020 10:02 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Friday Follies/Why won't this work?/TSO Rant #387

What is wrong with this Rexx? (I spent about two hours debugging before I 
solved it.) The problem is right here on this page: the answer is NOT something 
in RACF or JES2. It's not something missing: it's a sin of commission, not a 
sin of omission. The below will never work. That is, the output will always be 
RC = 4 , Msgs = MYMSGS.0 , Msg.1 = MYMSGS.1. Why?

/* Rexx to test command/response */
MyCart = "MyCart01"
"CONSPROF SOLDISP(NO) SOLNUM(400)"
"CONSOLE ACTIVATE"
Address Console
"CART" MyCart
"$DQ"
RC = GETMSG('MYMSGS.','SOL',MyCart,,1)
Say "RC =" RC ", Msgs =" MYMSGS.0 ", Msg.1 =" MYMSGS.1 "CONSOLE DEACTIVATE"

Charles

--
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

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

Re: z/OS 2.3 systems show OPI=YES

[lenru...@gmail.com]

 Remember DYL-AUDIT?  I wonder if it still lives?  Or for that matter any of 
the DYL "languages".  IIRC we had DYL-260 and DYL-280 or something like that.   
 On Friday, May 22, 2020, 02:08:06 PM CDT, Carmen Vitullo  
wrote:  
 
 Indeed, I'm aging myself, but I remember in the mid 70's auditors coming in 
the data center with their own deck, 5081's 
programs that they loaded, ran their audits then left. 
working for an outsourcer some time in 2001 the customer's auditors came in, 
reviewed your (their) system you built, and interviewed you, they knew the 
system, or appeared to. 
now I'm not so confident they know what they are asking, and why 


Carmen Vitullo 

- Original Message -

From: "Seymour J Metz"  
To: IBM-MAIN@LISTSERV.UA.EDU 
Sent: Friday, May 22, 2020 1:46:08 PM 
Subject: Re: z/OS 2.3 systems show OPI=YES 

You were lucky; I've encountered far too many auditors who did not know what to 
look for and at best could follow a cookbook, and not always an appropriate 
cookbook. OTOH, a good auditor is a resource to be treasured. 


-- 
Shmuel (Seymour J.) Metz 
http://mason.gmu.edu/~smetz3 

 
From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Carmen Vitullo [cvitu...@hughes.net] 
Sent: Friday, May 22, 2020 2:20 PM 
To: IBM-MAIN@LISTSERV.UA.EDU 
Subject: Re: z/OS 2.3 systems show OPI=YES 

I found this out by trial and error, and one level 1 support tech actually told 
me what you had said, not documented that way but then why would it . 
Auditors of past, on the mainframe knew what to look for, knew where to look 
and understood parmlib and the values, now... not so much 


Carmen Vitullo 

- Original Message - 

From: "Peter Relson"  
To: IBM-MAIN@LISTSERV.UA.EDU 
Sent: Friday, May 22, 2020 1:13:08 PM 
Subject: Re: z/OS 2.3 systems show OPI=YES 

 
have in a shared parmlib IEASYS00 member OPI=NO 
... 
IEASYS LIST = (00,SA,20) (OP) 
... 
Mark's IPLINFO rexx shows 
OPI=YES, Default 
 

The OPI setting is reset as each IEASYSxx is processed, and it defaults to 
"YES". 
So as each IEASYSxx member is processed, its OPI value is set as the 
single OPI value that can be displayed after IPL. That is what is going 
on. That has little to do with what OPI=xxx values were in effect for the 
set of IEASYSxx members. 

So yes if for some reason you want the display to show "NO" then you will 
need OPI=NO in the last IEASYSxx. But that provides no useful information 
for cases where you have multiple IEASYSxx's. Only by manual examination 
can you see that all IEASYSxx's had OPI=NO in effect (and that no 
individual IEASYSxx parameter had specified OPI). 

If your audit wants to know that there was no use of OPI=YES (or OPI for 
an individual parameter), you're not going to be have a happy auditor 
unless they're willing to examine all the IEASYSxx's that were identified 
as being used. 

Peter Relson 
z/OS Core Technology Design 


-- 
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 


--
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: What crashing COBOL systems reveal about applications maintenance -- GCN

[Linda Chui]

hi Steve,

Sorry to hear that COBOL 6.2 compiles using OPT(0) are taking >10x CPU of the 
same compile with 4.2. This is not the norm. 
Could you please open a support case with IBM so the issue can be investigated? 
From the COBOL support page (link below), you can click "Open a case" in the 
top right.

https://www.ibm.com/mysupport/s/topic/0TO0z006v5OGAQ/cobol?language=en_US=01t0z07g71VAAQ

Thank you!

Linda Chui
Enterprise Products & Compilers
IBM Canada Lab 



On Wed, 20 May 2020 15:07:39 -0700, ste...@copper.net  wrote:

>We setup for OPT(1) because IBM said that was the thing to do initially. 
>
>We’ve only recently been told to go OPT(2). 
>
>We’ve also run into an interesting issue of COBOL 6.2 compiles using OPT(0) 
>taking > 10x CPU of same compile with 4.2. 
>
>I don’t recall being told that we would see that level of CPU burn for 
>planning for capacity for migrating to 6.2. 
>
>Regards
>Steve Thomoson
>
>--- frank.swarbr...@outlook.com wrote:
>
>From: Frank Swarbrick 
>To:   IBM-MAIN@LISTSERV.UA.EDU
>Subject: Re: [IBM-MAIN] What crashing COBOL systems reveal about applications 
>maintenance -- GCN
>Date: Wed, 20 May 2020 21:28:33 +
>
>We use OPT(1).  Probably for no good reason.  (And it was my decision, meaning 
>its easy enough to change!)
>
>
>From: IBM Mainframe Discussion List  on behalf of 
>Tom Ross 
>Sent: Wednesday, May 20, 2020 3:19 PM
>To: IBM-MAIN@LISTSERV.UA.EDU 
>Subject: Re: What crashing COBOL systems reveal about applications maintenance 
>-- GCN
>
>>Suppose that they took a group of programmers and got the production online=
>> programs to all compile with COBOL 6.2 and OPT(1). Would they see a signif=
>>icant reduction in MSUs?  Assuming they are running on z14s minimally?
>
>I sure hope no one is using OPT(1) with 3rd generation COBOL!  IBM expects all 
>users
>to compile with OPT(2) for production performance.  I am honestly not sure why 
>we
>shipped OPT(1).  Users should use OPT(0) if they want more straight-forward 
>debugging
>(no optimizations) and then after unit test compile with OPT(2) for 
>performance, and
>and never use OPT(1).  Alternatively, they could compile with OPT(2) for 
>debugging and
>get used to odd things like statements getting moved or deleted while 
>debugging.
>
>Cheers,
>TomR  >> COBOL is the Language of the Future! <<
>
>--
>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

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

Re: Friday Follies/Why won't this work?/TSO Rant #387

[scott Ford]

I got bit on case and end of line characters using GIT. I was using
Notepad++ and had the EOL set incorrectly, duh !

Scott

On Fri, May 22, 2020 at 3:10 PM Seymour J Metz  wrote:

> While I started with upper case only languages and progressed to case
> independent languages, there is a case for case dependent languages. It
> helps if you have a good IDE.
>
>
> --
> Shmuel (Seymour J.) Metz
> http://mason.gmu.edu/~smetz3
>
> 
> From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf
> of Steve Smith [sasd...@gmail.com]
> Sent: Friday, May 22, 2020 3:00 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Friday Follies/Why won't this work?/TSO Rant #387
>
> Case sensitivity is the root of all evil.
>
> sas
>
> Disclaimer: The above may contain excessive generalization, hyperbole, and
> offend your sensibilities.  I'd say I'm sorry, but that would just add
> flat-out lying to the mix.
>
> --
> 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
>
-- 
Scott Ford
IDMWORKS
z/OS Development

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

Re: Friday Follies/Why won't this work?/TSO Rant #387

[Seymour J Metz]

While I started with upper case only languages and progressed to case 
independent languages, there is a case for case dependent languages. It helps 
if you have a good IDE.


--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Steve Smith [sasd...@gmail.com]
Sent: Friday, May 22, 2020 3:00 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Friday Follies/Why won't this work?/TSO Rant #387

Case sensitivity is the root of all evil.

sas

Disclaimer: The above may contain excessive generalization, hyperbole, and
offend your sensibilities.  I'd say I'm sorry, but that would just add
flat-out lying to the mix.

--
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: z/OS 2.3 systems show OPI=YES

[Carmen Vitullo]

Indeed, I'm aging myself, but I remember in the mid 70's auditors coming in the 
data center with their own deck, 5081's 
programs that they loaded, ran their audits then left. 
working for an outsourcer some time in 2001 the customer's auditors came in, 
reviewed your (their) system you built, and interviewed you, they knew the 
system, or appeared to. 
now I'm not so confident they know what they are asking, and why 


Carmen Vitullo 

- Original Message -

From: "Seymour J Metz"  
To: IBM-MAIN@LISTSERV.UA.EDU 
Sent: Friday, May 22, 2020 1:46:08 PM 
Subject: Re: z/OS 2.3 systems show OPI=YES 

You were lucky; I've encountered far too many auditors who did not know what to 
look for and at best could follow a cookbook, and not always an appropriate 
cookbook. OTOH, a good auditor is a resource to be treasured. 


-- 
Shmuel (Seymour J.) Metz 
http://mason.gmu.edu/~smetz3 

 
From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Carmen Vitullo [cvitu...@hughes.net] 
Sent: Friday, May 22, 2020 2:20 PM 
To: IBM-MAIN@LISTSERV.UA.EDU 
Subject: Re: z/OS 2.3 systems show OPI=YES 

I found this out by trial and error, and one level 1 support tech actually told 
me what you had said, not documented that way but then why would it . 
Auditors of past, on the mainframe knew what to look for, knew where to look 
and understood parmlib and the values, now... not so much 


Carmen Vitullo 

- Original Message - 

From: "Peter Relson"  
To: IBM-MAIN@LISTSERV.UA.EDU 
Sent: Friday, May 22, 2020 1:13:08 PM 
Subject: Re: z/OS 2.3 systems show OPI=YES 

 
have in a shared parmlib IEASYS00 member OPI=NO 
... 
IEASYS LIST = (00,SA,20) (OP) 
... 
Mark's IPLINFO rexx shows 
OPI=YES, Default 
 

The OPI setting is reset as each IEASYSxx is processed, and it defaults to 
"YES". 
So as each IEASYSxx member is processed, its OPI value is set as the 
single OPI value that can be displayed after IPL. That is what is going 
on. That has little to do with what OPI=xxx values were in effect for the 
set of IEASYSxx members. 

So yes if for some reason you want the display to show "NO" then you will 
need OPI=NO in the last IEASYSxx. But that provides no useful information 
for cases where you have multiple IEASYSxx's. Only by manual examination 
can you see that all IEASYSxx's had OPI=NO in effect (and that no 
individual IEASYSxx parameter had specified OPI). 

If your audit wants to know that there was no use of OPI=YES (or OPI for 
an individual parameter), you're not going to be have a happy auditor 
unless they're willing to examine all the IEASYSxx's that were identified 
as being used. 

Peter Relson 
z/OS Core Technology Design 


-- 
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 


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

Re: Friday Follies/Why won't this work?/TSO Rant #387

[Seymour J Metz]

Not quite. Every TSO command parses its own operands, normally by calling 
IKJPARSE. If the operand description specifies ASIS the PARSE does not 
translate the operand to upper case. Ideally the command description would 
specify whether the operand is case dependent, but we don't live in an ideal 
world.

As I hinted in my  quote, this will work and will have the bonus of 
irritating Gil:

 MyCart = MyCart01

if you leave MyCart01 unquoted in the GETMSG().

The general rule is that the REXX variable pool can have lower case names but 
you have to use the value() function to access them; REXX normally translates 
names to upper case.


--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Charles Mills [charl...@mcn.org]
Sent: Friday, May 22, 2020 1:53 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Friday Follies/Why won't this work?/TSO Rant #387

We have a winner! You've got it about 90%.

The clue is in the subject line -- this is actually a TSO rant.

TSO uppercases commands so "CART" MyCart becomes effectively "CART
MYCART01".

GETMSG is an ordinary Rexx function so parameters are passed "as-is," and RC
= GETMSG('MYMSGS.','SOL',MyCart,,1) becomes effectively
RC = GETMSG('MYMSGS.','SOL','MyCart01',,1).

The two CARTs do not match, and no messages are retrieved.

I think it is *possible* that you could solve the problem by quoting the
CART but I have not tested. Something like "CART" "'"||MyCart||"'" .

Charles


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Robert Garrett
Sent: Friday, May 22, 2020 10:46 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Friday Follies/Why won't this work?/TSO Rant #387

Your problem is caused by using lower case characters in your CART parameter
value, the value of variable MyCart.   If you used all upper case, or all
numerics, it would work fine.
That's not documented anywhere that I've thus far been able to find.

Cheers,
Robert

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of
Seymour J Metz
Sent: Friday, May 22, 2020 11:01 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Friday Follies/Why won't this work?/TSO Rant #387


 I called my congressman and he said quote
 I'd like to help you son, but you're too young to vote.



--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of
Charles Mills [charl...@mcn.org]
Sent: Friday, May 22, 2020 10:02 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Friday Follies/Why won't this work?/TSO Rant #387

What is wrong with this Rexx? (I spent about two hours debugging before I
solved it.) The problem is right here on this page: the answer is NOT
something in RACF or JES2. It's not something missing: it's a sin of
commission, not a sin of omission. The below will never work. That is, the
output will always be RC = 4 , Msgs = MYMSGS.0 , Msg.1 = MYMSGS.1. Why?

/* Rexx to test command/response */
MyCart = "MyCart01"
"CONSPROF SOLDISP(NO) SOLNUM(400)"
"CONSOLE ACTIVATE"
Address Console
"CART" MyCart
"$DQ"
RC = GETMSG('MYMSGS.','SOL',MyCart,,1)
Say "RC =" RC ", Msgs =" MYMSGS.0 ", Msg.1 =" MYMSGS.1 "CONSOLE DEACTIVATE"

Charles

--
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

--
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: Friday Follies/Why won't this work?/TSO Rant #387

[Steve Smith]

Case sensitivity is the root of all evil.

sas

Disclaimer: The above may contain excessive generalization, hyperbole, and
offend your sensibilities.  I'd say I'm sorry, but that would just add
flat-out lying to the mix.

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

Re: z/OS 2.3 systems show OPI=YES

[Seymour J Metz]

You were lucky; I've encountered far too many auditors who did not know what to 
look for and at best could follow a cookbook, and not always an appropriate 
cookbook. OTOH, a good auditor is a resource to be treasured.


--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Carmen Vitullo [cvitu...@hughes.net]
Sent: Friday, May 22, 2020 2:20 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: z/OS 2.3 systems show OPI=YES

I found this out by trial and error, and one level 1 support tech actually told 
me what you had said, not documented that way but then why would it .
Auditors of past, on the mainframe knew what to look for, knew where to look 
and understood parmlib and the values, now... not so much


Carmen Vitullo

- Original Message -

From: "Peter Relson" 
To: IBM-MAIN@LISTSERV.UA.EDU
Sent: Friday, May 22, 2020 1:13:08 PM
Subject: Re: z/OS 2.3 systems show OPI=YES


have in a shared parmlib IEASYS00 member OPI=NO
...
IEASYS LIST = (00,SA,20) (OP)
...
Mark's IPLINFO rexx shows
OPI=YES, Default


The OPI setting is reset as each IEASYSxx is processed, and it defaults to
"YES".
So as each IEASYSxx member is processed, its OPI value is set as the
single OPI value that can be displayed after IPL. That is what is going
on. That has little to do with what OPI=xxx values were in effect for the
set of IEASYSxx members.

So yes if for some reason you want the display to show "NO" then you will
need OPI=NO in the last IEASYSxx. But that provides no useful information
for cases where you have multiple IEASYSxx's. Only by manual examination
can you see that all IEASYSxx's had OPI=NO in effect (and that no
individual IEASYSxx parameter had specified OPI).

If your audit wants to know that there was no use of OPI=YES (or OPI for
an individual parameter), you're not going to be have a happy auditor
unless they're willing to examine all the IEASYSxx's that were identified
as being used.

Peter Relson
z/OS Core Technology Design


--
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: z/OS 2.3 systems show OPI=YES

[Carmen Vitullo]

I found this out by trial and error, and one level 1 support tech actually told 
me what you had said, not documented that way but then why would it . 
Auditors of past, on the mainframe knew what to look for, knew where to look 
and understood parmlib and the values, now... not so much 


Carmen Vitullo 

- Original Message -

From: "Peter Relson"  
To: IBM-MAIN@LISTSERV.UA.EDU 
Sent: Friday, May 22, 2020 1:13:08 PM 
Subject: Re: z/OS 2.3 systems show OPI=YES 

 
have in a shared parmlib IEASYS00 member OPI=NO 
... 
IEASYS LIST = (00,SA,20) (OP) 
... 
Mark's IPLINFO rexx shows 
OPI=YES, Default 
 

The OPI setting is reset as each IEASYSxx is processed, and it defaults to 
"YES". 
So as each IEASYSxx member is processed, its OPI value is set as the 
single OPI value that can be displayed after IPL. That is what is going 
on. That has little to do with what OPI=xxx values were in effect for the 
set of IEASYSxx members. 

So yes if for some reason you want the display to show "NO" then you will 
need OPI=NO in the last IEASYSxx. But that provides no useful information 
for cases where you have multiple IEASYSxx's. Only by manual examination 
can you see that all IEASYSxx's had OPI=NO in effect (and that no 
individual IEASYSxx parameter had specified OPI). 

If your audit wants to know that there was no use of OPI=YES (or OPI for 
an individual parameter), you're not going to be have a happy auditor 
unless they're willing to examine all the IEASYSxx's that were identified 
as being used. 

Peter Relson 
z/OS Core Technology Design 


-- 
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: z/OS 2.3 systems show OPI=YES

[Peter Relson]

have in a shared parmlib IEASYS00 member OPI=NO 
...
IEASYS LIST = (00,SA,20) (OP) 
...
Mark's IPLINFO rexx shows 
OPI=YES, Default 


The OPI setting is reset as each IEASYSxx is processed, and it defaults to 
"YES".
So as each IEASYSxx member is processed, its OPI value is set as the 
single OPI value that can be displayed after IPL. That is what is going 
on. That has little to do with what OPI=xxx values were in effect for the 
set of IEASYSxx members.

So yes if for some reason you want the display to show "NO" then you will 
need OPI=NO in the last IEASYSxx. But that provides no useful information 
for cases where you have multiple IEASYSxx's.  Only by manual examination 
can you see that all IEASYSxx's had OPI=NO in effect (and that no 
individual IEASYSxx parameter had specified OPI).

If your audit wants to know that there was no use of OPI=YES (or OPI for 
an individual parameter), you're not going to be have a happy auditor 
unless they're willing to examine all the IEASYSxx's that were identified 
as being used.

Peter Relson
z/OS Core Technology Design


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

Re: Friday Follies/Why won't this work?/TSO Rant #387

[scott Ford]

Charles,

Just a document rc=4 from Getmsg ,  the getmsg could not match your
criteria , filter ...


Scott

On Fri, May 22, 2020 at 1:58 PM Richards, Robert B. <
01c91f408b9e-dmarc-requ...@listserv.ua.edu> wrote:

> Snippet:
>
> Cart_V = 'CONS1'random(100,)  /* build CART value
>*/
> pass_arg. = "CONSOLE SYSCMD("con_input") CART("Cart_V")"
> "TSOEXEC CONSPROF SOLDISP(NO) SOLNUM(400)"
>  /*
> activate Console services*/
> "TSOEXEC CONSOLE ACTIVATE NAME("con_name") CART("Cart_V")"
>
> -Original Message-
> From: IBM Mainframe Discussion List  On Behalf
> Of Charles Mills
> Sent: Friday, May 22, 2020 1:53 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Friday Follies/Why won't this work?/TSO Rant #387
>
> We have a winner! You've got it about 90%.
>
> The clue is in the subject line -- this is actually a TSO rant.
>
> TSO uppercases commands so "CART" MyCart becomes effectively "CART
> MYCART01".
>
> GETMSG is an ordinary Rexx function so parameters are passed "as-is," and
> RC = GETMSG('MYMSGS.','SOL',MyCart,,1) becomes effectively RC =
> GETMSG('MYMSGS.','SOL','MyCart01',,1).
>
> The two CARTs do not match, and no messages are retrieved.
>
> I think it is *possible* that you could solve the problem by quoting the
> CART but I have not tested. Something like "CART" "'"||MyCart||"'" .
>
> Charles
>
>
> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
> Behalf Of Robert Garrett
> Sent: Friday, May 22, 2020 10:46 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Friday Follies/Why won't this work?/TSO Rant #387
>
> Your problem is caused by using lower case characters in your CART
> parameter
> value, the value of variable MyCart.   If you used all upper case, or all
> numerics, it would work fine.
> That's not documented anywhere that I've thus far been able to find.
>
> Cheers,
> Robert
>
> -Original Message-
> From: IBM Mainframe Discussion List  On Behalf
> Of Seymour J Metz
> Sent: Friday, May 22, 2020 11:01 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Friday Follies/Why won't this work?/TSO Rant #387
>
> 
>  I called my congressman and he said quote
>  I'd like to help you son, but you're too young to vote.
> 
>
>
> --
> Shmuel (Seymour J.) Metz
> http://mason.gmu.edu/~smetz3
>
> 
> From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf
> of Charles Mills [charl...@mcn.org]
> Sent: Friday, May 22, 2020 10:02 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Friday Follies/Why won't this work?/TSO Rant #387
>
> What is wrong with this Rexx? (I spent about two hours debugging before I
> solved it.) The problem is right here on this page: the answer is NOT
> something in RACF or JES2. It's not something missing: it's a sin of
> commission, not a sin of omission. The below will never work. That is, the
> output will always be RC = 4 , Msgs = MYMSGS.0 , Msg.1 = MYMSGS.1. Why?
>
> /* Rexx to test command/response */
> MyCart = "MyCart01"
> "CONSPROF SOLDISP(NO) SOLNUM(400)"
> "CONSOLE ACTIVATE"
> Address Console
> "CART" MyCart
> "$DQ"
> RC = GETMSG('MYMSGS.','SOL',MyCart,,1)
> Say "RC =" RC ", Msgs =" MYMSGS.0 ", Msg.1 =" MYMSGS.1 "CONSOLE DEACTIVATE"
>
> Charles
>
> --
> 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
>
> --
> 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
>
-- 
Scott Ford
IDMWORKS
z/OS Development

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

Re: Friday Follies/Why won't this work?/TSO Rant #387

[Richards, Robert B.]

Snippet:

Cart_V = 'CONS1'random(100,)  /* build CART value 
*/  
pass_arg. = "CONSOLE SYSCMD("con_input") CART("Cart_V")" 
"TSOEXEC CONSPROF SOLDISP(NO) SOLNUM(400)"   
 /* 
activate Console services*/  
"TSOEXEC CONSOLE ACTIVATE NAME("con_name") CART("Cart_V")"   

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Charles Mills
Sent: Friday, May 22, 2020 1:53 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Friday Follies/Why won't this work?/TSO Rant #387

We have a winner! You've got it about 90%.

The clue is in the subject line -- this is actually a TSO rant.

TSO uppercases commands so "CART" MyCart becomes effectively "CART MYCART01".

GETMSG is an ordinary Rexx function so parameters are passed "as-is," and RC = 
GETMSG('MYMSGS.','SOL',MyCart,,1) becomes effectively RC = 
GETMSG('MYMSGS.','SOL','MyCart01',,1).

The two CARTs do not match, and no messages are retrieved.

I think it is *possible* that you could solve the problem by quoting the CART 
but I have not tested. Something like "CART" "'"||MyCart||"'" .

Charles


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Robert Garrett
Sent: Friday, May 22, 2020 10:46 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Friday Follies/Why won't this work?/TSO Rant #387

Your problem is caused by using lower case characters in your CART parameter
value, the value of variable MyCart.   If you used all upper case, or all
numerics, it would work fine. 
That's not documented anywhere that I've thus far been able to find.

Cheers,
Robert

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Seymour J Metz
Sent: Friday, May 22, 2020 11:01 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Friday Follies/Why won't this work?/TSO Rant #387


 I called my congressman and he said quote
 I'd like to help you son, but you're too young to vote.



--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Charles Mills [charl...@mcn.org]
Sent: Friday, May 22, 2020 10:02 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Friday Follies/Why won't this work?/TSO Rant #387

What is wrong with this Rexx? (I spent about two hours debugging before I 
solved it.) The problem is right here on this page: the answer is NOT something 
in RACF or JES2. It's not something missing: it's a sin of commission, not a 
sin of omission. The below will never work. That is, the output will always be 
RC = 4 , Msgs = MYMSGS.0 , Msg.1 = MYMSGS.1. Why?

/* Rexx to test command/response */
MyCart = "MyCart01"
"CONSPROF SOLDISP(NO) SOLNUM(400)"
"CONSOLE ACTIVATE"
Address Console
"CART" MyCart
"$DQ"   
RC = GETMSG('MYMSGS.','SOL',MyCart,,1)
Say "RC =" RC ", Msgs =" MYMSGS.0 ", Msg.1 =" MYMSGS.1 "CONSOLE DEACTIVATE"

Charles

--
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

--
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: Friday Follies/Why won't this work?/TSO Rant #387

[Charles Mills]

We have a winner! You've got it about 90%.

The clue is in the subject line -- this is actually a TSO rant.

TSO uppercases commands so "CART" MyCart becomes effectively "CART
MYCART01".

GETMSG is an ordinary Rexx function so parameters are passed "as-is," and RC
= GETMSG('MYMSGS.','SOL',MyCart,,1) becomes effectively 
RC = GETMSG('MYMSGS.','SOL','MyCart01',,1).

The two CARTs do not match, and no messages are retrieved.

I think it is *possible* that you could solve the problem by quoting the
CART but I have not tested. Something like "CART" "'"||MyCart||"'" .

Charles


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Robert Garrett
Sent: Friday, May 22, 2020 10:46 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Friday Follies/Why won't this work?/TSO Rant #387

Your problem is caused by using lower case characters in your CART parameter
value, the value of variable MyCart.   If you used all upper case, or all
numerics, it would work fine. 
That's not documented anywhere that I've thus far been able to find.

Cheers,
Robert

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of
Seymour J Metz
Sent: Friday, May 22, 2020 11:01 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Friday Follies/Why won't this work?/TSO Rant #387


 I called my congressman and he said quote
 I'd like to help you son, but you're too young to vote.



--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of
Charles Mills [charl...@mcn.org]
Sent: Friday, May 22, 2020 10:02 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Friday Follies/Why won't this work?/TSO Rant #387

What is wrong with this Rexx? (I spent about two hours debugging before I
solved it.) The problem is right here on this page: the answer is NOT
something in RACF or JES2. It's not something missing: it's a sin of
commission, not a sin of omission. The below will never work. That is, the
output will always be RC = 4 , Msgs = MYMSGS.0 , Msg.1 = MYMSGS.1. Why?

/* Rexx to test command/response */
MyCart = "MyCart01"
"CONSPROF SOLDISP(NO) SOLNUM(400)"
"CONSOLE ACTIVATE"
Address Console
"CART" MyCart
"$DQ"   
RC = GETMSG('MYMSGS.','SOL',MyCart,,1)
Say "RC =" RC ", Msgs =" MYMSGS.0 ", Msg.1 =" MYMSGS.1 "CONSOLE DEACTIVATE"

Charles

--
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

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

Re: ATTCHMVS (was: REXX assistance)

[Robert Garrett]

"Was the syntax upward-compatible?"

Yes, it was - mostly.  My ATTCHJRG command processor was 100% compatible with 
how you called ATTCHMVS, except it supported one additional parameter: 
TASKDD(ddname).   If you supplied that, then it would pass whatever you had 
previously allocated to ddname as a TASKLIB on the ATTACH macro call.  If you 
didn't supply TASKDD, then it worked exactly like ATTCHMVS.

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

Re: Friday Follies/Why won't this work?/TSO Rant #387

[Robert Garrett]

Your problem is caused by using lower case characters in your CART parameter 
value, the value of variable MyCart.   If you used all upper case, or all 
numerics, it would work fine. 
That's not documented anywhere that I've thus far been able to find.

Cheers,
Robert

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Seymour J Metz
Sent: Friday, May 22, 2020 11:01 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Friday Follies/Why won't this work?/TSO Rant #387


 I called my congressman and he said quote
 I'd like to help you son, but you're too young to vote.



--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Charles Mills [charl...@mcn.org]
Sent: Friday, May 22, 2020 10:02 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Friday Follies/Why won't this work?/TSO Rant #387

What is wrong with this Rexx? (I spent about two hours debugging before I 
solved it.) The problem is right here on this page: the answer is NOT something 
in RACF or JES2. It's not something missing: it's a sin of commission, not a 
sin of omission. The below will never work. That is, the output will always be 
RC = 4 , Msgs = MYMSGS.0 , Msg.1 = MYMSGS.1. Why?

/* Rexx to test command/response */
MyCart = "MyCart01"
"CONSPROF SOLDISP(NO) SOLNUM(400)"
"CONSOLE ACTIVATE"
Address Console
"CART" MyCart
"$DQ"
RC = GETMSG('MYMSGS.','SOL',MyCart,,1)
Say "RC =" RC ", Msgs =" MYMSGS.0 ", Msg.1 =" MYMSGS.1 "CONSOLE DEACTIVATE"

Charles

--
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: More DISA STIG Audit - stuff

[Carmen Vitullo]

Thanks Larre, that's part of the review, and that will provide what they need, 
so I don't understand why the added STIG 



Carmen Vitullo 

- Original Message -

From: "Larre Shiller" <0102cb4997b0-dmarc-requ...@listserv.ua.edu> 
To: IBM-MAIN@LISTSERV.UA.EDU 
Sent: Friday, May 22, 2020 10:51:54 AM 
Subject: Re: More DISA STIG Audit - stuff 

Carmen - 

You might also find the MVS "D PPT" command of interest, if you are are not 
already aware of that command. It does display both the PARMLIB and DEFAULT 
values. We issue that command during each automated IPL as an AUDIT artifact. 

Larre 

“The opinions expressed in this post are mine personally and do not necessarily 
reflect the opinion of the US Social Security Administration and/or the US 
Government.” 

-- 
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: Friday Follies/Why won't this work?/TSO Rant #387

[Charles Mills]

SYSCMD() is a valid alternative to Address Console but either one is good, and 
the Address Console in my Rexx is not the problem.

Charles


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of scott Ford
Sent: Friday, May 22, 2020 9:43 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Friday Follies/Why won't this work?/TSO Rant #387

Charles ,

I was incorrect here:

READY

CONSPROF SOLDISP(NO) SOLNUM(400)
CONSOLE ACTIVATE
CONSOLE SYSCMD($S PRT1) CART('PRT10001')
CONSOLE SYSCMD($S PRT2) CART('PRT20002')
EXEC MY.EXEC(CHKPRT) 'PRT10001' EXEC
EXEC MY.EXEC(CHKPRT) 'PRT20002' EXEC

The exec you invoke (CHKPRT) checks whether the printers were started
successfully. The exec uses the arguments you pass on the invocation (CART
values) as the CART on the GETMSG function. Figure 1

shows
the example exec.
Figure 1. Example exec (CHKPRT) to check start of printers

/* REXX exec to check start of printers */
ARG CARTVAL
GETCODE = GETMSG('PRTMSG.','SOL',CARTVAL,,60)
IF GETCODE = 0 THEN
  DO
IF POS('$HASP000',PRTMSG.1) ¬= 0 THEN
  SAY "Printer started successfully."
ELSE
  DO INDXNUM = 1 TO PRTMSG.0
SAY PRTMSG.INDXNUM
  END
  END
ELSE
  SAY "GETMSG error retrieving message.  Return code is" GETCODE
EXIT


On Fri, May 22, 2020 at 12:40 PM scott Ford  wrote:

> Charles:
>
> I think that should be 'address mvs' ...scott
>
> On Fri, May 22, 2020 at 12:35 PM Charles Mills  wrote:
>
>> Message handling is fine, other than one very specific problem that is
>> inherent in the Rexx code posted.
>>
>> Note this is a Friday Folly, not a "real question." I know the answer
>> (after 2+ hours of debug struggle!).
>>
>> Charles
>>
>>
>> -Original Message-
>> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
>> Behalf Of Joe Monk
>> Sent: Friday, May 22, 2020 9:07 AM
>> To: IBM-MAIN@LISTSERV.UA.EDU
>> Subject: Re: Friday Follies/Why won't this work?/TSO Rant #387
>>
>> Check your message handling ...
>>
>> Joe
>>
>> On Fri, May 22, 2020 at 11:00 AM Seymour J Metz  wrote:
>>
>> > 
>> >  I called my congressman and he said quote
>> >  I'd like to help you son, but you're too young to vote.
>> > 
>> >
>> >
>> > --
>> > Shmuel (Seymour J.) Metz
>> > http://mason.gmu.edu/~smetz3
>> >
>> > 
>> > From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on
>> behalf
>> > of Charles Mills [charl...@mcn.org]
>> > Sent: Friday, May 22, 2020 10:02 AM
>> > To: IBM-MAIN@LISTSERV.UA.EDU
>> > Subject: Friday Follies/Why won't this work?/TSO Rant #387
>> >
>> > What is wrong with this Rexx? (I spent about two hours debugging before
>> I
>> > solved it.) The problem is right here on this page: the answer is NOT
>> > something in RACF or JES2. It's not something missing: it's a sin of
>> > commission, not a sin of omission. The below will never work. That is,
>> the
>> > output will always be RC = 4 , Msgs = MYMSGS.0 , Msg.1 = MYMSGS.1. Why?
>> >
>> > /* Rexx to test command/response */
>> > MyCart = "MyCart01"
>> > "CONSPROF SOLDISP(NO) SOLNUM(400)"
>> > "CONSOLE ACTIVATE"
>> > Address Console
>> > "CART" MyCart
>> > "$DQ"
>> > RC = GETMSG('MYMSGS.','SOL',MyCart,,1)
>> > Say "RC =" RC ", Msgs =" MYMSGS.0 ", Msg.1 =" MYMSGS.1
>> > "CONSOLE DEACTIVATE"
>>
>> --
>> For IBM-MAIN subscribe / signoff / archive access instructions,
>> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>>
>
>
> --
>
>
>
> *IDMWORKS *
>
> Scott Ford
>
> z/OS Dev.
>
>
>
>
> “By elevating a friend or Collegue you elevate yourself, by demeaning a
> friend or collegue you demean yourself”
>
>
>
> www.idmworks.com
>
> scott.f...@idmworks.com
>
> Blog: www.idmworks.com/blog
>
>
>
>
>
> *The information contained in this email message and any attachment may be
> privileged, confidential, proprietary or otherwise protected from
> disclosure. If the reader of this message is not the intended recipient,
> you are hereby notified that any dissemination, distribution, copying or
> use of this message and any attachment is strictly prohibited. If you have
> received this message in error, please notify us immediately by replying to
> the message and permanently delete it from your computer and destroy any
> printout thereof.*
>


-- 



*IDMWORKS *

Scott Ford

z/OS Dev.




“By elevating a friend or Collegue you elevate yourself, by demeaning a
friend or collegue you demean yourself”



www.idmworks.com

scott.f...@idmworks.com

Blog: www.idmworks.com/blog





*The information contained in this email message and any attachment may be
privileged, confidential, proprietary or otherwise protected from
disclosure. If the reader of this message is not the intended recipient,
you are hereby notified that any 

Re: Friday Follies/Why won't this work?/TSO Rant #387

[Charles Mills]

Nope.

Charles


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Richards, Robert B.
Sent: Friday, May 22, 2020 9:38 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Friday Follies/Why won't this work?/TSO Rant #387

If I turn on HILITE, will the answer become apparent? 

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Charles Mills
Sent: Friday, May 22, 2020 12:35 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Friday Follies/Why won't this work?/TSO Rant #387

Message handling is fine, other than one very specific problem that is inherent 
in the Rexx code posted.

Note this is a Friday Folly, not a "real question." I know the answer (after 2+ 
hours of debug struggle!).

Charles


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Joe Monk
Sent: Friday, May 22, 2020 9:07 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Friday Follies/Why won't this work?/TSO Rant #387

Check your message handling ...

Joe

On Fri, May 22, 2020 at 11:00 AM Seymour J Metz  wrote:

> 
>  I called my congressman and he said quote
>  I'd like to help you son, but you're too young to vote.
> 
>
>
> --
> Shmuel (Seymour J.) Metz
> http://mason.gmu.edu/~smetz3
>
> 
> From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on 
> behalf of Charles Mills [charl...@mcn.org]
> Sent: Friday, May 22, 2020 10:02 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Friday Follies/Why won't this work?/TSO Rant #387
>
> What is wrong with this Rexx? (I spent about two hours debugging 
> before I solved it.) The problem is right here on this page: the 
> answer is NOT something in RACF or JES2. It's not something missing: 
> it's a sin of commission, not a sin of omission. The below will never 
> work. That is, the output will always be RC = 4 , Msgs = MYMSGS.0 , Msg.1 = 
> MYMSGS.1. Why?
>
> /* Rexx to test command/response */
> MyCart = "MyCart01"
> "CONSPROF SOLDISP(NO) SOLNUM(400)"
> "CONSOLE ACTIVATE"
> Address Console
> "CART" MyCart
> "$DQ"
> RC = GETMSG('MYMSGS.','SOL',MyCart,,1) Say "RC =" RC ", Msgs =" 
> MYMSGS.0 ", Msg.1 =" MYMSGS.1 "CONSOLE DEACTIVATE"

--
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: Friday Follies/Why won't this work?/TSO Rant #387

[scott Ford]

Charles ,

I was incorrect here:

READY

CONSPROF SOLDISP(NO) SOLNUM(400)
CONSOLE ACTIVATE
CONSOLE SYSCMD($S PRT1) CART('PRT10001')
CONSOLE SYSCMD($S PRT2) CART('PRT20002')
EXEC MY.EXEC(CHKPRT) 'PRT10001' EXEC
EXEC MY.EXEC(CHKPRT) 'PRT20002' EXEC

The exec you invoke (CHKPRT) checks whether the printers were started
successfully. The exec uses the arguments you pass on the invocation (CART
values) as the CART on the GETMSG function. Figure 1

shows
the example exec.
Figure 1. Example exec (CHKPRT) to check start of printers

/* REXX exec to check start of printers */
ARG CARTVAL
GETCODE = GETMSG('PRTMSG.','SOL',CARTVAL,,60)
IF GETCODE = 0 THEN
  DO
IF POS('$HASP000',PRTMSG.1) ¬= 0 THEN
  SAY "Printer started successfully."
ELSE
  DO INDXNUM = 1 TO PRTMSG.0
SAY PRTMSG.INDXNUM
  END
  END
ELSE
  SAY "GETMSG error retrieving message.  Return code is" GETCODE
EXIT


On Fri, May 22, 2020 at 12:40 PM scott Ford  wrote:

> Charles:
>
> I think that should be 'address mvs' ...scott
>
> On Fri, May 22, 2020 at 12:35 PM Charles Mills  wrote:
>
>> Message handling is fine, other than one very specific problem that is
>> inherent in the Rexx code posted.
>>
>> Note this is a Friday Folly, not a "real question." I know the answer
>> (after 2+ hours of debug struggle!).
>>
>> Charles
>>
>>
>> -Original Message-
>> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
>> Behalf Of Joe Monk
>> Sent: Friday, May 22, 2020 9:07 AM
>> To: IBM-MAIN@LISTSERV.UA.EDU
>> Subject: Re: Friday Follies/Why won't this work?/TSO Rant #387
>>
>> Check your message handling ...
>>
>> Joe
>>
>> On Fri, May 22, 2020 at 11:00 AM Seymour J Metz  wrote:
>>
>> > 
>> >  I called my congressman and he said quote
>> >  I'd like to help you son, but you're too young to vote.
>> > 
>> >
>> >
>> > --
>> > Shmuel (Seymour J.) Metz
>> > http://mason.gmu.edu/~smetz3
>> >
>> > 
>> > From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on
>> behalf
>> > of Charles Mills [charl...@mcn.org]
>> > Sent: Friday, May 22, 2020 10:02 AM
>> > To: IBM-MAIN@LISTSERV.UA.EDU
>> > Subject: Friday Follies/Why won't this work?/TSO Rant #387
>> >
>> > What is wrong with this Rexx? (I spent about two hours debugging before
>> I
>> > solved it.) The problem is right here on this page: the answer is NOT
>> > something in RACF or JES2. It's not something missing: it's a sin of
>> > commission, not a sin of omission. The below will never work. That is,
>> the
>> > output will always be RC = 4 , Msgs = MYMSGS.0 , Msg.1 = MYMSGS.1. Why?
>> >
>> > /* Rexx to test command/response */
>> > MyCart = "MyCart01"
>> > "CONSPROF SOLDISP(NO) SOLNUM(400)"
>> > "CONSOLE ACTIVATE"
>> > Address Console
>> > "CART" MyCart
>> > "$DQ"
>> > RC = GETMSG('MYMSGS.','SOL',MyCart,,1)
>> > Say "RC =" RC ", Msgs =" MYMSGS.0 ", Msg.1 =" MYMSGS.1
>> > "CONSOLE DEACTIVATE"
>>
>> --
>> For IBM-MAIN subscribe / signoff / archive access instructions,
>> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>>
>
>
> --
>
>
>
> *IDMWORKS *
>
> Scott Ford
>
> z/OS Dev.
>
>
>
>
> “By elevating a friend or Collegue you elevate yourself, by demeaning a
> friend or collegue you demean yourself”
>
>
>
> www.idmworks.com
>
> scott.f...@idmworks.com
>
> Blog: www.idmworks.com/blog
>
>
>
>
>
> *The information contained in this email message and any attachment may be
> privileged, confidential, proprietary or otherwise protected from
> disclosure. If the reader of this message is not the intended recipient,
> you are hereby notified that any dissemination, distribution, copying or
> use of this message and any attachment is strictly prohibited. If you have
> received this message in error, please notify us immediately by replying to
> the message and permanently delete it from your computer and destroy any
> printout thereof.*
>


-- 



*IDMWORKS *

Scott Ford

z/OS Dev.




“By elevating a friend or Collegue you elevate yourself, by demeaning a
friend or collegue you demean yourself”



www.idmworks.com

scott.f...@idmworks.com

Blog: www.idmworks.com/blog





*The information contained in this email message and any attachment may be
privileged, confidential, proprietary or otherwise protected from
disclosure. If the reader of this message is not the intended recipient,
you are hereby notified that any dissemination, distribution, copying or
use of this message and any attachment is strictly prohibited. If you have
received this message in error, please notify us immediately by replying to
the message and permanently delete it from your computer and destroy any
printout thereof.*

--
For IBM-MAIN subscribe / signoff / archive 

Re: Friday Follies/Why won't this work?/TSO Rant #387

[scott Ford]

Charles:

I think that should be 'address mvs' ...scott

On Fri, May 22, 2020 at 12:35 PM Charles Mills  wrote:

> Message handling is fine, other than one very specific problem that is
> inherent in the Rexx code posted.
>
> Note this is a Friday Folly, not a "real question." I know the answer
> (after 2+ hours of debug struggle!).
>
> Charles
>
>
> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
> Behalf Of Joe Monk
> Sent: Friday, May 22, 2020 9:07 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Friday Follies/Why won't this work?/TSO Rant #387
>
> Check your message handling ...
>
> Joe
>
> On Fri, May 22, 2020 at 11:00 AM Seymour J Metz  wrote:
>
> > 
> >  I called my congressman and he said quote
> >  I'd like to help you son, but you're too young to vote.
> > 
> >
> >
> > --
> > Shmuel (Seymour J.) Metz
> > http://mason.gmu.edu/~smetz3
> >
> > 
> > From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf
> > of Charles Mills [charl...@mcn.org]
> > Sent: Friday, May 22, 2020 10:02 AM
> > To: IBM-MAIN@LISTSERV.UA.EDU
> > Subject: Friday Follies/Why won't this work?/TSO Rant #387
> >
> > What is wrong with this Rexx? (I spent about two hours debugging before I
> > solved it.) The problem is right here on this page: the answer is NOT
> > something in RACF or JES2. It's not something missing: it's a sin of
> > commission, not a sin of omission. The below will never work. That is,
> the
> > output will always be RC = 4 , Msgs = MYMSGS.0 , Msg.1 = MYMSGS.1. Why?
> >
> > /* Rexx to test command/response */
> > MyCart = "MyCart01"
> > "CONSPROF SOLDISP(NO) SOLNUM(400)"
> > "CONSOLE ACTIVATE"
> > Address Console
> > "CART" MyCart
> > "$DQ"
> > RC = GETMSG('MYMSGS.','SOL',MyCart,,1)
> > Say "RC =" RC ", Msgs =" MYMSGS.0 ", Msg.1 =" MYMSGS.1
> > "CONSOLE DEACTIVATE"
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>


-- 



*IDMWORKS *

Scott Ford

z/OS Dev.




“By elevating a friend or Collegue you elevate yourself, by demeaning a
friend or collegue you demean yourself”



www.idmworks.com

scott.f...@idmworks.com

Blog: www.idmworks.com/blog





*The information contained in this email message and any attachment may be
privileged, confidential, proprietary or otherwise protected from
disclosure. If the reader of this message is not the intended recipient,
you are hereby notified that any dissemination, distribution, copying or
use of this message and any attachment is strictly prohibited. If you have
received this message in error, please notify us immediately by replying to
the message and permanently delete it from your computer and destroy any
printout thereof.*

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

Re: Friday Follies/Why won't this work?/TSO Rant #387

[Richards, Robert B.]

If I turn on HILITE, will the answer become apparent? 

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Charles Mills
Sent: Friday, May 22, 2020 12:35 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Friday Follies/Why won't this work?/TSO Rant #387

Message handling is fine, other than one very specific problem that is inherent 
in the Rexx code posted.

Note this is a Friday Folly, not a "real question." I know the answer (after 2+ 
hours of debug struggle!).

Charles


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Joe Monk
Sent: Friday, May 22, 2020 9:07 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Friday Follies/Why won't this work?/TSO Rant #387

Check your message handling ...

Joe

On Fri, May 22, 2020 at 11:00 AM Seymour J Metz  wrote:

> 
>  I called my congressman and he said quote
>  I'd like to help you son, but you're too young to vote.
> 
>
>
> --
> Shmuel (Seymour J.) Metz
> http://mason.gmu.edu/~smetz3
>
> 
> From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on 
> behalf of Charles Mills [charl...@mcn.org]
> Sent: Friday, May 22, 2020 10:02 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Friday Follies/Why won't this work?/TSO Rant #387
>
> What is wrong with this Rexx? (I spent about two hours debugging 
> before I solved it.) The problem is right here on this page: the 
> answer is NOT something in RACF or JES2. It's not something missing: 
> it's a sin of commission, not a sin of omission. The below will never 
> work. That is, the output will always be RC = 4 , Msgs = MYMSGS.0 , Msg.1 = 
> MYMSGS.1. Why?
>
> /* Rexx to test command/response */
> MyCart = "MyCart01"
> "CONSPROF SOLDISP(NO) SOLNUM(400)"
> "CONSOLE ACTIVATE"
> Address Console
> "CART" MyCart
> "$DQ"
> RC = GETMSG('MYMSGS.','SOL',MyCart,,1) Say "RC =" RC ", Msgs =" 
> MYMSGS.0 ", Msg.1 =" MYMSGS.1 "CONSOLE DEACTIVATE"

--
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: Friday Follies/Why won't this work?/TSO Rant #387

[Charles Mills]

Message handling is fine, other than one very specific problem that is inherent 
in the Rexx code posted.

Note this is a Friday Folly, not a "real question." I know the answer (after 2+ 
hours of debug struggle!).

Charles


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Joe Monk
Sent: Friday, May 22, 2020 9:07 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Friday Follies/Why won't this work?/TSO Rant #387

Check your message handling ...

Joe

On Fri, May 22, 2020 at 11:00 AM Seymour J Metz  wrote:

> 
>  I called my congressman and he said quote
>  I'd like to help you son, but you're too young to vote.
> 
>
>
> --
> Shmuel (Seymour J.) Metz
> http://mason.gmu.edu/~smetz3
>
> 
> From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf
> of Charles Mills [charl...@mcn.org]
> Sent: Friday, May 22, 2020 10:02 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Friday Follies/Why won't this work?/TSO Rant #387
>
> What is wrong with this Rexx? (I spent about two hours debugging before I
> solved it.) The problem is right here on this page: the answer is NOT
> something in RACF or JES2. It's not something missing: it's a sin of
> commission, not a sin of omission. The below will never work. That is, the
> output will always be RC = 4 , Msgs = MYMSGS.0 , Msg.1 = MYMSGS.1. Why?
>
> /* Rexx to test command/response */
> MyCart = "MyCart01"
> "CONSPROF SOLDISP(NO) SOLNUM(400)"
> "CONSOLE ACTIVATE"
> Address Console
> "CART" MyCart
> "$DQ"
> RC = GETMSG('MYMSGS.','SOL',MyCart,,1)
> Say "RC =" RC ", Msgs =" MYMSGS.0 ", Msg.1 =" MYMSGS.1
> "CONSOLE DEACTIVATE"

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

Re: Friday Follies/Why won't this work?/TSO Rant #387

[Charles Mills]

Nope, it is fine.

Charles


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Richards, Robert B.
Sent: Friday, May 22, 2020 8:19 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Friday Follies/Why won't this work?/TSO Rant #387

Address Console in wrong location?

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of
Charles Mills
Sent: Friday, May 22, 2020 10:02 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Friday Follies/Why won't this work?/TSO Rant #387

What is wrong with this Rexx? (I spent about two hours debugging before I
solved it.) The problem is right here on this page: the answer is NOT
something in RACF or JES2. It's not something missing: it's a sin of
commission, not a sin of omission. The below will never work. That is, the
output will always be RC = 4 , Msgs = MYMSGS.0 , Msg.1 = MYMSGS.1. Why?

/* Rexx to test command/response */ 
MyCart = "MyCart01" 
"CONSPROF SOLDISP(NO) SOLNUM(400)"  
"CONSOLE ACTIVATE"  
Address Console 
"CART" MyCart  
"$DQ"   
RC = GETMSG('MYMSGS.','SOL',MyCart,,1)  
Say "RC =" RC ", Msgs =" MYMSGS.0 ", Msg.1 =" MYMSGS.1 
"CONSOLE DEACTIVATE"

Charles 

--
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: Friday Follies/Why won't this work?/TSO Rant #387

[Joe Monk]

Check your message handling ...

Joe

On Fri, May 22, 2020 at 11:00 AM Seymour J Metz  wrote:

> 
>  I called my congressman and he said quote
>  I'd like to help you son, but you're too young to vote.
> 
>
>
> --
> Shmuel (Seymour J.) Metz
> http://mason.gmu.edu/~smetz3
>
> 
> From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf
> of Charles Mills [charl...@mcn.org]
> Sent: Friday, May 22, 2020 10:02 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Friday Follies/Why won't this work?/TSO Rant #387
>
> What is wrong with this Rexx? (I spent about two hours debugging before I
> solved it.) The problem is right here on this page: the answer is NOT
> something in RACF or JES2. It's not something missing: it's a sin of
> commission, not a sin of omission. The below will never work. That is, the
> output will always be RC = 4 , Msgs = MYMSGS.0 , Msg.1 = MYMSGS.1. Why?
>
> /* Rexx to test command/response */
> MyCart = "MyCart01"
> "CONSPROF SOLDISP(NO) SOLNUM(400)"
> "CONSOLE ACTIVATE"
> Address Console
> "CART" MyCart
> "$DQ"
> RC = GETMSG('MYMSGS.','SOL',MyCart,,1)
> Say "RC =" RC ", Msgs =" MYMSGS.0 ", Msg.1 =" MYMSGS.1
> "CONSOLE DEACTIVATE"
>
> Charles
>
> --
> 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: Friday Follies/Why won't this work?/TSO Rant #387

[Seymour J Metz]

 I called my congressman and he said quote
 I'd like to help you son, but you're too young to vote.



--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Charles Mills [charl...@mcn.org]
Sent: Friday, May 22, 2020 10:02 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Friday Follies/Why won't this work?/TSO Rant #387

What is wrong with this Rexx? (I spent about two hours debugging before I
solved it.) The problem is right here on this page: the answer is NOT
something in RACF or JES2. It's not something missing: it's a sin of
commission, not a sin of omission. The below will never work. That is, the
output will always be RC = 4 , Msgs = MYMSGS.0 , Msg.1 = MYMSGS.1. Why?

/* Rexx to test command/response */
MyCart = "MyCart01"
"CONSPROF SOLDISP(NO) SOLNUM(400)"
"CONSOLE ACTIVATE"
Address Console
"CART" MyCart
"$DQ"
RC = GETMSG('MYMSGS.','SOL',MyCart,,1)
Say "RC =" RC ", Msgs =" MYMSGS.0 ", Msg.1 =" MYMSGS.1
"CONSOLE DEACTIVATE"

Charles

--
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: More DISA STIG Audit - stuff

[Seymour J Metz]

Sorry, that suffix is for the 2.4 version. Try without the suffix.


--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Carmen Vitullo [cvitu...@hughes.net]
Sent: Friday, May 22, 2020 11:46 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: More DISA STIG Audit - stuff

so I was quoted the wrong manual :(
my 2.3 KC does not have the Init and Tuning Manual SA23-1380-40


thanks Shmuel


Carmen Vitullo

- Original Message -

From: "Seymour J Metz" 
To: IBM-MAIN@LISTSERV.UA.EDU
Sent: Friday, May 22, 2020 10:39:31 AM
Subject: Re: More DISA STIG Audit - stuff

Table 57 of the initialization and tuna manual (SA23-1380-40) lists the 
defaults in IEFSDPPT.


--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Carmen Vitullo [cvitu...@hughes.net]
Sent: Friday, May 22, 2020 11:27 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: More DISA STIG Audit - stuff

I am suppose to review the defaults supplied by IBM in IEFSDPPT, I was told to 
check the MVS Init and Tuning Reference, there is no mention of IEFDSPPT just 
defaults supplied by IBM, which is not in the SCHED00 member.
is there some doc somewhere that can tell me the defauts supplied ? Google 
showed me some doc pertains to Communications Manager

Note: PPT entries in the SCHEDxx member of SYS1.PARMLIB are no longer required. 
They are supplied in the default PPT table via load module IEFSDPPT.
Any IBM'r out there than can point me to a doc ?
thanks
Carmen


--
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

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

Re: IODF Activation Question - Followup

[Carmen Vitullo]

That has worked for me in the past, I activate on my test lpar, then soft 
activate on the remaining systems in the CEC 


Carmen Vitullo 

- Original Message -

From: "Dana Mitchell"  
To: IBM-MAIN@LISTSERV.UA.EDU 
Sent: Friday, May 22, 2020 10:42:03 AM 
Subject: Re: IODF Activation Question - Followup 

On Fri, 22 May 2020 14:10:02 +0200, R.S.  
wrote: 
> 
>Personally I used to start with "the last system" - that means HSA 
>update, and then ACTIVATE SOFT on rest, however the "more recommended" 
>way is the above. 
> 

Did this actually work this way? Seems to me that the hardware & software 
activate on the first lpar would make the rest of the systems think they are 
out of sync and would refuse to even do a software only activate? Its been a 
while since I tried it 
Dana 

-- 
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: More DISA STIG Audit - stuff

[Larre Shiller]

Carmen -

You might also find the MVS "D PPT" command of interest, if you are are not 
already aware of that command.  It does display both the PARMLIB and DEFAULT 
values.  We issue that command during each automated IPL as an AUDIT artifact.

Larre

“The opinions expressed in this post are mine personally and do not necessarily 
reflect the opinion of the US Social Security Administration and/or the US 
Government.”

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

Re: More DISA STIG Audit - stuff

[Carmen Vitullo]

so I was quoted the wrong manual :( 
my 2.3 KC does not have the Init and Tuning Manual SA23-1380-40 


thanks Shmuel 


Carmen Vitullo 

- Original Message -

From: "Seymour J Metz"  
To: IBM-MAIN@LISTSERV.UA.EDU 
Sent: Friday, May 22, 2020 10:39:31 AM 
Subject: Re: More DISA STIG Audit - stuff 

Table 57 of the initialization and tuna manual (SA23-1380-40) lists the 
defaults in IEFSDPPT. 


-- 
Shmuel (Seymour J.) Metz 
http://mason.gmu.edu/~smetz3 

 
From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Carmen Vitullo [cvitu...@hughes.net] 
Sent: Friday, May 22, 2020 11:27 AM 
To: IBM-MAIN@LISTSERV.UA.EDU 
Subject: More DISA STIG Audit - stuff 

I am suppose to review the defaults supplied by IBM in IEFSDPPT, I was told to 
check the MVS Init and Tuning Reference, there is no mention of IEFDSPPT just 
defaults supplied by IBM, which is not in the SCHED00 member. 
is there some doc somewhere that can tell me the defauts supplied ? Google 
showed me some doc pertains to Communications Manager 

Note: PPT entries in the SCHEDxx member of SYS1.PARMLIB are no longer required. 
They are supplied in the default PPT table via load module IEFSDPPT. 
Any IBM'r out there than can point me to a doc ? 
thanks 
Carmen 


-- 
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: More DISA STIG Audit - stuff

[Carmen Vitullo]

no luck, checking 2.3 books - Security Server RACF System Programmer's Guide no 
PPT or IEFDPPT or Program Property...reference - I'll keep looking around 





Carmen Vitullo 

- Original Message -

From: "Jim Brooks"  
To: IBM-MAIN@LISTSERV.UA.EDU 
Sent: Friday, May 22, 2020 10:30:42 AM 
Subject: Re: More DISA STIG Audit - stuff 

I believe that it is described in the SECURITY SERVER RACF SYSTEM 
PROGRAMMER'S GUIDE. 

Regards, 
Jim 


On Fri, May 22, 2020 at 11:28 AM Carmen Vitullo  wrote: 

> I am suppose to review the defaults supplied by IBM in IEFSDPPT, I was 
> told to check the MVS Init and Tuning Reference, there is no mention of 
> IEFDSPPT just defaults supplied by IBM, which is not in the SCHED00 member. 
> is there some doc somewhere that can tell me the defauts supplied ? Google 
> showed me some doc pertains to Communications Manager 
> 
> Note: PPT entries in the SCHEDxx member of SYS1.PARMLIB are no longer 
> required. They are supplied in the default PPT table via load module 
> IEFSDPPT. 
> Any IBM'r out there than can point me to a doc ? 
> thanks 
> Carmen 
> 
> 
> -- 
> 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: IODF Activation Question - Followup

[Dana Mitchell]

On Fri, 22 May 2020 14:10:02 +0200, R.S.  wrote:
>
>Personally I used to start with "the last system" - that means HSA
>update, and then ACTIVATE SOFT on rest, however the "more recommended"
>way is the above.
>

Did this actually work this way?  Seems to me that the hardware & software 
activate on the first lpar would make the rest of the systems think they are 
out of sync and would refuse to even do a software only activate?  Its been a 
while since I tried it
Dana

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

Re: More DISA STIG Audit - stuff

[Seymour J Metz]

Table 57 of the initialization and tuna manual (SA23-1380-40) lists the 
defaults in IEFSDPPT.


--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Carmen Vitullo [cvitu...@hughes.net]
Sent: Friday, May 22, 2020 11:27 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: More DISA STIG Audit - stuff

I am suppose to review the defaults supplied by IBM in IEFSDPPT, I was told to 
check the MVS Init and Tuning Reference, there is no mention of IEFDSPPT just 
defaults supplied by IBM, which is not in the SCHED00 member.
is there some doc somewhere that can tell me the defauts supplied ? Google 
showed me some doc pertains to Communications Manager

Note: PPT entries in the SCHEDxx member of SYS1.PARMLIB are no longer required. 
They are supplied in the default PPT table via load module IEFSDPPT.
Any IBM'r out there than can point me to a doc ?
thanks
Carmen


--
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: More DISA STIG Audit - stuff

[Carmen Vitullo]

Thanks Jim I'll start looking there 



Carmen Vitullo 

- Original Message -

From: "Jim Brooks"  
To: IBM-MAIN@LISTSERV.UA.EDU 
Sent: Friday, May 22, 2020 10:30:42 AM 
Subject: Re: More DISA STIG Audit - stuff 

I believe that it is described in the SECURITY SERVER RACF SYSTEM 
PROGRAMMER'S GUIDE. 

Regards, 
Jim 


On Fri, May 22, 2020 at 11:28 AM Carmen Vitullo  wrote: 

> I am suppose to review the defaults supplied by IBM in IEFSDPPT, I was 
> told to check the MVS Init and Tuning Reference, there is no mention of 
> IEFDSPPT just defaults supplied by IBM, which is not in the SCHED00 member. 
> is there some doc somewhere that can tell me the defauts supplied ? Google 
> showed me some doc pertains to Communications Manager 
> 
> Note: PPT entries in the SCHEDxx member of SYS1.PARMLIB are no longer 
> required. They are supplied in the default PPT table via load module 
> IEFSDPPT. 
> Any IBM'r out there than can point me to a doc ? 
> thanks 
> Carmen 
> 
> 
> -- 
> 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: More DISA STIG Audit - stuff

[Jim Brooks]

I believe that it is described in the SECURITY SERVER RACF SYSTEM
PROGRAMMER'S GUIDE.

Regards,
Jim


On Fri, May 22, 2020 at 11:28 AM Carmen Vitullo  wrote:

> I am suppose to review the defaults supplied by IBM in IEFSDPPT, I was
> told to check the MVS Init and Tuning Reference, there is no mention of
> IEFDSPPT just defaults supplied by IBM, which is not in the SCHED00 member.
> is there some doc somewhere that can tell me the defauts supplied ? Google
> showed me some doc pertains to Communications Manager
>
> Note: PPT entries in the SCHEDxx member of SYS1.PARMLIB are no longer
> required. They are supplied in the default PPT table via load module
> IEFSDPPT.
> Any IBM'r out there than can point me to a doc ?
> thanks
> Carmen
>
>
> --
> 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

More DISA STIG Audit - stuff

[Carmen Vitullo]

I am suppose to review the defaults supplied by IBM in IEFSDPPT, I was told to 
check the MVS Init and Tuning Reference, there is no mention of IEFDSPPT just 
defaults supplied by IBM, which is not in the SCHED00 member. 
is there some doc somewhere that can tell me the defauts supplied ? Google 
showed me some doc pertains to Communications Manager

Note: PPT entries in the SCHEDxx member of SYS1.PARMLIB are no longer required. 
They are supplied in the default PPT table via load module IEFSDPPT.
Any IBM'r out there than can point me to a doc ?
thanks
Carmen


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

Re: Friday Follies/Why won't this work?/TSO Rant #387

[Richards, Robert B.]

Address Console in wrong location?

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Charles Mills
Sent: Friday, May 22, 2020 10:02 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Friday Follies/Why won't this work?/TSO Rant #387

What is wrong with this Rexx? (I spent about two hours debugging before I 
solved it.) The problem is right here on this page: the answer is NOT something 
in RACF or JES2. It's not something missing: it's a sin of commission, not a 
sin of omission. The below will never work. That is, the output will always be 
RC = 4 , Msgs = MYMSGS.0 , Msg.1 = MYMSGS.1. Why?

/* Rexx to test command/response */ 
MyCart = "MyCart01" 
"CONSPROF SOLDISP(NO) SOLNUM(400)"  
"CONSOLE ACTIVATE"  
Address Console 
"CART" MyCart  
"$DQ"   
RC = GETMSG('MYMSGS.','SOL',MyCart,,1)  
Say "RC =" RC ", Msgs =" MYMSGS.0 ", Msg.1 =" MYMSGS.1 
"CONSOLE DEACTIVATE"

Charles 

--
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: REXX assistance

[Jousma, David]

Rob,

You sent it to the right place the first time.  I thought I responded to it.  
At any rate, I've asked IBM if netview will support an ATTCHMVS.  We are doing 
additional problem identification with tracing, so hopefully that will turn 
something up, and we can definitively find the culprit.

_
Dave Jousma
AVP | Manager, Systems Engineering  

Fifth Third Bank  |  1830 East Paris Ave, SE  |  MD RSCB2H  |  Grand Rapids, MI 
49546
616.653.8429  |  fax: 616.653.2717


-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Robert Garrett
Sent: Friday, May 22, 2020 10:08 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: FW: REXX assistance

**CAUTION EXTERNAL EMAIL**

**DO NOT open attachments or click on links from unknown senders or unexpected 
emails**

Somehow, I managed to send this suggestion to the wrong mailing list a few days 
ago – my bad…


Hi Dave,
I've seen that kind of problem before myself invoking various IBM utilities 
repeatedly.  A lot of them assume that they will always run at the jobstep 
level and don't ever freemain their SP0 storage, instead "assuming" step 
termination will handle it for them.  That can cause problems like the one 
you're seeing (if you’re repeatedly calling them from a parent REXX exec).  The 
solution I've implemented in the past is to invoke those utilities using 
ATTCHMVS, which will run then under a new TCB which thus will obtain its own 
SP0 storage. When the utility finishes and that TCB gets detached,  that 
separate SP0 storage will get freemain'ed even if the utility doesn't clean up 
after itself, thus avoiding the problem.   I also wrote my own custom version 
of ATTCHMVS that allowed me to pass a loadlib to be used as a TASKLIB on the 
ATTACH. In my case, I was repeatedly invoking the CICS DFHCSDUP utility and 
needed to be able to call different releases of it dynamically from the parent 
exec.
Try using ATTCHMVS and see if that doesn't solve your problem.
Rob

From: Dave Jousma 
<01a0403c5dc1-dmarc-requ...@listserv.ua.edu>
Sent: Wed May 20 06:48:49 CDT 2020
To: "IBM-MAIN@LISTSERV.UA.EDU"
Subject: REXX assistance



All,

We have some relatively new Netview automation to process inbound FTP 
processing that is written in REXX, and over time we’ve seen Netview abends 
with 878’s, etc.   IBM indicates we may have a problem below the line, 
specifically SP0 being exhausted.   They are seeing a lot junk that looks like 
workpack volser’s PCW, temp dataset names, etc.   It is my belief that it 
is the remnants of calling IDCAMS to do our FTP processing to create special 
dataset catalog entries amongst other stuff and cleanup is not occurring that 
over time causes our problems.

Here is the bit of rexx code I am looking at.   Look at how IDCAMS is being 
called in line 318.  I’m not a REXX coding expert by any means.  Is that the 
equivalent of just a standard CALL? Or like entering TSO IDCAMS at a command 
line in TSO?  I’m wondering if there is a better way to call IDCAMS?   I see 
references to LINK, ATTACH, LINKMVS, ATTCHMVS, LINKPGM, ATTCHPGM.  I’m 
embarrassed to say that I do not know the nuances of each of these, and when 
appropriate to use.   Do any of these create a new environment, do the 
function, and then tear the environment down upon exit?  It seems like this is 
what we need to use to fix this issue.

000308 /*  */
000309 /*  We have now created all the IDCAMS statements, we now write them*/
000310 /*  to our dataset to be used as SYSIN for IDCAMS command   */
000311 /*  */
000312   Say "Number of Queued Lines is " QueuedLines
000313  Address MVS 'EXECIO 'QueuedLines' DISKW 'Infile' (FINIS'
000314 /*  */
000315 /*  The IDCAMS statement calls IDCAMS using the 2 DD names listed   */
000316 /*  after the command as SYSIN and SYSPRINT */
000317 /*  */
000318  IDCAMS Infile Outfile
000319   Say "IDCAMS RC for File Rename = " RC
000320  If RC > 4 Then
000321 Do
000322   Address MVS 'EXECIO * DISKR 'Outfile' (STEM Prtrex. FINIS'
000323   do xy = 1 to Prtrex.0
000324  Say "Idcams output = " Prtrex.xy
000325   end
000326 end
000327   "free fi("Infile")"
000328   "free fi("Outfile")"
000329



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

--

ATTCHMVS (was: REXX assistance)

[Paul Gilmartin]

On Fri, 22 May 2020 14:07:50 +, Robert Garrett  wrote:
>
>I've seen that kind of problem before myself invoking various IBM utilities 
>repeatedly.  A lot of them assume that they will always run at the jobstep 
>level and don't ever freemain their SP0 storage, 
>
IBM once REJected my APAR: "Use a bigger virtual machine."

>I also wrote my own custom version of ATTCHMVS that allowed me to pass a 
>loadlib to be used as a TASKLIB on the ATTACH.
>
Was the syntax upward-compatible?

And I've wished for a flavor of ATTCHMVS that would allow the
subtask to run concurrently, returning the address of a completion
ECB on which the programmer could WAIT.

-- gil

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

Re: REXX assistance

[Jousma, David]

Thanks John.  I appreciate it.  We are working a PMR with IBM Netview support.  
We're going to run a getmain/freemain trace specifically of SP0 below the line 
to see if we can see a pattern.   We've been somewhat "guessing" at the culprit 
based on the eye catchers we see in that subpool from the dumps.   

Your suggestion is good.  I also have asked IBM, but have gotten no response 
yet about the difference in syntax calling IDCAMS like this:

000314 /*  */ 
000315 /*  The IDCAMS statement calls IDCAMS using the 2 DD names listed   */ 
000316 /*  after the command as SYSIN and SYSPRINT */ 
000317 /*  */ 
000318  IDCAMS Infile Outfile 
000319   Say "IDCAMS RC for File Rename = " RC


Or from this Netview Sample.  I get the entire PIPE portion of all this, but my 
question is specifically calling idcams as NETV MOE DSIVSMX IDCAMS

SAY 'Attempting to define the VSAM file'basename  
 k.0  = 14 
 k.1  = ' DEFINE CLUSTER -'
 k.2  = '  (NAME ('basename') -'   
 k.3  = '  INDEXED -'  
 k.4  = '  KEYS('key_size RKP') -' 
 k.5  = '  SHAREOPTIONS('shr1 shr2') -'
 k.6  = '  RECORDSIZE('avg_recsize max_recsize') -'
 k.7  = '  VOLUMES(CPDLB2) -'  
 k.8  = '  NOREUSE ) -'
 k.9  = '   DATA -'
 k.10 = '  (NAME ('basename'.DATA) -'  
 k.11 = '  CYLINDERS('data_size') ) -' 
 k.12 = '   INDEX -'   
 k.13 = '  (NAME ('basename'.INDEX) -' 
 k.14 = '  CYLINDERS('index_size') )'  
 'PIPE STEM k.|COLLECT|NETV MOE DSIVSMX IDCAMS|STEM R1.'   
 Define_rc = 4;

_
Dave Jousma
AVP | Manager, Systems Engineering  

Fifth Third Bank  |  1830 East Paris Ave, SE  |  MD RSCB2H  |  Grand Rapids, MI 
49546
616.653.8429  |  fax: 616.653.2717


-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
John S. Giltner, Jr.
Sent: Friday, May 22, 2020 9:09 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: REXX assistance

**CAUTION EXTERNAL EMAIL**

**DO NOT open attachments or click on links from unknown senders or unexpected 
emails**

As others have pointed out "IDCAMS" is a NetView command that calls IDCAMS.  
The original intent was to allow you to automate maintenance of  the VSAM files 
that NetView uses without bringing down NetView.  However I sure that others, 
like you and me, have found other purposes for it.

We also use it for inbound file transfer automation to rename the files so they 
have date/time stamps.  I have never experienced 878 abends, but that could be 
due to the number of times it is called.  We now have FTP exits that add the 
date/time stamps when the file is created the majority of the time  instead of 
after the transfer ends.   So end up not doing renames calling IDCAMS that much.

From NetView I don't know of another way to call IDCAMS, the only thing I can 
think of would be to change your automation so that instead of calling IDCAMS 
directly from NetView is to create a file with the control statements you need 
and then submit either a batch job or run it as a separate started task 
pointing to the file with the control statements.  I think somebody else 
suggested this also.

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

**DO NOT open attachments or click on links from unknown senders or unexpected 
emails**

This e-mail transmission contains information that is confidential and may be 
privileged.   It is intended only for the addressee(s) named above. If you 
receive this e-mail in error, please do not read, copy or disseminate it in any 
manner. If you are not the intended recipient, any disclosure, copying, 
distribution or use of the contents of this information is prohibited. Please 
reply to the message immediately by informing the sender that the message was 
misdirected. After replying, please erase it from your computer system. Your 
assistance in correcting this error is appreciated.


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

Re: z/OSMF & TSS

[Carmen Vitullo]

This is good to know, I wonder why TSS tech support did not point me in that 
direction 


unfortunately I have no TSS access to any TSS datasets :( 

thanks 


Carmen Vitullo 

- Original Message -

From: "Thomas Chicklon" <01fbdb5fcb44-dmarc-requ...@listserv.ua.edu> 
To: IBM-MAIN@LISTSERV.UA.EDU 
Sent: Friday, May 22, 2020 9:12:27 AM 
Subject: Re: z/OSMF & TSS 

As long as you are relatively current with your TSS maintenance, there are TSS 
versions in CAKOJCL0 of the IBM samples for zOSMF setup that have had the RACF 
commands converted to TSS commands. 

Both what IBM and Broadcom provide are just samples, it still takes a bit of 
massaging for your environment. 

Also, if you have zOS 2.4, there is now a Security Configuration Assistant 
delivered with zOSMF. Still a hurdle to get to the point of being able to use 
that, but a great tool once you get there! 

Tom Chicklon 


-Original Message- 
From: IBM Mainframe Discussion List  On Behalf Of 
Carmen Vitullo 
Sent: Friday, May 22, 2020 8:38 AM 
To: IBM-MAIN@LISTSERV.UA.EDU 
Subject: Re: z/OSMF & TSS 

**CAUTION EXTERNAL EMAIL** 

**DO NOT open attachments or click on links from unknown senders or unexpected 
emails** 

Mark, unfortunately I have a new laptop for working at home, my doc is at my 
work PC I cannot get to it. 
searching CA-Top Secret doc you will find 


http://techdocs.broadcom.com/content/broadcom/techdocs/us/en/ca-mainframe-software/security/ca-top-secret-for-z-os/16-0/search.html?q=z%2Fosmf
 

HTH's 


Carmen Vitullo 

- Original Message - 

From: "Steely.Mark"  
To: IBM-MAIN@LISTSERV.UA.EDU 
Sent: Thursday, May 21, 2020 5:12:48 PM 
Subject: z/OSMF & TSS 

Does anyone have z/OSMF active using TSS (Top Secret) ? I have been using the 
"Convert z/OS 2.3 member IZUSEC from RACF to TSS commands". 

z/OSMF still has problems activating - I would like to see how other sites have 
setup the ID's IBM requires. 

My main concern is IZUADMIN. The documentation says to set this up as a profile 
but z/OSMF uses that ID as a USER. 

If you prefer you may contact me offline. 

Thank You 

*** Disclaimer *** 
This communication (including all attachments) is solely for the use of the 
person to whom it is addressed and is a confidential AAA communication. If you 
are not the intended recipient, any use, distribution, printing, or copying is 
prohibited. If you received this email in error, please immediately delete it 
and notify the sender. 

-- 
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 
**CAUTION EXTERNAL EMAIL** 

**DO NOT open attachments or click on links from unknown senders or unexpected 
emails** 

This e-mail transmission contains information that is confidential and may be 
privileged. It is intended only for the addressee(s) named above. If you 
receive this e-mail in error, please do not read, copy or disseminate it in any 
manner. If you are not the intended recipient, any disclosure, copying, 
distribution or use of the contents of this information is prohibited. Please 
reply to the message immediately by informing the sender that the message was 
misdirected. After replying, please erase it from your computer system. Your 
assistance in correcting this error is appreciated. 


-- 
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: z/OSMF & TSS

[Chicklon, Thomas]

As long as you are relatively current with your TSS maintenance, there are TSS 
versions in CAKOJCL0 of the IBM samples for zOSMF setup that have had the RACF 
commands converted to TSS commands. 

Both what IBM and Broadcom provide are just samples, it still takes a bit of 
massaging for your environment.

Also, if you have zOS 2.4, there is now a Security Configuration Assistant 
delivered with zOSMF. Still a hurdle to get to the point of being able to use 
that, but a great tool once you get there!

Tom Chicklon


-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Carmen Vitullo
Sent: Friday, May 22, 2020 8:38 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: z/OSMF & TSS

**CAUTION EXTERNAL EMAIL**

**DO NOT open attachments or click on links from unknown senders or unexpected 
emails**

Mark, unfortunately I have a new laptop for working at home, my doc is at my 
work PC I cannot get to it. 
searching CA-Top Secret doc you will find 


http://techdocs.broadcom.com/content/broadcom/techdocs/us/en/ca-mainframe-software/security/ca-top-secret-for-z-os/16-0/search.html?q=z%2Fosmf
 

HTH's 


Carmen Vitullo 

- Original Message -

From: "Steely.Mark"  
To: IBM-MAIN@LISTSERV.UA.EDU 
Sent: Thursday, May 21, 2020 5:12:48 PM 
Subject: z/OSMF & TSS 

Does anyone have z/OSMF active using TSS (Top Secret) ? I have been using the 
"Convert z/OS 2.3 member IZUSEC from RACF to TSS commands". 

z/OSMF still has problems activating - I would like to see how other sites have 
setup the ID's IBM requires. 

My main concern is IZUADMIN. The documentation says to set this up as a profile 
but z/OSMF uses that ID as a USER. 

If you prefer you may contact me offline. 

Thank You 

*** Disclaimer *** 
This communication (including all attachments) is solely for the use of the 
person to whom it is addressed and is a confidential AAA communication. If you 
are not the intended recipient, any use, distribution, printing, or copying is 
prohibited. If you received this email in error, please immediately delete it 
and notify the sender. 

-- 
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
**CAUTION EXTERNAL EMAIL**

**DO NOT open attachments or click on links from unknown senders or unexpected 
emails**

This e-mail transmission contains information that is confidential and may be 
privileged.   It is intended only for the addressee(s) named above. If you 
receive this e-mail in error, please do not read, copy or disseminate it in any 
manner. If you are not the intended recipient, any disclosure, copying, 
distribution or use of the contents of this information is prohibited. Please 
reply to the message immediately by informing the sender that the message was 
misdirected. After replying, please erase it from your computer system. Your 
assistance in correcting this error is appreciated.


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

FW: REXX assistance

[Robert Garrett]

Somehow, I managed to send this suggestion to the wrong mailing list a few days 
ago – my bad…


Hi Dave,
I've seen that kind of problem before myself invoking various IBM utilities 
repeatedly.  A lot of them assume that they will always run at the jobstep 
level and don't ever freemain their SP0 storage, instead "assuming" step 
termination will handle it for them.  That can cause problems like the one 
you're seeing (if you’re repeatedly calling them from a parent REXX exec).  The 
solution I've implemented in the past is to invoke those utilities using 
ATTCHMVS, which will run then under a new TCB which thus will obtain its own 
SP0 storage. When the utility finishes and that TCB gets detached,  that 
separate SP0 storage will get freemain'ed even if the utility doesn't clean up 
after itself, thus avoiding the problem.   I also wrote my own custom version 
of ATTCHMVS that allowed me to pass a loadlib to be used as a TASKLIB on the 
ATTACH. In my case, I was repeatedly invoking the CICS DFHCSDUP utility and 
needed to be able to call different releases of it dynamically from the parent 
exec.
Try using ATTCHMVS and see if that doesn't solve your problem.
Rob

From: Dave Jousma 
<01a0403c5dc1-dmarc-requ...@listserv.ua.edu>
Sent: Wed May 20 06:48:49 CDT 2020
To: "IBM-MAIN@LISTSERV.UA.EDU"
Subject: REXX assistance



All,

We have some relatively new Netview automation to process inbound FTP 
processing that is written in REXX, and over time we’ve seen Netview abends 
with 878’s, etc.   IBM indicates we may have a problem below the line, 
specifically SP0 being exhausted.   They are seeing a lot junk that looks like 
workpack volser’s PCW, temp dataset names, etc.   It is my belief that it 
is the remnants of calling IDCAMS to do our FTP processing to create special 
dataset catalog entries amongst other stuff and cleanup is not occurring that 
over time causes our problems.

Here is the bit of rexx code I am looking at.   Look at how IDCAMS is being 
called in line 318.  I’m not a REXX coding expert by any means.  Is that the 
equivalent of just a standard CALL? Or like entering TSO IDCAMS at a command 
line in TSO?  I’m wondering if there is a better way to call IDCAMS?   I see 
references to LINK, ATTACH, LINKMVS, ATTCHMVS, LINKPGM, ATTCHPGM.  I’m 
embarrassed to say that I do not know the nuances of each of these, and when 
appropriate to use.   Do any of these create a new environment, do the 
function, and then tear the environment down upon exit?  It seems like this is 
what we need to use to fix this issue.

000308 /*  */
000309 /*  We have now created all the IDCAMS statements, we now write them*/
000310 /*  to our dataset to be used as SYSIN for IDCAMS command   */
000311 /*  */
000312   Say "Number of Queued Lines is " QueuedLines
000313  Address MVS 'EXECIO 'QueuedLines' DISKW 'Infile' (FINIS'
000314 /*  */
000315 /*  The IDCAMS statement calls IDCAMS using the 2 DD names listed   */
000316 /*  after the command as SYSIN and SYSPRINT */
000317 /*  */
000318  IDCAMS Infile Outfile
000319   Say "IDCAMS RC for File Rename = " RC
000320  If RC > 4 Then
000321 Do
000322   Address MVS 'EXECIO * DISKR 'Outfile' (STEM Prtrex. FINIS'
000323   do xy = 1 to Prtrex.0
000324  Say "Idcams output = " Prtrex.xy
000325   end
000326 end
000327   "free fi("Infile")"
000328   "free fi("Outfile")"
000329



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

Friday Follies/Why won't this work?/TSO Rant #387

[Charles Mills]

What is wrong with this Rexx? (I spent about two hours debugging before I
solved it.) The problem is right here on this page: the answer is NOT
something in RACF or JES2. It's not something missing: it's a sin of
commission, not a sin of omission. The below will never work. That is, the
output will always be RC = 4 , Msgs = MYMSGS.0 , Msg.1 = MYMSGS.1. Why?

/* Rexx to test command/response */ 
MyCart = "MyCart01" 
"CONSPROF SOLDISP(NO) SOLNUM(400)"  
"CONSOLE ACTIVATE"  
Address Console 
"CART" MyCart  
"$DQ"   
RC = GETMSG('MYMSGS.','SOL',MyCart,,1)  
Say "RC =" RC ", Msgs =" MYMSGS.0 ", Msg.1 =" MYMSGS.1 
"CONSOLE DEACTIVATE"

Charles 

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

Re: REXX assistance

[John S. Giltner, Jr.]

As others have pointed out "IDCAMS" is a NetView command that calls IDCAMS.  
The original intent was to allow you to automate maintenance of  the VSAM files 
that NetView uses without bringing down NetView.  However I sure that others, 
like you and me, have found other purposes for it.

We also use it for inbound file transfer automation to rename the files so they 
have date/time stamps.  I have never experienced 878 abends, but that could be 
due to the number of times it is called.  We now have FTP exits that add the 
date/time stamps when the file is created the majority of the time  instead of 
after the transfer ends.   So end up not doing renames calling IDCAMS that much.

From NetView I don't know of another way to call IDCAMS, the only thing I can 
think of would be to change your automation so that instead of calling IDCAMS 
directly from NetView is to create a file with the control statements you need 
and then submit either a batch job or run it as a separate started task 
pointing to the file with the control statements.  I think somebody else 
suggested this also.

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

Re: Where do started PROC errors go?

[Peter Relson]

Lizette wrote
>Check the JES2 INIT Deck for the STCCLAS and see what it has for DISP.

I don't know if what I do on a test system is relevant (or is something 
that I should have been doing differently for decades) but
$TSTCCLASS,CONDPURG=NO
sometimes helps me to get output from a started task (and probably relates 
to what Lizette wrote).

Peter Relson
z/OS Core Technology Design


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

Re: z/OSMF & TSS

[Carmen Vitullo]

Mark, unfortunately I have a new laptop for working at home, my doc is at my 
work PC I cannot get to it. 
searching CA-Top Secret doc you will find 


http://techdocs.broadcom.com/content/broadcom/techdocs/us/en/ca-mainframe-software/security/ca-top-secret-for-z-os/16-0/search.html?q=z%2Fosmf
 

HTH's 


Carmen Vitullo 

- Original Message -

From: "Steely.Mark"  
To: IBM-MAIN@LISTSERV.UA.EDU 
Sent: Thursday, May 21, 2020 5:12:48 PM 
Subject: z/OSMF & TSS 

Does anyone have z/OSMF active using TSS (Top Secret) ? I have been using the 
"Convert z/OS 2.3 member IZUSEC from RACF to TSS commands". 

z/OSMF still has problems activating - I would like to see how other sites have 
setup the ID's IBM requires. 

My main concern is IZUADMIN. The documentation says to set this up as a profile 
but z/OSMF uses that ID as a USER. 

If you prefer you may contact me offline. 

Thank You 

*** Disclaimer *** 
This communication (including all attachments) is solely for the use of the 
person to whom it is addressed and is a confidential AAA communication. If you 
are not the intended recipient, any use, distribution, printing, or copying is 
prohibited. If you received this email in error, please immediately delete it 
and notify the sender. 

-- 
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: IODF Activation Question - Followup

[R.S.]

General rules for HCD activation
It is easier to add than to remove (or alter) devices.
For remove, you have to vary/configure device/chp offline. Where? 
Everywhere on the CPC, that means each LPAR.
It is nothing weird in having multiple non-sysplexed LPARs on CPC and 
dynamict activation.
For dynamic activation when multiple z/OS LPARs are active there is 
following method:
- do the checks, vary offline altered devices on every LPAR, repeat 
ACTIVATE TEST

- on every system except last perform ACTIVATE SOFT
- on last system perform ACTIVATE without the SOFT. That will also 
update HSA and since then every system will have definitions in sync.

- upload IOCDS on Support Element. DON'T FORGET IT.

Personally I used to start with "the last system" - that means HSA 
update, and then ACTIVATE SOFT on rest, however the "more recommended" 
way is the above.


Remarks:
Every system need access to IODF file. It can be shared file 
(convenient) or just copy of the file. How to get a copy of VSAM file is 
out of scope ;-) however take care - this file HAS TO BE SINGLE EXTENT. 
Check it before you start.


Assuming no changes in CF (and channels to CF), it doesn't matter 
whether given z/OS image is sysplexed or not.


Sysplex members on different machines always have different 
configuration, even when it comes from single IODF file. It's obvious: 
every machine has its own set of channel, etc. And sysplex member may 
have some non-shared devices.


For shared devices within sysplex there is no black magic, of course 
there are devices crucial for sysplex like CDS volumes, however you will 
find it out when trying to offline them.



--
Radoslaw Skorupka
Lodz, Poland







W dniu 21.05.2020 o 20:27, Mark Jacobs pisze:

I have a followup question on this topic. In addition to the 8 z/OS systems in 
the sysplex, we have several standalone monoplex z/OS systems on the same CEC. 
If I perform the HCD work in the sysplex, then transfer the IODF file to one of 
the standalone systems, perform a software and hardware activation there, will 
the IODF tokens match between the hardware and software in the members in the 
sysplex once they're all IPLed with the new IODF?

My goal is to keep everything in sync without needing a POR of the processor.

Sent from [ProtonMail](https://protonmail.com), Swiss-based encrypted email.

GPG Public Key - 
https://api.protonmail.ch/pks/lookup?op=get=markjac...@protonmail.com

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




==

Jeśli nie jesteś adresatem tej wiadomości:

- powiadom nas o tym w mailu zwrotnym (dziękujemy!),
- usuń trwale tę wiadomość (i wszystkie kopie, które wydrukowałeś lub zapisałeś 
na dysku).
Wiadomość ta może zawierać chronione prawem informacje, które może wykorzystać 
tylko adresat.Przypominamy, że każdy, kto rozpowszechnia (kopiuje, rozprowadza) 
tę wiadomość lub podejmuje podobne działania, narusza prawo i może podlegać 
karze.

mBank S.A. z siedzibą w Warszawie, ul. Senatorska 18, 00-950 
Warszawa,www.mBank.pl, e-mail: kont...@mbank.pl. Sąd Rejonowy dla m. st. 
Warszawy XII Wydział Gospodarczy Krajowego Rejestru Sądowego, KRS 025237, 
NIP: 526-021-50-88. Kapitał zakładowy (opłacony w całości) według stanu na 
01.01.2020 r. wynosi 169.401.468 złotych.

If you are not the addressee of this message:

- let us know by replying to this e-mail (thank you!),
- delete this message permanently (including all the copies which you have 
printed out or saved).
This message may contain legally protected information, which may be used 
exclusively by the addressee.Please be reminded that anyone who disseminates 
(copies, distributes) this message or takes any similar action, violates the 
law and may be penalised.

mBank S.A. with its registered office in Warsaw, ul. Senatorska 18, 00-950 
Warszawa,www.mBank.pl, e-mail: kont...@mbank.pl. District Court for the Capital 
City of Warsaw, 12th Commercial Division of the National Court Register, KRS 
025237, NIP: 526-021-50-88. Fully paid-up share capital amounting to PLN 
169.401.468 as at 1 January 2020.

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

Re: z/OSMF & TSS

[Carmen Vitullo]

I do, CA (BROADCOM) has the RACF to TSS commands on their knowledge base, If I 
can find what they gave me I can shoot it to you, BTW I still have issues with 
zosmf and jes2eds with the supplied commands 



Carmen Vitullo 

- Original Message -

From: "Steely.Mark"  
To: IBM-MAIN@LISTSERV.UA.EDU 
Sent: Thursday, May 21, 2020 5:12:48 PM 
Subject: z/OSMF & TSS 

Does anyone have z/OSMF active using TSS (Top Secret) ? I have been using the 
"Convert z/OS 2.3 member IZUSEC from RACF to TSS commands". 

z/OSMF still has problems activating - I would like to see how other sites have 
setup the ID's IBM requires. 

My main concern is IZUADMIN. The documentation says to set this up as a profile 
but z/OSMF uses that ID as a USER. 

If you prefer you may contact me offline. 

Thank You 

*** Disclaimer *** 
This communication (including all attachments) is solely for the use of the 
person to whom it is addressed and is a confidential AAA communication. If you 
are not the intended recipient, any use, distribution, printing, or copying is 
prohibited. If you received this email in error, please immediately delete it 
and notify the sender. 

-- 
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