Re: Improve OMVS cp performance?

[Paul Gilmartin]

On Wed, 18 Nov 2020 13:01:53 +0800, David Crayford wrote:

>This is really cool. We could use this right now for our SCLM/Git
>Integration tooling.
>
>Q: How does it handle member ENQs. Does it ENQ using SPFEDIT or SYSDSN?
>One of the problems we ran into with "cp" copying an entire data set is
>it fails if one member is in use.
>We worked around this by writing a cp_pds_to_dir command.
> 
Further, does LMCOPY use BPAM, avoiding the multiple OPEN/CLOSE overhead
and SPFEDIT, avoiding the EXC SYSDSN lockout?

But the killers are that LMCOPY requires LMINIT, not compatible with UNIX
files, and LMPUT requires EXC SYSDSN, even for PDSE.

Grrr...

There are several possible RFEs, none of which I ever submitted:

o LMINIT should support UNIX files.

o fopen() should optionally support the SPFEDIT alternative.
  This has been discussed previously in these fora.

o SHR should suffice for LMPUT to PDSE.

-- gil

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

Re: Finding JES2 node name

[Tim Hare]

The code is not just to _find_ the node, but we want to use the node name for 
other purposes in this program. So SDSF isn't going to help here.

As for other methods of using IEFSSREQ and/or control block chain chaining why 
are they better than the ASASYMBM/F program interface?

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

Re: Improve OMVS cp performance?

[David Crayford]

This is really cool. We could use this right now for our SCLM/Git 
Integration tooling.


Q: How does it handle member ENQs. Does it ENQ using SPFEDIT or SYSDSN? 
One of the problems we ran into with "cp" copying an entire data set is 
it fails if one member is in use.

We worked around this by writing a cp_pds_to_dir command.

On 13/11/2020 9:54 pm, Kirk Wolf wrote:

I wanted to update this thread with a bit of news.   We have had the
enjoyable experience of working with Lionel and Henri (please check out:
http://zigi.rocks) on requirements for some new shell commands for the Co:Z
Toolkit V6.2.0, which we released this week.

The new commands (getpds and putpds) use BPAM+BSAM along with our existing
Co:Z record <-> stream processing framework to allow you to copy PDS
members to and from z/OS UNIX files.  Also included are extensive options
for ISPF stats processing.

The performance (when compared to "/bin/cp") is better than we could have
expected.  The following example copies all of the members of SYS1.MACLIB
to text files in the current directory:

$ getpds //sys1.maclib .
getpds(SYS1.MACLIB)[N]: 2015 members/2435218 records/194817440 bytes read;
 194011101 bytes written in 1.791 seconds (103.307
MBytes/sec).

For more information:
https://dovetail.com/docs/zos-utilities/dsp-ref_getpds.html
https://dovetail.com/docs/zos-utilities/dsp-ref_putpds.html
https://dovetail.com/docs/cozinstall/changes.html
Co:Z is available free under our Community License
.

Kirk Wolf
http://dovetail.com


On Mon, Jun 22, 2020 at 9:30 AM Paul Gilmartin <
000433f07816-dmarc-requ...@listserv.ua.edu> wrote:


On Wed, 17 Jun 2020 07:14:39 -0500, Lionel B Dyck wrote:


Kirk - thank you for the ideas.

What I'm doing is in the ZIGI (see https://zigi.rocks) where I need to

copy PDS members to/from USS so that Git can manage them. With small
projects this isn't an issue but with larger projects it could take enough
time for you to go to lunch ☹

Btw. I voted your RFE.


I notice that replies this thread have focused on Classic PDS as the
performance culprit.  Has someone tried the benchmarks:

 cp UNIX -> UNIX  vs.  cp PDS -> PDS

... and compared performance?  I suspect Classic OS was optimized
for a few large data sets; UNIX for many small files.

Might there be an argument here for maintaining the data where it
works best and omitting the copying?


-Original Message-
From: Kirk Wolf
Sent: Wednesday, June 17, 2020 7:03 AM

FWIW: It's a pity that the IBM C library doesn't have any support for

BLDL/NOTE/POINT processing of PDS/Es -- see my old RFE and vote if you

agree:


https://www.ibm.com/developerworks/rfe/execute?use_case=viewRfe_ID=80811

-- gil

--
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: Non-L/E assembler program calling L/E Cobol program

[Mike Hochee]

I call LE C++ from non-LE assembler programs by first creating a Language 
Environment for them using IBM pre-initialization services. Check out CEEPIPI 
in chapter 30 of the following... 
https://www-01.ibm.com/servers/resourcelink/svc00100.nsf/pages/zOSV2R3sa380682/$file/ceea200_v2r3.pdf
  I suppose it depends on your use case and whether you need greater control of 
execution environment attributes, and probably other factors I'm unaware of. 

HTH, 
Mike  

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Charles Mills
Sent: Tuesday, November 17, 2020 9:43 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Non-L/E assembler program calling L/E Cobol program

Caution! This message was sent from outside your organization.

I call LE C++ from non-LE assembler and Rexx with no issues. It's just like 
calling any other program; just like calling IEFBR14.

Charles


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Clark Morris
Sent: Tuesday, November 17, 2020 6:26 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Non-L/E assembler program calling L/E Cobol program

[Default] On Tue, 17 Nov 2020 10:52:49 -0800 (PST), in bit.listserv.ibm-main 
Joe DeChirico  wrote:

>Hi
>
>I have a need for a non-l/e program to call an l/e cobol program, are 
>there
any examples of this sort of call?
>
>Is it even possible?

--
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: Non-L/E assembler program calling L/E Cobol program

[Charles Mills]

I call LE C++ from non-LE assembler and Rexx with no issues. It's just like
calling any other program; just like calling IEFBR14.

Charles


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Clark Morris
Sent: Tuesday, November 17, 2020 6:26 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Non-L/E assembler program calling L/E Cobol program

[Default] On Tue, 17 Nov 2020 10:52:49 -0800 (PST), in
bit.listserv.ibm-main Joe DeChirico
 wrote:

>Hi
>
>I have a need for a non-l/e program to call an l/e cobol program, are there
any examples of this sort of call?
>
>Is it even possible?

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

Re: Non-L/E assembler program calling L/E Cobol program

[Clark Morris]

[Default] On Tue, 17 Nov 2020 10:52:49 -0800 (PST), in
bit.listserv.ibm-main Joe DeChirico
 wrote:

>Hi
>
>I have a need for a non-l/e program to call an l/e cobol program, are there 
>any examples of this sort of call?
>
>Is it even possible?

Others either have or will point you to the correct ways of doing what
you want.  You might consider replacing the Assembler program with a
COBOL program because Enterprise COBOL is a lot more powerful than
COBOL VS (the 1974 standard) and may well have all of the function
needed.  I suspect many shops may still be stuck in a COBOL VS
mindset.  If you want to discuss this offline, my e-mail is
cfmt...@uniserve.com

Clark Morris

 
>
>Thanks
>
>Joe DeChirico

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

Re: Reference for NIH or Mellon multi-access SPOOL?

[Clark Morris]

[Default] On 17 Nov 2020 09:24:13 -0800, in bit.listserv.ibm-main
sme...@gmu.edu (Seymour J Metz) wrote:

>Can anybody point me to documentation on the provenance of the NIH (HASP II 
>V3) or Mellon (HASP II V4) mods for mult-access SPOOL? There are citation 
>needed tags in https://en.wikipedia.org/wiki/Job_Entry_Subsystem_2/3 and I'd 
>like to include some. Thanks.

Are cumulative JES2 mods tapes online? the MICHMODS MVT tapes of 
varying vintages? These might have what you want as might contemporary
SHARE proceedings because they probably would have been subjects of
sessions.  The Mellon Bank mods may also be on early CBT tapes if they
predate MVS.

Clark Morris 

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

Re: IMS 10 - psb not defined

[Wilby, Luke]

You need to look at the datasets that the IVP jobs are using and the datasets 
the IMS address space is using.

NOTINIT means that the PSB is not in the active IMS ACBLIB dataset.

You need to review the dataset names specified in job IV3E202J (PSBGEN) and 
IV3E203J (ACBGEN) and compare them to the datasets specified in use by the IMS 
address space (the ACBLIBs).

If things started working after a COLDSTART, this implies you generated the 
required components (PSB/ACBGEN and/or IMS GEN) into the active ACBLIB and/or 
MODBLKS datasets) but did not run the /MOD PREPARE and /MOD COMMIT commands.

Typically, IMS shops update the staging ACBLIB/MODBLKS dataset, then issue /MOD 
PREPARE and /MOD COMMIT to activate the changes.

The IVP isn't necessarily how real shops operate and if it's not followed 
exactly in sequence you can run into issues unless you understand what the 
steps do and the implications of running out of sequence.


Regards
Luke Wilby

Infrastructure as a Service | Enterprise Compute | Systems Engineer
ANZ | 7/55 Collins Street, Melbourne | luke.wi...@anz.com | +61 411 166 121

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Mike Stramba
Sent: Wednesday, November 18, 2020 8:26 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: IMS 10 - psb not defined

