Re: grep ascii files...

[Paul Gilmartin]

On Thu, 18 Apr 2024 11:16:30 -0500, Grant Taylor wrote:

>On 4/18/24 11:03 AM, Paul Gilmartin wrote:
>> someone conversant with such languages has posted here that the spoken
>> convention is low-to-high order: "four and twenty blackbirds."
>
>Would you please clarify / confirm the example language?  "four and
>twenty blackbirds" sort of breaks my brain and I'd like to research and
>learn more.
>
<https://en.wikipedia.org/wiki/Four_and_Twenty_Blackbirds>

-- 
gil

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

Re: grep ascii files...

[Paul Gilmartin]

On Thu, 18 Apr 2024 15:02:41 +, Farley, Peter wrote:

>Re: “When typing Hebrew or Arabic text on a 3270, does tne cursor move 
>right-to-left?”, I can testify that yes it does.  Quite remarkable when you 
>first see it, but then for numeric fields it moves left to right, just like 
>non-Arabic/Hebrew screens.  And while typing non-numeric characters, the 
>characters you already typed can change as you type other characters, 
>according to the language rules.
> 
someone conversant with such languages has posted here that the
spoken convention is low-to-high order: "four and twenty blackbirds."

-- 
gil

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

Re: grep ascii files...

[Paul Gilmartin]

On Thu, 18 Apr 2024 08:24:02 -0500, Lionel B. Dyck wrote:

>Gil - no need to insult.
>
Understood.  I felt I that I was lighthearted, in the spirit of Kirk's
suggestion, after I checked that he did append a smiley to his
arrant pedantry.

More seriously, suppose the pattern isn't EBCDIC?  I'm
imagining Hebrew in UTF-8.  How do regular expessions
play with R-to-L text?

When typing Hebrew or Arabic text on a 3270, does tne
cursor move right-to-left?


>-Original Message-
>From: Paul Gilmartin
>Sent: Thursday, April 18, 2024 8:22 AM
>
>On Thu, 18 Apr 2024 07:36:15 -0500, Kirk Wolf wrote:
>
>>Behold the power of Unix pipelines:
>>
>>$ iconv -f ISO8859-1 -t IBM-1047  myasciifile | grep  MATCH
>>
>>iconv is not "first converting" the the whole file to EBCDIC since both 
>>iconv and grep run at the same time :-)
>> 
>OK, smartass.  How about "grep -r".

-- 
gil

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

Re: grep ascii files...

[Paul Gilmartin]

On Thu, 18 Apr 2024 07:36:15 -0500, Kirk Wolf wrote:

>Behold the power of Unix pipelines:
>
>$ iconv -f ISO8859-1 -t IBM-1047  myasciifile | grep  MATCH
>
>iconv is not "first converting" the the whole file to EBCDIC since both iconv 
>and grep run at the same time :-)
> 
OK, smartass.  How about "grep -r".

-- 
gil

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

Re: ./ ADD - which utility?

[Paul Gilmartin]

On Tue, 16 Apr 2024 07:17:35 +1000, Wayne Bickerdike wrote:

>I guess when the utility was developed JCL was way simpler and test cases
>were limited.
>
>After Gil raised the various gotchas, I wrote myself a PUTPDS program with
>a user defined delimiter. Eschewing 2 bytes means I can come up with a very
>random string such as !@#$%^&*  ADD NAME=MEMBER. Not likely to be embedded
>in usual members.
>
>Now adding some bells and whistles. Not that I need it in retirement. Golf
>today.
>
Bravo!

Although I still favor off-the-shelf techniques such as
IEBCOPY and TRANSMIT.

Although those lack the flexibility of editable text
transport containers.

-- 
gil

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

Re: ./ ADD - which utility?

[Paul Gilmartin]

On Sun, 14 Apr 2024 19:47:38 -0400, Steve Thompson wrote:

>JES3 is not retarded.
>
I may have judged hastily from such as that the OUTPUT JCL statement
came to JES2 before JES3.  You could pay extra to not get the feature.

>JES3 has this:
>//*DATASET parameters.
>
>//*ENDDATASET
> 
Those look like comments.  I guess it provides a sort of compatibility
in that JES2 will ignore them.  At the cost of making it harder to
detect and report typos.

Can the delimiter be changed to allow such lines within instream data?


>This is what the z/OS MVS JCL REF has for the parameters:
>   ...
>//*DATASET DDNAME=ddname[,parameter]...

>This allows one to put that data in-stream, define what DD will
>be using it. And then the JOB Step that gets it, the data is
>encapsulated better than JES2 does it.
>
I see little use in the feature.  But if I don't like it, or dln't
understand it, I don't have to use it.