Ok, I've managed to get the database and PSB working.

Though I'm not really sure how.

I *had* done an ACBGEN and the members were showing in all three ACLIB data 
sets.

Should a *cold start* of IMS be necessary ?
 (It seems? that the psb/database didn't respond until a cold start).

Now I'm trying to figure out why I have a "NOTINIT" status for both a REXX 
program and an assembler module.

For the REXX program I ran the bind step from IV3E206J.

I ran the 'ASSEM1' proc from the same member for the assembler program.

Mike

On 11/2/20, Attila Fogarasi  wrote:
> Have you done an ACBGEN into the ACBLIB that is in use by that IMS region?
> IMS thinks that you have not :)
> Also not relevant to your problem but the /DIS PSB and /DIS PGM
> commands are different and you probably wanted /DIS PGM.
>
>
> On Tue, Nov 3, 2020 at 12:29 PM Mike Stramba  wrote:
>
>> I'm trying to add a new database in IMS ver 10.
>>
>> I've got to the point where a /dis db mike01  shows it up.
>>
>> But a  /dis psb mike01pb is showing :
>>
>>  15.21.30 JOB00052  DFS000I MIKE01PB  NOT DEFINED IN IMS   IVP1
>>  15.21.30 JOB00052  DFS000I *20307/152130*   IVP1
>> *15.21.30 JOB00052 *05 DFS996I *IMS READY*  IVP1
>>
>> The dataset 'IMS1010.PSBLIB(MIKE01PB)'  is there.
>>
>> Any ideas ?
>>
>> Mike
>>
>> -
>> - 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
"This e-mail and any attachments to it (the "Communication") is, unless 
otherwise stated, confidential, may contain copyright material and is for the 
use only of the intended recipient. If you receive the Communication in error, 
please notify the sender immediately by return e-mail, delete the Communication 
and the return e-mail, and do not read, copy, retransmit or otherwise deal with 
it. Any views expressed in the Communication are those of the individual sender 
only, unless expressly stated to be those of Australia and New Zealand Banking 
Group Limited ABN 11 005 357 522, or any of its related entities including ANZ 
Bank New Zealand Limited (together "ANZ"). ANZ does not accept liability in 
connection with the integrity of or errors in the Communication, computer 
virus, data corruption, interference or delay arising from or in respect of the 
Communication."

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

Re: ALET value of CSRC4GET

[Joseph Reichman]

That's the doc for IARV64 

For CSRC4GET  seems okay ?

 cntl_alet
Specifies the fullword variable containing the ALET that identifies the
location of the anchor and
extents. Initialize the ALET to 0 if your program is running in AR mode and
the anchor and extents are
in the primary address space. If your program is running in primary ASC
mode, the value is ignored,
but you must code the parameter anyway.

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of
Charles Mills
Sent: Tuesday, November 17, 2020 8:18 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: ALET value of CSRC4GET

If the doc specifically says those are the valid values then my wild guess
would be that those are the valid values. Most things just say to specify an
ALET, so if the doc has that specific restriction I would guess it is there
for a reason. I've been wrong before.

Charles


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Joseph Reichman
Sent: Tuesday, November 17, 2020 4:49 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: ALET value of CSRC4GET

CSRC4GET specfies 64 bit storage the thing that made ask the question the
documentation on IAVR64 which has an ALETvalue param says valid values are 0
and 2 primary and home  

I do specify an ALET of the address space where I issued the IARV64 (storage
used for cell pool services) and am getting a s0c4 reason 10 on the call

I issued the IARV64 in a SRB with a TCBTOKEN of ASXBXTCB

--
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: ALET value of CSRC4GET

[Charles Mills]

If the doc specifically says those are the valid values then my wild guess
would be that those are the valid values. Most things just say to specify an
ALET, so if the doc has that specific restriction I would guess it is there
for a reason. I've been wrong before.

Charles


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Joseph Reichman
Sent: Tuesday, November 17, 2020 4:49 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: ALET value of CSRC4GET

CSRC4GET specfies 64 bit storage the thing that made ask the question the
documentation on IAVR64 which has an ALETvalue param says valid values are 0
and 2 primary and home  

I do specify an ALET of the address space where I issued the IARV64 (storage
used for cell pool services) and am getting a s0c4 reason 10 on the call

I issued the IARV64 in a SRB with a TCBTOKEN of ASXBXTCB

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

Re: ALET value of CSRC4GET

[Joseph Reichman]

CSRC4GET specfies 64 bit storage the thing that made ask the question the
documentation on IAVR64 which has an ALETvalue param says valid values are 0
and 2 primary and home  

I do specify an ALET of the address space where I issued the IARV64 (storage
used for cell pool services) and am getting a s0c4 reason 10 on the call

I issued the IARV64 in a SRB with a TCBTOKEN of ASXBXTCB

thanks


thanks
 -Original Message-
From: IBM Mainframe Discussion List  On Behalf Of
Charles Mills
Sent: Tuesday, November 17, 2020 7:18 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: ALET value of CSRC4GET

I'm not an ALET expert and I don't know CSRC4GET but isn't "specifying
another address space" the whole point of an ALET?

Charles


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Joseph Reichman
Sent: Tuesday, November 17, 2020 4:14 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: ALET value of CSRC4GET

Hi

 

Can the alet value of this service specify another address space

--
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: ALET value of CSRC4GET

[Charles Mills]

I'm not an ALET expert and I don't know CSRC4GET but isn't "specifying
another address space" the whole point of an ALET?

Charles


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Joseph Reichman
Sent: Tuesday, November 17, 2020 4:14 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: ALET value of CSRC4GET

Hi

 

Can the alet value of this service specify another address space

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

ALET value of CSRC4GET

[Joseph Reichman]

Hi

 

Can the alet value of this service specify another address space

 

Thanks  

 


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

Re: Finding JES2 node name

[Charles Mills]

Well, my code could almost certainly be improved by using SRST rather than a 
CLI loop to find the comma, and perhaps by changing the code such that the 
likely path through the conditional jumps was straight through rather than 
branching. In my defense I wrote it a long time ago.

I was just looking at SRSTU. It's too bad it increments two bytes at a time; 
otherwise it would be terribly clever to use SRSTU to search for ',J'.

Charles


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Rob Scott
Sent: Tuesday, November 17, 2020 9:55 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Finding JES2 node name

Getting the JES node name from the SSVI (in response to SSI-54) is exactly what 
SDSF does.

Rob Scott
Rocket Software

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Charles Mills
Sent: 17 November 2020 17:48
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Finding JES2 node name

EXTERNAL EMAIL





The following code works. No idea if it is the "best" way.

*  INFORMATION RETRIEVED FROM JES VIA IEFSSREQ
 LAR1,ASSOB
 IEFSSREQ ,

*  Check for errors on IEFSSREQ
 LHI   R0,0No reason code
 LAR14,=C'IEFSSREQ'
 LTR   R15,R15
 JNZ   RETERROR

*  PARSE THE SSVI DATA RETURNED BY IEFSSREQ
*  STRATEGY IS TO USE THE POINTERS TO BUMP DOWN TO THE "SYSTEM DATA,"
*  THE SCAN A CHARACTER AT A TIME LOOKING FOR COMMAS, AND EACH TIME A
*  COMMA IS FOUND SEE IF THE FOLLOWING STRING IS "JES_NODE="
*  See notes in the data block about the length
 LAR3,SSVI1
 A R3,SSVISDOF-SSVI(,R3)OFFSET TO SYSTEM DATA
 LHR2,0(,R3)   LENGTH OF SYSTEM DATA
 STR2,JISSVIRLEN   Pass back length for verbose msg

*  Check for errors in the IEFJSSOB
 LRR0,R2   Pass actual length as reason code!
 LAR14,=C'IEFJSSOB'
 L R15,SSOB1+SSOBRETN-SSOB
 LTR   R15,R15
 JNZ   RETERROR

*  "The length of this field is not included in the length of the
*   string."
 LAR3,2(,R3)   OKAY, SHOULD NOW POINT AT 1ST COMMA
*
* LOOP LOOKING FOR COMMA
NODE1LP  EQU   *
 CLI   0(R3),C','
 JNE   NODELP1X
*
*  FOUND A COMMA
 CLC   1(9,R3),=CL9'JES_NODE='
 JNE   NODELP1X
*
*  FOUND THE RIGHT TAG  012345678901
 LAR4,11(,R3)  GET PAST ,JES_NODE='
 J NODEFND
*
*  KEEP GOING
NODELP1X EQU   *
 LAR3,1(,R3)   NEXT CHARACTER
 BRCT  R2,NODE1LP
*
*  NOT FOUND
 LAR4,=CL8'NOTAVAIL'   ???
*
*  STORE THE data for C++
NODEFND  EQU   *
 MVC   JIJESNOD(8),0(R4)