>So I think this can handle the problem of "IEBUPDTE".
>
No.  The problem is not in JES[23], but in IEBUPDTE, which
has nothing like a DLM= parm which would allow data lines
resembling IEBU{DtE commands to appear instream.

-- 
Thanks,
gil

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

Re: ./ ADD - which utility?

[Paul Gilmartin]

On Sun, 14 Apr 2024 18:06:01 +, Lennie Bradshaw wrote:

>Paul Gilmartin said,
>>> And no DLM is safe to use with instream XMIT output. <<
>
>True. However, for any given stream there is ahigh likelihood of finding a 2 
>char symbols that would work for that stream. I wrote a program to scan files 
>to find a suitable delimiter string to use some years back. I've lost it now 
>of course!
> 
Which doesn't address the problem of IEBUPDTE when a data record
begins with "./"/

Does anyone claim it's possible?

As for finding a delimiter for JCL, I'd SORT UNIQUE on columns 1-2;
inspect the median value.  If it's high, iterate using the top half;
if low, iterate using the bottom half.


>-Original Message-
>From:  Paul Gilmartin
>Sent: 14 April 2024 14:04
>
>On Sat, 13 Apr 2024 20:01:50 -0500, Mike Schwab wrote:
>
>>You nan set it up for a //SYSIN DD DATA,DLM='??' and add the
>>'??'
>>Card at the end.
>> 
>That's not enough.  If the input PDS contains a member with a line beginning 
>with "./", which is likely in JCL with instream data, IEBUPDTE will improperly 
>treat it as a command, not data.
>
>A similar problem arises if a data line begins with "??".
>
>And no DLM is safe to use with instream XMIT output.

-- 
gil

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

Re: ./ ADD - which utility?

[Paul Gilmartin]

On Sun, 14 Apr 2024 11:48:02 -0400, Steve Thompson wrote:

>In a JES2 environment, DLM= can be up to and including 8
>characters (JES3 is limited to 2, not sure of JES3+).
>
Why is JES3 so retarded?  Useful features tend to be added to
JES2 earlier than JES3.

>In that case, what odds are there of coming up with a safe string?
> 
Almost certainty for any reasonable file size.  The interesting
question then is, "What's the most efficient way to discovedr
a safe string?"

However, IEBUPDTE has no sort of DLM option, so there's
no way to protect data lies beginning with with "./"  It's
puzzling that the IEBUPDTE designers never foresaw that
problem.  Consider, letting the Devil provide the test case:

/*Rexx
./ADD perverse comment  */
say 'Hello, World!'

-- 
gil

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

Re: ./ ADD - which utility?

[Paul Gilmartin]

On Sun, 14 Apr 2024 09:35:00 -0400, David Spiegel  wrote:

>Hi Gil,
>Please see PDSLOAD (CBT File 093).
> 
This appears to be a companion to  OFFLOAD:


which says:
...  If the program detects IEBUPDTE control cards in the member of the 
PDS, the './' identifiers of the member records are altered to '><'.  

That relocates the problem without solving it for the case in which
a member contains both lines beginning with './' and both lines beginning
with ''><'. 

-- 
gil

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

Re: ./ ADD - which utility?

[Paul Gilmartin]

On Sat, 13 Apr 2024 20:01:50 -0500, Mike Schwab wrote:

>You can set it up for a //SYSIN DD DATA,DLM='??' and add the
>'??'
>Card at the end.
> 
That's not enough.  If the input PDS contains a member with a line
beginning with "./", which is likely in JCL with instream data,
IEBUPDTE will improperly treat it as a command, not data.

A similar problem arises if a data line begins with "??".

And no DLM is safe to use with instream XMIT output.



>On Sat, Apr 13, 2024 at 6:52 PM Paul Gilmartin wrote:
>>
>> On Sun, 14 Apr 2024 08:34:30 +1000, Wayne Bickerdike wrote:
>>
>> >I have some REXX code that extracts all members of a PDS and writes it to a
>> >sequential file. Each member extracted is prefixed with the ./ADD card with
>> >the original member name. Handy for moving a PDS to another system.
>> >IEBUPDTE was the utility of choice when all we had was a card punch and
>> >card reader. (1975).
>> >
>> Have you just rediscovered IEBPTPCH?
>>
>> How does this work if your input PDS is a JCL library containing some
>> jobs with IEBUPDTE steps with instream commands?

-- 
gil

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

Re: ./ ADD - which utility?

[Paul Gilmartin]

On Sun, 14 Apr 2024 08:34:30 +1000, Wayne Bickerdike wrote:

>I have some REXX code that extracts all members of a PDS and writes it to a
>sequential file. Each member extracted is prefixed with the ./ADD card with
>the original member name. Handy for moving a PDS to another system.
>IEBUPDTE was the utility of choice when all we had was a card punch and
>card reader. (1975).
> 
Have you just rediscovered IEBPTPCH?

How does this work if your input PDS is a JCL library containing some
jobs with IEBUPDTE steps with instream commands?

-- 
gil

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

Re: ./ ADD - which utility?

[Paul Gilmartin]

On Sat, 13 Apr 2024 09:30:15 -0500,   wrote:

>Which utility do you use for control statement/input: 
>./ ADD 
> 
That question needs a lot of context;  perhaps an example.
What are you trying to do?

>A jcl for that would be nice too. 
>
Many people wish for some editing capability in the JCL Reader.

Lacking that, I have sometimes kept JCL as here-documents in
shell scripts, relying on shell variable substitution and command
substitution.  That was especially useful prior to the availability
of the SET and INCLUDE commands.

I never mastered file tailoring for JCL -- I had an alternative.

-- 
gil

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

Re: [EXTERNAL] Re: PASSPORT 3270 emulator (PC) problem w transferring files

[Paul Gilmartin]

On Wed, 10 Apr 2024 17:59:26 +, Pommier, Rex  wrote:

>...
>Anyway, Microsoft ftp client doesn't support passive and zscaler only supports 
>passive.  Guess what quit talking?
>
The dual-socket FTP design, separating control and data, was recherché in
its time and now obsoleted by security practices.

Has any FTP implementation exploited the optimization offered by such as
,
connecting the socket via kernel to a file descriptor?

-- 
gil

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

Re: Not getting IBM-MAIN Email

[Paul Gilmartin]

On Tue, 9 Apr 2024 23:08:54 -0400, David Mingee wrote:

>Hello All,  I magically started getting email from IBM-MAIN on Monday Apr 8.
>Thanks to all who offered help.
>
I have found the following informative:


Does LISTSERV periodically test with something such as that?

-- 
gil

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

Re: PASSPORT 3270 emulator (PC) problem w transferring files

[Paul Gilmartin]

On Wed, 10 Apr 2024 14:39:11 +, Robert Prins wrote:
>
>You're probably paid a fair amount of dosh, ... And for ftp, FileZilla is free.
>
>
Provided the client:
o Allows FTP
o Allows shareware.

-- 
gil

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

Re: Program to split a jobs output

[Paul Gilmartin]

On Tue, 9 Apr 2024 08:42:37 +, גדי בן אבי wrote:
>
>Today I had to sent a jobs output to IBM to help determine a problem.
>The jobs had 11 sysout datasets, and I wanted to send each one individually.
>
>Does anyone know of a program to do this automagically, before I see how 
>complicated it would be to write one?
>
Willl DSFS help with this?

WHr does the DSFS User's Guide say about this?

-- 
gil

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

Re: Program to split a jobs output

[Paul Gilmartin]

On Tue, 9 Apr 2024 09:15:05 +, Rob Scott  wrote:

>I believe that Lionel Dyck has a simple SDSF REXX exec that does pretty much 
>what you require - it is called "SDSFXDD".
>
>It takes each SYSOUT dataset from a job and saves it as a member of a PDS.
>
I've done that, but targeting a UNIX hierarchy.

o Much richer name space.  I can use qualifier such as:
  jobname/jobid/stepname/procstepname/ddname/spoolID.

o Copies SYSINs also.

o I am not constrained to a single RECFM.

IEBGENER copies attributes of DD allocated by SDSF.

But I must guess at FILE DATA() based on DDNAME
overriding SYSUT1.

-- 
gil

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

Re: FTP translate table defaults

[Paul Gilmartin]

On Fri, 5 Apr 2024 13:32:46 -0400, Phil Smith IIIwrote:
>...
>I don't have a solid answer other than that file tagging seems to matter, so 
>chtag is your friend.
> .
Does the FTP server have such as a SITE CHTAG command?

Will FTP automatically tag a file to the value in SBDATACONN?

-- 
gil

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

Re: [ISPF-L] Edit Copy anomaly ?

[Paul Gilmartin]

(I'll try to cross-post this.)
On 4/4/24 10:49:48, lbd...@gmail.com wrote:


Found another way to do it

 From my home directory via the shell entered: */cp script 
/dsfs/txt/hlq.pds/script/*

And then checked and it copied just fine – kudos to the */dsfs/* team.
 .

A pleasant surprise.

Is this behavior clearly documented in the DSFS User's Guide?

--
gil

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

Re: Attributes of an assemler symbol

[Paul Gilmartin]

On Mon, 1 Apr 2024 13:38:22 +, Seymour J Metz  wrote:

>The obvious answer, which, alas, isn't supported, would be the N' attribute. 
>RFE?
> 
Idea?

This belongs on ASSEMBLER-LIST.

Does it matter that the values in a symbol can vary between repetitions?  E.g.:
TABLE  DC  256AL1(*-TABLE)

>
>From: I Binyamin Dissen
>Sent: Sunday, March 31, 2024 4:53 AM
>
>   FOO   DS   10CL5
>
>which attribute / macro function extracts the repetition count - 10
>
>I assuee that it must exist but I am not finding it.

-- 
gil

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

Re: Slow FTP's

[Paul Gilmartin]

On Thu, 28 Mar 2024 17:26:46 +, Jousma, David wrote:

>Ding ding ding…..Gil gets the prize!...
>
>Coding EBCDIC, and STRU R was the magic potion.
> 
And no one knows why.

FTP appears designed to ignore conventions and frustrate programmers.\
Once I coded:
//SYSUT1  DD  RECFM=U,...
...
PUT DD:SYSUT1 ...

expecting FTP to behave like IEBGENER or any well-behaved utility,
treat each block as an unformatted record, and transfer RDWs and BDWs
as data.  Instead, it appeared to ignore my allocation attributes and use
those in the DSCB instead.

-- 
gil

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

Re: Slow FTP's

[Paul Gilmartin]

On Thu, 28 Mar 2024 14:41:32 +, rpinion865 wrote:

>As you have determined, it seems that MODE B (Block Mode) is the kicker.  
>Using XMIT or TERSE would eliminate the need for MODE B.  But we all know 
>there is CPU consumption from using those two utilities on both ends. 
>
Might STRU R be preferable to MODE B?

(But O discovered that STRU R garbles RECFM=VBS.)

-- 
gil

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

Re: DSFS IBM Idea - Please consider voting

[Paul Gilmartin]

On Tue, 26 Mar 2024 13:48:56 -0500, Lionel B. Dyck  wrote:

>Please consider voting on my new IBM Idea for /dsfs
>https://ibm-z-hardware-and-operating-systems.ideas.ibm.com/ideas/ZOS-I-4024
>- this is requesting that dsfs have access to input datasets in the spool
>along with the currently supported output datasets.
>
> 
I'm curious:  How does "tail -f" behave on a DSFS SYSOUT while  it is
actively being updated by a batch job?  Is it comparable to SDSF with
auto refresh?

Are there any restrictions that should be mentioned in the User's Guide?

-- 
gil

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

Re: FTP SBDATACONN - how to display?

[Paul Gilmartin]

On Mon, 25 Mar 2024 16:39:22 +0100, Radoslaw Skorupka wrote:
>>>
>> what does [QUOTE [SITE]] STAT tell you?
>
>The output is long, but it does not contain translation details.
>However it shows "ENcoding is set to SBCS".
> 
Feels like an invitation to an Idea.

>Note, SITE STAT (SBD   or SITE STAT (ENCODING are not helpful also.

-- 
gil

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

Re: FTP SBDATACONN - how to display?

[Paul Gilmartin]

On Sun, 24 Mar 2024 21:46:37 +0100, Radoslaw Skorupka wrote:

>How to display current settings of SBDATACONN?
>I mean translation details.
>The server is running on z/OS, the client is Windows or Linux (text
>mode, no GUI clients).
> 
what does [QUOTE [SITE]] STAT tell you?

-- 
gil

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

Re: How to unzip my Rocket MAKE 4.3 file

[Paul Gilmartin]

On Tue, 19 Mar 2024 15:45:28 +, Pommier, Rex wrote:

>I *think* pax will explode a zip file.  
> 
I have used "jar" to explode a zip file.

-- 
gil

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

Re: Rexx numeric digits and scientific notation question

[Paul Gilmartin]

On Fri, 15 Mar 2024 23:24:38 +, Seymour J Metz wrote:

>CALL ON or SIGNAL ON?
> 
???
CALL ON to a procedure coded in front of the main loop and drop
through without RETURN?  That would make things worse.

He would have wanted ITERATE ON.

>
>From:  Paul Gilmartin 
>Sent: Friday, March 15, 2024 5:38 PM
>On Fri, 15 Mar 2024 19:36:12 +, Seymour J Metz wrote:
>
>>"unwinds" in a very disruptive and partial fashion.  I once debugged a naive 
>>co-workers
>program which handled an exception in a subroutine by SIGNAL to top of main 
>loop.
>Worked fine in a modest test data set.  Overflowed CALL/RETURN stack on a 
>larger
>data set.

-- 
gil

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

Re: Rexx numeric digits and scientific notation question

[Paul Gilmartin]

On Fri, 15 Mar 2024 19:36:12 +, Seymour J Metz wrote:

>The SIGNAL statement unwinds the stack in a very disruptive fashion; its 
>behavior is unlike GOTO in any language that I am familiar with. Use it for 
>anything but exception handling at your peril.
>
>"unwinds" in a very disruptive and partial fashion.  I once debugged a naive 
>co-workers
program which handled an exception in a subroutine by SIGNAL to top of main 
loop.
Worked fine in a modest test data set.  Overflowed CALL/RETURN stack on a larger
data set.

-- 
gil

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

Re: Rexx numeric digits and scientific notation question

[Paul Gilmartin]

On Tue, 12 Mar 2024 12:29:16 -0500, Charles Mills  wrote:
>
>(Why do I care? I am subsequently going to add a relatively small number to 
>the product and don't want to lose low-order digits.)
> 
Set DIGITS to (FSVO) enough.

>I tried using FORMAT but unless I use it in every subsequent calculation Rexx 
>goes back to scientific notation and I lose low order digits.
> 
Then use FORMAT() (only) to format output for display;

-- 
gil

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

Re: BASE64 Decode / EPOCH Conversion Code Samples

[Paul Gilmartin]

On Sun, 10 Mar 2024 02:11:50 +, Seymour J Metz wrote:

>HLASM.
> 
I understand that on Linux HLASM translates ASCII source to EBCDIC on
input and assembles that.

Has anyone written a HLASM base64  decoder that works on both ASCII
and EBCDIC?

Conditional assembly?

Dual path?

Translation on input?

-- 
gil

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

Re: BASE64 Decode / EPOCH Conversion Code Samples

[Paul Gilmartin]

On Sat, 9 Mar 2024 19:47:13 +0200, Binyamin Dissen wrote:
>
>Actually not, as the base64 document survives character conversion.
> 
I agree there's no loss of information.

>An assembler routine running using EBCDIC will provide the same result (with
>EBCDIC) as the routine running using ASCII with ASCII, i.e., 'A' translates to
>the same binary code on both systems.
>
What assembler runs on both ASCII and EBCDIC systems?

There's an ambiguity.  If you don't know whether your base64 is represented
in ASCII or EBCDIC, suppose it contains the character at code point x'4E'.
You don't know whether that's an EBCDIC '+' or ASCII 'N'.  It matters.

-- 
gil

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

Re: BASE64 Decode / EPOCH Conversion Code Samples

[Paul Gilmartin]

On Sat, 9 Mar 2024 08:46:01 -0600, Joel C. Ewing wrote:
>...
>If you really want the BASE64 encoding to be in EBCDIC characters,  and
>also a conversion of a binary value to be interpreted and displayed in
>EBCDIC, I would think it much more useful to keep these as  two
>independent routines.
>
If it were coded in a HLL as a 64-branch SWITCH statement, it would
work alike on an ASCII platform with ASCII encoded input and on an
EBCDIC platform with EBCDIC encoded input, producing identical
binary output for both.

An outboard ICONV filter  might be useful.


>>> On Wed, 6 Mar 2024 06:11:01 + Frank Bonaduce wrote:
>>>
>>> :>Hello Folks. Is anyone aware of where one might locate any sample 
>>> assembler code, macros or APIs to perform the following:
>>> :>- Base64 Decoding (to EBCDIC)- EPOCH Conversion
>>> :>Thanks in advance for the assistance.� �Frank.

-- 
gil

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

Re: BASE64 Decode / EPOCH Conversion Code Samples

[Paul Gilmartin]

On Wed, 6 Mar 2024 09:59:02 +0200, Binyamin Dissen wrote:

>Base64 has nothing to do with EBCDIC.
>
???

>It is a means of converting binary data to commonly printable characters
>(typically A-Z a-z 0-9 + /)  that can then be shipped in a non-binary manner.
>
To an assembler program it is almost certain to matter whether "A-Z a-z 0-9 + /"
are in ASCII or EBCDIC representation.


>A simple duck-duck-go search will show examples. My first C program was a base
>64 converter.
> 
>On Wed, 6 Mar 2024 06:11:01 + Frank Bonaduce wrote:
>
>:>Hello Folks. Is anyone aware of where one might locate any sample assembler 
>code, macros or APIs to perform the following:
>:>- Base64 Decoding (to EBCDIC)- EPOCH Conversion
>:>Thanks in advance for the assistance.� �Frank.

-- 
gil

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

Re: TELNET PROFILE, strictly PDS?

[Paul Gilmartin]

On Mon, 4 Mar 2024 13:29:59 +, roscoe5 wrote:

>I could not find definitive doc saying a PDS/E was/wasn’t allowed, but I am 
>convinced it is. Thanks.
>
In days of yore there were only PDSs  Nowadays there are PDS, PDSE1, PDSE2,
and UNIX directories with some similarities and many differences listed in:


Must  it be the responsibility of every facility to enumerate its capabilities? 
 With
great power comes great responsibility.

Long ago, I learned that UNIX directories were handled well by HLASM after
IBM fixed a couple of my APARs.  Poorly if at all as Rexx SYSEXEC, with
no documented restriction.

Will a future PDSE3 change more rules?

-- 
gil

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

Re: 35th International Rexx Symposium in Birsbane (Australia) about to start

[Paul Gilmartin]

On Fri, 1 Mar 2024 20:41:04 -0600, Mike Schwab wrote:

>https://www.rexx.org/
>Last Release Aug 2022.
> 
Thanks.  But wandering around to the mailing lists at:
,
the last post to "announce" was Feb. 2005, and "users"
has only a couple posts per year.  It's too quiet.

-- 
gil

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

Re: 35th International Rexx Symposium in Birsbane (Australia) about to start

[Paul Gilmartin]

On Sat, 2 Mar 2024 09:44:54 +1100, ronyF wrote:
>
>The link to further symposium information including the schedule can be
>found at , just click the box on the upper
>...
(drifting) That page links to the Regina page at:
  which invites a subscription at:
Support
A mailing list exists for the announcement and discussion of Regina
related matters.  To subscribe to this mailing list, send an email
message to the list server  with
the first line of the body of the message containing:
subscribe regina-l 

... but that fails with:
550: 5.1.1 Requested action not taken: mailbox unavailable

Is the Regina list still active?

-- 
Thanks,
gil

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

Re: Nanosecond resolution timestamps for HLL's?

[Paul Gilmartin]

On Tue, 27 Feb 2024 16:46:00 -0600, Jon Perryman wrote:

>On Sat, 24 Feb 2024 19:50:32 +, Jim Mulder wrote:
>
>>STCK, which inserts a processor related value in the low order bits to meet 
>>the "unique with a partition" requirement. 
> 
You (carefully) avoided making any representation about multiple partitions.

And a "processor related value" can guarantee uniqueness but not monotonicity:
Suppose a processor with a higher value does STCK.  On detecting this, a
processor with a lower value does its own STCK before the clock changes.
Clearly the value stored later and differing only in the "processor related 
value"
will be algebraically  less.

The PoOps guarantees no such inconsistency will be detectable.
"detectable" is a  tricky word.  Schrödinger's cat comes to mind: if
you can't see it, you can't say it happened.

What's the fastest way one processor can signal the other?  Spinning
on a storage content?  Then a cache fault might provide sufficient
delay to guarantee consistency.

>If there's not a simple answer, I'll take your word this is monotonic, Out of 
>curiosity, what is the precision of STCK and how does it guarantee monotonic 
>time? In other words, how does STCK distinguish between 10 STCK's on the same 
>CPU in the same partition within 49 microseconds? Multiply 244 picoseconds 
>(TOD bit 63) by 200 CPU IDs, STCK precision is 49 microseconds. With a 5Ghz 
>Telum processor, single cycle instructions take 191 picoseconds which means a 
>single CPU can potentially execute 256 instructions during that 49 microsecond 
>timeframe.

-- 
gil

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

Re: SDWAEC1

[Paul Gilmartin]

On Tue, 27 Feb 2024 13:48:18 -0600, Jon Perryman wrote:
>
>Joseph, you missed Peter's point. Clearly you don't understand this is not 
>about "seems like". By ignoring several clarification requests, you caused 
>lots of confusing posts because you forced false speculation that would have 
>been avoided by the clarifications.  ...
>
I have never known Joseph to supply actual code samples when
invited, even urged, to do so.  I can readily suspect that terms
of his employment preclude that for reasons such as work product
or confidentiality.

-- 
gil

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

Re: Program Alias Names

[Paul Gilmartin]

On Fri, 23 Feb 2024 19:58:42 +1100, Peter Morrison wrote:
>
>The MVS (et al) Binder and program objects have been around for over 30
>years.
>
>It is possible to have aliases for program objects (stored in a PDSE) that
>are longer than 8 characters.
>
>However, I have not found any facilities to (1) bringing thus-named things
>into storage and (2) list them.
>
I suspect they support C++, which generates long names.

How do they appear in a DSFS?

Are they case-sensitive in a DSFS?

Can they be created in a DSFS by the shell "ln" command?

Where's the User's Guide for DSFS?

-- 
gil

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

Re: Program Alias Names

[Paul Gilmartin]

On Fri, 23 Feb 2024 19:58:42 +1100, Peter Morrison  wrote:
>
>Have I missed something or is it not possible to bring into storage longer
>than 8-byte aliases from a PDSE? I would love someone to point me to other
>facilities that I am not aware of.
> 
Can a JUIX external link reference a long name?

-- 
gil

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

Re: DD SYMLIST?

[Paul Gilmartin]

On Thu, 22 Feb 2024 13:45:18 +1000, Peter Vels  wrote:

>https://www.ibm.com/docs/en/zos/3.1.0?topic=statement-symlist-parameter
>
I'm  looking at Page 263 of  SA23-1385-60
z/OS 3.1 MVS JCL Reference
with the page heading DD: SYMLIST

>On Thu, 22 Feb 2024 at 12:46, Paul Gilmartin  wrote:
>
>> What does the SYMLIST parameter of the JCL DD statement do?

-- 
gil

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

DD SYMLIST?

[Paul Gilmartin]

What does the SYMLIST parameter of the JCL DD statement do?

-- 
gil

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

Re: SMP Packaging a PTF module replacement.

[Paul Gilmartin]

On Wed, 21 Feb 2024 11:32:26 -0600, Joe DeChirico wrote:

>
>Thanks for all the responses, it appears that there was garbage in included 
>module, once I removed if from inline and used a ++MOD(VSHMNTSK) 
>TXLIB(ZPROTOBJ) . the problem went away.
>
I'm surprised that makes a difference?

How did you build the JCL with instream  ++MOD?  Could the
binary data have been corrupted by that process?

Does RECEIVE verify instream  ++MOD elements?

What were the messages in the failing case?

//SMPPTFIN DD DATA,DLM=@@   
 

the DLM=@@ should have no effect with your data.

What happens if you include the binary by concatenation
rather than instream?

-- 
gil

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

Re: SMP Packaging a PTF module replacement.

[Paul Gilmartin]

On Wed, 21 Feb 2024 13:07:24 +, Chalk, Shelia  wrote:

>Get rid of the numbers on the right hand side.
>
Why?  Those are almost standard..

>...  Then resubmit.  What error message are you getting?
>
Yes.

I prefer to rely on DDDEFs rather than DD in the JCL.

-- 
gil

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

Re: Nanosecond resolution timestamps for HLL's?

[Paul Gilmartin]

On Tue, 20 Feb 2024 15:39:21 +, Farley, Peter wrote:

>Thank you very much Frank.  I will try this out on my system.
>
>Would that such clear examples were available from IBM.
> 
But beware of relying on examples in lieu of documentation.

I once went to SR with a problem (I supplied the failing example) Rexx:
ADDRESS ATTCHMVS ASMA90

Tier 1 rejected, saying the manual contained no such example.

-- 
gil

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

Re: Nanosecond resolution timestamps for HLL's?

[Paul Gilmartin]

On Mon, 19 Feb 2024 21:54:56 -0600, Charles Mills wrote:

>... your program or some other unrelated program -- has recently issued an 
> STCK and your program must spin, consuming CPU cycles, until a unique STCK  
> ...
>
>OTOH, if you do need a monotonic value, then you should redesign and recode to 
>use STCKE. 
>
STCKE is faster than STCK because its granularity if finer and
doesn't need to spin as long.

How many instructions could have been issued during such a
(microcode) STCKE spin?

I know, it's model dependent.

And  a mischievous programmer could contrive to line up all the
CPUs abreast and issue STCKE simultaneously to exhibit the
worst case.

-- 
gil

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

Re: Nanosecond resolution timestamps for HLL's?

[Paul Gilmartin]

On Tue, 20 Feb 2024 09:16:11 +0800, David Crayford wrote:

>There is no z/OS UNIX callable service. ...
> 
Remember fondly days of yore when mainframe partisans,
such as one I worked with, boasted that all call interfaces,
including EXEC PGM= by the initiator were identical?

-- 
gil

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

Re: zsh for z/OS

[Paul Gilmartin]

On Mon, 19 Feb 2024 15:32:07 -0500, Rick Troth wrote:
>
>Talk to me, Gil. Where'd you get that? Brew? Who's behind that
>particular build? (I mean, did they put their names on it? Did they
>provide contact info?)
>
It might be here: .

I doubt they do z/OS.

Are z/OS ports generally merged into mainstream, multipath as needed?

-- 
gil

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

Re: zsh for z/OS

[Paul Gilmartin]

On Mon, 19 Feb 2024 15:09:57 -0500, Rick Troth wrote:
>
>I say you've found a BASH bug.
>I can IMAGINE how/why BASH is failing on external links, but it doesn't
>matter. The point is: IT FAILS and it should not.
>Great catch!
> 
Is it possible that zsh properly uses a POSIX function not supported by
the external link implementation?  If so, the bug is in external link, not
in zsh.

What immediately comes to my mind is realpath(), because I've used it
recently, it might not resolve external links to paths, and the command
Ref. mentions realpath() only under zsh.

The realpath() in the z⧸OS XL C⧸C++ Runtime Library Reference is not
POSIX compliant by not accepting NULL as the *resolved_name.

-- 
gil

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

Re: zsh for z/OS

[Paul Gilmartin]

On Mon, 19 Feb 2024 19:31:11 +, Pew, Curtis G wrote:
>
>If you’re still seeing bash on a Mac that probably means you started using it 
>before the switch. It’s been a while, but when they switched the default I had 
>to do something (probably in Terminal) to get it to switch for me. (It used to 
>prompt you to switch if you opened with a bash shell.) There’s still bash 
>available on MacOS, but it’s a rather old version, 3.2.57 while the current 
>stable release is 5.2.21.
> 
1377 $ bash --version
GNU bash, version 5.2.26(1)-release (x86_64-apple-darwin21.6.0)
Copyright (C) 2022 Free Software Foundation, Inc.
License GPLv3+: GNU GPL version 3 or later 

This is free software; you are free to change and redistribute it.
There is NO WARRANTY, to the extent permitted by law.
1378 $ 

But I have it from a package manager,not from Apple.

-- 
gil

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

Re: Nanosecond resolution timestamps for HLL's?

[Paul Gilmartin]

On Sun, 18 Feb 2024 21:50:07 -0600, Peter Farley wrote:
>
>There is an entire sub-section in the PoOps in the Control chapter 
>(SA22-7832-13, pp. 4-51 et al., starting most of the way down the second 
>column of that page) about the monotonicity guarantees for STCK{E/F}, even on 
>multiple CPU's.  I commend it to your reading.
>
Without trying to read every word, I trust them when they say,
• The values stored by any of the following sequence of
  instructions always correctly imply the sequence of
  execution of these instructions by one or more CPUs for
  all cases where the sequence can be discovered by the program:

>... independent of the language of the calling routine.  ...
>
LISP?

-- 
gil

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

Re: Nanosecond resolution timestamps for HLL's?

[Paul Gilmartin]

On Sun, 18 Feb 2024 18:22:53 -0600, Peter Farley wrote:
>
>The only HLL-callable function already provided in z/OS that I can find that 
>provides anything near that resolution is the LE Callable Services function 
>CEEGMT, but two calls to that service from a COBOL program in a row separated 
>by only a few calculations and a DISPLAY to SYSOUT produce identical values.  
>This is not good enough for high-volume processing needs.  Every request for a 
>time value needs to generate a new higher value.
>
What guarantees uniqueness other than STCT(E)?  Does the Sysplex Timer/ETR 
guarantee
uniqueness across the plex?

And monotonicity is a harsher constraint.  In the Bad Old Days when each CPU 
had its own
TOD and uniqueness was achieved by putting the CPU ID in the TOD programmable 
field
I wondered hereabouts whether a later transaction on a lower CPU could get lower
timestamp than an earlier transaction on a higher CPU.

And even if a service such as STCKE returns unique values, conversion to 
displayable
nanoseconds can result in duplicates.

You need a serialized service common to all participating processes that 
returns unique
values in a specified format.  Performance may suffer.

-- 
gil

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

Re: zsh for z/OS

[Paul Gilmartin]

On Sat, 17 Feb 2024 08:04:44 -0800, Ed Jaffe wrote:

>...
>Issue the 'echo $0' command.
> 
Also probably important:
o What shell does "system()" use?  Is it POSIX compliant?
o What shell does system startup uxe?  Some Linux use dash for performance.

What are the benefits of zsh?  Are there incompatibilities?

I largely stay with POSIX shell for portability of scripts and skills.

-- 
gil

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

Re: Query - do you have access to GitHub from your z/OS system? And do you have git on your z/OS system?

[Paul Gilmartin]

On Thu, 15 Feb 2024 09:09:04 +, Rob Scott  wrote:

>We use git on z/OS extensively throughout the company and it is one of those 
>tools where you end up thinking "how on earth did I function effectively 
>without it?".
> 
ISPF/LMF?

-- 
gil

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

Re: Insecure security - was SDSF PS Command column

[Paul Gilmartin]

On Thu, 15 Feb 2024 01:55:26 +, Seymour J Metz wrote:

>The combination of a non-display entry field and blocking paste is devasting 
>to those with awkward keyboards or coordination issues.
>
My eyesight is bad enough that I rely heavily on spellcheck, copy/paste and 
audio I/O.

Disability rights activist organizations should take up the cause.

How does employment ADA handle this?

-- 
gil

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

Re: Insecure security - was SDSF PS Command column

[Paul Gilmartin]

On Wed, 14 Feb 2024 17:28:53 -0500, Tony Harminc wrote:
>
>But I've encountered sites that prohibit OS desktop Paste into password
>> field.
>
>Plenty of those. And some that allow a paste into the email field, but not
>into the "verify email" field. That one just reinforces the feeling that
>the designers of web sites don't really understand how much of anything
>works.
> 
They're trusting me not to make the same mistake twice.  See Emerson on
consistency.

Mostly it prevents my copy-pasting from my Contacts.

Keyloggers.

USB drives that spoof keyboards.

Facial recognition.  Fingerprint recognition. Voice recognition.  How few
years until my holographic twin walks into Radoslaw's bank!?



--
gil

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

Re: Insecure security - was SDSF PS Command column

[Paul Gilmartin]

On Wed, 14 Feb 2024 21:18:28 +0100, Radoslaw Skorupka wrote:
>
>Regarding passwords - IMHO private notebook/organizer is much better
>than saving passwords in web browser (do you remember password
>stealers?) or other "nice and automatic" methods. Even IT illiterates
>know how to protect paper organizer. And they know ways to obfuscate the
>notes.
>Last, but not least: no hacker know method to read paper notebook. And
>most people are not subject of interest of KGB or other three letter
>agency.
> 
It's not " know method" but physical access. Hide the paper notebook under
your mattress.  For complex passwords,OCR or Q-R code might be an option.
But I've encountered sites that prohibit OS desktop Paste into password field.

-- 
gil

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

Re: [EXTERNAL] Re: Reading a scratch tape

[Paul Gilmartin]

On Sun, 11 Feb 2024 13:44:16 +, Seymour J Metz wrote:

>EXEC2 didn't exist in 1971.
>
But later, could EXEC2 read a PDSE?

>
>From:  Seymour J Metz 
>Sent: Saturday, February 10, 2024 8:09 PM
>
>I would assume that it's difficult or impossible with PDSE, but that there is 
>less need in PDSE2, due to generations.

-- 
gil

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

Re: Banks migrate from mainframes to AI-driven cloud tech

[Paul Gilmartin]

On Sat, 10 Feb 2024 19:56:06 -0500, Phil Smith III wrote:
>   ... about IBM zSystems than other platforms these days either, alas.
>
This discussion is driven by a mixture of technical expertise and sentiment.

-- 
gil

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

Re: [EXTERNAL] Re: Reading a scratch tape

[Paul Gilmartin]

On Thu, 8 Feb 2024 22:41:03 +, Pommier, Rex wrote:
>
>Actually, it does make sense (at least to me) to have this threshold set.  
>We've gone back more than once to rescue a developer or support person who 
>inadvertently scratched a tape the day before and we were able to recover it 
>for them by using this "expired but not really" feature...>
>
I believe PDS86 has a similar ability to recover deleted PDS members.

Does this work for PDSE?  I suspect it's harder.  Is that used as an argument 
against
migrating from PDS to PDSE?

That's what generations are for.

-- 
gil

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

Re: Reading a scratch tape

[Paul Gilmartin]

rpomm...@sfgmembers.com> wrote:

>In the "scratch category" settings, you can set an "expire hold" field that 
>tells the TS77xx how long to keep an expired tape before releasing it to 
>scratch.  I believe that once that threshold is crossed, the TS77xx rewrites 
>the tape mark to the beginning of the tape and all data is lost - unless IBM 
>has some magic they can preform on the back end.
>
"Expired" but not really!?  This makes as little sense as expecting to read a
temporary data set in a subsequent job.

With a physical tape one might EXCP, bypass errors, and recover some data.

But when my employer was designing a product, we learned that some users
expect the scratch pool to be managed FIFO.  I was astonished.

-- 
gil

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

Re: Reading a scratch tape

[Paul Gilmartin]

On Wed, 7 Feb 2024 20:34:14 +0800, Brian Fraser wrote:

>TS7700 wont read a tape in scratch category,
>I don't know about Control-M, but in CA1 there is a utility called CTSSYNC
>to "protect" a scratch tape by altering the cat code back to non-scratch.
>
Assuming it hasn't been overwritten. 

Is ownership enforced?  Is there a security exposure?

-- 
gil

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

Re: Generate a data set with record numbers?

[Paul Gilmartin]

On Tue, 6 Feb 2024 16:18:16 -0600, Michael Schmitt wrote:

>Reason I never knew you could have a sequential SYSEXEC is I'm on z/OS 2.4. 
>This capability is added in z/OS 2.5.
>
It has long been possible according to lore.  A resourceful programmer
looked at the control block description where was documented that if
the member was 8x'00' SYSEXEC was treated as sequential and tried
forcing that in JCL.  IBM learned that programmers were doing that and
finally documented it.

>On Mon, 18 Sep 2023 15:25:47 +, Schmitt, Michael wrote:
>
September?  Delayed reaction!?

>>Huh. I always thought that SYSEXEC had to be a library.
>>
>>I suppose a sequential SYSEXEC only works for IRXJCL, not IKJEFT01.
>
Only because TSO syntax regards 8x'00' as an invalid member name,
but the JCL reader never bothered to check.  What about other
unconventional member names that might be created with Assembler
STOW?

>...And that if SYSEXEC is sequential, the exec shouldn't call other execs.
>>
They could reside in SYSPROC.

-- 
gil

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

Re: SDSF PS Command column

[Paul Gilmartin]

On Mon, 5 Feb 2024 11:02:07 +, Rob Scott wrote:
>...
>As to "why don't you just fix it ?"tstyle questions, we have to consider quite 
>a few compatibility issues across n-2 releases especially when the "fix" 
>requires changes to configuration and security ...
>
Such as users' embedding cryptographic keys in commands?  Ugh!

UNIX arose in a more innocent age when no one worried much about such as:
ls -lt /u

-- 
gil

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

Re: SDSF PS Command column

[Paul Gilmartin]

On Sat, 3 Feb 2024 21:47:56 -0600, Mark Zelden wrote:
>
>Agree to disagree.  I haven't checked the doc and maybe it isn't documented 
>that that field or
>any field is limited to 40 characters, but it is not a bug to be fixed.  It 
>could be enhanced
>in the service stream, but it is most definitely not a defect.   Someone else 
>already
>stated that D OMVS,A=ALL (or something similar) didn't show the entire command.
>Restriction on the display output... not a defect. 
> 
I shall disagree.  For example, suppose there were an option to display
a data set name in that 4-character field.  Some names, probably a
minority, would be truncated.  But if the user enlarged that field, names
were still truncated to 40 characters then padded with blanks, I could
consider that only a defect, not a candidate for RFE.

An earlier ply  pointed a finger at an underlying service.  If so, the SR
should be transferred to that service.

There are multiple ways it could have been done right:
o The caller could provide a variable-length reply buffer.
o The service could return a pointer to a string.

Error handling is left as an exercise for the student.

-- 
gil

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

Re: SDSF PS Command column

[Paul Gilmartin]

On Sat, 3 Feb 2024 16:20:54 +, Rob Scott wrote:

>The desire to avoid dubbing was purely down to requiring an OMVS segment for 
>the SDSF user.
> 
Hadn't there long been default UID, and later automatic unique UID?  But those 
might have
wisely been defined lacking privileges needed by SDSF.

Our site had earlier had widespread Solaris, and our admin replicated
the Solaris UIDs.  Perhaps even, "Request a Solaris ID and we'll copy it."
One brave user NFS mounted his Solaris home directory for ~.

>Of course, in today's environment decades later,  this seems a rather quaint 
>reluctance as you can't do much on z/OS without one.
>
Still, fixing a defect in SDSF shouldn't require RFE.  WAD is insufficient 
excuse.

-- 
gil

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

Re: SDSF PS Command column

[Paul Gilmartin]

On Sat, 3 Feb 2024 09:24:07 +, Rob Scott  wrote:

>... When the PS command was originally written OMVS segments were not 
> commonplace and the design goal was to provide the data without being dubbed  
> ...
>
What is the penalty associated with dubbing?

Would it be possible or even desirable to save and restore the "undubbed" 
status?
I know WJS has recommended against SYSCALLS OFF, which would undub a
pfocess.

(An earlier ply was pessimistic about seeing an expert followup.  I suspect3d 
otherwise.)

-- 
Thanks,
gil

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

Re: SDSF PS Command column

[Paul Gilmartin]

On Fri, 2 Feb 2024 15:55:26 -0600, Mark Zelden wrote:

>On Fri, 2 Feb 2024 19:30:39 +, Frank Swarbrick wrote:
>
>>Is there any way to get more than the first 40 characters of the associated 
>>command line for a job in the PS screen?
>
>Limited to 40 characters. regardless of what you put in arrange.   (someone 
>can open an enhancement request)
>
No, that should be a Support request  Some defects are simply too wrong to be
subjects for enhancement.

Regardless of documentation.

-- 
gil

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

Re: Replacement for LMAC program in ISPF 3.1

[Paul Gilmartin]

On Fri, 2 Feb 2024 16:36:34 -0600, Michael Oujesky wrote:

>Presuming those control block revisions were made 
>with the specific intent to cause existing coding to fail.
>
>Michael
>
>At 05:14 AM 2/1/2024, Lionel B. Dyck wrote:
>
>>This would work great if IBM hadn't also changed 
>>some control block offsets ☹
>> 
Didn't they make corresponding changes in the macros mapping
those data areas?  Did they hard-code those offsets?

Programming 101.

-- 
gil

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

Timezone Database and POSIX

[Paul Gilmartin]

From a recent thread elsewhere (read with no subscription):
Time Zone Database
https://www.iana.org/time-zones
https://mm.icann.org/pipermail/tz/2024-January/025094.html
Since the next POSIX will require support for TZDB Zone names in the
TZ environment variable, be more careful about phrases like
“POSIX-like TZ strings” in comments and documentation.  Call them
“POSIX.1-2017-like TZ strings” instead, to make it clearer that
they’re the traditional POSIX form like TZ='GMT0BST,M3.5.0/1,M10.5.0'
instead of the TZDB form like TZ='Europe/London'.

Will z/OS follow this common convention (already used by Java)?
If not, will Unix System Services UNIX branding expire?

-- 
gil

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

Re: GTF trace for a JCL error?

[Paul Gilmartin]

On Tue, 30 Jan 2024 14:41:59 +, Allan Staller  wrote:
>
>You need to look at the JES output to determine the error.
>Use the following command
>S taskname,,,MSGCLASS=x  where x is a held sysout class.
>
>HTH,
> 
Wouldn't it be a good Idea to have a class for "Delete after one hour"!?

I've often wanted that.
-- 
gil

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

Re: pax and extended attributes

[Paul Gilmartin]

On Thu, 25 Jan 2024 14:42:46 +0100, Radoslaw Skorupka wrote:

>I have to move some directory trees from one file system location to
>another.
>The tree is rather complex (dozen directories, hundreds files) and some
>files do have extended attributes.
>My goal is to preserve all the metadata like files ownership, FSP, ACL,
>tags, audit flags, etc.
>
>I tried to use pax
>
Wouldn't it be nice if z/OS supported virtual disks, akin to .iso or .dmg?
(Idea?)

*But* some of the information you need to preserve probably resides
outside the filesystem, such as ACL, tags, audit flags, etc., even as
a snapshot copy of a CKD DASD might not preserve catalog and
RACF information.

-- 
gil

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

xl/C data types?

[Paul Gilmartin]

(from another list)
On 1/23/24 14:29:31, Arthur David Olson wrote:


I'm wondering if an implementation [of C] is required to support all the 
features of the hardware it is meant for. (If not, implementations on 
[non-]power-of-2 word-size two's complement machines might not have some of the 
intN_t types.)
 .

For example, does z⧸OS XL C⧸C++ support packed decimal?  Others?

--
gil

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

Re: Masking SMF data internally

[Paul Gilmartin]

On Sun, 21 Jan 2024 09:58:29 +0400, Jake Anderson wrote:

>Hello
>
>We have a requirement of sharing our SMF data to vendor for a sizing
>operation of our hardware connected to our mainframe
>
>
>Our organization has a policy of masking the critical values before sharing
>it. I see SMF datasets are are editable from ISPF.
>
>Is there a way or someone has undergone this exercise of masking the
>confidential values inside SMF output Dataset?
>
The hard part of the task is recognizing the "critical values".


-- 
gil

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

Re: Transmitting SMF records

[Paul Gilmartin]

On Sat, 20 Jan 2024 00:14:58 -0500, Cheryl Watson wrote:

>I know that I’m late to this game, but we used to have a free tool to handle 
>this called ‘WWUNTERSE’, which has been used by hundreds of people. It is now 
>being made available by its original developer, Mario Bezzi, at this link - 
>https://www.ap4zlabs.com/free-tools. 
> 
What about 
?
Was this topic helpful?
Transmitting data sets
Last Updated: 2023-04-05
You can use the TRANSMIT command to transmit sequential or partitioned data 
sets with
record formats of F, FS, FB, FBS, V, VB, VBS, and U. The data sets must reside 
on a direct
access storage device (DASD). For a VB or VBS data set, the largest logical 
record length
(LRECL) TSO/E can transmit to VM is 65,535.  ...

>==
>On Wed, 25 Jan 2023 20:24:59 +, Andrew N Wilt wrote:
>
>>   ... Apparently, they are able to decipher the RDW records resulting from 
>> uploading a RECFM=VBS as a RECFM=U. Unfortunately, at this time, GDKUTIL 
>> doesn't have the smarts to parse the bytestream as RDW+data as it is writing 
>> to the output data set. That is a current Request For Enhancement, though.

-- 
gil

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

Re: Technical Reason? - Why you can't encrypt load libraries (PDSE format)?

[Paul Gilmartin]

On Tue, 16 Jan 2024 12:31:36 -0500, Phil Smith III wrote:

>...
>For example, 256-bit AES can be broken by brute force-if you have until the 
>end of time. (And if you'll know it when you see it, another issue.) But that 
>"until the end of time" means you can use it to outrun the bear.
>
>When people say "That's security by obscurity", they really mean "That's weak 
>security because the barriers aren't high enough". That's all. It's not a big 
>revelation.
> 
I believe otherwise.  I know of a case where a vendor allowed a product to
escape to the field containing a tester's back door, and another related
to II14489.  Either could be exploited with no brute force, merely knowledge
of the existence and nature of the defect.  In the case of the latter, the
vendor chose to obscure the details very long term to protect customers
who might not have installed the fix.  "That's security by obscurity."

But protecting passwords is a valid use of "That's security by obscurity."
A password is not a pervasive defect as those other cases are.

-- 
gil

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

Re: Technical Reason? - Why you can't encrypt load libraries (PDSE format)?

[Paul Gilmartin]

On Sat, 13 Jan 2024 23:38:23 +, Seymour J Metz wrote:
>
>The issue on STEPLIB is simply that IBM doesn't see a business case to support 
>it. Part of that support would be an update to APF and program control for 
>paths. Would you want individual executables in STEPLIB, or only directories? 
>RFE?
> 
Directories.  Similar to the facilities provided for Assembler STEPLIB.  I 
suspect
much of the accommodation was in access methods, not in HLASM.

Can a program object in a DSFS be used equally by shell as an executable
and by JCL EXEC PGM=?

Does it receive a UNIX-like argc, argv[], envp[] or a CALL R1 plist, or
it depends?

Where's the DSFS User's Guide to answer such questions?

>____
>From:  Paul Gilmartin
>Sent: Saturday, January 13, 2024 1:57 PM
>
>But UNIX program objects are "really files".  "cp -p" works on then.
>
>But content Supervision relies heavily on the elaborate format.  Part
>of the reason that UNIX directories don't work in STEPLIB
>concatenation.  (Idea?)

-- 
gil

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

Re: Technical Reason? - Why you can't encrypt load libraries (PDSE format)?

[Paul Gilmartin]

On Sat, 13 Jan 2024 18:06:24 +0100, Radoslaw Skorupka  wrote:

>I can imagine technical reason to not encrypt such libraries.
>However encryption is a kind of data protection. Data. Not programs.
>
But some load modules/program objects aren't really files.  As Ifond
out to my dismay as a novice when I tried to use IEBGENER to copy
a load module to a different PDS.

But UNIX program objects are "really files".  "cp -p" works on then.

But content Supervision relies heavily on the elaborate format.  Part
of the reason that UNIX directories don't work in STEPLIB
concatenation.  (Idea?)

What about Format preserving encryption?

Should the directory be encrypted likewise?

What about driver-level encryption of virtual DASD?

Unload it and encrypt the archive?

What authority should be needed to use an encrypted program?


>W dniu 13.01.2024 o 17:28, Steve Estle pisze:
>> Everyone,
>>
>> Our team is knee deep into pervasive encryption rollout on ZOS 2.5 and 
>> despite the fact such functionality has been out for years by IBM to do 
>> this, it is quite surprising how many software vendors when you contact them 
>> they have no clue what you're talking about - that is a complete aside - I'm 
>> not going to name vendors here but if you want some examples you can contact 
>> me offline.
>>
>> My true reason for composing this is that we've discovered the inability to 
>> encrypt load libraries - even in PDSE format.  I've yet to get a straight 
>> answer from IBM on why this is?...   Is this a "giant" technical hurdle for 
>> IBM?  Or is it just cause there hasn't been anyone who raised the need yet?  
>> If the latter does this capability interest others here if I were to raise 
>> as an IBM idea - would you vote for it?
>>
>> I know this seems innocuous, but we'd like to encrypt as much as possible in 
>> our environment and due to Top Secret deficiencies we have to encrypt at 
>> high level qualifier level (HLQ) (all or nothing under each HLQ 
>> unfortunately).  Given we have load module libraries under many differ HLQ's 
>> this is posing difficulties in moving forward with our rollout when an HLQ 
>> does have one or more load module libraries as part of that HLQ.  You can 
>> only imagine the pain of renaming a load library given all the JCL, etc that 
>> is referencing that library name.
>>
>> Also, while encrypting load module libraries might seem a little far 
>> fetched, there are of course many malicious viruses that have been launched 
>> by injecting code into a suspecting piece of code.
>>
>> So two questions:
>>
>> 1. Why has IBM not already provided such functionality - can anyone speak to 
>> the technical hurdles to provide?
>> 2. If I were to submit an IBM idea, can I count on this community for some 
>> backing here to help in upvoting such an idea submission?

-- 
gil

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

Re: NFS Export of Data Set File System

[Paul Gilmartin]

On Wed, 10 Jan 2024 10:02:54 -0600, Lionel B. Dyck wrote:

>Not to argue - they should have a User's Guide but they don't.  The key with 
>dsfs is that once you understand the /dsfs/type (txt/bin/rec/sysout) that is 
>it no different than using any other file in a filesystem.
>
Case sensitivity?

Directory links to files in other directories?

Symbolic links?

Concurrent updates to the same file by multiple jobs with O_APPEND?

Unless such things are handled transparently by the "Colony address space"
and the "Utility file system" there's need for a User's Guide.  The product
shouldn't have gone to GA without one.

-- 
gil

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

Re: NFS Export of Data Set File System

[Paul Gilmartin]

On Wed, 10 Jan 2024 09:12:29 -0600, Lionel B. Dyck  wrote:

>There is no users guide ...
>
Has IBM not noticed the lack?

>... but there is an admin guide at 
> https://www.ibm.com/docs/en/zos/3.1.0?topic=administration-dsfs-guide
>
That's for admins.  But if there are differences between DSFS and a POSIX
filesystem they should be described in a User's Guide.

-- 
gil

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

Re: NFS Export of Data Set File System

[Paul Gilmartin]

On Wed, 10 Jan 2024 14:37:22 +, Mark Jacobs wrote:

>Can /dsfs and the directories under it be NFS exported such that Windows/Linux 
>clients can connect to it and then directly read/write z/OS datasets?
>
What are you looking for beyond:


Where's the DSFS User's Guide, which ought to treat such topics?

-- 
gil

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

Re: How to configure using PDS members in JCL.

[Paul Gilmartin]

On Wed, 10 Jan 2024 11:41:16 +, Colin Paice wrote:

>Thanks for all the suggestions.  The best one ( thank you Charles) is
[ I'm editint -- gil ]
>...
>// EXPORT SYMLIST=(*)
>//  SET USERID='CERTID'
>...
>//SYSTSIN DD *,SYMBOLS=(JCLONLY)
>//   INCLUDE MEMBER=LU
>
>Where member LU is
>
>// DD   *,SYMBOLS=JCLONLY
>LU MFA
>
>This produces
>LU CERTID MFA
>
(since SYSTSIN DD introduces an empty concatenand, SYMBOLS= is
superfluous there.)

>With this I can easily comment out members when I rerun it.
>I can also have commented-out members eg to delete resources I had defined.
>
>I think all products should use this technique, instead of asking users to
>make the same changes to multiple files as part of configuration.
>
It's regrettable that there's no clean way to provide defaults.  Perhaps
another JCLLIB member.

Perhaps the PROC paradigm to set defaults.
What's the scope of a SET statement within a PROC call
within an IF...THEN?  Must a PROC contain an EXEC?

-- 
gil

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

Re: EDIT MACRO REQUEST

[Paul Gilmartin]

On Tue, 9 Jan 2024 22:41:50 +, Steely.Mark wrote:

>I would like to check each member of a PDS and if it is empty (0 Lines) - I 
>would like to add a line with the text of *NONE*.
>
What requirement does this satisfy?

After you do this, how will you know whether a member containing the "*NONE*"
line was initially empty or initially contained exactly that line?

Otherwise, I concur with Schmitt, Michael's suggestion.

-- 
gil

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

Re: How to configure using PDS members in JCL.

[Paul Gilmartin]

On Mon, 8 Jan 2024 12:39:17 -0600, Charles Hardee wrote:
>
>The one thing I forgot to say was that the member being included needs a
>statement like this as the first entry:
>
>// DD   *,SYMBOLS=JCLONLY
> 
An alternative might be to concatenate JCL and the subject member into INTRDR.
In either case, the subject member must have been coded with  references.
It's regrettable that there's no simple way to provide defaults for such 
symbols.

Ah!  code the member as a PROC.

-- 
gil

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

Re: How to configure using PDS members in JCL.

[Paul Gilmartin]

On Mon, 8 Jan 2024 14:22:42 +, Seymour J Metz wrote:

>CPPUPDTE (nee IPOUPDTE) only changes a  existing member; the easiest ways I 
>can think of to do what you want are ISPF file tailoring or JCL substitution 
>with a // INCLUDE. I would probably go with the former.
>
Oh my!  Can an INCLUDE statement be embedded in instream data, or is it a 
terminator
like other JCL statements?  I suppose concatenation is your friend.  Should 
such a
JCLLIB member begin with //  DD DATA,SYMBOLS=JCLONLY and end with /*?

Is there a necessary and valuable example in the Ref. or SAMPLIB?

-- 
gil

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

Re: allowed characters in member name

[Paul Gilmartin]

On Mon, 8 Jan 2024 11:00:38 -, Lennie Dymoke-Bradshaw wrote:

>Using quotes around the DSNAME will allow any combination of Hex chars for a 
>Dsname I think (possibly excluding 44X'04' which represents the VTOC). However 
>these are not supported for SMS datasets, nor can they be catalogued, nor can 
>they be protected by RACF.
>https://www.ibm.com/docs/en/zos/3.1.0?topic=statement-dsname-parameter
>
Where I read such as:
- The system ignores blank characters at the end of a data set name.

Wouldn't it be better to say, "data set names shorter than 44 ccharacters
are padded with blanks to 44"?

- Double ampersands to identify a temporary data set name. Note that
  if you use apostrophes, DSNAME='&AB' and DSNAME='' refer
  to the same data set.

That doesn't belong here.  It's described better in "Determining Equivalent
JCL".  It's incorrect here because it depends on the symbol AB being
undefined.

"Determining Equivalent JCL" states that double ampersands not enclsed
in apostrophes are reduced to single.  Does this suggest that within
apostrophes they are nor so reduced?

I once tried a DSN enclosed in apostrophes ("unqualified") beginning with
a period.  It failed with a syntax error.  I have never found this restriction
documented.

The data set name should not contain the 44 special characters (X'04')
created by hexadecimal editing or any operation that converts the
value of characters to X'04'.

The "created by ... converts" clause is improperly restrictive.  It doesn't
matter how they got there, "converted" or otherwise.

And no one has mentioned DISABLE(DSNCHECK)  before now.


-- 
gil

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

Re: allowed characters in member name

[Paul Gilmartin]

On Mon, 8 Jan 2024 03:42:05 +, Gibney, Dave wrote:

>Before LIKE, you needed IDCAMS to create VSAM files, after LIKE you could do 
>this with just JCL
>
Ah.  So for PS or PO it has no advantage over DCB=dsname.  Perhaps for SPACE?

-- 
Thanks,
gil

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

Re: allowed characters in member name

[Paul Gilmartin]

On Sun, 7 Jan 2024 19:29:46 -0500, Phil Smith III wrote:

>Paul Gilmartin wrote:
>>STOW 'Abc Xyz!'probably works.
>>STOW 8X'FF'   probably doesn't or produces unexpected results.
>
>Ah.this is in reference to the original question, sorta, not to my "Why?" 
>question. Thanks.
>
As always, no one supplied an RFE with a sufficient use case.

And if they answer Shmuel's FAMS question they have to kill him.
It's absurd that so useful a facility remains a trade secret.

-- 
gil

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

Re: allowed characters in member name

[Paul Gilmartin]

On Sun, 7 Jan 2024 23:42:41 +, Seymour J Metz wrote:

>Long ago (in OS/390?) IBM introduced a bunch of keywords equivalent to 
>subparameters of DCB, e.g., LRECL= is equivalent to DCB=LRECL=. I believe that 
>LIKE= was part of that.
>
Did LIKE add any expressive power that DCB lacks?

I believe neither DCB nor LIKE can be used in nor refer to DD PATH=

The alternative might be to use JCL symbols for common attribute strings.

Combining brevity and mnemonic value:
Q = "'"
QQ = '"'

Don't forget to mention them in PROCEDURE EXPOSE.
SIGNAL ON NOVALUE would remind you, if you chose to use it.

-- 
gil

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

Re: allowed characters in member name

[Paul Gilmartin]

On Sun, 7 Jan 2024 18:16:32 -0500, Phil Smith III  wrote:

>
>And Steve Beaver added:
>>The simplest path on this discussion is to try it in batch or ispf. The only 
>>other way is in HLASM with the STOW macro
>
>Try what? Unclear what you're suggesting?
>
STOW 'Abc Xyz!'probably works.
STOW 8X'FF'   probably doesn't or produces unexpected results.

-- 
gil

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

Re: allowed characters in member name

[Paul Gilmartin]

On Sun, 7 Jan 2024 21:50:07 +, Gibney, Dave wrote:

>DCB for the subparameters as been depreciated and, in my opinion, bad form for 
>most of the 40 years I worked on mainframes. The DCB=modeldscb form used for 
>new GDS allocations hasn't been needed since SMS came along. Early 90s'? 
>I may recall wrong, but I think LIKE was new with SMS.
>
Formerly needed; now deprecated.  Why was it ever needed?  I suspect the change
was less to accommodate SMS than UNIX files, which support attributes but no 
DCB.

Answering my earlier question (IRTFM):

Example 2
//SMSDS7  DD  DSNAME=MYDS7.PGM,LIKE=MYDSCAT.PGM,DISP=(NEW,KEEP),
//  LRECL=1024
In the example, the data set attributes used for MYDS7.PGM are obtained from
the cataloged model data set MYDSCAT.PGM. Also, the logical record length of
1024 overrides the logical record length obtained from the model data set.

-- 
gil

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

Re: allowed characters in member name

[Paul Gilmartin]

On Sun, 7 Jan 2024 21:04:48 +0100, Radoslaw Skorupka wrote:
>...
>I have to admit: I almost never used DCB keyword in JCL and (AFAIR)
>absolutely never DCB=HLQ.DATASET.NAME.
>When teaching JCL I explain it, but also advice to not using that.
>BTW: LIKE=HLQ.FOO-BAR works like a charm.
>
in :
[ DCB= ( {dsname   }[,subparameter]...) ]

Is it possible likewise to override selected subparameters
of LIKE?  Was it so even before the subparameters were allowed
as separare parameters?  (Old habits diehard.)

-- 
gil

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

Re: allowed characters in member name

[Paul Gilmartin]

On Sun, 7 Jan 2024 13:59:09 -0600, Steve Beaver wrote:

>The simplest path on this discussion is to try it in batch or ispf. The only 
>other way is in HLASM with the STOW macro
> 
I've tried it with STOW.  It likes any 8 bytes: lower case, embedded spaces, 
NULs, etc.
And I consider it improper for middleware (TSO, JCL, ...) to impose syntactic 
restrictipns
beyond those enforced by the primitives.  Apostrophes should be your friend.


>> On Jan 7, 2024, at 13:55, Radoslaw Skorupka wrote:
>> 
>> W dniu 07.01.2024 o 19:02, Phil Smith III pisze:
>>> Paul Gilmartin wrote, in part, in answer to "Why can't a data set name 
>>> element start with a digit":
>>>> Left-to-right lexical analyzer that treats anything beginning with a digit
>>>> as a number.
>>> I'm willing to believe this, but am unclear on why whatever is parsing a 
>>> DSN would care whether it's a number or not. E.g.:
>>> //SYSINDD   DISP=SHR,DSN=1.2.3
>>> 
>>> Why would it care that it's a digit? The start of a non-initial DSN element 
>>> is the thing after a period, so it doesn't matter there.
>>> 
The period is not part of the DSN element.  Its a separator.

Perhaps my imaginary lexical analyzer returns numbers in fixed-point format;
other things as strings.

Why is LRECL=080 acceptable but BUFNO=080 a syntax error?

>>> My guess is something planned/considered that never happened, or just a 
>>> mistake late on a Sunday afternoon in 1962.
>> 
Storage was expensive then.

>> The "8 characters rule" is widely used in z/OS and mainframe world.
>> Why?
>> I heard an explanation for that. However it was approx. 25 years ago I did 
>> not fully understand it. Since at the time the rule was enough for me, I 
>> didn't ask. It was something related to assembler, as far as I remember.
>> 
Storage was expensive then.

A UNIX historian recalls an era when directory entries were 16 bytes:
file names were limited to 14 and I-numbers to 65535.

UNIX got better; MVS didn't.  It's the curse of Assembler compatibility
with inadequate parameterization in copybooks.

-- 
gil

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

Re: allowed characters in member name

[Paul Gilmartin]

On Sat, 6 Jan 2024 21:11:23 -0500, Phil Smith III wrote:

>Has anyone ever understood why data set/member names cannot start with 
>numerics? Just curious, as it seems like an odd restriction.
> 
Left-to-right lexical analyzer that treats anything beginning with a digit
as a number.

Does the same apply to every level in a DSN?

(In the day, storage was too expensive for a fancy parser)

-- 
gil

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

Re: Style (was: LISTDSI - ...)

[Paul Gilmartin]

On Sun, 7 Jan 2024 01:36:44 +, Seymour J Metz wrote:

>It is a capital error to assume unfamiliarity just because sombody eschews a 
>language feature. I am a very heavy user of abuttment in REXX. I agree with 
>Wayne that there is a good case for using variables in this particular case,
>
I agree strongly when a string expression is to be used repeatedly.
Less so for assigning a single character string to a symbol.

> although I would quarrel with his coice of name. The constructs '"' and "'" 
> can be hard to visually distinquisheverywhere they appear. The style
>
>apost = "'"
>uoote = '"'
>
(proportional fonts aggravate the problem.)
>...
>foo = apost|bar||apost
>
A mone mnemonic name (Hungarian notation?) might be:
fqbar = apost||bar||apost

>concetrrate the problem at the point of definition.

-- 
gil

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

Re: allowed characters in member name

[Paul Gilmartin]

On Sat, 6 Jan 2024 18:14:54 -0500, Tony Thigpen wrote:

>The restriction in the DCB is due to Assembler restrictions on use of '-'.
>
Explain in more detail how DCB=HLQ.FOO-BAR runs afoul of
"Assembler restrictions on use of '-'", please.

Does the JCL converter invoke Assembler to process DD statements?

Is it in the generation of SVC 99 TUs?

Is it in the expansion of the DCB macro?

How does "DSN=HLQ.FOO-BAR" evade the restriction?


>Paul Gilmartin wrote on 1/6/24 5:59 PM:
>> On Sat, 6 Jan 2024 23:14:28 +0100, Radoslaw Skorupka wrote:
>>> ...
>>> For dataset names the addition is "-". This character can be used in
>>> dataset names with no tricks like name in apostrophes, uncataloged ones,
>>> etc.
>>>
>> But not, in my experience, in a reference to define DCB subparameters such 
>> as:
>>  DCB=HLQ.FOO-BAR* Syntax error!
>> <https://www.ibm.com/docs/en/zos/3.1.0?topic=dp-syntax-2>
>>
>> Is there any plausible reason for that restriction
>>
>> I hate JCL!

-- 
Thanks,
gil

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

Re: allowed characters in member name

[Paul Gilmartin]

On Sat, 6 Jan 2024 23:14:28 +0100, Radoslaw Skorupka wrote:
>...
>For dataset names the addition is "-". This character can be used in
>dataset names with no tricks like name in apostrophes, uncataloged ones,
>etc.
>
But not, in my experience, in a reference to define DCB subparameters such as:
DCB=HLQ.FOO-BAR* Syntax error!


Is there any plausible reason for that restriction

I hate JCL!

-- 
gil

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

Style (was: LISTDSI - ...)

[Paul Gilmartin]

On Sat, 6 Jan 2024 14:25:09 +1100, Wayne Bickerdike wrote:

>Quoted strings always gave me grief. I started to use Q='7D'X and
>concatenate my strings this way:
>
>Str = Q||DsNAme||Q.
>LISTDSI(Str)
>
I find that less transparent and surely more verbose than:
LISTDSI( "'"DsNAme"'" ) or even:
LISTDSI( DsNAme ) 

Programmers who eschew concatenation by abuttal are
flaunting their unfamiliarity with the language.

(But how does this play against the wise principle that
self-defining terms should be assigned to symbols
rather than used repeatedly:
TWO = '2'
SAY TWO + TWO
?)

-- 
gil

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

Re: allowed characters in member name

[Paul Gilmartin]

On Fri, 5 Jan 2024 18:33:40 +, Sri h Kolusu wrote:

>>> What characters are allowed in JCL when specifying member name?
>
>Radoslaw,
>In general, PDS member naming rules are ( assuming code page 037)
>
>•   A member name cannot be longer than eight characters.
>•   The first member character must be either a letter or one of the 
>following three special characters: #, @, $.
>•   The remaining seven characters can be letters, numbers, or one of the 
>following special characters: #, @, or $.
>•   A PDS member name cannot contain a hyphen (-).
>•   A PDS member name cannot contain accented characters (à, é, è, and so 
>on).
>
The last two bullets are pleonastic.

>ISPF also supports the same.
>https://www.ibm.com/docs/en/zos/2.5.0?topic=types-member-name-conventions
>
I consider it bad design for middleware such as JCL or ISPF to impose
syntactic restrictions not present in the primitives, STOW/BLDL.

>Special/national characters may differ based on the code page
> 
Either:
o the supported code points should be specified in the Ref. or,
o the middleware should be aware of the code page and adapt
  to it as ISPF does for regular expr3essions.
  


I hate EBCDIC!

-- 
gil

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

Re: LISTDSI - hardcoded dsn vs. read in from file

[Paul Gilmartin]

On Fri, 5 Jan 2024 03:06:10 -0600, Willy Jensen wrote:

>or requote as a function, I think it looks nicer
>
> cc=Listdsi(requote(ds))   
> . .   
>Unquote: return strip(space(translate(arg(1)," ","'"))) 
>
Isn't that a verbose equivalent of:
 return strip( arg( 1 ), 'Both',  )
???
   
>Requote: if arg(1)='' then return '';else return "'"Unquote(arg(1))"'" 
>
If arg( 1 ) is a string of blanks, do you want to pass listds()
an empty string?

-- 
gil

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