*  AREAS USED FOR IEFSSREQ
ASSOBDCA(SSOB1)
*
SSOB1DC0F'0'
 DCCL4'SSOB'
 DCY(SSOBX-SSOB1)  LENGTH
 DCY(SSOBSSVI) VERSION REQUEST = 54
 DCA(0)USE LIFE OF JOB SSIB
SSOB1RET DCF'0'
SSOBPTR  DCA(SSVI1)
 DC2F'0'
SSOBXEQU   *   END OF SSOB
*
SSVI1DC0F'0'
 DCY(SSVIX-SSVI1)  LENGTH
 DCAL1(SSVIVTWO)   VERSION
 DCX'0'
 DCCL4'SSVI'
SSVIDATA EQU   *
SSVIDATA_Len EQU 1024  Arbitrary response length allowance
 DC(SSVIDATA_Len)X'0'
SSVIXEQU   *   END OF SSVI

Charles


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Tim Hare
Sent: Tuesday, November 17, 2020 7:53 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Finding JES2 node name

I have some code that follows a control block chain to the HCCT to get the JES2 
node name, but that requires going to key zero (or so the source says, it's 
been years ).  Is there a way to retrieve the JES2 node name in a  program 
running in batch, without being APF-authorized? We'd like to remove the need 
for this program to be in an APF-authorized library.

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


Rocket Software, Inc. and subsidiaries ■ 77 Fourth Avenue, Waltham MA 02451 ■ 
Main Office Toll Free Number: +1 855.577.4323
Contact Customer Support: 
https://my.rocketsoftware.com/RocketCommunity/RCEmailSupport
Unsubscribe from Marketing Messages/Manage Your Subscription Preferences - 
http://www.rocketsoftware.com/manage-your-email-preferences
Privacy Policy - http://www.rocketsoftware.com/company/legal/privacy-policy


This 

Re: IMS 10 - psb not defined

[Itschak Mugzach]

Mike,

ACBGEN only requires MODIFY PREPARE ACBLIB. follow the messages on syslog.
Program status NOTINIT means that the program resources (such as PSB, DBD,
ACB, etc.) are not available.

ITschak

*| **Itschak Mugzach | Director | SecuriTeam Software **|** IronSphere
Platform* *|* *Information Security Continuous Monitoring for Z/OS, zLinux
and IBM I **|  *

*|* *Email**: i_mugz...@securiteam.co.il **|* *Mob**: +972 522 986404 **|*
*Skype**: ItschakMugzach **|* *Web**: www.Securiteam.co.il  **|*





On Tue, Nov 17, 2020 at 11:26 PM Mike Stramba  wrote:

> Ok, I've managed to get the database and PSB working.
>
> Though I'm not really sure how.
>
> I *had* done an ACBGEN and the members were showing in all three ACLIB
> data sets.
>
> Should a *cold start* of IMS be necessary ?
>  (It seems? that the psb/database didn't respond until a cold start).
>
> Now I'm trying to figure out why I have a "NOTINIT" status for both a
> REXX program and an assembler module.
>
> For the REXX program I ran the bind step from IV3E206J.
>
> I ran the 'ASSEM1' proc from the same member for the assembler program.
>
> Mike
>
> On 11/2/20, Attila Fogarasi  wrote:
> > Have you done an ACBGEN into the ACBLIB that is in use by that IMS
> region?
> > IMS thinks that you have not :)
> > Also not relevant to your problem but the /DIS PSB and /DIS PGM commands
> > are different and you probably wanted /DIS PGM.
> >
> >
> > On Tue, Nov 3, 2020 at 12:29 PM Mike Stramba 
> wrote:
> >
> >> I'm trying to add a new database in IMS ver 10.
> >>
> >> I've got to the point where a /dis db mike01  shows it up.
> >>
> >> But a  /dis psb mike01pb is showing :
> >>
> >>  15.21.30 JOB00052  DFS000I MIKE01PB  NOT DEFINED IN IMS   IVP1
> >>  15.21.30 JOB00052  DFS000I *20307/152130*   IVP1
> >> *15.21.30 JOB00052 *05 DFS996I *IMS READY*  IVP1
> >>
> >> The dataset 'IMS1010.PSBLIB(MIKE01PB)'  is there.
> >>
> >> Any ideas ?
> >>
> >> Mike
> >>
> >> --
> >> 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: IMS 10 - psb not defined

[Mike Stramba]

Ok, I've managed to get the database and PSB working.

Though I'm not really sure how.

I *had* done an ACBGEN and the members were showing in all three ACLIB
data sets.

Should a *cold start* of IMS be necessary ?
 (It seems? that the psb/database didn't respond until a cold start).

Now I'm trying to figure out why I have a "NOTINIT" status for both a
REXX program and an assembler module.

For the REXX program I ran the bind step from IV3E206J.

I ran the 'ASSEM1' proc from the same member for the assembler program.

Mike

On 11/2/20, Attila Fogarasi  wrote:
> Have you done an ACBGEN into the ACBLIB that is in use by that IMS region?
> IMS thinks that you have not :)
> Also not relevant to your problem but the /DIS PSB and /DIS PGM commands
> are different and you probably wanted /DIS PGM.
>
>
> On Tue, Nov 3, 2020 at 12:29 PM Mike Stramba  wrote:
>
>> I'm trying to add a new database in IMS ver 10.
>>
>> I've got to the point where a /dis db mike01  shows it up.
>>
>> But a  /dis psb mike01pb is showing :
>>
>>  15.21.30 JOB00052  DFS000I MIKE01PB  NOT DEFINED IN IMS   IVP1
>>  15.21.30 JOB00052  DFS000I *20307/152130*   IVP1
>> *15.21.30 JOB00052 *05 DFS996I *IMS READY*  IVP1
>>
>> The dataset 'IMS1010.PSBLIB(MIKE01PB)'  is there.
>>
>> Any ideas ?
>>
>> Mike
>>
>> --
>> 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: [MVS-OE] [External] Re: [MVS-OE] Other user trying to run my shell script gets "FSUM7351 not found" error

[Frank Swarbrick]

OK, issue resolved.  I not only had to set the read and execute bits on the 
program itself (curl), but also on the entire directory path.  Not sure what 
the difference is in regard to executing the program directly vs inside a 
script, but hey.


From: MVS OpenEdition  on behalf of Pommier, Rex 

Sent: Tuesday, November 17, 2020 12:47 PM
To: mvs...@vm.marist.edu 
Subject: Re: [MVS-OE] [External] Re: [MVS-OE] Other user trying to run my shell 
script gets "FSUM7351 not found" error

Except Frank said the other user could run curl directly, just not if he was 
using Frank's script.

-Original Message-
From: MVS OpenEdition  On Behalf Of Kirk Wolf
Sent: Tuesday, November 17, 2020 1:10 PM
To: mvs...@vm.marist.edu
Subject: [External] Re: [MVS-OE] Other user trying to run my shell script gets 
"FSUM7351 not found" error

Perhaps the user doesn't have read/search/execute permissions to the full 
directory path of /u/dvfjs/rocket/bin/curl  ?

Kirk Wolf
Dovetailed Technologies
http://dovetail.com


On Mon, Nov 16, 2020 at 12:51 PM Frank Swarbrick < frank.swarbr...@outlook.com> 
wrote:

> Any thoughts on this?  I can execute this job and have no issue.  I'm
> trying to let another developer run it.  He's able to run
> /u/dvfjs/rocket/bin/curl directly (in STDPARM, following "SH ".)  But
> if he executes my shell script (/u/dvfjs/jira_test) he gets
> "/u/dvfjs/rocket/bin/curl: /u/dvfjs/jira_test 4: FSUM7351 not found".
>
> I've set the read and execution bits for user, group and other for
> both curl and the jira_test shell script.  Since the "echo" commands
> are working for him, he's obviously able to execute my shell script
> itself.  What else might I be missing?  The other developer has an
> OMVS segment, but he doesn't have an initial working directory or default 
> shell configured yet.
> Could that be the issue?  If so, what specifically is causing this
> particular issue?
>
> JCL:
> //DVRJZTST JOB ,'Test',CLASS=C,REGION=0M,NOTIFY=
> //*
> //UNIX EXEC PGM=BPXBATCH
> //STDOUT   DD SYSOUT=*
> //STDERR   DD SYSOUT=*
> //STDPARM  DD *
> SH /u/dvfjs/jira_test
> /*
>
> /u/dvfjs/jira_test:
> #!/bin/sh -x
>
> echo **before**
> /u/dvfjs/rocket/bin/curl --help
> echo **after**
>
> File attributes:
> -sh|DVFJS:/u/dvfjs:>ls -FalTHp /u/dvfjs/jira_test
> - untaggedT=off -rwxr-xr-x     1 DVFJSDEPT9971  77 Nov 16
> 12:24 /u/dvfjs/jira_test
> -sh|DVFJS:/u/dvfjs:>ls -FalTHp /u/dvfjs/rocket/bin/curl
> - untaggedT=off -rwxr-xr-x     1 DVFJSDEPT9971 21266432 Nov
> 1  2019 /u/dvfjs/rocket/bin/curl
>
> STDERR:
> FSUM1012 The initial working directory was not specified.
> FSUM1006 A shell was not specified. Processing continues using the
> default shell name.
> + echo **before**
> + /u/dvfjs/rocket/bin/curl --help
> /u/dvfjs/rocket/bin/curl: /u/dvfjs/jira_test 4:
> + echo **after**
>
> STDOUT:
> **before**
> **after**
>
>
>
> --
> For MVS-OE subscribe / signoff / archive access instructions, send
> email to lists...@vm.marist.edu with the message: INFO MVS-OE
>

--
For MVS-OE subscribe / signoff / archive access instructions, send email to 
lists...@vm.marist.edu with the message: INFO MVS-OE


The information contained in this message is confidential, protected from 
disclosure and may be legally privileged.  If the reader of this message is not 
the intended recipient or an employee or agent responsible for delivering this 
message to the intended recipient, you are hereby notified that any disclosure, 
distribution, copying, or any action taken or action omitted in reliance on it, 
is strictly prohibited and may be unlawful.  If you have received this 
communication in error, please notify us immediately by replying to this 
message and destroy the material in its entirety, whether in electronic or hard 
copy format.  Thank you.


--
For MVS-OE subscribe / signoff / archive access instructions,
send email to lists...@vm.marist.edu with the message: INFO MVS-OE

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

Re: Finding JES2 node name

[Rob Scott]

Getting the JES node name from the SSVI (in response to SSI-54) is exactly what 
SDSF does.

Rob Scott
Rocket Software

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Charles Mills
Sent: 17 November 2020 17:48
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Finding JES2 node name

EXTERNAL EMAIL





The following code works. No idea if it is the "best" way.

*  INFORMATION RETRIEVED FROM JES VIA IEFSSREQ
 LAR1,ASSOB
 IEFSSREQ ,

*  Check for errors on IEFSSREQ
 LHI   R0,0No reason code
 LAR14,=C'IEFSSREQ'
 LTR   R15,R15
 JNZ   RETERROR

*  PARSE THE SSVI DATA RETURNED BY IEFSSREQ
*  STRATEGY IS TO USE THE POINTERS TO BUMP DOWN TO THE "SYSTEM DATA,"
*  THE SCAN A CHARACTER AT A TIME LOOKING FOR COMMAS, AND EACH TIME A
*  COMMA IS FOUND SEE IF THE FOLLOWING STRING IS "JES_NODE="
*  See notes in the data block about the length
 LAR3,SSVI1
 A R3,SSVISDOF-SSVI(,R3)OFFSET TO SYSTEM DATA
 LHR2,0(,R3)   LENGTH OF SYSTEM DATA
 STR2,JISSVIRLEN   Pass back length for verbose msg

*  Check for errors in the IEFJSSOB
 LRR0,R2   Pass actual length as reason code!
 LAR14,=C'IEFJSSOB'
 L R15,SSOB1+SSOBRETN-SSOB
 LTR   R15,R15
 JNZ   RETERROR

*  "The length of this field is not included in the length of the
*   string."
 LAR3,2(,R3)   OKAY, SHOULD NOW POINT AT 1ST COMMA
*
* LOOP LOOKING FOR COMMA
NODE1LP  EQU   *
 CLI   0(R3),C','
 JNE   NODELP1X
*
*  FOUND A COMMA
 CLC   1(9,R3),=CL9'JES_NODE='
 JNE   NODELP1X
*
*  FOUND THE RIGHT TAG  012345678901
 LAR4,11(,R3)  GET PAST ,JES_NODE='
 J NODEFND
*
*  KEEP GOING
NODELP1X EQU   *
 LAR3,1(,R3)   NEXT CHARACTER
 BRCT  R2,NODE1LP
*
*  NOT FOUND
 LAR4,=CL8'NOTAVAIL'   ???
*
*  STORE THE data for C++
NODEFND  EQU   *
 MVC   JIJESNOD(8),0(R4)



*  AREAS USED FOR IEFSSREQ
ASSOBDCA(SSOB1)
*
SSOB1DC0F'0'
 DCCL4'SSOB'
 DCY(SSOBX-SSOB1)  LENGTH
 DCY(SSOBSSVI) VERSION REQUEST = 54
 DCA(0)USE LIFE OF JOB SSIB
SSOB1RET DCF'0'
SSOBPTR  DCA(SSVI1)
 DC2F'0'
SSOBXEQU   *   END OF SSOB
*
SSVI1DC0F'0'
 DCY(SSVIX-SSVI1)  LENGTH
 DCAL1(SSVIVTWO)   VERSION
 DCX'0'
 DCCL4'SSVI'
SSVIDATA EQU   *
SSVIDATA_Len EQU 1024  Arbitrary response length allowance
 DC(SSVIDATA_Len)X'0'
SSVIXEQU   *   END OF SSVI

Charles


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Tim Hare
Sent: Tuesday, November 17, 2020 7:53 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Finding JES2 node name

I have some code that follows a control block chain to the HCCT to get the JES2 
node name, but that requires going to key zero (or so the source says, it's 
been years ).  Is there a way to retrieve the JES2 node name in a  program 
running in batch, without being APF-authorized? We'd like to remove the need 
for this program to be in an APF-authorized library.

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


Rocket Software, Inc. and subsidiaries ■ 77 Fourth Avenue, Waltham MA 02451 ■ 
Main Office Toll Free Number: +1 855.577.4323
Contact Customer Support: 
https://my.rocketsoftware.com/RocketCommunity/RCEmailSupport
Unsubscribe from Marketing Messages/Manage Your Subscription Preferences - 
http://www.rocketsoftware.com/manage-your-email-preferences
Privacy Policy - http://www.rocketsoftware.com/company/legal/privacy-policy


This communication and any attachments may contain confidential information of 
Rocket Software, Inc. All unauthorized use, disclosure or distribution is 
prohibited. If you are not the intended recipient, please notify Rocket 
Software immediately and destroy all copies of this communication. Thank you.

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

Re: Using PCOMM with SSL ?

[Charles Mills]

Your TN3270 server -- or AT-TLS as its proxy -- is using a server
certificate. That certificate is signed by some CA. You will need that CA's
root certificate installed in Windows. That CA might be

- The PKI group at your site
- Some well-known CA such as DigiCert or GoDaddy
- The server certificate itself if "self-signed."

The first question you need answered is "who signed the server certificate?"
Your PKI group should be able to tell you that.

If you get the certificate in the right format -- such as .crt -- you can
just double-click on it to install it in Windows.

Charles


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Lionel B Dyck
Sent: Tuesday, November 17, 2020 8:51 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Using PCOMM with SSL ?

I would like to enable PCOMM (14.0) to use a secure connection. It appears
that I need to provide a certificate.

 

IBM support told me to use RACDCERT to export the certificate and import it
into PCOMM - that didn't work as there is no place that I can see to do such
an import after I did a binary download of the cert file from z/OS to
Windows.

 

Can someone/anyone provide some guidance on setting up PCOMM to connect
securely to z/OS (AT-TLS enabled)?

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

Re: Finding JES2 node name

[Charles Mills]

The following code works. No idea if it is the "best" way.

*  INFORMATION RETRIEVED FROM JES VIA IEFSSREQ
 LAR1,ASSOB
 IEFSSREQ ,

*  Check for errors on IEFSSREQ
 LHI   R0,0No reason code
 LAR14,=C'IEFSSREQ'
 LTR   R15,R15
 JNZ   RETERROR

*  PARSE THE SSVI DATA RETURNED BY IEFSSREQ
*  STRATEGY IS TO USE THE POINTERS TO BUMP DOWN TO THE "SYSTEM DATA,"
*  THE SCAN A CHARACTER AT A TIME LOOKING FOR COMMAS, AND EACH TIME A
*  COMMA IS FOUND SEE IF THE FOLLOWING STRING IS "JES_NODE="
*  See notes in the data block about the length
 LAR3,SSVI1
 A R3,SSVISDOF-SSVI(,R3)OFFSET TO SYSTEM DATA
 LHR2,0(,R3)   LENGTH OF SYSTEM DATA
 STR2,JISSVIRLEN   Pass back length for verbose msg

*  Check for errors in the IEFJSSOB
 LRR0,R2   Pass actual length as reason code!
 LAR14,=C'IEFJSSOB'
 L R15,SSOB1+SSOBRETN-SSOB
 LTR   R15,R15
 JNZ   RETERROR

*  "The length of this field is not included in the length of the
*   string." 
 LAR3,2(,R3)   OKAY, SHOULD NOW POINT AT 1ST COMMA
*
* LOOP LOOKING FOR COMMA
NODE1LP  EQU   *
 CLI   0(R3),C','
 JNE   NODELP1X
*
*  FOUND A COMMA
 CLC   1(9,R3),=CL9'JES_NODE='
 JNE   NODELP1X
*
*  FOUND THE RIGHT TAG  012345678901
 LAR4,11(,R3)  GET PAST ,JES_NODE='
 J NODEFND
*
*  KEEP GOING
NODELP1X EQU   *
 LAR3,1(,R3)   NEXT CHARACTER
 BRCT  R2,NODE1LP
*
*  NOT FOUND
 LAR4,=CL8'NOTAVAIL'   ???
*
*  STORE THE data for C++
NODEFND  EQU   *
 MVC   JIJESNOD(8),0(R4)



*  AREAS USED FOR IEFSSREQ
ASSOBDCA(SSOB1)
*
SSOB1DC0F'0'
 DCCL4'SSOB'
 DCY(SSOBX-SSOB1)  LENGTH
 DCY(SSOBSSVI) VERSION REQUEST = 54
 DCA(0)USE LIFE OF JOB SSIB
SSOB1RET DCF'0'
SSOBPTR  DCA(SSVI1)
 DC2F'0'
SSOBXEQU   *   END OF SSOB
*
SSVI1DC0F'0'
 DCY(SSVIX-SSVI1)  LENGTH
 DCAL1(SSVIVTWO)   VERSION
 DCX'0'
 DCCL4'SSVI'
SSVIDATA EQU   *
SSVIDATA_Len EQU 1024  Arbitrary response length allowance
 DC(SSVIDATA_Len)X'0'  
SSVIXEQU   *   END OF SSVI

Charles


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Tim Hare
Sent: Tuesday, November 17, 2020 7:53 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Finding JES2 node name

I have some code that follows a control block chain to the HCCT to get the JES2 
node name, but that requires going to key zero (or so the source says, it's 
been years ).  Is there a way to retrieve the JES2 node name in a  program 
running in batch, without being APF-authorized? We'd like to remove the need 
for this program to be in an APF-authorized library.

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

Reference for NIH or Mellon multi-access SPOOL?

[Seymour J Metz]

Can anybody point me to documentation on the provenance of the NIH (HASP II V3) 
or Mellon (HASP II V4) mods for mult-access SPOOL? There are citation needed 
tags in https://en.wikipedia.org/wiki/Job_Entry_Subsystem_2/3 and I'd like to 
include some. Thanks.


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

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

Re: Other user trying to run my shell script gets "FSUM7351 not found" error

[Paul Gilmartin]

On Tue, 17 Nov 2020 16:59:13 +, Frank Swarbrick wrote:

>Why would PATH have any effect here, since I have the fully qualified path 
>specified?
>
/u/dvfjs/rocket/bin/curl itself might issue an execvp() call or depend
on having a current working directory.

It's kinda like needing dependencies in a STEPLIB.

Isn't there nowadays a facility to create by default a unique OMVS
segment when a user lacking one is dubbed?

>
>From: Frank Swarbrick 
>Sent: Monday, November 16, 2020 2:03 PM
>
>//STDPARM  DD *
>SH /u/dvfjs/jira_test
>
>STDERR:
>FSUM1012 The initial working directory was not specified.
>FSUM1006 A shell was not specified. Processing continues using the default 
>shell name.
>+ echo **before**
>+ /u/dvfjs/rocket/bin/curl --help
>/u/dvfjs/rocket/bin/curl: /u/dvfjs/jira_test 4:
>+ echo **after**
>
>STDOUT:
>**before**
>**after**

-- gil

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

Re: FTP converting between UTF-8 and EBCDIC

[Paul Gilmartin]

I've checked the 2020 September refresh.

On Tue, 17 Nov 2020 09:12:17 -0600, Paul Gilmartin wrote:
>
>Does "conversion errors" mean "invalid octet sequences" in the source
>as well as characters valid in the source CCSID but having no equivalent
>in the target charact set.  In the former case, how many 0xff are written?
>
>(is "0xff" possibly a typo for "0x3f"?
>
>Truly, if the target character set is ASCII-like the substitute character
>should be 0x1a; if EBCDIC-like, 0x3f; if DBCS, ???, but not a single octet.
>
Is this affected by the update to SC14-7314-40 (see below), and my
addiitonal comments.


>SC14-7314-40  XL C/C++ Runtime Library Reference
>says:
>iconv() — Code conversion
>If a sequence of input bytes does not form a valid character in the
>specified encoded character set, conversion stops after the previous
>successfully converted character, and iconv() sets errno to EILSEQ.
>...
>If iconv() encounters a character in the input buffer that is valid, but
>for which a conversion is not defined in the conversion descriptor, cd,
>then iconv() performs a nonidentical conversion on this character.
>The conversion is implementation-defined.
>
Now, with revision bar:
If iconv() encounters a character in the input buffer that is valid, but 
for which a conversion is not defined in the conversion descriptor, cd,
|   then the substitution character is to be put in the target buffer and the
|   conversion is to be continued.

I feel that "substitution character" should be further clarified to 
"substitution
character (SUB) of the target character set".

("is to be" isn't colloquial English.)

>I feel like a couple RCFs

-- gil

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

Re: Other user trying to run my shell script gets "FSUM7351 not found" error

[Seymour J Metz]

You're right. Ghosties and ghoulies and things that go bump n the night?


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



From: IBM Mainframe Discussion List  on behalf of 
Frank Swarbrick 
Sent: Tuesday, November 17, 2020 11:59 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Other user trying to run my shell script gets "FSUM7351 not found" 
error

Why would PATH have any effect here, since I have the fully qualified path 
specified?


From: IBM Mainframe Discussion List  on behalf of 
Seymour J Metz 
Sent: Tuesday, November 17, 2020 6:22 AM
To: IBM-MAIN@LISTSERV.UA.EDU 
Subject: Re: Other user trying to run my shell script gets "FSUM7351 not found" 
error

That sounds like PATH is different in the two cases.


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



From: IBM Mainframe Discussion List  on behalf of 
Frank Swarbrick 
Sent: Monday, November 16, 2020 2:03 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Other user trying to run my shell script gets "FSUM7351 not found" 
error

Any thoughts on this?  I can execute this job and have no issue.  I'm trying to 
let another developer run it.  He's able to run /u/dvfjs/rocket/bin/curl 
directly (in STDPARM, following "SH ".)  But if he executes my shell script 
(/u/dvfjs/jira_test) he gets "/u/dvfjs/rocket/bin/curl: /u/dvfjs/jira_test 4: 
FSUM7351 not found".

I've set the read and execution bits for user, group and other for both curl 
and the jira_test shell script.  Since the "echo" commands are working for him, 
he's obviously able to execute my shell script itself.  What else might I be 
missing?  The other developer has an OMVS segment, but he doesn't have an 
initial working directory or default shell configured yet.  Could that be the 
issue?  If so, what specifically is causing this particular issue?

JCL:
//DVRJZTST JOB ,'Test',CLASS=C,REGION=0M,NOTIFY=
//*
//UNIX EXEC PGM=BPXBATCH
//STDOUT   DD SYSOUT=*
//STDERR   DD SYSOUT=*
//STDPARM  DD *
SH /u/dvfjs/jira_test
/*

/u/dvfjs/jira_test:
#!/bin/sh -x

echo **before**
/u/dvfjs/rocket/bin/curl --help
echo **after**

File attributes:
-sh|DVFJS:/u/dvfjs:>ls -FalTHp /u/dvfjs/jira_test
- untaggedT=off -rwxr-xr-x     1 DVFJSDEPT9971  77 Nov 16 12:24 
/u/dvfjs/jira_test
-sh|DVFJS:/u/dvfjs:>ls -FalTHp /u/dvfjs/rocket/bin/curl
- untaggedT=off -rwxr-xr-x     1 DVFJSDEPT9971 21266432 Nov  1  
2019 /u/dvfjs/rocket/bin/curl

STDERR:
FSUM1012 The initial working directory was not specified.
FSUM1006 A shell was not specified. Processing continues using the default 
shell name.
+ echo **before**
+ /u/dvfjs/rocket/bin/curl --help
/u/dvfjs/rocket/bin/curl: /u/dvfjs/jira_test 4:
+ echo **after**

STDOUT:
**before**
**after**



--
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: Finding JES2 node name

[Tim Hare]

The program is already in Assembler  - so I'm guessing I would use the AMASYMBM 
or AMASYMBF service to resolve SYSNODE

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

Re: Other user trying to run my shell script gets "FSUM7351 not found" error

[Frank Swarbrick]

Why would PATH have any effect here, since I have the fully qualified path 
specified?


From: IBM Mainframe Discussion List  on behalf of 
Seymour J Metz 
Sent: Tuesday, November 17, 2020 6:22 AM
To: IBM-MAIN@LISTSERV.UA.EDU 
Subject: Re: Other user trying to run my shell script gets "FSUM7351 not found" 
error

That sounds like PATH is different in the two cases.


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



From: IBM Mainframe Discussion List  on behalf of 
Frank Swarbrick 
Sent: Monday, November 16, 2020 2:03 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Other user trying to run my shell script gets "FSUM7351 not found" 
error

Any thoughts on this?  I can execute this job and have no issue.  I'm trying to 
let another developer run it.  He's able to run /u/dvfjs/rocket/bin/curl 
directly (in STDPARM, following "SH ".)  But if he executes my shell script 
(/u/dvfjs/jira_test) he gets "/u/dvfjs/rocket/bin/curl: /u/dvfjs/jira_test 4: 
FSUM7351 not found".

I've set the read and execution bits for user, group and other for both curl 
and the jira_test shell script.  Since the "echo" commands are working for him, 
he's obviously able to execute my shell script itself.  What else might I be 
missing?  The other developer has an OMVS segment, but he doesn't have an 
initial working directory or default shell configured yet.  Could that be the 
issue?  If so, what specifically is causing this particular issue?

JCL:
//DVRJZTST JOB ,'Test',CLASS=C,REGION=0M,NOTIFY=
//*
//UNIX EXEC PGM=BPXBATCH
//STDOUT   DD SYSOUT=*
//STDERR   DD SYSOUT=*
//STDPARM  DD *
SH /u/dvfjs/jira_test
/*

/u/dvfjs/jira_test:
#!/bin/sh -x

echo **before**
/u/dvfjs/rocket/bin/curl --help
echo **after**

File attributes:
-sh|DVFJS:/u/dvfjs:>ls -FalTHp /u/dvfjs/jira_test
- untaggedT=off -rwxr-xr-x     1 DVFJSDEPT9971  77 Nov 16 12:24 
/u/dvfjs/jira_test
-sh|DVFJS:/u/dvfjs:>ls -FalTHp /u/dvfjs/rocket/bin/curl
- untaggedT=off -rwxr-xr-x     1 DVFJSDEPT9971 21266432 Nov  1  
2019 /u/dvfjs/rocket/bin/curl

STDERR:
FSUM1012 The initial working directory was not specified.
FSUM1006 A shell was not specified. Processing continues using the default 
shell name.
+ echo **before**
+ /u/dvfjs/rocket/bin/curl --help
/u/dvfjs/rocket/bin/curl: /u/dvfjs/jira_test 4:
+ echo **after**

STDOUT:
**before**
**after**



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

Using PCOMM with SSL ?

[Lionel B Dyck]

I would like to enable PCOMM (14.0) to use a secure connection. It appears
that I need to provide a certificate.

 

IBM support told me to use RACDCERT to export the certificate and import it
into PCOMM - that didn't work as there is no place that I can see to do such
an import after I did a binary download of the cert file from z/OS to
Windows.

 

Can someone/anyone provide some guidance on setting up PCOMM to connect
securely to z/OS (AT-TLS enabled)?

 

Thanks in advance.

 

 

Lionel B. Dyck <
Website:   https://www.lbdsoftware.com

"Worry more about your character than your reputation.  Character is what
you are, reputation merely what others think you are." - John Wooden

 


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

Re: FTP converting between UTF-8 and EBCDIC

[Seymour J Metz]

ypo, that should be ISO-8859-15, Latin9.


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



From: IBM Mainframe Discussion List  on behalf of 
Paul Gilmartin <000433f07816-dmarc-requ...@listserv.ua.edu>
Sent: Tuesday, November 17, 2020 10:12 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: FTP converting between UTF-8 and EBCDIC

On Tue, 17 Nov 2020 13:29:32 +, Seymour J Metz wrote:

>NFW; unless the documentation describes such bizarre behavior, it should *NOT* 
>translate characters to SUB when there is a correct translation. If you want 
>to preserve the length then use a character set in which all characters are 8 
>bits, e.g., ISO-8869=15.

"8869="?

Pedant!  I easily presumed "not in the target character set" as Charles's 
intent.


From:  Charles Mills
>Sent: Monday, November 16, 2020 4:14 PM

>If you tell FTP that the non-EBCDIC file is UTF-8 then FTP *should* convert
>accented characters and such to EBCDIC SUB (X'3F') rather than to two bytes.
>Should. YMMV.

I understand this to be common practice, as described in:

https://secure-web.cisco.com/1CU1T9ZeyF6UHYCkeSdBDfGguunRASoBn4ZgLNTkuMZb59Yo5npGD_H2Pb6G5bijvF5VlGkp1sQk8zyGkV0uupjf4wRqqbivc76xIl5_nMR1p4lJotPuLYnFZzEiKj_QZKq-RH638h74A5UAOGONfx7qRmo5sC7LxMlqYQTvqyvKRBaaVSfyBuGqHwG0LIy3NJ_VpgJTVE4mvnsmHtHdHpV0JsgR26LmlhPskpvOnV_VR2pOpsUyhSxn1G7Yo2-NE78BL--lV-ejaElC25jvV66skTxjmFnz0M30_pGpYOEtC5uXHLr9GQksuagnLZEg3OJJbUo1Ht6_Ju7osBkrBLEvXwbrcqLZGvjqlSQcgIh9eFULW0RFdcDvOoYqiOrMklQdCW0qnAH5EkgOSODNDzkrqxCmJ0vvJrjN2ARIeKry6ECw5kYcS1k6rggdUCv64/https%3A%2F%2Fwww.asciihex.com%2Fcharacter%2Fcontrol%2F26%2F0x1A%2Fsub-substitute
(citation with better authority needed)
A substitute character (␚) is a control character. It is represented in the
place of a character that is identified to be invalid or incorrect, or in 
cases
when it can't be represented on a device used. Besides, it's used in the
role if an escape sequence in some programming languages.

(Let's not further discuss the CPM/DOS/Windows abuse of 0x1a (SUB).)

Alas, IBM too characteristically flaunts common practice:
SA23-2280-40  UNIX System Services Command Reference
iconv - Convert characters from one code set to another
-c  Characters containing conversion errors are not written to the output.
By default, characters not in the source character set are converted
to the value 0xff and written to the output.

Does "conversion errors" mean "invalid octet sequences" in the source
as well as characters valid in the source CCSID but having no equivalent
in the target charact set.  In the former case, how many 0xff are written?

(is "0xff" possibly a typo for "0x3f"?

Truly, if the target character set is ASCII-like the substitute character
should be 0x1a; if EBCDIC-like, 0x3f; if DBCS, ???, but not a single octet.


SC14-7314-40  XL C/C++ Runtime Library Reference
says:
iconv() — Code conversion
If a sequence of input bytes does not form a valid character in the
specified encoded character set, conversion stops after the previous
successfully converted character, and iconv() sets errno to EILSEQ.
...
If iconv() encounters a character in the input buffer that is valid, but
for which a conversion is not defined in the conversion descriptor, cd,
then iconv() performs a nonidentical conversion on this character.
The conversion is implementation-defined.

This document describes the z/OS implementation and should define
that conversion.

Do iconv and FTP both rely on that behavior?

I feel like a couple RCFs

-- gil











--
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: Microsoft using IBM was Re: IBM splitting into two companies

[Bfishing]

And it is still alive and well.
I'd expect to see some updates in this space soon too:
https://www.sinenomine.net/products-and-services/products-and-tools/mono

On Tue, Nov 17, 2020 at 11:02 AM Tim Hare 
wrote:

> The Mono project ran .NET stuff on Linux, and I have seen it running on
> z/Linux
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>


-- 

><º>`·.¸¸´¯`·.¸.·´¯`·...¸>(((º>
.·´¯`·.><º>`·.¸¸.·´¯`·.¸.·´¯`·...¸><º>

<>< Go fishing ><>

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

Re: Improve OMVS cp performance?

[R.S.]

W dniu 17.11.2020 o 01:57, Wayne Bickerdike pisze:

Atlas rang a bell and then I remembered it was used at the Rutherford labs
in Chilton.

I worked at AERE (Atomic Energy Research Establishment) which was next
door. They were basically the same campus but AERE was secure and
Rutherford wasn't.


[...]

Chilton!
Huge set of old pictures!
And rare gem: picture of 2305 DASD.

Also some pictures of Atlas parts, S/360, first Cray, ICL machines, etc.

--
Radoslaw Skorupka
Lodz, Poland





==

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: Finding JES2 node name

[R.S.]

W dniu 17.11.2020 o 16:53, Tim Hare pisze:

I have some code that follows a control block chain to the HCCT to get the JES2 
node name, but that requires going to key zero (or so the source says, it's 
been years ).  Is there a way to retrieve the JES2 node name in a  program 
running in batch, without being APF-authorized? We'd like to remove the need 
for this program to be in an APF-authorized library.


Yes, it is possible, even without assembler programming.
See Mark Zelden's IPLINFO, which is REXX code.

--
Radoslaw Skorupka
Lodz, Poland





==

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: Microsoft using IBM was Re: IBM splitting into two companies

[Tim Hare]

The Mono project ran .NET stuff on Linux, and I have seen it running on z/Linux

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

Finding JES2 node name

[Tim Hare]

I have some code that follows a control block chain to the HCCT to get the JES2 
node name, but that requires going to key zero (or so the source says, it's 
been years ).  Is there a way to retrieve the JES2 node name in a  program 
running in batch, without being APF-authorized? We'd like to remove the need 
for this program to be in an APF-authorized library.

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

Re: FTP converting between UTF-8 and EBCDIC

[Seymour J Metz]

Why would you presume that the character is not in the target character set? 
Certainly there are EBCIDIC character sets containing  accented letters, and 
there iare the issues of GE and SI/SO. In either direction encodings of 
characters can legitimately change length.


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



From: IBM Mainframe Discussion List  on behalf of 
Paul Gilmartin <000433f07816-dmarc-requ...@listserv.ua.edu>
Sent: Tuesday, November 17, 2020 10:12 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: FTP converting between UTF-8 and EBCDIC

On Tue, 17 Nov 2020 13:29:32 +, Seymour J Metz wrote:

>NFW; unless the documentation describes such bizarre behavior, it should *NOT* 
>translate characters to SUB when there is a correct translation. If you want 
>to preserve the length then use a character set in which all characters are 8 
>bits, e.g., ISO-8869=15.

"8869="?

Pedant!  I easily presumed "not in the target character set" as Charles's 
intent.


From:  Charles Mills
>Sent: Monday, November 16, 2020 4:14 PM

>If you tell FTP that the non-EBCDIC file is UTF-8 then FTP *should* convert
>accented characters and such to EBCDIC SUB (X'3F') rather than to two bytes.
>Should. YMMV.

I understand this to be common practice, as described in:

https://secure-web.cisco.com/1CU1T9ZeyF6UHYCkeSdBDfGguunRASoBn4ZgLNTkuMZb59Yo5npGD_H2Pb6G5bijvF5VlGkp1sQk8zyGkV0uupjf4wRqqbivc76xIl5_nMR1p4lJotPuLYnFZzEiKj_QZKq-RH638h74A5UAOGONfx7qRmo5sC7LxMlqYQTvqyvKRBaaVSfyBuGqHwG0LIy3NJ_VpgJTVE4mvnsmHtHdHpV0JsgR26LmlhPskpvOnV_VR2pOpsUyhSxn1G7Yo2-NE78BL--lV-ejaElC25jvV66skTxjmFnz0M30_pGpYOEtC5uXHLr9GQksuagnLZEg3OJJbUo1Ht6_Ju7osBkrBLEvXwbrcqLZGvjqlSQcgIh9eFULW0RFdcDvOoYqiOrMklQdCW0qnAH5EkgOSODNDzkrqxCmJ0vvJrjN2ARIeKry6ECw5kYcS1k6rggdUCv64/https%3A%2F%2Fwww.asciihex.com%2Fcharacter%2Fcontrol%2F26%2F0x1A%2Fsub-substitute
(citation with better authority needed)
A substitute character (␚) is a control character. It is represented in the
place of a character that is identified to be invalid or incorrect, or in 
cases
when it can't be represented on a device used. Besides, it's used in the
role if an escape sequence in some programming languages.

(Let's not further discuss the CPM/DOS/Windows abuse of 0x1a (SUB).)

Alas, IBM too characteristically flaunts common practice:
SA23-2280-40  UNIX System Services Command Reference
iconv - Convert characters from one code set to another
-c  Characters containing conversion errors are not written to the output.
By default, characters not in the source character set are converted
to the value 0xff and written to the output.

Does "conversion errors" mean "invalid octet sequences" in the source
as well as characters valid in the source CCSID but having no equivalent
in the target charact set.  In the former case, how many 0xff are written?

(is "0xff" possibly a typo for "0x3f"?

Truly, if the target character set is ASCII-like the substitute character
should be 0x1a; if EBCDIC-like, 0x3f; if DBCS, ???, but not a single octet.


SC14-7314-40  XL C/C++ Runtime Library Reference
says:
iconv() — Code conversion
If a sequence of input bytes does not form a valid character in the
specified encoded character set, conversion stops after the previous
successfully converted character, and iconv() sets errno to EILSEQ.
...
If iconv() encounters a character in the input buffer that is valid, but
for which a conversion is not defined in the conversion descriptor, cd,
then iconv() performs a nonidentical conversion on this character.
The conversion is implementation-defined.

This document describes the z/OS implementation and should define
that conversion.

Do iconv and FTP both rely on that behavior?

I feel like a couple RCFs

-- gil











--
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: FTP converting between UTF-8 and EBCDIC

[Paul Gilmartin]

On Tue, 17 Nov 2020 13:29:32 +, Seymour J Metz wrote:

>NFW; unless the documentation describes such bizarre behavior, it should *NOT* 
>translate characters to SUB when there is a correct translation. If you want 
>to preserve the length then use a character set in which all characters are 8 
>bits, e.g., ISO-8869=15.

"8869="?

Pedant!  I easily presumed "not in the target character set" as Charles's 
intent.


From:  Charles Mills
>Sent: Monday, November 16, 2020 4:14 PM

>If you tell FTP that the non-EBCDIC file is UTF-8 then FTP *should* convert
>accented characters and such to EBCDIC SUB (X'3F') rather than to two bytes.
>Should. YMMV.

I understand this to be common practice, as described in:
https://www.asciihex.com/character/control/26/0x1A/sub-substitute
(citation with better authority needed)
A substitute character (␚) is a control character. It is represented in the
place of a character that is identified to be invalid or incorrect, or in 
cases
when it can't be represented on a device used. Besides, it's used in the
role if an escape sequence in some programming languages.

(Let's not further discuss the CPM/DOS/Windows abuse of 0x1a (SUB).)

Alas, IBM too characteristically flaunts common practice:
SA23-2280-40  UNIX System Services Command Reference
iconv - Convert characters from one code set to another
-c  Characters containing conversion errors are not written to the output.
By default, characters not in the source character set are converted
to the value 0xff and written to the output.

Does "conversion errors" mean "invalid octet sequences" in the source
as well as characters valid in the source CCSID but having no equivalent
in the target charact set.  In the former case, how many 0xff are written?

(is "0xff" possibly a typo for "0x3f"?

Truly, if the target character set is ASCII-like the substitute character
should be 0x1a; if EBCDIC-like, 0x3f; if DBCS, ???, but not a single octet.


SC14-7314-40  XL C/C++ Runtime Library Reference
says:
iconv() — Code conversion
If a sequence of input bytes does not form a valid character in the
specified encoded character set, conversion stops after the previous
successfully converted character, and iconv() sets errno to EILSEQ.
...
If iconv() encounters a character in the input buffer that is valid, but
for which a conversion is not defined in the conversion descriptor, cd,
then iconv() performs a nonidentical conversion on this character.
The conversion is implementation-defined.

This document describes the z/OS implementation and should define
that conversion.

Do iconv and FTP both rely on that behavior?

I feel like a couple RCFs

-- gil









  

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

Re: FTP converting between UTF-8 and EBCDIC

[Seymour J Metz]

NFW; unless the documentation describes such bizarre behavior, it should *NOT* 
translate characters to SUB when there is a correct translation. If you want to 
preserve the length then use a character set in which all characters are 8 
bits, e.g., ISO-8869=15.


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



From: IBM Mainframe Discussion List  on behalf of 
Charles Mills 
Sent: Monday, November 16, 2020 4:14 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: FTP converting between UTF-8 and EBCDIC

If you tell FTP that the non-EBCDIC file is UTF-8 then FTP *should* convert
accented characters and such to EBCDIC SUB (X'3F') rather than to two bytes.
Should. YMMV.

Charles


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Frank Swarbrick
Sent: Monday, November 16, 2020 10:16 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: FTP converting between UTF-8 and EBCDIC

The record is made up of multiple fixed-length fields.  I guess the field in
question technically didn't overflow.  But rather it "expanded" the field by
one byte, pushing every other field one byte to the right.  Likely the
program that creates the file is treating the "field length" as the number
of characters, rather than the number of bytes.  I've actually asked them to
create the file as ISO-8859-1 instead of UTF-8, and if they're willing/able
to do that then this entire discussion is moot.  But I wanted to have this
as a backup solution.


From: IBM Mainframe Discussion List  on behalf of
Paul Gilmartin <000433f07816-dmarc-requ...@listserv.ua.edu>
Sent: Monday, November 16, 2020 10:55 AM
To: IBM-MAIN@LISTSERV.UA.EDU 
Subject: Re: FTP converting between UTF-8 and EBCDIC

On Mon, 16 Nov 2020 17:26:12 +, Frank Swarbrick wrote:

>Yes, it "overflowed" a fixed-length field.  x'C3A1' in the source file was
treated as two separate "ASCII" characters, x'C3' and x'A1'.  Since those
don't exist in the EBCDIC code page I am using they just get converted to
two "nonsense" characters.
>
How wide is that field?  You must have been on the bitter edge of the limit.
What happens if a client enters an actual surname exceeding the limit?

>I agree that ideally the input source would restrict the input.  But since
that's on another team, and this workaround is likely "good enough", that's
probably unlikely to happen.
>
What was the workaround you chose, converting to which EBCDIC CCSID?
Is there no possibility of a client's entering a character not in that
CCSID?
What happens if someone does?  Can you fuzz test or would that intrude
"on another team"?

I'd expect you need to do some filtering, perhaps to preclude SQL injection
downstream.  But that might be achieved by encoding.

(I guessed wrong: "á", not  "â".  Spellcheck flags both.)

-- gil

--
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: Other user trying to run my shell script gets "FSUM7351 not found" error

[Seymour J Metz]

That sounds like PATH is different in the two cases.


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



From: IBM Mainframe Discussion List  on behalf of 
Frank Swarbrick 
Sent: Monday, November 16, 2020 2:03 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Other user trying to run my shell script gets "FSUM7351 not found" 
error

Any thoughts on this?  I can execute this job and have no issue.  I'm trying to 
let another developer run it.  He's able to run /u/dvfjs/rocket/bin/curl 
directly (in STDPARM, following "SH ".)  But if he executes my shell script 
(/u/dvfjs/jira_test) he gets "/u/dvfjs/rocket/bin/curl: /u/dvfjs/jira_test 4: 
FSUM7351 not found".

I've set the read and execution bits for user, group and other for both curl 
and the jira_test shell script.  Since the "echo" commands are working for him, 
he's obviously able to execute my shell script itself.  What else might I be 
missing?  The other developer has an OMVS segment, but he doesn't have an 
initial working directory or default shell configured yet.  Could that be the 
issue?  If so, what specifically is causing this particular issue?

JCL:
//DVRJZTST JOB ,'Test',CLASS=C,REGION=0M,NOTIFY=
//*
//UNIX EXEC PGM=BPXBATCH
//STDOUT   DD SYSOUT=*
//STDERR   DD SYSOUT=*
//STDPARM  DD *
SH /u/dvfjs/jira_test
/*

/u/dvfjs/jira_test:
#!/bin/sh -x

echo **before**
/u/dvfjs/rocket/bin/curl --help
echo **after**

File attributes:
-sh|DVFJS:/u/dvfjs:>ls -FalTHp /u/dvfjs/jira_test
- untaggedT=off -rwxr-xr-x     1 DVFJSDEPT9971  77 Nov 16 12:24 
/u/dvfjs/jira_test
-sh|DVFJS:/u/dvfjs:>ls -FalTHp /u/dvfjs/rocket/bin/curl
- untaggedT=off -rwxr-xr-x     1 DVFJSDEPT9971 21266432 Nov  1  
2019 /u/dvfjs/rocket/bin/curl

STDERR:
FSUM1012 The initial working directory was not specified.
FSUM1006 A shell was not specified. Processing continues using the default 
shell name.
+ echo **before**
+ /u/dvfjs/rocket/bin/curl --help
/u/dvfjs/rocket/bin/curl: /u/dvfjs/jira_test 4:
+ echo **after**

STDOUT:
**before**
**after**



--
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: Sequence or procedure of getting new dasd

[R.S.]

W dniu 17.11.2020 o 05:15, Peter pisze:

Hello,

I am just trying to understand on how new pool of volume is created in DS8K
box , then what values are shared from DS8K with zOS system programmer to
the newly created LCU in IODF ?

Does the newly added DASD UCB needs a POR or just soft activation of IODF
holds good or we need a IPL ?

Any advise are much appreciated


There are two parts of the excercise:
1. DS8K configuration.
2. System part.

CAUTION: NEITHER IPL NOR POR IS REQUIRED. THIS IS MAINFRAME!

First part belongs to hardware engineer. It can be IBM CE or your 
colleague. Note: some DASD boxes cannot be configured by user depending 
of vendor approach.

In this part CE configure CUs, number of base devices and aliases.
Output: CUADD (Logical CU number), UA scope for 3390B and UA scope for 
aliases (usually the remain of 256)

To simplify I assume there are no tricks with CU to channel assignments.

Second part is system administrator work.
You get list of CUs with the number of 3390B's and 3390A's.
You define it in IODF using HCD.
Then ACTIVATE.
Voila - you have new devices in your system. With no outage.

Then VARY dev ONLINE
Then ICKDSF
Then VVDS
Then DFSMS storage groups.


HTH



BTW: I cannot remain *any* IPL of POR when added new DASD box to the 
system. Even I/O cards can be added dynamically.

Of course this is my limited 20 years experience in few shops.
Tapes are completely different... that means no IPL as well ;-)

--
Radoslaw Skorupka
Lodz, Poland





==

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: FTP converting between UTF-8 and EBCDIC

[Cameron Conacher]

I just run a batch JOB. I set the FROMCODE to 1208 and the TOCODE to IBM-1047

Sent from my iPhone

> On Nov 16, 2020, at 8:09 PM, Wayne Bickerdike  wrote:
> 
> I use iconv too. Had to jump through some hoops to get ASCII event binds to
> new environments.
> 
> I use something along the lines of iconv -f IBM-1047 -t ISO8859 FIX1 > $5
> 
> This is done after a sed command to do some string conversion..
> 
>> On Tue, Nov 17, 2020 at 11:06 AM Cameron Conacher 
>> wrote:
>> 
>> You could send it in binary and then use iconv to transform to EBCDIC.
>> 
>> Sent from my iPhone
>> 
>>> On Nov 16, 2020, at 4:27 PM, Frank Swarbrick <
>> frank.swarbr...@outlook.com> wrote:
>>> 
>>> Originally (current production mode) there is no SBDATACONN/MBDATACONN
>> specified, so z/OS is not treating the file as UTF-8.  It works fine when
>> we specify "site mbdataconn=(ibm-1140,utf-8) encoding=mbcs".
>>> 
>>> 
>>> From: IBM Mainframe Discussion List  on
>> behalf of Charles Mills 
>>> Sent: Monday, November 16, 2020 2:14 PM
>>> To: IBM-MAIN@LISTSERV.UA.EDU 
>>> Subject: Re: FTP converting between UTF-8 and EBCDIC
>>> 
>>> If you tell FTP that the non-EBCDIC file is UTF-8 then FTP *should*
>> convert
>>> accented characters and such to EBCDIC SUB (X'3F') rather than to two
>> bytes.
>>> Should. YMMV.
>>> 
>>> Charles
>>> 
>>> 
>>> -Original Message-
>>> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
>>> Behalf Of Frank Swarbrick
>>> Sent: Monday, November 16, 2020 10:16 AM
>>> To: IBM-MAIN@LISTSERV.UA.EDU
>>> Subject: Re: FTP converting between UTF-8 and EBCDIC
>>> 
>>> The record is made up of multiple fixed-length fields.  I guess the
>> field in
>>> question technically didn't overflow.  But rather it "expanded" the
>> field by
>>> one byte, pushing every other field one byte to the right.  Likely the
>>> program that creates the file is treating the "field length" as the
>> number
>>> of characters, rather than the number of bytes.  I've actually asked
>> them to
>>> create the file as ISO-8859-1 instead of UTF-8, and if they're
>> willing/able
>>> to do that then this entire discussion is moot.  But I wanted to have
>> this
>>> as a backup solution.
>>> 
>>> 
>>> From: IBM Mainframe Discussion List  on
>> behalf of
>>> Paul Gilmartin <000433f07816-dmarc-requ...@listserv.ua.edu>
>>> Sent: Monday, November 16, 2020 10:55 AM
>>> To: IBM-MAIN@LISTSERV.UA.EDU 
>>> Subject: Re: FTP converting between UTF-8 and EBCDIC
>>> 
 On Mon, 16 Nov 2020 17:26:12 +, Frank Swarbrick wrote:
 
 Yes, it "overflowed" a fixed-length field.  x'C3A1' in the source file
>> was
>>> treated as two separate "ASCII" characters, x'C3' and x'A1'.  Since those
>>> don't exist in the EBCDIC code page I am using they just get converted to
>>> two "nonsense" characters.
 
>>> How wide is that field?  You must have been on the bitter edge of the
>> limit.
>>> What happens if a client enters an actual surname exceeding the limit?
>>> 
 I agree that ideally the input source would restrict the input.  But
>> since
>>> that's on another team, and this workaround is likely "good enough",
>> that's
>>> probably unlikely to happen.
 
>>> What was the workaround you chose, converting to which EBCDIC CCSID?
>>> Is there no possibility of a client's entering a character not in that
>>> CCSID?
>>> What happens if someone does?  Can you fuzz test or would that intrude
>>> "on another team"?
>>> 
>>> I'd expect you need to do some filtering, perhaps to preclude SQL
>> injection
>>> downstream.  But that might be achieved by encoding.
>>> 
>>> (I guessed wrong: "á", not  "â".  Spellcheck flags both.)
>>> 
>>> -- gil
>>> 
>>> --
>>> 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
>> 
> 
> 
> -- 
> Wayne V. Bickerdike
> 
> --
> For IBM-MAIN subscribe /