Re: [EXTERNAL] Re: Send an email with a Zip file as an attachment?

[Barkow, Eileen]

I used to run this with XMITIP - email attachment is in separate  file, either 
HFS or MVS

//XMIT EXEC XMITIP,COND=((0,NE),(0,EQ))
//*HFS1 DD PATH='/u/eileen/tmp/statfile/edupstat.zip',
//*  PATHDISP=(KEEP,KEEP) PATHMODE=SIRXU
//HFS1 DD DSN=X.MACS.ZIP,DISP=SHR
//SYSIN DD *
  %XMITIP   (ebar...@doitt.nyc.gov) +
  CC(ebar...@doitt.nyc.gov) +
  FROM  "EILEEN BARKOW" +
  SUBJECT 'ZIPPED MACS-restore with tso receive' +
  FORMAT BIN/zip+
 FILEDD HFS1
 /*
//


-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Carmen Vitullo
Sent: Wednesday, April 27, 2022 12:54 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: [EXTERNAL] Re: Send an email with a Zip file as an attachment?

CAUTION: This email originated from outside of the organization. Do not click 
links or open attachments unless you recognize the sender and know the content 
is safe.  Forward suspect email to ph...@cyber.nyc.gov as an attachment (Click 
the More button, then forward as attachment).

I'm not sure what this additional parameter does

BOUNDARY="SIMPLE BOUNDARY"
I don't use that parm in my test job
I think maybe the best option is to try XMIT/IP I actually may have that tool 
also, I can check Carmen

On 4/27/2022 11:28 AM, Sasso, Len wrote:
> BOUNDARY="SIMPLE BOUNDARY"
--
/I am not bound to win, but I am bound to be true. I am not bound to succeed, 
but I am bound to live by the light that I have. I must stand with anybody that 
stands right, and stand with him while he is right, and part with him when he 
goes wrong. *Abraham Lincoln*/

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



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

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

Re: [EXTERNAL] Re: article about ransomeware and mainframe

[Barkow, Eileen]

Thanks David. I passed your comments along to Paul

Eileen Barkow CICS Systems Programmer 
NYC Information Technology & Telecommunications 
2 MTC 2 FL Brooklyn,NY,11201

718.403.8649
917.436 0508

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
David Spiegel
Sent: Tuesday, December 21, 2021 9:02 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: [EXTERNAL] Re: article about ransomeware and mainframe

CAUTION: This email originated from outside of the organization. Do not click 
links or open attachments unless you recognize the sender and know the content 
is safe.  Forward suspect email to ph...@cyber.nyc.gov as an attachment (Click 
the More button, then forward as attachment).

Hi Eileen,
I read the article and there seems to be more than one elementary mistake:
"... IBM's modern mainframe series started with the 360 up to its current z/OS 
series ..." 360 is software is hardware, z/OS is software "... Mainframes today 
do not actually run-on discretionary access control; rather, they run on a 
mezzanine level of control called role-based access control 
<https://gcc02.safelinks.protection.outlook.com/?url=https%3A%2F%2Fwww.google.com%2Furl%3Fq%3Dhttps%253A%252F%252Fresources.infosecinstitute.com%252Fcertification%252Faccess-control-models-and-methods%26sa%3DD%26sntz%3D1%26usg%3DAFQjCNE49XmkPDVpRMSyE9lkbFngLP-shAdata=04%7C01%7Cebarkow%40doitt.nyc.gov%7C941f8ee38114414c9e2008d9c48a7add%7C73d61799c28440228d4154cc4f1929ef%7C0%7C0%7C637756921327426328%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C3000sdata=LjEQugrEUdn4ofIX9%2FP8OEaPRvtpcTAthHygGiBwGZQ%3Dreserved=0>
.../". /This statement is true ONLY IF individual USERIds are not given access 
to any resource. It is not default behaviour.
"... IDs run with a UNIX/Linux SUID of 0. ..." Maybe "UID" instead?
"... PC or a Mac that can run TN3270-emulation software. ..." Linux (not
mentioned) is more likely to be used than Mac "... All vendor-supplied and IBM 
software must be audited for SUID = 0 ..." Again, UID, not, SUID "...The 
authorized program facility (APF) library must be monitored for all access 
because programs running from this library can change a normal ID to a 
privileged ID. ..." This library?! APF Lists can be hundreds of Datasets.

Regards,
David

On 2021-12-21 08:36, Barkow, Eileen wrote:
> This article was written by Paul Renda, who is one of our colleagues in the 
> RACF security group.
>
>
>
> https://gcc02.safelinks.protection.outlook.com/?url=https%3A%2F%2Fwww.
> realcleardefense.com%2Fdata=04%7C01%7Cebarkow%40doitt.nyc.gov%7C9
> 41f8ee38114414c9e2008d9c48a7add%7C73d61799c28440228d4154cc4f1929ef%7C0
> %7C0%7C637756921327426328%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAi
> LCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C3000sdata=Bhk%2F
> 3SUrFAIiasKShecjSxHTQmBVWdwrWUhnwulhF08%3Dreserved=0
>
>
>
> 
>
> This e-mail, including any attachments, may be confidential, privileged or 
> otherwise legally protected. It is intended only for the addressee. If you 
> received this e-mail in error or from someone who was not authorized to send 
> it to you, do not disseminate, copy or otherwise use this e-mail or its 
> attachments. Please notify the sender immediately by reply e-mail and delete 
> the e-mail from your system.
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions, send 
> email tolists...@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: article about ransomeware and mainframe

[Barkow, Eileen]

This is the real link to the article

https://public.milcyber.org/activities/magazine/articles/2021/renda-ransomware-and-the-ibm-zos-mainframe-big-iron



From: Barkow, Eileen
Sent: Tuesday, December 21, 2021 8:37 AM
To: IBM Mainframe Discussion List (IBM-MAIN@listserv.ua.edu) 

Cc: Renda, Paul 
Subject: article about ransomeware and mainframe


This article was written by Paul Renda, who is one of our colleagues in the 
RACF security group.



https://gcc02.safelinks.protection.outlook.com/?url=https%3A%2F%2Fwww.realcleardefense.com%2Fdata=04%7C01%7CEBarkow%40doitt.nyc.gov%7C83d7e2a8d8c94c3ef06a08d9c47eacc6%7C73d61799c28440228d4154cc4f1929ef%7C0%7C0%7C637756870611033992%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C3000sdata=cJPoABb4zN%2BjjdtzetU936rkBhnnnSgSlROmjbCDsfw%3Dreserved=0





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

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

article about ransomeware and mainframe

[Barkow, Eileen]

This article was written by Paul Renda, who is one of our colleagues in the 
RACF security group.



https://gcc02.safelinks.protection.outlook.com/?url=https%3A%2F%2Fwww.realcleardefense.com%2Fdata=04%7C01%7CEBarkow%40doitt.nyc.gov%7C83d7e2a8d8c94c3ef06a08d9c47eacc6%7C73d61799c28440228d4154cc4f1929ef%7C0%7C0%7C637756870611033992%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C3000sdata=cJPoABb4zN%2BjjdtzetU936rkBhnnnSgSlROmjbCDsfw%3Dreserved=0





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

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

Re: [EXTERNAL] Re: Spool entire job to a file?

[Barkow, Eileen]

There is a redbook named 'IMPLEMENTING REXX SUPPORT IN SDSF' which contains a 
chapter about copying sysout datasets to a  PDS, among a lot of other examples.

ibm.com/redbooks

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
kekronbekron
Sent: Wednesday, August 18, 2021 10:22 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: [EXTERNAL] Re: Spool entire job to a file?

THIS MESSAGE IS FROM AN EXTERNAL SENDER
Use caution when clicking on links or attachments and never provide your 
username or password. Not sure? Report this email to ph...@cyber.nyc.gov.





What I do is:

- type in a + in the NP column to expand it
- sort pos a (oldest job comes at the top)
- //xdc on the top job
- // on the bottom job
- enter some PDS name with MOD and name the members @JOB01... so that you can 
press enter, change 1 to 2, press enter, change 2 to 3, etc.

Savings JCLs itself... well... better if they were saved in a PDS before they 
were run.
Like in an .INSTALL PDS.

- KB

‐‐‐ Original Message ‐‐‐

On Wednesday, August 18th, 2021 at 7:45 PM, David Spiegel 
 wrote:

> Yeah, but, that won't split it into members.
>
> On 2021-08-18 09:52, Mark Jacobs wrote:
>
> > Use the JES2 external writer perhaps.
> >
> > Mark Jacobs
> >
> > Sent from ProtonMail, Swiss-based encrypted email.
> >
> > GPG Public Key -
> > https://gcc02.safelinks.protection.outlook.com/?url=https%3A%2F%2Fap
> > i.protonmail.ch%2Fpks%2Flookup%3Fop%3Dget%26search%3Dmarkjacobs%40pr
> > otonmail.comdata=04%7C01%7Cebarkow%40doitt.nyc.gov%7C564d2b82ec
> > b644dc67c108d96253eab6%7C73d61799c28440228d4154cc4f1929ef%7C0%7C0%7C
> > 637648934901701771%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQI
> > joiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000sdata=iNDQeIcw1
> > 9XfFV5YDyFIvSQPOMaDKcrAv0PuhmP%2FVjc%3Dreserved=0
> >
> > ‐‐‐ Original Message ‐‐‐
> >
> > On Wednesday, August 18th, 2021 at 9:46 AM, Billy Ashton 
> > bill00ash...@gmail.com wrote:
> >
> > > Hi all...I have a need to run a bunch of jobs to do some changes
> > > to
> > >
> > > files, and we want to preserve the output of all these jobs for
> > >
> > > auditors. Is there a way to use an OUTPUT statement or something
> > > in the
> > >
> > > job itself that can redirect the entire job output to a PDS
> > > member? We
> > >
> > > don't have a Spooler utility on this LPAR, so I am trying to find
> > > an
> > >
> > > easy way to capture these jobs.
> > >
> > > TIA!
> > >
> > > Billy
> > >
> > > 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



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

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

Re: DISPLAY VTAM commands from TSO CONSOLE

[Barkow, Eileen]

Don't you need  an E on the command:  10:06:05.30 SYSTVPSC 0290  DISPLAY 
NET,ID=SYSTP011,E

Eileen Barkow  ebar...@doitt.nyc.gov
CICS systems
Desk: 718-403-8649
Cell:   917-436-0508

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Charles Mills
Sent: Wednesday, May 5, 2021 3:08 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: DISPLAY VTAM commands from TSO CONSOLE

Can you post your code with CART and a two-second delay?

Charles


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Tom Sims
Sent: Wednesday, May 5, 2021 11:23 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: DISPLAY VTAM commands from TSO CONSOLE

Thanks, I've tried with/without CART, as well as waiting up to 2 minutes for 
responses, with no change in the dreary outcome.

/Tom

On 5/5/2021 11:16 AM, Seymour J Metz wrote:
> Program in a delay.. I'd also suggest using a CART.
>
>
> --
> Shmuel (Seymour J.) Metz
> https://gcc02.safelinks.protection.outlook.com/?url=http:%2F%2Fmason.g
> mu.edu%2F~smetz3data=04%7C01%7Cebarkow%40doitt.nyc.gov%7Ca1b15510
> 5c0046ef07a208d90ff92367%7C73d61799c28440228d4154cc4f1929ef%7C0%7C0%7C
> 637558384986563144%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjo
> iV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000sdata=bOfb9u8wHF4kF
> ACTUyUcftdN0S%2BH%2BD7vl7kb5R%2ByVwk%3Dreserved=0
>
> 
> From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on
> behalf of Tom Sims [trs...@att.net]
> Sent: Wednesday, May 5, 2021 2:10 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: DISPLAY VTAM commands from TSO CONSOLE
>
> I am having difficulty obtaining predictable and repeatable results
> from DISPLAY VTAM commands in TSO CONSOLE.
>
> In all cases, the first response is returned, e.g., for processing via
> getmsg():
>
> 10:06:05.30 SYSTVPSC 0290  DISPLAY NET,ID=SYSTP011
> 10:06:05.31 SYSTVPSC 0090  IST097I DISPLAY ACCEPTED
>
> All too often, though, the subsequent detail display is not, and
> getmsg() returns, e.g., by msgresp.0 a number of lines=1 and nothing
> beyond, so though these are in the syslog, they are not returned to my exec:
>
> 10:06:05.31 SYSTVPSC 0090  IST075I NAME = NETNAME.SYSTP011
>783 0090  IST486I STATUS= ACTIV, DESIRED...etc.
>
> I think I have tried every combination of CONSPROF and getmsg() parms,
> nothing seems to work.
>
> Any idea what I'm missing?  Thanks in advance,
>
> Tom Sims
> Trident Services, Inc.
>
> --
> 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



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

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

Re: Format PDS unloaded on an CD

[Barkow, Eileen]

Is the pds a fixed length text file?
If not, first copy it to a fixed length unblocked text file on the mainframe 
and then download with ftp.

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Hilario Garcia
Sent: Monday, April 19, 2021 11:46 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Format PDS unloaded on an CD

Hello,

I have tried to upload the files through both the native FTP protocol and 
through FILEZILLA. The problem is the same as the format of the file received 
is not correct.

Would you recommend me to take any other action to solve the problem?

Thank you very much in advance.

Kind Regards

Hilario


El lun, 19 abr 2021 a las 14:37, Barkow, Eileen (<
02bc504b1642-dmarc-requ...@listserv.ua.edu>) escribió:

> Another way to copy a PDS to the pc is with ftp.
>  cd to a pc directory  and run a  command line ftp program initiated 
> from the pc and issue commands:  (I use MOVE IT FREELY):
>  cd  'MAINFRAME.PDS'
> ftp  ftp parmsHOST NAME PORT
>   mget(*)
>
> Each member will be downloaded to the pc directory.
>
> Eileen Barkow  ebar...@doitt.nyc.gov
> CICS systems
> Desk: 718-403-8649
> Cell:   917-436-0508
>
> -Original Message-
> From: IBM Mainframe Discussion List  On 
> Behalf Of Joe Monk
> Sent: Monday, April 19, 2021 8:23 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Format PDS unloaded on an CD
>
> OK ...  maybe now we're getting  somewhere...
>
> I think we  are having a case of deja vu here. Going back thru the 
> archives I found where the exact same dataset was created in 2007:
>
>  -Original Message-
>  From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On  
> Behalf Of David Day
>  Sent: Thursday, May 24, 2007 5:34 PM
>  To: ibm-m...@bama.ua.edu
>  Subject: IEBCOPY Unloaded dataset to PC and back again...not 
> successful
>
>  I used IEBCOPY to create a sequentail backup of an ISPF  panel  library.
> I then used IND$FILE to transfer the dataset to my PC.  Thought  I'd 
> test the backup out by transferring back to the mainframe, and got the 
> following when I tried to use IEBCOPY to load the members back.
>
>  STEP1COPY  INDD=SYSUT1,OUTDD=SYSUT2 GENERATED STATEMENT  IEB1128I ***
> COPYR1 (1ST PDSU PHYSICAL RECORD)
>009400   1810 180C0100 00CA6D0F 02001810  |  _ |
>009410 0010  00509000 1810 3030200F 7FF8  | 8|
>009420 0020  0D0C000F E5A2 2250 0002006B  |Vs,|
>009430 0030  008F 0080 0F000B08 A912  |z   |
>009440 0040  7F00 80807FF8 8800 0012  | 8  h |
>009450 0050  6A78 1810 0200 9440  |  |   m |
>009460 0060  6AA8 0C0067E8 6AA0 8800  |  |y   Y  |   h |
>009470 00700002 3F000900  ||
>009480 0080  0612 20007FF8|  8|
>009490 0090   ||
>  IEB120I SYSUT1   VALIDATION ERROR
>  IEB178I NOT AN IEBCOPY UNLOADED DATA SET - 1ST PHYSICAL RECORD NOT 64 
> BYTES LONG - ACTUAL VALUE IS X'001810'
>
>   The IND$FILE for the GET or PUT operation did not specify CRLF as a 
> parameter.  Can someone tell me what I did wrong, or if there is a 
> 'better' way to backup PDS data on a PC.  Thanks.
>
>  --Dave Day
>
>
> So,  now  you know what  you  have. An ISPF panel library, that was 
> unloaded via  IEBCOPY, then IND$FILE to a PC without  specifying  CRLF 
> then back to the mainframe.
>
> Joe
>
>
> On Mon, Apr 19, 2021 at 4:04 AM Hilario Garcia  wrote:
>
> > Hello,
> >
> > Thank you very much for your answer. I had already tried the 
> > solution you recommended and it gave me the following problem:
> >
> > IEBCOPY  COPY  INDD=SYSUT1,OUTDD=SYSUT2 GENERATED STATEMENT
> >
> > IEB1128I *** COPYR1 (1ST PDSU PHYSICAL RECORD)
> >
> >   0094A0 FFF8    7FE4 7FE0  |"U  "\  |
> >
> >   0094B0 0008  00CA6D0F 020018B0 00509000 00807FF8  |  _  &"8|
> >
> >   0094C0 0018  3030200F 7FF8 2721000F E5A2  |  "8Vs  |
> >
> >   0094D0 0028  2252 0002006B 00DE 0080  |   ,|
> >
> >   0094E0 0038  01000B07 6930 7F00 80807FF8  |" "8|
> >
> >   0094F0 0048  8800 0011F000 6540 7FE4  |  h   0   "U|
> >
> >   009500 0058  0200 94E8 6570 0C14  |  mY|
> >
> >   009510 0068  6568 8800    |  h |
> >
> >   009520 0078   16000400 0611F000 20007FF8  |  0   "8|
> >
> >   009530 0088       ||
> >
> >   009540 0098       ||
> >
> > IEB120I SYSUT1   VALIDATION ERROR
> >
> > IEB178I NOT AN IEBCOPY

Re: Format PDS unloaded on an CD

[Barkow, Eileen]

Another way to copy a PDS to the pc is with ftp.
 cd to a pc directory  and run a  command line ftp program initiated from the 
pc and issue commands:  (I use MOVE IT FREELY):
 cd  'MAINFRAME.PDS'
ftp  ftp parmsHOST NAME PORT
  mget(*)

Each member will be downloaded to the pc directory.

Eileen Barkow  ebar...@doitt.nyc.gov
CICS systems
Desk: 718-403-8649
Cell:   917-436-0508

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of Joe 
Monk
Sent: Monday, April 19, 2021 8:23 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Format PDS unloaded on an CD

OK ...  maybe now we're getting  somewhere...

I think we  are having a case of deja vu here. Going back thru the archives I 
found where the exact same dataset was created in 2007:

 -Original Message-
 From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On  Behalf Of 
David Day
 Sent: Thursday, May 24, 2007 5:34 PM
 To: ibm-m...@bama.ua.edu
 Subject: IEBCOPY Unloaded dataset to PC and back again...not successful

 I used IEBCOPY to create a sequentail backup of an ISPF  panel  library.  I 
then used IND$FILE to transfer the dataset to my PC.  Thought  I'd test the 
backup out by transferring back to the mainframe, and got the  following when I 
tried to use IEBCOPY to load the members back.

 STEP1COPY  INDD=SYSUT1,OUTDD=SYSUT2 GENERATED STATEMENT  IEB1128I *** COPYR1 
(1ST PDSU PHYSICAL RECORD)
   009400   1810 180C0100 00CA6D0F 02001810  |  _ |
   009410 0010  00509000 1810 3030200F 7FF8  | 8|
   009420 0020  0D0C000F E5A2 2250 0002006B  |Vs,|
   009430 0030  008F 0080 0F000B08 A912  |z   |
   009440 0040  7F00 80807FF8 8800 0012  | 8  h |
   009450 0050  6A78 1810 0200 9440  |  |   m |
   009460 0060  6AA8 0C0067E8 6AA0 8800  |  |y   Y  |   h |
   009470 00700002 3F000900  ||
   009480 0080  0612 20007FF8|  8|
   009490 0090   ||
 IEB120I SYSUT1   VALIDATION ERROR
 IEB178I NOT AN IEBCOPY UNLOADED DATA SET - 1ST PHYSICAL RECORD NOT 64  BYTES 
LONG - ACTUAL VALUE IS X'001810'

  The IND$FILE for the GET or PUT operation did not specify CRLF as a  
parameter.  Can someone tell me what I did wrong, or if there is a  'better' 
way to backup PDS data on a PC.  Thanks.

 --Dave Day


So,  now  you know what  you  have. An ISPF panel library, that was unloaded 
via  IEBCOPY, then IND$FILE to a PC without  specifying  CRLF then back to the 
mainframe.

Joe


On Mon, Apr 19, 2021 at 4:04 AM Hilario Garcia  wrote:

> Hello,
>
> Thank you very much for your answer. I had already tried the solution
> you recommended and it gave me the following problem:
>
> IEBCOPY  COPY  INDD=SYSUT1,OUTDD=SYSUT2 GENERATED STATEMENT
>
> IEB1128I *** COPYR1 (1ST PDSU PHYSICAL RECORD)
>
>   0094A0 FFF8    7FE4 7FE0  |"U  "\  |
>
>   0094B0 0008  00CA6D0F 020018B0 00509000 00807FF8  |  _  &"8|
>
>   0094C0 0018  3030200F 7FF8 2721000F E5A2  |  "8Vs  |
>
>   0094D0 0028  2252 0002006B 00DE 0080  |   ,|
>
>   0094E0 0038  01000B07 6930 7F00 80807FF8  |" "8|
>
>   0094F0 0048  8800 0011F000 6540 7FE4  |  h   0   "U|
>
>   009500 0058  0200 94E8 6570 0C14  |  mY|
>
>   009510 0068  6568 8800    |  h |
>
>   009520 0078   16000400 0611F000 20007FF8  |  0   "8|
>
>   009530 0088       ||
>
>   009540 0098       ||
>
> IEB120I SYSUT1   VALIDATION ERROR
>
> IEB178I NOT AN IEBCOPY UNLOADED DATA SET - 1ST PHYSICAL RECORD NOT 64
> BYTES LONG
> IEB1030I DDNAME SYSUT1   REFERS TO PDSU DATA SET ON VOLUME SS NAMED
> IBMUSER.
> IEB1030I DDNAME SYSUT2   REFERS TO PDS  DATA SET ON VOLUME SS NAMED
> IBMUSER.
> IEB166I NO MEMBERS LOADED TO DATA SET REFERENCED BY SYSUT2
>
> IEB151I JOB HAS TERMINATED WITH ERROR(S)
>
> IEB147I END OF JOB - 8 WAS HIGHEST SEVERITY CODE
>
>
> Do you recommend any other possible solution.
>
> Thank you very much in advance.
>
> Kind Regards
>
> Hilario
>
> El lun, 19 abr 2021 a las 10:29, Styles, Andy (ITS zPlatform Services)
> (<
> 00d68f765d25-dmarc-requ...@listserv.ua.edu>) escribió:
>
> > Classification: Public
> >
> > I wonder if these are IEBCOPY unload format - that is, IEBCOPY from
> > a PDS to a PS.  It's been years since I had to deal with those,
> > probably since
> I
> > installed products directly from a vendor tape (one of those round
> > things with the write-protect ring).
> >
> > IEBCOPY seems to create unload format dasd datasets (here, at least)
> > as
> >
> > Organization  . . . : PS
> > Record format . . . : VS
> > Record length . . . : 32736
> > Block size  . . . . : 32740
> >
> > Worth uploading one of those files as binary and then using an
> > IEBCOPY PS to PDS to reload it?
> >
> > Andy Styles
> > z/Series System Programmer
> >
> > -Original Message-
> > From: IBM Mainframe Discussion List  On
> > Behalf Of Hilario Garcia

Re: Auto Reply on SDSF Console

[Barkow, Eileen]

All I know is that in the past I was not able to use the STRIP function in 
NETVIEW - I remember researching the issue at the time and
 comparing TSO REXX to NETVIEW REXX. Even if  STRIP worked in native NETVIEW, 
it did not work with automation.



-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Seymour J Metz
Sent: Monday, November 30, 2020 9:36 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Auto Reply on SDSF Console

That appears to refer to native NetView EXECs, not to REXX NetView EXECs.


--
Shmuel (Seymour J.) Metz
https://gcc02.safelinks.protection.outlook.com/?url=http:%2F%2Fmason.gmu.edu%2F~smetz3data=04%7C01%7Cebarkow%40doitt.nyc.gov%7Cf41932c3f1b34c1dd85808d8953d50b4%7C73d61799c28440228d4154cc4f1929ef%7C0%7C0%7C637423437879873577%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000sdata=sUAJNNMIBNm56iEACV%2Fz2oO2tM4PQksfPl3CHq6ImiA%3Dreserved=0


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Barkow, Eileen [02bc504b1642-dmarc-requ...@listserv.ua.edu]
Sent: Monday, November 30, 2020 9:30 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Auto Reply on SDSF Console

APAR Identifier .. OA36757  Last Changed  11/09/02
  STRIP FUNCTION TO STRIP OFF LEADING AND TRAILING BLANKS
  FROM A VARIABLE VALUE

  Symptom .. NF NEWFUNCTION   Status ... CLOSED  UR1
  Severity ... 3  Date Closed . 11/08/01
  Component .. 5697NV600  Duplicate of 
  Reported Release . 10B  Fixed Release  999
  Component Name NETVIEW FOR Z/O  Special Notice   ATTENTION
  Current Target Date ..11/08/15  Flags
  SCP ...NEW FUNCTION
  Platform 


  Status Detail: SHIPMENT - Packaged solution is available for
shipment.

  PE PTF List:

  PTF List:
  Release 10B   : UA61616 available 11/08/16 (F108 )


  Parent APAR:OA35722
  Child APAR list:


  ERROR DESCRIPTION:
  New function, called STRIP, that would strip off leading and
  trailing blanks from a variable value.
  This function could only be specified in the CMD string in an
  EXEC, and would specify the variable that would be stripped
  of blanks.


  LOCAL FIX:


  PROBLEM SUMMARY:
  
  * USERS AFFECTED: All users ot Tivoli NetView for z/OS.*
  
  * PROBLEM DESCRIPTION: When a command is executed as a result  *
  *  of an automation table EXEC statement,  *
  *  if any variable values contain leading  *
  *  or trailing blanks, the resulting   *
  *  command may fail, for example, if a *
  *  blank signifies the end of the command  *
  *  string. *
  
  * RECOMMENDATION:  *
  
  After NetView automation table processing constructs a command
  from constant strings (in quotation marks) and variables defined
  in the automation table (not in quotation marks), there is no
  way to ensure that the resulting command does not contain
  blanks. If a variable value contains blanks, and the resulting
  command does not work properly because of those blanks, NetView
  does not provide a way to strip off those blanks to allow the
  command to work.


  PROBLEM CONCLUSION:


  TEMPORARY FIX:


  COMMENTS:
  A new function, called STRIP, is being provided in automation
  table processing which can be specified in the command string in
  an EXEC statement. When specified, the variable value, without
  leading or trailing blanks or hex zeroes will be used instead of
  the variable value as specified.

  The Tivoli NetView for z/OS V6R1 Automation Guide (SC27-2846-00)
  should be changed as follows:
   In Chapter 15, The Automation Table, in the section named
   Actions, in the description of the EXEC action, in the
   description of 'cmdstring', the following should be added after
   the first paragraph:

 Because variable values could contain leading or trailing
 blanks which could cause the command to fail, you can use the
 STRIP function to strip off leading and trailing blanks or
 hexadecimal zeroes.

   Syntax: STRIP(varname)
 where 'varname' is the variable name whose value without
 leading and trailing blanks and hexadecimal zeroes is to
 be inserted into the command.


  MODULES/MACROS:   DSIAMCMD DSIMACTN DSIMCT   DSIMPRS


  SRLS:  SC27284600


  RTN CODES:


  CIRCUMVENTION:
  Instead of invoking the necessary command string from

Re: Auto Reply on SDSF Console

[Barkow, Eileen]

APAR Identifier .. OA36757  Last Changed  11/09/02
  STRIP FUNCTION TO STRIP OFF LEADING AND TRAILING BLANKS
  FROM A VARIABLE VALUE

  Symptom .. NF NEWFUNCTION   Status ... CLOSED  UR1
  Severity ... 3  Date Closed . 11/08/01
  Component .. 5697NV600  Duplicate of 
  Reported Release . 10B  Fixed Release  999
  Component Name NETVIEW FOR Z/O  Special Notice   ATTENTION
  Current Target Date ..11/08/15  Flags
  SCP ...NEW FUNCTION
  Platform 


  Status Detail: SHIPMENT - Packaged solution is available for
shipment.

  PE PTF List:

  PTF List:
  Release 10B   : UA61616 available 11/08/16 (F108 )


  Parent APAR:OA35722
  Child APAR list:


  ERROR DESCRIPTION:
  New function, called STRIP, that would strip off leading and
  trailing blanks from a variable value.
  This function could only be specified in the CMD string in an
  EXEC, and would specify the variable that would be stripped
  of blanks.


  LOCAL FIX:


  PROBLEM SUMMARY:
  
  * USERS AFFECTED: All users ot Tivoli NetView for z/OS.*
  
  * PROBLEM DESCRIPTION: When a command is executed as a result  *
  *  of an automation table EXEC statement,  *
  *  if any variable values contain leading  *
  *  or trailing blanks, the resulting   *
  *  command may fail, for example, if a *
  *  blank signifies the end of the command  *
  *  string. *
  
  * RECOMMENDATION:  *
  
  After NetView automation table processing constructs a command
  from constant strings (in quotation marks) and variables defined
  in the automation table (not in quotation marks), there is no
  way to ensure that the resulting command does not contain
  blanks. If a variable value contains blanks, and the resulting
  command does not work properly because of those blanks, NetView
  does not provide a way to strip off those blanks to allow the
  command to work.


  PROBLEM CONCLUSION:


  TEMPORARY FIX:


  COMMENTS:
  A new function, called STRIP, is being provided in automation
  table processing which can be specified in the command string in
  an EXEC statement. When specified, the variable value, without
  leading or trailing blanks or hex zeroes will be used instead of
  the variable value as specified.

  The Tivoli NetView for z/OS V6R1 Automation Guide (SC27-2846-00)
  should be changed as follows:
   In Chapter 15, The Automation Table, in the section named
   Actions, in the description of the EXEC action, in the
   description of 'cmdstring', the following should be added after
   the first paragraph:

 Because variable values could contain leading or trailing
 blanks which could cause the command to fail, you can use the
 STRIP function to strip off leading and trailing blanks or
 hexadecimal zeroes.

   Syntax: STRIP(varname)
 where 'varname' is the variable name whose value without
 leading and trailing blanks and hexadecimal zeroes is to
 be inserted into the command.


  MODULES/MACROS:   DSIAMCMD DSIMACTN DSIMCT   DSIMPRS


  SRLS:  SC27284600


  RTN CODES:


  CIRCUMVENTION:
  Instead of invoking the necessary command string from the
  EXEC statement in the automation table, specify a CLIST to be
  executed, passing the appropriate parameters, which will itself
  use the REXX STRIP() function and execute the desired command.


  MESSAGE TO SUBMITTER:



-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Jeremy Nicoll
Sent: Monday, November 30, 2020 9:15 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Auto Reply on SDSF Console

On Mon, 30 Nov 2020, at 14:00, Barkow, Eileen wrote:
> Sorry about that. I see that STRIP is available in NETVIEW REXX now.
> it was not a few releases ago when I tried to use it.

I have a handful of copies of old netview execs here.  I'm looking now at one I 
wrote in 1996 and it uses strip().

--
Jeremy Nicoll - my opinions are my own.

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



This e-mail, including any attachments, may be confidential, privileged or 
otherwise legally protected. It is intended only for the addressee. If you 
received this e-mail in error or from someone who was not authorized t

Re: Auto Reply on SDSF Console

[Barkow, Eileen]

Sorry about that. I see that STRIP is available in NETVIEW REXX now. it was not 
a few releases ago when I tried to use it.


-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Seymour J Metz
Sent: Monday, November 30, 2020 8:44 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Auto Reply on SDSF Console

Where is that documented? As far as I can tell Netview doesn't have its own 
REXX interpreter, but rather uses TSO/E REXX and the REXX compiler product.


--
Shmuel (Seymour J.) Metz
https://gcc02.safelinks.protection.outlook.com/?url=http:%2F%2Fmason.gmu.edu%2F~smetz3data=04%7C01%7Cebarkow%40doitt.nyc.gov%7C88206f8b4de84177ad8608d8953627b0%7C73d61799c28440228d4154cc4f1929ef%7C0%7C0%7C637423407115960543%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000sdata=c4E8YPua2%2BM31U29JLtIEiH80jY8TxZ8ef%2Bu5MYPT5o%3Dreserved=0


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Barkow, Eileen [02bc504b1642-dmarc-requ...@listserv.ua.edu]
Sent: Monday, November 30, 2020 7:42 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Auto Reply on SDSF Console

STRIP is not  allowed in NETVIEW REXX
You can just do something like this:

V = SUBSTR(MSGVAR(4),1,8)
IF V = '*SP5145*' | V='*SP5146*' THEN
R MSGVAR(1),NO
EXIT
EXIT


-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Itschak Mugzach
Sent: Monday, November 30, 2020 3:40 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Auto Reply on SDSF Console

See SYS1.PARMLIB(AUTORxx)

*| **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**: 
https://gcc02.safelinks.protection.outlook.com/?url=http%3A%2F%2Fwww.securiteam.co.il%2Fdata=04%7C01%7Cebarkow%40doitt.nyc.gov%7C88206f8b4de84177ad8608d8953627b0%7C73d61799c28440228d4154cc4f1929ef%7C0%7C0%7C637423407115970501%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000sdata=lVXwQxGm3Cl9UsJgDw%2Bq5N3TrwHw8V4ylPSAhEa0l1E%3Dreserved=0
  **|*





On Mon, Nov 30, 2020 at 10:15 AM saurabh khandelwal < 
sourabhkhandelwal...@gmail.com> wrote:

> Dear Group ,
>
>
>
> We have requirement to automate below manual reply comes in console 
> every time, when we don't find volume in our system and the standard 
> reply to these message is  *Reply id, NO.*
>
>
> 10.14.03 JOB09020 *29 *IEF455D* MOUNT *SP5145* ON 0FAA FOR CASPLPRO 
> SARBCH OR REPLY 'NO'l
>
> In this above message, whenever we get message id *IEF455D *on SDSF 
> console and on 4th place in this line, we get volume name* SP5145 or
> SP5146 , SP5147, SP5149 *then immediately using automation we should 
> reply
>
> With* reply id, no.*
>
>
>
> In order to do this, we created
>
>
>
> IF MSGID = 'IEF455D'
> THEN
>
> EXEC(CMD('AUTREXX')) NETLOG(Y) SYSLOG(Y);
>
>
>
>
>
> Then into *'AUTREXX'* REXX side,
>
>
>
>
>
>
>
> /* REXX  */
>
> trace r
>
> 'PIPE SAFE * | STEM MSG.'
>
> TOvolume = Word( Msg,4 )
>
> MsgID = Word( Msg,1 )
>
> MsgID1 = substr(MsgID,2,2)
>
>
>
> volume =  'SP5145 ' ,
>
>'SP5146 ' ,
>
> 'SP5147 '
>
>
>
> Do i =  1 to Words(volume)
>
> comp_vol = Word(volume,i)
>
>  If Strip(comp_vol) =  TOvolume Then
>
>
>
> But unable to complete this logic in to REXX. Can you please help in 
> building this REXX, which can help in replying on console once the 
> above mentioned criteria matches.
>
>
>
> *Regards*
>
> *Saurabh*
>
> --
> 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, including any attachments, may be confidential, privileged or 
otherwise legally protected. It is intended only for the addressee. If you 
received this e-mail in error or from someone who was not authorized to send it 
to you, do not disseminate, copy or otherwise use this e-mail or its 
attachments. Please notify the sender immediately by reply e-mail and delete 
the e-mail from your system.

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 

Re: Auto Reply on SDSF Console

[Barkow, Eileen]

STRIP is not  allowed in NETVIEW REXX
You can just do something like this:

V = SUBSTR(MSGVAR(4),1,8)
IF V = '*SP5145*' | V='*SP5146*' THEN
R MSGVAR(1),NO
EXIT
EXIT


-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Itschak Mugzach
Sent: Monday, November 30, 2020 3:40 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Auto Reply on SDSF Console

See SYS1.PARMLIB(AUTORxx)

*| **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**: 
https://gcc02.safelinks.protection.outlook.com/?url=http%3A%2F%2Fwww.securiteam.co.il%2Fdata=04%7C01%7Cebarkow%40doitt.nyc.gov%7C81c1ad985d0445fd8ddb08d8950ba0e8%7C73d61799c28440228d4154cc4f1929ef%7C0%7C0%7C637423224506873215%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000sdata=2AQVh%2FozrTHV3zoGnFQrAux5punh39BwcagHjtpchog%3Dreserved=0
  **|*





On Mon, Nov 30, 2020 at 10:15 AM saurabh khandelwal < 
sourabhkhandelwal...@gmail.com> wrote:

> Dear Group ,
>
>
>
> We have requirement to automate below manual reply comes in console
> every time, when we don’t find volume in our system and the standard
> reply to these message is  *Reply id, NO.*
>
>
> 10.14.03 JOB09020 *29 *IEF455D* MOUNT *SP5145* ON 0FAA FOR CASPLPRO
> SARBCH OR REPLY 'NO'l
>
> In this above message, whenever we get message id *IEF455D *on SDSF
> console and on 4th place in this line, we get volume name* SP5145 or
> SP5146 , SP5147, SP5149 *then immediately using automation we should
> reply
>
> With* reply id, no.*
>
>
>
> In order to do this, we created
>
>
>
> IF MSGID = 'IEF455D'
> THEN
>
> EXEC(CMD('AUTREXX')) NETLOG(Y) SYSLOG(Y);
>
>
>
>
>
> Then into *'AUTREXX'* REXX side,
>
>
>
>
>
>
>
> /* REXX  */
>
> trace r
>
> 'PIPE SAFE * | STEM MSG.'
>
> TOvolume = Word( Msg,4 )
>
> MsgID = Word( Msg,1 )
>
> MsgID1 = substr(MsgID,2,2)
>
>
>
> volume =  'SP5145 ' ,
>
>'SP5146 ' ,
>
> 'SP5147 '
>
>
>
> Do i =  1 to Words(volume)
>
> comp_vol = Word(volume,i)
>
>  If Strip(comp_vol) =  TOvolume Then
>
>
>
> But unable to complete this logic in to REXX. Can you please help in
> building this REXX, which can help in replying on console once the
> above mentioned criteria matches.
>
>
>
> *Regards*
>
> *Saurabh*
>
> --
> 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, including any attachments, may be confidential, privileged or 
otherwise legally protected. It is intended only for the addressee. If you 
received this e-mail in error or from someone who was not authorized to send it 
to you, do not disseminate, copy or otherwise use this e-mail or its 
attachments. Please notify the sender immediately by reply e-mail and delete 
the e-mail from your system.

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

Re: MVS modify command capture

[Barkow, Eileen]

If you could  issue the modify command under System Automation you would be 
able to trap the entire command and response and write them out
To  a dataset.  I  have clists that do this which I send you examples of.

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Peter
Sent: Wednesday, August 26, 2020 5:40 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: MVS modify command capture

I have a command

F STARTEDTASK, STATUS

it gives the output in SYSLOG but I would like to write it's output to a Dataset

On Wed, 26 Aug, 2020, 1:38 pm Seymour J Metz,  wrote:

> Your question is unclear. By capture, do you mean log to a dataset or
> suppress? In neither case would IEFBR14 have any relevance. Exactly
> what are you trying to do and exactly what did you attempt?
>
>
>
> --
> Shmuel (Seymour J.) Metz
> https://gcc02.safelinks.protection.outlook.com/?url=http:%2F%2Fmason.g
> mu.edu%2F~smetz3data=02%7C01%7Cebarkow%40doitt.nyc.gov%7C35cad466
> b7004ddd60d808d849a40237%7C73d61799c28440228d4154cc4f1929ef%7C0%7C0%7C
> 637340316053775096sdata=ODS3O2CG7GrZ1qGS6XW1LjQM5f5JZkXdZKYeD1lne
> RA%3Dreserved=0
>
>
> 
> From: IBM Mainframe Discussion List  on
> behalf of Peter 
> Sent: Wednesday, August 26, 2020 4:55 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: MVS modify command capture
>
> Hello
>
> I am trying to capture Modify command of a product which is running as
> started task.
>
> I tried issuing the command using IEFBR14 but it did not capture to a
> Dataset.
>
> Is there a way to capture a MODIFY command ?
>
> Peter
>
> --
> 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, including any attachments, may be confidential, privileged or 
otherwise legally protected. It is intended only for the addressee. If you 
received this e-mail in error or from someone who was not authorized to send it 
to you, do not disseminate, copy or otherwise use this e-mail or its 
attachments. Please notify the sender immediately by reply e-mail and delete 
the e-mail from your system.

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

Re: Still COBOL After All These Years?

[Barkow, Eileen]

For those not aware of this IBM has been offering free web COBOL classes and 
have been getting hundreds of people in attendance, many of whom are new 
mainframe programmers.
They are also offering a free class on the IDZ/Data Studio products  (ECLIPSE 
based products for Cobol, SQL  and  other languages).
The IDZ class is Monday morning at 9am and you can listen in without 
pre-registering.
They same URL is used for the Cobol class tue and Thursday at 9am.

https://ibm.webex.com/webappng/sites/ibm/dashboard/pmr/jsayles


-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Rupert Reynolds
Sent: Thursday, July 16, 2020 5:39 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Still COBOL After All These Years?

Yup. I'm a C, PL/1, assembly and C bigot myself, but the plain truth is that 
COBOL is mostly just a wordier way of doing the same things  that other 
languages do. And re-writing, if it isn't done very thoughfully, tends to make 
things worse in my experience.

Rupert



On Thu, 16 Jul 2020 at 18:34, Seymour J Metz  wrote:

> The claim that COBOL is English like is every bit as bogus as the
> claim that rewriting existing COBOL applications in another language
> will magically fix problems of underfunding, understaffing and general
> mismanagement.
>
> BTW, when the language du jour is out of fashion, will they want to
> rewrite the application again, with the same pretext? And will they
> ensure that this time they have adequate documentation and adequate
> configuration control?
>
>
> --
> Shmuel (Seymour J.) Metz
> https://gcc02.safelinks.protection.outlook.com/?url=http:%2F%2Fmason.g
> mu.edu%2F~smetz3data=02%7C01%7Cebarkow%40doitt.nyc.gov%7Cf42ed3fa
> ccf04d8df37808d829d0c164%7C73d61799c28440228d4154cc4f1929ef%7C0%7C0%7C
> 637305323873906629sdata=hmRKEyNhdJ1odSt1%2BDIDWTFCtn9jGyHRjjymg0s
> F%2FtQ%3Dreserved=0
>
> 
> From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on
> behalf of Mark Regan [marktre...@gmail.com]
> Sent: Thursday, July 16, 2020 11:41 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Fwd: Still COBOL After All These Years?
>
>
> https://gcc02.safelinks.protection.outlook.com/?url=https%3A%2F%2Fsecu
> re-web.cisco.com%2F19k8avmi-YYFlfmZHhyBAdtguogqzS24H_g526jDKwAuDJUdFKv
> K4b9dP9NcILr6om3tw4RhCCIL8iT9BRoOhdYIdQpvVVzS2c_cErzDaoNHdWoKdxwNo0_LN
> CkQ5Q9AIihrnv0b2oCTrVYzZ9O23w9QsveuJH0QsJNKF9tSBOF3rS_d_kGctATEyIoNolL
> RFy1yU9H3ENyZd3ZvmfBWBmUQsXrzE4veTALPgCSsnFBqWR-RJkMc8a0gzcX1geNF4SWwD
> LIOOB3-CkgncGVl-o3ZPVrOUaxN39tIcdi5zG_BgfrZtYg2jrrDgm8fVbuj1Rig0AbPqTi
> Zp0zGEpV1WRm1fEOzLC-GlMrQmDfLCf-_TPArnN2DxmfqG2EAwazkHfZgpkjUSFmeJBljd
> rt-Hx5O5ld9E7gz44hwDCvlbcdiiwu32WhgigdlBgVQ99tKX%2Fhttps%253A%252F%252
> Fwww.planetmainframe.com%252F2020%252F07%252Fstill-cobol-after-all-the
> se-years%252Fdata=02%7C01%7Cebarkow%40doitt.nyc.gov%7Cf42ed3faccf
> 04d8df37808d829d0c164%7C73d61799c28440228d4154cc4f1929ef%7C0%7C0%7C637
> 305323873906629sdata=KWQcINoTzw2wLoli0SNJdk1peTSd0D89IrQtEBNP0lg%
> 3Dreserved=0
>
> Regards,
>
> Mark Regan
>
> --
> 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, including any attachments, may be confidential, privileged or 
otherwise legally protected. It is intended only for the addressee. If you 
received this e-mail in error or from someone who was not authorized to send it 
to you, do not disseminate, copy or otherwise use this e-mail or its 
attachments. Please notify the sender immediately by reply e-mail and delete 
the e-mail from your system.

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

Re: WAS Liberty Start UP Issue

[Barkow, Eileen]

Hi Saurabh,

I only run WAS Liberty in CICS so I cannot help install the admin center.
But if java cannot find something it usually means that the classpath is not 
correct.
Please list the script that is failing

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
saurabh khandelwal
Sent: Friday, June 19, 2020 10:07 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: WAS Liberty Start UP Issue

Dear Eileen,


Thanks for the reply. Can you please help me install the admin center.

We also tried to install admin center to administrator this WAS liberty but, 
when I run below command to install admin center, i get below error and unable 
to run this script.

/installUtility install adminCenter-1.0

 # pwd

/usr/lpp/liberty_zos/18.0.0.1/bin

# /installUtility install adminCenter-1.0



# ./installUtility install adminCenter-1.0

java: toolJavaCmd 3: ./installUtility 257: FSUM7351 not found

#


I listed this bin directory to make sure that this script exist and i found but 
I unable to run this script to install admin center.


rwxr-xr-x   1 BPXROOT  OMVSGRP 6803 Mar  9  2018 batchManager
Devl

-rwxr-xr-x   1 BPXROOT  OMVSGRP 3410 Mar  9  2018
batchManager.bat

-rwxr-xr-x   1 BPXROOT  OMVSGRP 6802 Mar  9  2018
binaryLog

-rwxr-xr-x   1 BPXROOT  OMVSGRP 3958 Mar  9  2018
binaryLog.bat

-rwxr-xr-x   1 BPXROOT  OMVSGRP 6811 Mar  9  2018 bluemixUtility


-rwxr-xr-x   1 BPXROOT  OMVSGRP 3418 Mar  9  2018
bluemixUtility.bat

-rwxr-xr-x   1 BPXROOT  OMVSGRP16032 Mar  9  2018
client

-rwxr-xr-x   1 BPXROOT  OMVSGRP12939 Mar  9  2018
client.bat

-rwxr-xr-x   1 BPXROOT  OMVSGRP 6803 Mar  9  2018
collective

-rwxr-xr-x   1 BPXROOT  OMVSGRP 3410 Mar  9  2018
collective.bat

-rwxr-xr-x   1 BPXROOT  OMVSGRP 6808 Mar  9  2018
configUtility

-rwxr-xr-x   1 BPXROOT  OMVSGRP 3415 Mar  9  2018
configUtility.bat

-rwxr-xr-x   1 BPXROOT  OMVSGRP 6796 Mar  9  2018
ddlGen

-rwxr-xr-x   1 BPXROOT  OMVSGRP 3952 Mar  9  2018
ddlGen.bat

-rwxr-xr-x   1 BPXROOT  OMVSGRP 6815 Mar  9  2018
dynamicRouting

-rwxr-xr-x   1 BPXROOT  OMVSGRP 3422 Mar  9  2018
dynamicRouting.bat

-rwxr-xr-x   1 BPXROOT  OMVSGRP 6811 Mar  9  2018
featureManager

-rwxr-xr-x   1 BPXROOT  OMVSGRP 3418 Mar  9  2018
featureManager.bat

-rwxr-xr-x   1 BPXROOT  OMVSGRP 6811 Mar  9  2018
installUtility

-rwxr-xr-x   1 BPXROOT  OMVSGRP 3418 Mar  9  2018
installUtility.bat

drwxr-xr-x   3 BPXROOT  OMVSGRP 8192 Mar  9  2018
jaxb

drwxr-xr-x   3 BPXROOT  OMVSGRP 8192 Mar  9  2018
jaxrs

drwxr-xr-x   3 BPXROOT  OMVSGRP 8192 Mar  9  2018
jaxws

-rwxr-xr-x   1 BPXROOT  OMVSGRP 6814 Mar  9  2018
pluginUtility

-rwxr-xr-x   1 BPXROOT  OMVSGRP 3970 Mar  9  2018
pluginUtility.bat

-rwxr-xr-x   1 BPXROOT  OMVSGRP 6802 Mar  9  2018
productInfo

-rwxr-xr-x   1 BPXROOT  OMVSGRP 3958 Mar  9  2018
productInfo.bat

-rwxr-xr-x   1 BPXROOT  OMVSGRP 6811 Mar  9  2018
securityUtility

-rwxr-xr-x   1 BPXROOT  OMVSGRP 3967 Mar  9  2018
securityUtility.bat

-rwxrwxrwx   1 BPXROOT  OMVSGRP35850 Mar 24 02:56
server

-rwxr-xr-x   1 BPXROOT  OMVSGRP21141 Mar  9  2018
server.bat

-rwxr-xr-x   1 BPXROOT  OMVSGRP 6814 Mar  9  2018
serverSchemaGen

-rwxr-xr-x   1 BPXROOT  OMVSGRP 3970 Mar  9  2018
serverSchemaGen.bat

-rwxrwxrwx   1 BPXROOT  OMVSGRP35850 Mar 24 02:52
server_bkup

drwxr-xr-x   3 BPXROOT  OMVSGRP 8192 Mar  9  2018
tools

drwxr-xr-x   3 BPXROOT  OMVSGRP 8192 Mar  9  2018
zosConnect

#
pwd

/usr/lpp/liberty_zos/18.0.0.1/bin


#


Can anyone please help us on this both issue.

On Fri, Jun 19, 2020 at 4:05 PM Barkow, Eileen < 
02bc504b1642-dmarc-requ...@listserv.ua.edu> wrote:

> I had to add:
>
>  pollingRate="5s
>
> -Original Message-
> From: IBM Mainframe Discussion List  On 
> Behalf Of saurabh khandelwal
> Sent: Friday, June 19, 2020 8:43 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: WAS Liberty Start UP Issue
>
> Dear Group,
>
> We are trying to configure WAS liberty and deploy test applications.
>
> Our server.xml file looks like
>
> 
>
> 
>
>
>
> 
>
> 
>
> jsp-2.3
>
> 
>
>
>
> 
>
> 
>
> 
>  
> location="/usr/lpp/liberty_zos/18.0.0.1/usr/servers/server1/>
>
>
>
> 
>
>
> And When we deploy application in drop in directory, I get below 
> message available in started task,
>
> E CWWKZ0021E: The server is not configured to handle the resource at 
> location /usr/lpp/liberty_zos/18.0.0.1/usr/servers/server1
>  /dropins/AdvancedCommandCenter.ear.
>
> E CWWKM0101E: The system could not process archive data for 
> /usr/lpp/liberty_zos/18.0.0.1/usr/servers/server1/dropins/AdvancedC
>  ommandCenter.ear.
>
> But we can clearly, see that our application has been expanded but 
> because of 

Re: WAS Liberty Start UP Issue

[Barkow, Eileen]

I had to add:











jsp-2.3

Re: REXX assistance

[Barkow, Eileen]

Is not PROF for TSO, not Netview? The 878 abend is occurring in Netview.

You can just use Netview to automate the starting of a procedure to run 
directly under TSO.


-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
ITschak Mugzach
Sent: Wednesday, May 20, 2020 8:03 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: REXX assistance

It's simple. use "PROF VARSTORAGE(HIGH)" to direct EXECIO and other getmains 
above the line.

ITschak

ITschak Mugzach
*|** IronSphere Platform* *|* *Information Security Continuous Monitoring for 
z/OS, x/Linux & IBM I **| z/VM comming son  *




On Wed, May 20, 2020 at 2:46 PM Dave Jousma < 
01a0403c5dc1-dmarc-requ...@listserv.ua.edu> wrote:

> All,
>
> We have some relatively new Netview automation to process inbound FTP
> processing that is written in REXX, and over time we’ve seen Netview abends
> with 878’s, etc.   IBM indicates we may have a problem below the line,
> specifically SP0 being exhausted.   They are seeing a lot junk that looks
> like workpack volser’s PCW, temp dataset names, etc.   It is my belief
> that it is the remnants of calling IDCAMS to do our FTP processing to
> create special dataset catalog entries amongst other stuff and cleanup
> is not occurring that over time causes our problems.
>
> Here is the bit of rexx code I am looking at.   Look at how IDCAMS is
> being called in line 318.  I’m not a REXX coding expert by any means.
> Is that the equivalent of just a standard CALL? Or like entering TSO
> IDCAMS at a command line in TSO?  I’m wondering if there is a better way to 
> call
> IDCAMS?   I see references to LINK, ATTACH, LINKMVS, ATTCHMVS, LINKPGM,
> ATTCHPGM.  I’m embarrassed to say that I do not know the nuances of each of
> these, and when appropriate to use.   Do any of these create a new
> environment, do the function, and then tear the environment down upon
> exit?  It seems like this is what we need to use to fix this issue.
>
> 000308 /*
> */
> 000309 /*  We have now created all the IDCAMS statements, we now write
> them*/
> 000310 /*  to our dataset to be used as SYSIN for IDCAMS command  */
> 000311 /*
> */
> 000312   Say "Number of Queued Lines is " QueuedLines
>
> 000313  Address MVS 'EXECIO 'QueuedLines' DISKW 'Infile' (FINIS'
>
> 000314 /*
> */
> 000315 /*  The IDCAMS statement calls IDCAMS using the 2 DD names
> listed  */
> 000316 /*  after the command as SYSIN and SYSPRINT  */
> 000317 /*
> */
> 000318  IDCAMS Infile Outfile
>
> 000319   Say "IDCAMS RC for File Rename = " RC
>
> 000320  If RC > 4 Then
>
> 000321 Do
>
> 000322   Address MVS 'EXECIO * DISKR 'Outfile' (STEM Prtrex.
> FINIS'
> 000323   do xy = 1 to Prtrex.0
>
> 000324  Say "Idcams output = " Prtrex.xy
>
> 000325   end
>
> 000326 end
>
> 000327   "free fi("Infile")"
>
> 000328   "free fi("Outfile")"
>
> 000329
>
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions, send
> email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>

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



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

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

Re: How determine local time zone *name* in Rexx?

[Barkow, Eileen]

Java has several classes and API methods to get the time zone.
Where does the JVM determine this info -is is not from the Unix settings?

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
ITschak Mugzach
Sent: Monday, May 18, 2020 8:33 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: How determine local time zone *name* in Rexx?

But make sure that uss & mvs clocks are the same.

בתאריך יום ב׳, 18 במאי 2020, 15:28, מאת Steve Smith ‏:

> I forgot about the IANA Time-Zone database.  That does seem to be the
> standard.
>
> I don't see that Unix has anything to do with it.
>
> sas
>
> On Mon, May 18, 2020 at 1:41 AM Mike Schwab 
> wrote:
>
> > East Bank Palestinians and Israelites use different times for the
> > same location Line Islands in Kiribati uses +14 time zone, same time
> > one day earlier as -10 Hawaii.
> > And agree the Unix time zone database is a great idea.
> >
> > On Mon, May 18, 2020 at 2:58 AM Paul Gilmartin
> > <000433f07816-dmarc-requ...@listserv.ua.edu> wrote:
> > >
> > > On Mon, 18 May 2020 01:58:01 +, Mike Schwab wrote:
> > >
> > > >Yep.  You almost need a country code, and for multi zone
> > > >countries a zone indicator.  Especially since a shared time zone
> > > >might have different DST / ST switch dates in different countries.
> > > >
> > > And it's up to the recipient to unwind the process?
> > >
> > > That's the reason that SMTP date headers specify simply "+/-hhmm"
> > > (Which might be + for UTC.)
> > >
> > > Do you want to know the physical time the message originated, or
> > > the solar illumination at that point in spacetime?
> > >
> > > Otherwise, the Truth (which z/OS shuns) is:
> > >
> > > https://gcc02.safelinks.protection.outlook.com/?url=https%3A%2F%2F
> > > www.iana.org%2Ftime-zonesdata=02%7C01%7Cebarkow%40doitt.nyc.g
> > > ov%7Cb30cb350311847227f9608d7fb27b8b1%7C73d61799c28440228d4154cc4f
> > > 1929ef%7C0%7C0%7C637254020360322895sdata=0w76FuzcVm3%2BPycbUw
> > > 6DnlEIXKy1DyQOEFMnGDrgf7U%3Dreserved=0
> > >
> >
>
> --
> 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, including any attachments, may be confidential, privileged or 
otherwise legally protected. It is intended only for the addressee. If you 
received this e-mail in error or from someone who was not authorized to send it 
to you, do not disseminate, copy or otherwise use this e-mail or its 
attachments. Please notify the sender immediately by reply e-mail and delete 
the e-mail from your system.

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

Re: Using the CONSOLE command

[Barkow, Eileen]

With SDSF you can check the job logs  and SYSLOG for messages and issue 
additional commands against the job to interrogate it if it is supported.
You can also wait for responses and do a lot of other things with SDSF/REXX or 
SDSF/Java.

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Jousma, David
Sent: Monday, May 18, 2020 6:40 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Using the CONSOLE command

Eileen, the issue is not how to issue the command, but the fact that the 
activation completes asynchronously from the command itself.

Easiest way but not exact would be to issue a the command, then use something 
like OSHELL sleep command for some number of seconds in the jobstream.

_
Dave Jousma
AVP | Manager, Systems Engineering  

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


-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Barkow, Eileen
Sent: Monday, May 18, 2020 6:21 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Using the CONSOLE command

**CAUTION EXTERNAL EMAIL**

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

You can also use the SDSF/REXX interface to issue console commands and retrieve 
the response.
IBM provides several examples of this.

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
ITschak Mugzach
Sent: Monday, May 18, 2020 1:37 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Using the CONSOLE command

SYS1.SAMPLIB(IEATOPS0)but it better to use a token to get only the response to 
your command.


ITschak Mugzach
*|** IronSphere Platform* *|* *Information Security Continuous Monitoring for 
z/OS, x/Linux & IBM I **| z/VM comming son  *




On Mon, May 18, 2020 at 8:21 AM Gadi Ben-Avi  wrote:

> Hi,
> I would like to write a REXX program that will issue the command to 
> activate the SMS Configuration, and then wait until the message saying 
> that the configuration has been activated is issued.
>
> I haven't been able to find examples that do that.
>
> Does anyone have an example?
>
> The program would run in Batch, if it makes any difference.
>
> Thanks
>
> Gadi
>
>
> --
> 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, including any attachments, may be confidential, privileged or 
otherwise legally protected. It is intended only for the addressee. If you 
received this e-mail in error or from someone who was not authorized to send it 
to you, do not disseminate, copy or otherwise use this e-mail or its 
attachments. Please notify the sender immediately by reply e-mail and delete 
the e-mail from your system.

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

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

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


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

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

Re: Using the CONSOLE command

[Barkow, Eileen]

You can also use the SDSF/REXX interface to issue console commands and retrieve 
the response.
IBM provides several examples of this.

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
ITschak Mugzach
Sent: Monday, May 18, 2020 1:37 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Using the CONSOLE command

SYS1.SAMPLIB(IEATOPS0)but it better to use a token to get only the response to 
your command.


ITschak Mugzach
*|** IronSphere Platform* *|* *Information Security Continuous Monitoring for 
z/OS, x/Linux & IBM I **| z/VM comming son  *




On Mon, May 18, 2020 at 8:21 AM Gadi Ben-Avi  wrote:

> Hi,
> I would like to write a REXX program that will issue the command to
> activate the SMS Configuration, and then wait until the message saying
> that the configuration has been activated is issued.
>
> I haven't been able to find examples that do that.
>
> Does anyone have an example?
>
> The program would run in Batch, if it makes any difference.
>
> Thanks
>
> Gadi
>
>
> --
> 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, including any attachments, may be confidential, privileged or 
otherwise legally protected. It is intended only for the addressee. If you 
received this e-mail in error or from someone who was not authorized to send it 
to you, do not disseminate, copy or otherwise use this e-mail or its 
attachments. Please notify the sender immediately by reply e-mail and delete 
the e-mail from your system.

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

Re: IDCAMS not freeing file

[Barkow, Eileen]

For one thing, make sure that the CICS FCT entry specifies DISPOSITION SHARE 
and OPENTIME FIRSTREF

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Joel C. Ewing
Sent: Thursday, May 7, 2020 9:19 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: IDCAMS not freeing file

I thought it used to be normal behavior for the enqueue to be held until the 
last job step that referenced that data set in the same job had finished.   Are 
there any later job steps in the same job that have a DD for that dataset?  
Especially ones that have been added since the last time this process worked? 
If so, those job steps must be moved to a separate job.
JC Ewing

On 5/7/20 8:03 AM, Allan Staller wrote:
> This seems like normal behavior to me. As long as the first job is running, 
> the enq is held. Once the job ends, the enqueue is released.
>
> As of z/OS 2.2(?) there is a "enque demotion" that will reduce the enque to 
> shr once the need for old is removed.
>
> I am sorry I don't have time to look up the details,
>
> HTH,
>
> -Original Message-
> From: IBM Mainframe Discussion List  On
> Behalf Of Gadi Ben-Avi
> Sent: Thursday, May 7, 2020 7:28 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: IDCAMS not freeing file
>
> [CAUTION: This Email is from outside the Organization. Unless you
> trust the sender, Don’t click links or open attachments as it may be a
> Phishing email, which can steal your Information and compromise your
> Computer.]
>
> Hi,
> We have the following problem
>
> I job runs IDCAMS that delete and redefines a VSAM KSDS file.
> The next step uses a user program to send a command to CICS to open file file.
>
> In one partition this works fine.
> In another partition we get:
> DFHFC0952 CICSTOR8
> DYNAMIC ALLOCATION OF NON-RLS FILE LMFVPAPZ FAILED. RETURN CODE 
> X'0004',X'0210' IN MODULE DFHFCFS.
>
> The manual says that this messaga is issued when the file is allocated with 
> DISP=OLD.
>
> If we run the second step after the first job has ended, it runs OK.
>
> It looks like IDCAMS is not freeing the file after the step ends.
>
> Does anyone have an idea what can be causing this?
>
> Gadi
>
...

--
Joel C. Ewing

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



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

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

Re: IBM Developerworks is gone!

[Barkow, Eileen]

https://developer.ibm.com/  seems to have some useful things like tutorials,
  but I cannot find any forums for reporting problems and answering questions.

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
scott Ford
Sent: Wednesday, May 6, 2020 1:04 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: IBM Developerworks is gone!

Cheryl,

Amen, I agree. The Developerworks information is valuable for all.
IBM must stop, who do we need to write to ?


Scott

On Wed, May 6, 2020 at 12:49 PM Cheryl Watson 
wrote:

> Hi all,
>
> Remember when IBM went through and deleted from their websites what
> they considered "old" manuals and documentation? Well, they just did it again!
> They've removed all the DeveloperWorks articles that have provided
> such excellent information since its creation. And these aren't just
> OLD articles. Even a link from three months ago is gone. All
> references to DeveloperWorks are now directed to a nothing site. The
> DeveloperWorks website contained amazing articles from some of the top
> developers in their fields, many of whom are no longer still working
> at IBM. We understand that IBM "furloughed" them, but they don't have to 
> furlough their ideas.
>
> I'm pleading with all of you who work for a large IBM customer to ask
> your management to tell IBM to stop this idiotic practice. There is NO
> reason to delete valuable information.
>
> If this is due to marketing wanting a new image, then they have no
> idea what image they're creating.
>
> Please do this for all of us!
>
> All my best,
>
> Cheryl Watson
> Watson & Walker, Inc.
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions, send
> email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>
--
Scott Ford
IDMWORKS
z/OS Development

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



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

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

Re: How to change the default '.java' extension to '.jav'?

[Barkow, Eileen]

You need to set up annotation processor files but I am not sure how to do this.
m:\javaprog>javac streamx.jav
error: Class names, 'streamx.jav', are only accepted if annotation processing 
is explicitly requested

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of CM 
Poncelet
Sent: Monday, April 13, 2020 10:56 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: How to change the default '.java' extension to '.jav'?

Thanks, but I can write, compile and run any Java program from SPF/PC (howbeit 
with some 'challenges') as long as it contains no "import" of classes etc.

All I wanted to know is how to change the default ".java" extension to a 3-char 
one e.g. ".jav", that's all. I can deal with the rest.

Thanks anyway.

Cheers, Chris Poncelet



On 13/04/2020 10:31, David Crayford wrote:
> I'm familiar with SPF/PC and that's great for simple editing with
> something familiar from ISPF.
>
> However, if you want to learn Java beyond "hello world" you will need
> an IDE. Java is a complex language and just creating packages and
> classes is onerous using a text editor. You need context assist and
> one-click refactoring to help you and either IDEA or Eclipse will do
> that.
>
> On 2020-04-13 11:13 AM, CM Poncelet wrote:
>> SPF/PC is the CTC PC-version of ISPF/PDF. It supports Rexx (but not
>> the full IBM REXX), ISREDIT edit macros, primary and line commands,
>> tables, panels etc., and it also supports assembling, compiling,
>> link-editing and executing programs - all from within SPF/PC.
>>   I use it for writing Rexx, C, C++, MASM 6.1 (the Microsoft version
>> of Intel assembler) and for just about everything else.
>>   The problem with compiling Java is that SPF/PC supports only DOS
>> 8.3 format files, which then excludes ".java" extensions as shown below:
>>
>> javac C:\JAVA\MYPROGS\CH01\HELLO1~1.java >
>> C:\JAVA\OUTPUT\HELLO1~1.OUT
>> javac: file not found: C:\JAVA\MYPROGS\CH01\HELLO1~1.java
>> Usage: javac   use -help for a list of
>> possible options
>>   The alternative would be to use "Notepad", up with which I will not
>> put.
>>
>> SPF/PC(1)  PRIMARY OPTION PANEL
>> ─ V 4.0
>>   OPTION  ═══►
>>
>>  0  SPF/PC PARMS - Specify terminal and user parameters USERID
>> - CMP
>>  1  BROWSE   - Display source data or output listings TIME
>> - 03:50
>>  2  EDIT - Create or change source data   OPER
>> SYS - DOS
>>  3  UTILITIES- Perform utility functions DATE - 20.097
>>  4  FOREGROUND   - Invoke user applications in foreground
>>  5  ENVIRONMENT  - Display information about system configuration
>>  6  COMMAND  - Execute system command
>>  7  DIALOG TEST  - Perform dialog testing
>>  8  EH?  - Testing new features
>>  C  CHANGES  - Changes from last version
>>  T  TUTORIAL - Display information about SPF/PC
>>  S  SAMPLES  - Sample panels and programs ▄▄▄ 
>>  X  EXIT - Terminate SPF/PC  ─ ▄▄
>> ▄▄─▄▄─
>> ▄▄──▄▄─
>>   Enter END command to terminate SPF/PC.   ▄▄─ ▄▄─ ▄▄─
>> ▄▄─
>>    ▄▄─
>> ▄▄─
>>  VERSION 4.0.7 (C) COPYRIGHT   ▄▄── ▄▄
>> ▄▄─
>>   COMMAND TECHNOLOGY CORP 1984, 1994   ▄▄─  ▄▄─
>> ──
>> ──   ──
>> 
>>
>>
>>
>> On 12/04/2020 04:42, David Crayford wrote:
>>> Instead of these work arounds to use a prehistoric DOS-based editor
>>> why don't you switch to an IDE?
>>>
>>> The best IDE for Java is Intellij IDEA which has highly advanced
>>> code analysis/refactoring features. What exactly does SPF/PC buy you?
>>>
>>> On 2020-04-12 10:56 AM, CM Poncelet wrote:
 No can do. The SPF/PC 4.0.7 editor is DOS-based, but has an
 extender to use whatever memory it needs > 640K.
It's Windoze that needs fixing.


 On 12/04/2020 03:45, Paul Gilmartin wrote:
> On Sun, 12 Apr 2020 03:40:58 +0100, CM Poncelet wrote:
>
>> Thanks, but never mind.
>>The change to using '.jav' instead of '.java' for the compiler
>> would have to be done at Java's implementation level, i.e. as a
>> sysadmin or sysprog. I have found no-one among the Java
>> developers and course tutors who could tell me how to do this. So
>> I thought this list *might* know.
>>
> Better to fix the editor than to break the compiler.
>
> -- 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 

Re: New Jersey Pleas for COBOL Coders for Mainframes Amid Coronavirus Pandemic

[Barkow, Eileen]

https://www.cnn.com/2020/04/08/business/coronavirus-cobol-programmers-new-jersey-trnd/index.html

-Original Message-
From: Barkow, Eileen
Sent: Wednesday, April 8, 2020 1:32 PM
To: IBM Mainframe Discussion List 
Subject: RE: New Jersey Pleas for COBOL Coders for Mainframes Amid Coronavirus 
Pandemic

NJ Gov Murphy just mentioned need for Cobol programmers during his press 
conference currently going on.
Someone must have mentioned it to him - maybe he knows about IBM-MAIN

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Seymour J Metz
Sent: Tuesday, April 7, 2020 11:57 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: New Jersey Pleas for COBOL Coders for Mainframes Amid Coronavirus 
Pandemic

https://gcc02.safelinks.protection.outlook.com/?url=https%3A%2F%2Fen.wikipedia.org%2Fwiki%2FLisp_%2528programming_language%2529data=02%7C01%7Cebarkow%40doitt.nyc.gov%7Ca49cf63e69ab4fa4f77208d7db70f7c4%7C73d61799c28440228d4154cc4f1929ef%7C0%7C0%7C637219150550221126sdata=MrSiwgql6bFs4pv87tw2VEmPhWtmOXa1R9BGmKfYOnQ%3Dreserved=0

https://gcc02.safelinks.protection.outlook.com/?url=https%3A%2F%2Fen.wikipedia.org%2Fwiki%2FPrologdata=02%7C01%7Cebarkow%40doitt.nyc.gov%7Ca49cf63e69ab4fa4f77208d7db70f7c4%7C73d61799c28440228d4154cc4f1929ef%7C0%7C0%7C637219150550221126sdata=VUaH7%2B1N7yT6%2BpTms131c2Yg%2Bk61yocbmc3z8hdFuu8%3Dreserved=0


--
Shmuel (Seymour J.) Metz
https://gcc02.safelinks.protection.outlook.com/?url=http:%2F%2Fmason.gmu.edu%2F~smetz3data=02%7C01%7Cebarkow%40doitt.nyc.gov%7Ca49cf63e69ab4fa4f77208d7db70f7c4%7C73d61799c28440228d4154cc4f1929ef%7C0%7C0%7C637219150550221126sdata=5s7ayYuwLKZDooVWeo0E4uBYO95BzA37sdhuTOEZq7U%3Dreserved=0


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
PINION, RICHARD W. [rpin...@firsthorizon.com]
Sent: Tuesday, April 7, 2020 4:49 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: New Jersey Pleas for COBOL Coders for Mainframes Amid Coronavirus 
Pandemic

WISP???

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Seymour J Metz
Sent: Tuesday, April 7, 2020 4:48 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: New Jersey Pleas for COBOL Coders for Mainframes Amid Coronavirus 
Pandemic

[External Email. Exercise caution when clicking links or opening attachments.]

It's an AI language and it operates by matching things against rules. It's a 
totally different approach from LISP, which also doesn't look much like COBOL.


--
Shmuel (Seymour J.) Metz
https://gcc02.safelinks.protection.outlook.com/?url=http:%2F%2Fmason.gmu.edu%2F~smetz3data=02%7C01%7Cebarkow%40doitt.nyc.gov%7Ca49cf63e69ab4fa4f77208d7db70f7c4%7C73d61799c28440228d4154cc4f1929ef%7C0%7C0%7C637219150550221126sdata=5s7ayYuwLKZDooVWeo0E4uBYO95BzA37sdhuTOEZq7U%3Dreserved=0


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of Bob 
Bridges [robhbrid...@gmail.com]
Sent: Tuesday, April 7, 2020 4:30 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: New Jersey Pleas for COBOL Coders for Mainframes Amid Coronavirus 
Pandemic

I'm not familiar with Prolog, but if it doesn't (in John's words) do Input, 
Process or Output I can see it wouldn't have much in common with COBOL.

---
Bob Bridges, robhbrid...@gmail.com, cell 336 382-7313

/* The conviction of the rich that the poor are happier is no more foolish than 
the conviction of the poor that the rich are.  -Mark Twain */

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Seymour J Metz
Sent: Tuesday, April 7, 2020 15:53

I don't see much commonality between, e.g., COBOL and Prolog.


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Nightwatch RenBand [johnmattson...@gmail.com]
Sent: Tuesday, April 7, 2020 11:06 AM

I totally agree with Bob Bridges.  It can be boiled down to "all programming 
languages do the same things, just in, of ten, slightly different ways."  Learn 
one, and you have a head start to learning any of them.

Best thing I learned: Virtually all programs come down to Input, Process, 
Output.

--
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 Confidentiality notice:
This e-mail message, including any attachments, may contain legally privileged 
and/or confidential information. If you are not the intended recipient(s), or 
the employee or agent responsible for delivery of this message to the intended 
recipient(s), you are hereby notified that any dissemination, distribution, or 
copying of this e-ma

Re: New Jersey Pleas for COBOL Coders for Mainframes Amid Coronavirus Pandemic

[Barkow, Eileen]

NJ Gov Murphy just mentioned need for Cobol programmers during his press 
conference currently going on.
Someone must have mentioned it to him - maybe he knows about IBM-MAIN

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Seymour J Metz
Sent: Tuesday, April 7, 2020 11:57 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: New Jersey Pleas for COBOL Coders for Mainframes Amid Coronavirus 
Pandemic

https://gcc02.safelinks.protection.outlook.com/?url=https%3A%2F%2Fen.wikipedia.org%2Fwiki%2FLisp_%2528programming_language%2529data=02%7C01%7Cebarkow%40doitt.nyc.gov%7Ca49cf63e69ab4fa4f77208d7db70f7c4%7C73d61799c28440228d4154cc4f1929ef%7C0%7C0%7C637219150550221126sdata=MrSiwgql6bFs4pv87tw2VEmPhWtmOXa1R9BGmKfYOnQ%3Dreserved=0

https://gcc02.safelinks.protection.outlook.com/?url=https%3A%2F%2Fen.wikipedia.org%2Fwiki%2FPrologdata=02%7C01%7Cebarkow%40doitt.nyc.gov%7Ca49cf63e69ab4fa4f77208d7db70f7c4%7C73d61799c28440228d4154cc4f1929ef%7C0%7C0%7C637219150550221126sdata=VUaH7%2B1N7yT6%2BpTms131c2Yg%2Bk61yocbmc3z8hdFuu8%3Dreserved=0


--
Shmuel (Seymour J.) Metz
https://gcc02.safelinks.protection.outlook.com/?url=http:%2F%2Fmason.gmu.edu%2F~smetz3data=02%7C01%7Cebarkow%40doitt.nyc.gov%7Ca49cf63e69ab4fa4f77208d7db70f7c4%7C73d61799c28440228d4154cc4f1929ef%7C0%7C0%7C637219150550221126sdata=5s7ayYuwLKZDooVWeo0E4uBYO95BzA37sdhuTOEZq7U%3Dreserved=0


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
PINION, RICHARD W. [rpin...@firsthorizon.com]
Sent: Tuesday, April 7, 2020 4:49 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: New Jersey Pleas for COBOL Coders for Mainframes Amid Coronavirus 
Pandemic

WISP???

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Seymour J Metz
Sent: Tuesday, April 7, 2020 4:48 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: New Jersey Pleas for COBOL Coders for Mainframes Amid Coronavirus 
Pandemic

[External Email. Exercise caution when clicking links or opening attachments.]

It's an AI language and it operates by matching things against rules. It's a 
totally different approach from LISP, which also doesn't look much like COBOL.


--
Shmuel (Seymour J.) Metz
https://gcc02.safelinks.protection.outlook.com/?url=http:%2F%2Fmason.gmu.edu%2F~smetz3data=02%7C01%7Cebarkow%40doitt.nyc.gov%7Ca49cf63e69ab4fa4f77208d7db70f7c4%7C73d61799c28440228d4154cc4f1929ef%7C0%7C0%7C637219150550221126sdata=5s7ayYuwLKZDooVWeo0E4uBYO95BzA37sdhuTOEZq7U%3Dreserved=0


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of Bob 
Bridges [robhbrid...@gmail.com]
Sent: Tuesday, April 7, 2020 4:30 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: New Jersey Pleas for COBOL Coders for Mainframes Amid Coronavirus 
Pandemic

I'm not familiar with Prolog, but if it doesn't (in John's words) do Input, 
Process or Output I can see it wouldn't have much in common with COBOL.

---
Bob Bridges, robhbrid...@gmail.com, cell 336 382-7313

/* The conviction of the rich that the poor are happier is no more foolish than 
the conviction of the poor that the rich are.  -Mark Twain */

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Seymour J Metz
Sent: Tuesday, April 7, 2020 15:53

I don't see much commonality between, e.g., COBOL and Prolog.


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Nightwatch RenBand [johnmattson...@gmail.com]
Sent: Tuesday, April 7, 2020 11:06 AM

I totally agree with Bob Bridges.  It can be boiled down to "all programming 
languages do the same things, just in, of ten, slightly different ways."  Learn 
one, and you have a head start to learning any of them.

Best thing I learned: Virtually all programs come down to Input, Process, 
Output.

--
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 Confidentiality notice:
This e-mail message, including any attachments, may contain legally privileged 
and/or confidential information. If you are not the intended recipient(s), or 
the employee or agent responsible for delivery of this message to the intended 
recipient(s), you are hereby notified that any dissemination, distribution, or 
copying of this e-mail message is strictly prohibited. If you have received 
this message in error, please immediately notify the sender and delete this 
e-mail message from your computer.

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 

Re: SFTP Get

[Barkow, Eileen]

Try coding  EXIT=0  in the parm field. It sets the CC to 0, at least it looks 
like it does

//FTPSEXEC PGM=FTP,PARM=('-v  MVSI 2121 (EXIT=0)')

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of Ron 
Thomas
Sent: Thursday, February 6, 2020 9:19 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: SFTP Get

Hello.

We have a a job that runs every 30 mins , this job will pulls a text file from 
a windows server and loads to the Mainframe dataset . In some-cases the file is 
not present and FTP step fails .  I need to set this to a normal completion 
even if the file is not present .  Please let me know how this is to be handled?

Regards
Ron T

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



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

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

Re: it was 20 years ago today ....

[Barkow, Eileen]

The current and past idiot Rudolph  Guilianni

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Jesse 1 Robinson
Sent: Friday, January 3, 2020 1:24 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: it was 20 years ago today 

OK, bonus homework question: who was mayor of New York City in Jan 1, 2000?

.
.
J.O.Skip Robinson
Southern California Edison Company
Electric Dragon Team Paddler
SHARE MVS Program Co-Manager
323-715-0595 Mobile
626-543-6132 Office ⇐=== NEW
robin...@sce.com

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Barkow, Eileen
Sent: Friday, January 3, 2020 8:38 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: (External):Re: [External] Re: FW: Re: it was 20 years ago today 

Would you believe that there is still fallout from Y2K. NYC parking meters 
could not accept credit cards because of it.



https://gcc02.safelinks.protection.outlook.com/?url=https%3A%2F%2Fwww.ny1.com%2Fnyc%2Fall-boroughs%2Fnews%2F2020%2F01%2F03%2Fsoftware-glitch-knocks-out-credit-card-payments-at-nyc-parking-meterdata=02%7C01%7Cebarkow%40doitt.nyc.gov%7C2f66622ef0ef4b14c32908d7907a3a7c%7C73d61799c28440228d4154cc4f1929ef%7C0%7C0%7C637136726982065700sdata=44W9ZI7xw9PDPq0nYOeCp108hZmsr80yNNpJJ52QSP4%3Dreserved=0



-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Seymour J Metz
Sent: Friday, January 3, 2020 11:26 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: [External] Re: FW: Re: it was 20 years ago today 



There were date dependencies in a lot of unexpected places, although some of 
them were of minor importance. There was no more reason to believe that 
everything was under control than there was to believe in the inevitability of 
disaster. Hidden among the hype were some plausible concerns. Frankly, we 
lucked out.





--

Shmuel (Seymour J.) Metz

https://gcc02.safelinks.protection.outlook.com/?url=http:%2F%2Fmason.gmu.edu%2F~smetz3data=02%7C01%7Cebarkow%40doitt.nyc.gov%7C2f66622ef0ef4b14c32908d7907a3a7c%7C73d61799c28440228d4154cc4f1929ef%7C0%7C0%7C637136726982065700sdata=po0ExUffQ3uIV7rqwqa7bTuFXXgRFulja2k%2F3Ymhfj4%3Dreserved=0







From: IBM Mainframe Discussion List 
mailto:IBM-MAIN@LISTSERV.UA.EDU>> on behalf of 
Pommier, Rex mailto:rpomm...@sfgmembers.com>>

Sent: Friday, January 3, 2020 11:06 AM

To: IBM-MAIN@LISTSERV.UA.EDU<mailto:IBM-MAIN@LISTSERV.UA.EDU>

Subject: Re: [External] Re: FW: Re: it was 20 years ago today 



Yeah, there was a lot of hype and panic among the uninitiated/unaware.  I won't 
mention the place, but the company I was working for leading up to Y2K required 
us to test coax-to-parallel protocol convertors that were running our printers 
off 3174 controllers.



-Original Message-

From: IBM Mainframe Discussion List 
mailto:IBM-MAIN@LISTSERV.UA.EDU>> On Behalf Of Joel 
C. Ewing

Sent: Thursday, January 2, 2020 9:54 PM

To: IBM-MAIN@LISTSERV.UA.EDU<mailto:IBM-MAIN@LISTSERV.UA.EDU>

Subject: [External] Re: FW: Re: it was 20 years ago today 



Y2K concerns for a 3174 make no sense to anyone who has ever  customized one.   
 There is no place while configuring a 3174 where you tell it local date-time 
and no hardware support to sync it with any external time source.   So if it 
does have any kind of internal time awareness, there is zero reason to expect 
it to be synced with anything related to actual date-time and no reason it 
would choose to fail at a real world

1999/2000 year boundary it can't possibly know is happening.

 Joel C Ewing



On 1/2/20 8:16 PM, Bill Dodge wrote:

> We had users who were dependent on a 3174's connectivity that wanted us to 
> verify that it  was Y2K compatibe.  Totally in panic mode so several of us 
> assembled around the 3174s and shouted "Happy New Year".  They never blinked.

>

>

>

> ---

> Bill Dodge

>

>

>

>

>

>

> On Fri, 3 Jan 2020 00:07:18 +, "Schuffenhauer, Mark" 
> mailto:mschu...@tcfbank.com>> wrote:

>

> I remember all the hype, it really freaked people out. I know people who quit 
> work, liquidated everything and went off grid. Many non-technical people were 
> very concerned it was the end. Minor non-y2k issues during the first few days 
> were blown out of proportion. Probably because of the scare tactics and 
> uncertainty the contracting companies used to get y2k work.

>

> One wonders how much companies paid for y2k work that wasn't needed.

>

> -Original Message-

> From: IBM Mainframe Discussion List On Behalf Of Bill Dodge

> Sent: Thursday, January 2, 2020 5:55 PM

> To: IBM-MAIN@LISTSERV.UA.EDU<mailto:IBM-MAIN@LISTSERV.UA.EDU>

> Subject: Re: FW: Re: it was 20 years ago today 

>

> External Email

>

> I was consulting at Arlington County, Virginia County Government. My whole 
> family 

Re: [External] Re: FW: Re: it was 20 years ago today ....

[Barkow, Eileen]

Would you believe that there is still fallout from Y2K. NYC parking meters 
could not accept credit cards because of it.



https://www.ny1.com/nyc/all-boroughs/news/2020/01/03/software-glitch-knocks-out-credit-card-payments-at-nyc-parking-meter



-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Seymour J Metz
Sent: Friday, January 3, 2020 11:26 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: [External] Re: FW: Re: it was 20 years ago today 



There were date dependencies in a lot of unexpected places, although some of 
them were of minor importance. There was no more reason to believe that 
everything was under control than there was to believe in the inevitability of 
disaster. Hidden among the hype were some plausible concerns. Frankly, we 
lucked out.





--

Shmuel (Seymour J.) Metz

https://gcc02.safelinks.protection.outlook.com/?url=http:%2F%2Fmason.gmu.edu%2F~smetz3data=02%7C01%7Cebarkow%40doitt.nyc.gov%7C668247219a474d4f929208d79069ad4c%7C73d61799c28440228d4154cc4f1929ef%7C0%7C0%7C637136655989197748sdata=fffL9bJBCNMoJYgF%2F2NSwhyJc29Tajp370CzvdEm%2Bmk%3Dreserved=0







From: IBM Mainframe Discussion List 
mailto:IBM-MAIN@LISTSERV.UA.EDU>> on behalf of 
Pommier, Rex mailto:rpomm...@sfgmembers.com>>

Sent: Friday, January 3, 2020 11:06 AM

To: IBM-MAIN@LISTSERV.UA.EDU

Subject: Re: [External] Re: FW: Re: it was 20 years ago today 



Yeah, there was a lot of hype and panic among the uninitiated/unaware.  I won't 
mention the place, but the company I was working for leading up to Y2K required 
us to test coax-to-parallel protocol convertors that were running our printers 
off 3174 controllers.



-Original Message-

From: IBM Mainframe Discussion List 
mailto:IBM-MAIN@LISTSERV.UA.EDU>> On Behalf Of Joel 
C. Ewing

Sent: Thursday, January 2, 2020 9:54 PM

To: IBM-MAIN@LISTSERV.UA.EDU

Subject: [External] Re: FW: Re: it was 20 years ago today 



Y2K concerns for a 3174 make no sense to anyone who has ever  customized one.   
 There is no place while configuring a 3174 where you tell it local date-time 
and no hardware support to sync it with any external time source.   So if it 
does have any kind of internal time awareness, there is zero reason to expect 
it to be synced with anything related to actual date-time and no reason it 
would choose to fail at a real world

1999/2000 year boundary it can't possibly know is happening.

 Joel C Ewing



On 1/2/20 8:16 PM, Bill Dodge wrote:

> We had users who were dependent on a 3174's connectivity that wanted us to 
> verify that it  was Y2K compatibe.  Totally in panic mode so several of us 
> assembled around the 3174s and shouted "Happy New Year".  They never blinked.

>

>

>

> ---

> Bill Dodge

>

>

>

>

>

>

> On Fri, 3 Jan 2020 00:07:18 +, "Schuffenhauer, Mark" 
> mailto:mschu...@tcfbank.com>> wrote:

>

> I remember all the hype, it really freaked people out. I know people who quit 
> work, liquidated everything and went off grid. Many non-technical people were 
> very concerned it was the end. Minor non-y2k issues during the first few days 
> were blown out of proportion. Probably because of the scare tactics and 
> uncertainty the contracting companies used to get y2k work.

>

> One wonders how much companies paid for y2k work that wasn't needed.

>

> -Original Message-

> From: IBM Mainframe Discussion List On Behalf Of Bill Dodge

> Sent: Thursday, January 2, 2020 5:55 PM

> To: IBM-MAIN@LISTSERV.UA.EDU

> Subject: Re: FW: Re: it was 20 years ago today 

>

> External Email

>

> I was consulting at Arlington County, Virginia County Government. My whole 
> family was at a friend's house as was our tradition but I had to report to 
> the IT Department by 11:30 PM even though I had been running a virtual 
> machine whose date had been set to cross the threshold at least 10 times. We 
> were gone by 12:15.

>

>

>

> ---

> Bill Dodge

>

>

>

>

>

>

> On Thu, 2 Jan 2020 15:19:52 -0800, Tom Brennan wrote:

>

> My oldest was just hitting 5 and couldn't reach the breaker box. But I was at 
> work anyway. I'm pretty sure everybody showed up, including the IT dept head. 
> There was basically nothing to do. Maybe about 15 minutes after midnight I 
> was looking at a console with a couple of managers behind me and I said "Uh 
> oh", and wow... they were all over me looking for any kind of problem, 
> probably just to have something to report. I think it was a date formatted 
> wrong in a WTO or similar - nothing more. That might have been the extent of 
> the Y2K problems I remember seeing.

>

> On 1/2/2020 2:52 PM, Phil Smith III wrote:

>> Hmm. I sent the post below, doesn't appear to have ever showed up, so 
>> retrying!

>>

>>

>>

>> From: Phil Smith III

>> Sent: Tuesday, December 31, 2019 9:27 PM

>> To: 

Re: WTO

[Barkow, Eileen]

CHECK MPFLIST settings like this, which will suppress all msgs not specifically 
listed in the list
:
.DEFAULT,AUTO(NO),SUP(YES)

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of Dan 
D
Sent: Friday, November 8, 2019 4:09 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: WTO

Scott,

Are you writing routcde 11 to SYSLOG?

Issue D C and see what it says.  We don't here...
HARDCOPY  LOG=(SYSLOG,OPERLOG)  CMDLEVEL=CMDS
  ROUT=(1-10,12-128)<--- no 11

Try another routcde and see if it's visible.

Dan

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



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

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

Re: It's Official: Open-Plan Offices Are Now the Dumbest Management Fad of All Time | Inc.com

[Barkow, Eileen]

One of our former Mayors used open plan offices for his private buisnesses and 
tried to get some of the city agencies to convert to them as well.
We had a great big floor (with 360 degree views) covered with desks everywhere 
and I really liked it.
I got to know some of what was going on with things I was not involved with and 
the extra noise and people roaming around were
nice distractions and removes some of the isolation of closed spaces.
 This kind of set up would not be good for everyone  and would take some 
getting used to, but I missed it when we moved to other,
more traditional type of spaces.

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Mark Regan
Sent: Wednesday, July 24, 2019 8:29 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Fwd: It's Official: Open-Plan Offices Are Now the Dumbest Management 
Fad of All Time | Inc.com

For those of you that have to work in that kind of environment or may soon 
someday.

https://www.inc.com/geoffrey-james/its-official-open-plan-offices-are-now-dumbest-management-fad-of-all-time.html

or

*https://tinyurl.com/y36otmps *

Regards,

Mark Regan, K8MTR
CTO1 USNR-Retired
Nationwide Insurance, Retired

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



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

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

Re: Strange error on DR test

[Barkow, Eileen]

It looks like you are using the couple dataset and not dasd for logging.
Check the definitions in the jct entries using the logs and how the log 
datasets were defined.
To make it simple, turn off logging in CICS.
You would need to find the jct entries specifying logging and dummy them out in 
the JCT entry.

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Tony Thigpen
Sent: Friday, July 12, 2019 4:10 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Strange error on DR test

When I bring up my CICS regions, one of them is giving me:

"LOGR COUPLE DATA SET NOT AVAILABLE. MAKE A COUPLE DATA SET AVAILABLE OR REPLY 
C TO CANCEL THE CICSPTE2".

I am not sure where to start to figure out this one. Any help will be 
appreciated.

This is a single system, but sysplex is turned on (from an earlier time when 
they had multiple systems). It looks like all the dasd volumes restored 
correctly. I am not missing any.

--
Tony Thigpen

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



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

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

Re: Copy error Java module

[Barkow, Eileen]

ISHELL COPY option has a 'BINARY COPY' option.

If selected the module will be copied to the PDSE.

This is not a java module - it is the JZOS load module residing in the java HFS







Copying from file:

/usr/lpp/java/J8.0_64/mvstools/JVMLDM86



Destination for copy:

__  1.  File...

2.  Data set...



Select additional options for data set copy:

X_  Binary copy

_  Conversion...







F1=Help  F3=Exit  F6=Keyshelp F12=Cancel



-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Paul Gilmartin
Sent: Wednesday, June 12, 2019 10:03 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Copy error Java module



> Cross posted

On 2019-06-11, at 21:48:40, Jake Anderson wrote:

>

> I am trying to copy a java load module JVMLDMxx ...

>

If it's in a UNIX file, it's not a load module.  Is it a program object, a jar, 
or something else?



> ... using TSO ISHELL copy function

>

"copy function" is pretty vague.  What command, options, and operands did you 
use?



> ... to a preallocated dataset with the attribute(library type,

> recfm=u,blocksize=32760).

>

> It fails with message

>

> THERE ID A RECORD FORMAT ERROR FOR A MVS DATASET SYS5.JAVA.LOADLIB.

> EITHER THE OUTPUT RECORD FORMAT IS UNDEFINED FOR A TEXT INPUT FILE, OR

> THE OUTPUT RECORD FORMAT IS NOT VALID

>

> Has anyone faced this message and what is the attribute of output

> dataset that can help moving the module from OMVS to a MVS.



-- gil



--

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



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

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

Re: Copy error Java module

[Barkow, Eileen]

Select the BINARY option

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Jake Anderson
Sent: Tuesday, June 11, 2019 11:49 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Copy error Java module

Hi

Cross posted

I am trying to copy a java load module JVMLDMxx using TSO ISHELL copy function 
to a preallocated dataset with the attribute(library type, 
recfm=u,blocksize=32760).

It fails with message

THERE ID A RECORD FORMAT ERROR FOR A MVS DATASET SYS5.JAVA.LOADLIB. EITHER THE 
OUTPUT RECORD FORMAT IS UNDEFINED FOR A TEXT INPUT FILE, OR THE OUTPUT RECORD 
FORMAT IS NOT VALID

Has anyone faced this message and what is the attribute of output dataset that 
can help moving the module from OMVS to a MVS.

Jake

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



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

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

Re: Do I need to copy a mainframe flat file to OMVS, before I access the data from a JAVA program? - JZOS question

[Barkow, Eileen]

Kirk, 
You are correct.

I  was able to run some samples in  the old jar files using 64 bit java and 
they work.
At the time I thought there was a problem with it, I think I was trying to run 
the  MvsConsoleInteraction class,
but it works now.   I was trying to invoke MvsConsoleInteraction from a 64 bit 
program, instead of running it directly.
Maybe that caused an error which I thought was because it was supposed to be 
run only  from a 31 bit program.
I ended up writing my own DLL to put out the console messages so at least I 
learned something from my mistake.

Anyway, thanks to everyone for their input.


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Kirk Wolf
Sent: Friday, January 11, 2019 2:38 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Do I need to copy a mainframe flat file to OMVS, before I access 
the data from a JAVA program? - JZOS question

Eileen,

The JZOS sample (Java) code consists of samples that use the JZOS API that is 
part of the SDK.
There would not be any code in these that would be dependent on the bit width 
of the SDK/JVM.

Also, the file listing that you show above are the source files.  It appears to 
me that they all have the date that the zip file was built
(unfortunately).   I can assure you that these dates don't represent the
last time that the source file was changed.   You can prove this to
yourself by diffing the two zip files that you have.

Take for example the ZipDatasets.java example that you mentioned.   I don't
see any changes except for some minor javadoc cleanups since I originally wrote 
it 10 years ago.

On Fri, Jan 11, 2019 at 11:56 AM Barkow, Eileen 
wrote:

> i just downloaded the latest samples and see that many were recompiled 
> in 2016/2017.
> the ones I had downloaded back on June 1, 2017 were compiled back in 
> 2012/2013.
> so it looks like they have changed since I last used them and may have 
> been fixed to work with 64 bit java.
>
> ***new samples**
> 08/16/2016  10:28 AM 5,153 CatalogSearchSample.java
> 08/16/2016  10:28 AM 3,705 DynallocCopyDataset.java
> 08/16/2016  10:28 AM 7,331 EnqUpdatePdsMember.java
> 08/16/2016  10:28 AM 2,302 FileFactoryCopy.java
> 08/16/2016  10:28 AM 1,132 HelloWorld.java
> 01/10/2017  03:28 PM 3,404 LogstreamSample.java
> 08/16/2016  10:28 AM 5,637 MvsConsoleInteraction.java
> 08/16/2016  10:28 AM 3,718 MvsConsoleWrapper.java
> 08/16/2016  10:28 AM 1,400 MvsJob.java
> 08/16/2016  10:28 AM 7,206 MvsJobOutput.java
> 08/16/2016  10:28 AM 3,471 MvsSubmitJob.java
> 08/16/2016  10:28 AM 1,504 PdsLister.java
> 08/16/2016  10:28 AM 1,556 PeekOSMemory.java
> 08/16/2016  10:28 AM 1,753 ShowJavaProperties.java
> 08/16/2016  10:28 AM 1,512 StdinTester.java
> 08/16/2016  10:28 AM 1,853 ZFileCopy.java
> 08/16/2016  10:28 AM 5,814 ZFileKSDS.java
> 08/16/2016  10:28 AM 1,833 ZFilePrint.java
> 08/16/2016  10:28 AM14,803 ZipDatasetSource.java
> 08/16/2016  10:28 AM 8,778 ZipDatasets.java
>   20 File(s) 83,865 bytes
> **old samples from 2017
>
> 01/25/2013  02:11 PM  .
> 01/24/2013  09:27 AM  ..
> 01/24/2013  09:27 AM  dfsort
> 01/24/2013  09:27 AM  fields
> 01/24/2013  09:27 AM  nonvsam
> 01/24/2013  09:27 AM  vsam
> 05/30/2012  04:49 PM 5,015 CatalogSearchSample.java
> 05/30/2012  04:49 PM 3,612 DynallocCopyDataset.java
> 05/30/2012  04:49 PM 7,103 EnqUpdatePdsMember.java
> 05/30/2012  04:49 PM 2,231 FileFactoryCopy.java
> 05/30/2012  04:49 PM 1,099 HelloWorld.java
> 05/30/2012  04:49 PM 5,495 MvsConsoleInteraction.java
> 05/30/2012  04:49 PM 3,604 MvsConsoleWrapper.java
> 05/30/2012  04:49 PM 1,347 MvsJob.java
> 05/30/2012  04:49 PM 6,984 MvsJobOutput.java
> 05/30/2012  04:49 PM 3,371 MvsSubmitJob.java
> 05/30/2012  04:49 PM 1,462 PdsLister.java
> 05/30/2012  04:49 PM 1,515 PeekOSMemory.java
> 05/30/2012  04:49 PM 1,702 ShowJavaProperties.java
> 05/30/2012  04:49 PM 1,467 StdinTester.java
> 05/30/2012  04:49 PM 1,804 ZFileCopy.java
> 05/30/2012  04:49 PM 5,638 ZFileKSDS.java
> 05/30/2012  04:49 PM 1,784 ZFilePrint.java
> 05/30/2012  04:49 PM14,374 ZipDatasetSource.java
> 10/24/2012  10:56 AM 8,533 ZipDatasets.java
> 01/24/2013  01:41 PM  compress
> 01/25/2013  03:34 PM 3,982 MynallocCopyDataset.java
&g

Re: Do I need to copy a mainframe flat file to OMVS, before I access the data from a JAVA program? - JZOS question

[Barkow, Eileen]

i just downloaded the latest samples and see that many were recompiled in 
2016/2017.
the ones I had downloaded back on June 1, 2017 were compiled back in 2012/2013.
so it looks like they have changed since I last used them and may have been 
fixed to work with 64 bit java. 

***new samples**
08/16/2016  10:28 AM 5,153 CatalogSearchSample.java
08/16/2016  10:28 AM 3,705 DynallocCopyDataset.java
08/16/2016  10:28 AM 7,331 EnqUpdatePdsMember.java
08/16/2016  10:28 AM 2,302 FileFactoryCopy.java
08/16/2016  10:28 AM 1,132 HelloWorld.java
01/10/2017  03:28 PM 3,404 LogstreamSample.java
08/16/2016  10:28 AM 5,637 MvsConsoleInteraction.java
08/16/2016  10:28 AM 3,718 MvsConsoleWrapper.java
08/16/2016  10:28 AM 1,400 MvsJob.java
08/16/2016  10:28 AM 7,206 MvsJobOutput.java
08/16/2016  10:28 AM 3,471 MvsSubmitJob.java
08/16/2016  10:28 AM 1,504 PdsLister.java
08/16/2016  10:28 AM 1,556 PeekOSMemory.java
08/16/2016  10:28 AM 1,753 ShowJavaProperties.java
08/16/2016  10:28 AM 1,512 StdinTester.java
08/16/2016  10:28 AM 1,853 ZFileCopy.java
08/16/2016  10:28 AM 5,814 ZFileKSDS.java
08/16/2016  10:28 AM 1,833 ZFilePrint.java
08/16/2016  10:28 AM14,803 ZipDatasetSource.java
08/16/2016  10:28 AM 8,778 ZipDatasets.java
  20 File(s) 83,865 bytes
**old samples from 2017

01/25/2013  02:11 PM  .
01/24/2013  09:27 AM  ..
01/24/2013  09:27 AM  dfsort
01/24/2013  09:27 AM  fields
01/24/2013  09:27 AM  nonvsam
01/24/2013  09:27 AM  vsam
05/30/2012  04:49 PM 5,015 CatalogSearchSample.java
05/30/2012  04:49 PM 3,612 DynallocCopyDataset.java
05/30/2012  04:49 PM 7,103 EnqUpdatePdsMember.java
05/30/2012  04:49 PM 2,231 FileFactoryCopy.java
05/30/2012  04:49 PM 1,099 HelloWorld.java
05/30/2012  04:49 PM 5,495 MvsConsoleInteraction.java
05/30/2012  04:49 PM 3,604 MvsConsoleWrapper.java
05/30/2012  04:49 PM 1,347 MvsJob.java
05/30/2012  04:49 PM 6,984 MvsJobOutput.java
05/30/2012  04:49 PM 3,371 MvsSubmitJob.java
05/30/2012  04:49 PM 1,462 PdsLister.java
05/30/2012  04:49 PM 1,515 PeekOSMemory.java
05/30/2012  04:49 PM 1,702 ShowJavaProperties.java
05/30/2012  04:49 PM 1,467 StdinTester.java
05/30/2012  04:49 PM 1,804 ZFileCopy.java
05/30/2012  04:49 PM 5,638 ZFileKSDS.java
05/30/2012  04:49 PM 1,784 ZFilePrint.java
05/30/2012  04:49 PM14,374 ZipDatasetSource.java
10/24/2012  10:56 AM 8,533 ZipDatasets.java
01/24/2013  01:41 PM  compress
01/25/2013  03:34 PM 3,982 MynallocCopyDataset.java
  20 File(s) 82,122 bytes

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Kirk Wolf
Sent: Friday, January 11, 2019 12:29 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Do I need to copy a mainframe flat file to OMVS, before I access 
the data from a JAVA program? - JZOS question

The ZipDatasets sample program works fine with the 64-bit SDK.
The JZOS toolkit class library (and native code) in included in the 64-bit SDKs.

I don't know what problem that you were having, but it sounds like a CLASSPATH 
problem with using the sample classes, which are not included in the SDK unless 
you download them.


On Fri, Jan 11, 2019 at 11:18 AM Barkow, Eileen 
wrote:

> I was referring specifically to the supplied classes given with JZOS  
> - like ZipDataSets, those to process MVs files, MVS CONSOLE interaction, etc.
> I could not run them with 64 bit java JVMs and could  not find any 
> classes compiled with 64 bit java.
>
> And even if the Java source code for the JZOS classes is supplied, 
> they all invoke C/C++ routines for which no source code is supplied, 
> so You could not reassemble them yourself to work with 64 bit.
>
> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] 
> On Behalf Of Edgington, Jerry
> Sent: Friday, January 11, 2019 12:12 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Do I need to copy a mainframe flat file to OMVS, before I 
> access the data from a JAVA program? - JZOS question
>
> For all of my Java programs on z/OS, which is limited, but have done a 
> few different items, I have only used the Java loaded with z/OS 
> install.  Also, there should a src.zip in /usr/lpp/java/J8.0_64 
> folder, with a lot of sample Java code.  One thing to note, make sure 
> you have these in your configuration
>
> LIBPATH $java_home/bin, $java_home/li

Re: Do I need to copy a mainframe flat file to OMVS, before I access the data from a JAVA program? - JZOS question

[Barkow, Eileen]

Like I said, I have not looked at JZOS for the past 2 years, but I was not able 
to run the supplied sample classes with
64 bit java. I will re-download them and try again.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Kirk Wolf
Sent: Friday, January 11, 2019 12:29 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Do I need to copy a mainframe flat file to OMVS, before I access 
the data from a JAVA program? - JZOS question

The ZipDatasets sample program works fine with the 64-bit SDK.
The JZOS toolkit class library (and native code) in included in the 64-bit SDKs.

I don't know what problem that you were having, but it sounds like a CLASSPATH 
problem with using the sample classes, which are not included in the SDK unless 
you download them.


On Fri, Jan 11, 2019 at 11:18 AM Barkow, Eileen 
wrote:

> I was referring specifically to the supplied classes given with JZOS  
> - like ZipDataSets, those to process MVs files, MVS CONSOLE interaction, etc.
> I could not run them with 64 bit java JVMs and could  not find any 
> classes compiled with 64 bit java.
>
> And even if the Java source code for the JZOS classes is supplied, 
> they all invoke C/C++ routines for which no source code is supplied, 
> so You could not reassemble them yourself to work with 64 bit.
>
> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] 
> On Behalf Of Edgington, Jerry
> Sent: Friday, January 11, 2019 12:12 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Do I need to copy a mainframe flat file to OMVS, before I 
> access the data from a JAVA program? - JZOS question
>
> For all of my Java programs on z/OS, which is limited, but have done a 
> few different items, I have only used the Java loaded with z/OS 
> install.  Also, there should a src.zip in /usr/lpp/java/J8.0_64 
> folder, with a lot of sample Java code.  One thing to note, make sure 
> you have these in your configuration
>
> LIBPATH $java_home/bin, $java_home/lib/s390x, $java_home/lib/s390x/j9vm
> CLASSPATH   load $java_home/lib, $java_home/lib/ext
>
> And here are some helpful Java option setting as well.
>
> # Set JZOS specific options
> # Use this variable to specify encoding for DD STDOUT and STDERR 
> #export JZOS_OUTPUT_ENCODING=Cp1047 # Use this variable to prevent 
> JZOS from handling MVS operator commands #export 
> JZOS_ENABLE_MVS_COMMANDS=false # Use this variable to supply 
> additional arguments to main #export JZOS_MAIN_ARGS=""
> # Configure JVM options
> IJO="-Xms16m -Xmx128m"
> # Uncomment the following to aid in debugging "Class Not Found" 
> problems #IJO="$IJO -verbose:class"
> # Uncomment the following if you want to run with Ascii file encoding..
> #IJO="$IJO -Dfile.encoding=ISO8859-1"
> export IBM_JAVA_OPTIONS="$IJO "
>
> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] 
> On Behalf Of Barkow, Eileen
> Sent: Friday, January 11, 2019 11:58 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Do I need to copy a mainframe flat file to OMVS, before I 
> access the data from a JAVA program? - JZOS question
>
> Re  JZOS:
>
> The last time I looked at JZOS , about 2 years ago, there were no 
> supplied classes for 64 bit java, only 31 bit.
> JZOS itself had a 64 bit option to run the batch launcher,   but no
> classes that I could find, like those for the MVS datasets or my 
> favorite one for ZipDataSets.
> And the documentation consisted of a README file from IBM that pointed 
> to a bogus, non-existent web site.
>
> Before I try JZOS again, is it supplying classes compiled with 64 bit 
> java or not?
>
>
> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] 
> On Behalf Of Jantje.
> Sent: Friday, January 11, 2019 7:05 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Do I need to copy a mainframe flat file to OMVS, before I 
> access the data from a JAVA program?
>
> On Thu, 10 Jan 2019 18:11:47 -0500, Cameron Conacher 
> 
> wrote:
>
> >Thanks everyone.
> >Looks like I have some reading to do :-)
>
> Yes. And while you are at it, do have a look at the excellent jZos 
> stuff originally from Dovetailed, but now included in the JVM. It has 
> (amongst many other goodies) a ZFile class.
>
> Cheers,
>
> Jantje.
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions, send 
> email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>
> 
>
> This e-mail, including any attachments, ma

Re: Do I need to copy a mainframe flat file to OMVS, before I access the data from a JAVA program? - JZOS question

[Barkow, Eileen]

Thanks Kirk.

I was referring to the samples. At the time I looked, I could not find any 
sample classes compiled with 64 bit java.
I know that you can write your own code and run it with the 64 bit launcher, 
but I wanted to run the sample code.
And there was no source code for the dlls used by the samples so that they 
could be recompiled.
I will look again.


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Kirk Wolf
Sent: Friday, January 11, 2019 12:22 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Do I need to copy a mainframe flat file to OMVS, before I access 
the data from a JAVA program? - JZOS question

Another point of common confusion wrt JZOS:

"JZOS" is really two separate things:

- The "JZOS batch launcher", for starting the Java JVM conveniently in batch

- The "JZOS Toolkit" class library, which has Java classes and native code for 
accessing z/OS services and facilities.
   For example:  classes for doing dataset I/O.

You don't have to use the launcher in order to use the JZOS Toolkit class 
library, and vice versa.

On Fri, Jan 11, 2019 at 11:16 AM Kirk Wolf  wrote:

> Eileen,
>
> I'm not exactly sure I understand what you mean.
> JZOS has been included in the 64-bit SDKs for more than a dozen years.
>
> - The JZOS toolkit java classes  (ibmjzos.jar), are java byte codes.
> There is no such thing as compiling these with a 31-bit vs 64-bit sdk.
> - The JZOS tookit JNI code dlls are part of the z/OS Java SDK.   The
> 64-bit SDK has 64-bit versions of these dlls.
>
> The "ZipDatasets" is part of the *samples* for JZOS, not the JZOS 
> product itself (which is included in the SDK), but separately downloadable.
> See for example:
> https://www.ibm.com/support/knowledgecenter/en/SSYKE2_7.0.0/com.ibm.ja
> va.zsecurity.70.doc/zsecurity-component/jzos.html
>
> Kirk Wolf
> Dovetailed Technologies
> http://dovetail.com
>
> On Fri, Jan 11, 2019 at 11:01 AM Barkow, Eileen 
> 
> wrote:
>
>> Re  JZOS:
>>
>> The last time I looked at JZOS , about 2 years ago, there were no 
>> supplied classes for 64 bit java, only 31 bit.
>> JZOS itself had a 64 bit option to run the batch launcher,   but no
>> classes that I could find, like those for the MVS datasets or my 
>> favorite one for ZipDataSets.
>> And the documentation consisted of a README file from IBM that 
>> pointed to a bogus, non-existent web site.
>>
>> Before I try JZOS again, is it supplying classes compiled with 64 bit 
>> java or not?
>>
>>
>> -Original Message-
>> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] 
>> On Behalf Of Jantje.
>> Sent: Friday, January 11, 2019 7:05 AM
>> To: IBM-MAIN@LISTSERV.UA.EDU
>> Subject: Re: Do I need to copy a mainframe flat file to OMVS, before 
>> I access the data from a JAVA program?
>>
>> On Thu, 10 Jan 2019 18:11:47 -0500, Cameron Conacher 
>> 
>> wrote:
>>
>> >Thanks everyone.
>> >Looks like I have some reading to do :-)
>>
>> Yes. And while you are at it, do have a look at the excellent jZos 
>> stuff originally from Dovetailed, but now included in the JVM. It has 
>> (amongst many other goodies) a ZFile class.
>>
>> Cheers,
>>
>> Jantje.
>>
>> -
>> - For IBM-MAIN subscribe / signoff / archive access instructions, 
>> send email to lists...@listserv.ua.edu with the message: INFO 
>> IBM-MAIN
>>
>> 
>>
>> This e-mail, including any attachments, may be confidential, 
>> privileged or otherwise legally protected. It is intended only for 
>> the addressee. If you received this e-mail in error or from someone 
>> who was not authorized to send it to you, do not disseminate, copy or 
>> otherwise use this e-mail or its attachments. Please notify the 
>> sender immediately by reply e-mail and delete the e-mail from your system.
>>
>> -
>> - 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: Do I need to copy a mainframe flat file to OMVS, before I access the data from a JAVA program? - JZOS question

[Barkow, Eileen]

I was referring specifically to the supplied classes given with JZOS  - like 
ZipDataSets, those to process MVs files, MVS CONSOLE interaction, etc.
I could not run them with 64 bit java JVMs and could  not find any classes 
compiled with 64 bit java.

And even if the Java source code for the JZOS classes is supplied, they all 
invoke C/C++ routines for which no source code is supplied, so
You could not reassemble them yourself to work with 64 bit.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Edgington, Jerry
Sent: Friday, January 11, 2019 12:12 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Do I need to copy a mainframe flat file to OMVS, before I access 
the data from a JAVA program? - JZOS question

For all of my Java programs on z/OS, which is limited, but have done a few 
different items, I have only used the Java loaded with z/OS install.  Also, 
there should a src.zip in /usr/lpp/java/J8.0_64 folder, with a lot of sample 
Java code.  One thing to note, make sure you have these in your configuration

LIBPATH $java_home/bin, $java_home/lib/s390x, $java_home/lib/s390x/j9vm
CLASSPATH   load $java_home/lib, $java_home/lib/ext

And here are some helpful Java option setting as well.

# Set JZOS specific options
# Use this variable to specify encoding for DD STDOUT and STDERR   
#export JZOS_OUTPUT_ENCODING=Cp1047
# Use this variable to prevent JZOS from handling MVS operator commands
#export JZOS_ENABLE_MVS_COMMANDS=false 
# Use this variable to supply additional arguments to main 
#export JZOS_MAIN_ARGS=""  
# Configure JVM options
IJO="-Xms16m -Xmx128m" 
# Uncomment the following to aid in debugging "Class Not Found" problems   
#IJO="$IJO -verbose:class" 
# Uncomment the following if you want to run with Ascii file encoding..
#IJO="$IJO -Dfile.encoding=ISO8859-1"  
export IBM_JAVA_OPTIONS="$IJO "

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Barkow, Eileen
Sent: Friday, January 11, 2019 11:58 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Do I need to copy a mainframe flat file to OMVS, before I access 
the data from a JAVA program? - JZOS question

Re  JZOS:

The last time I looked at JZOS , about 2 years ago, there were no supplied 
classes for 64 bit java, only 31 bit.
JZOS itself had a 64 bit option to run the batch launcher,   but no classes 
that I could find, like those for the MVS datasets or my
favorite one for ZipDataSets.
And the documentation consisted of a README file from IBM that pointed to a 
bogus, non-existent web site.

Before I try JZOS again, is it supplying classes compiled with 64 bit  java or 
not?


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Jantje.
Sent: Friday, January 11, 2019 7:05 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Do I need to copy a mainframe flat file to OMVS, before I access 
the data from a JAVA program?

On Thu, 10 Jan 2019 18:11:47 -0500, Cameron Conacher  wrote:

>Thanks everyone.
>Looks like I have some reading to do :-)

Yes. And while you are at it, do have a look at the excellent jZos stuff 
originally from Dovetailed, but now included in the JVM. It has (amongst many 
other goodies) a ZFile class.

Cheers,

Jantje.

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



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

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

Re: Do I need to copy a mainframe flat file to OMVS, before I access the data from a JAVA program? - JZOS question

[Barkow, Eileen]

Re  JZOS:

The last time I looked at JZOS , about 2 years ago, there were no supplied 
classes for 64 bit java, only 31 bit.
JZOS itself had a 64 bit option to run the batch launcher,   but no classes 
that I could find, like those for the MVS datasets or my
favorite one for ZipDataSets.
And the documentation consisted of a README file from IBM that pointed to a 
bogus, non-existent web site.

Before I try JZOS again, is it supplying classes compiled with 64 bit  java or 
not?


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Jantje.
Sent: Friday, January 11, 2019 7:05 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Do I need to copy a mainframe flat file to OMVS, before I access 
the data from a JAVA program?

On Thu, 10 Jan 2019 18:11:47 -0500, Cameron Conacher  wrote:

>Thanks everyone.
>Looks like I have some reading to do :-)

Yes. And while you are at it, do have a look at the excellent jZos stuff 
originally from Dovetailed, but now included in the JVM. It has (amongst many 
other goodies) a ZFile class.

Cheers,

Jantje.

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



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

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

Re: article about Grace Hopper, developer of COBOL

[Barkow, Eileen]

Actually it is a good web site once you figure out how to click the arrows to 
display the pages (just hit continue and click the main arrow).
And AM NY is a free hard copied newspaper that is distributed every week day 
around the city - good horoscope and ken ken puzzle.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Tom Marchant
Sent: Thursday, January 10, 2019 9:31 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: article about Grace Hopper, developer of COBOL

On Thu, 10 Jan 2019 13:48:14 +, Barkow, Eileen wrote:

>Navigate to page A8 for interesting article about Grace Hopper,
>developer of COBOL
>
>http://paper.amny.com/html5/reader/production/default.aspx?=4af0a
>a34-706c-410d-a9ff-f93a3c23b1c7

What an awful web site!

--
Tom Marchant

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



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

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

Re: article about Grace Hopper, developer of COBOL

[Barkow, Eileen]

The article was just a sort of an editorial advocating for a statue of Grace 
Hopper, not a biography of her, so it had to be short.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Blake, Daniel J [CTR]
Sent: Thursday, January 10, 2019 9:04 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: article about Grace Hopper, developer of COBOL

Wow, so much more can be said about her contributions that I found the article 
lacking.

"The only phrase I've ever disliked is, 'Why, we've always done it that way.' I 
always tell young people, 'Go ahead and do it. You can always apologize 
later.'" ~ Grace Hopper

And one of the most used even today...

"It is often easier to ask for forgiveness than to ask for permission." ~ Grace 
Hopper

;-D an

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Barkow, Eileen
Sent: Thursday, January 10, 2019 8:48 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: article about Grace Hopper, developer of COBOL

Navigate to page A8 for interesting article about Grace Hopper, developer of 
COBOL

http://paper.amny.com/html5/reader/production/default.aspx?=4af0aa34-706c-410d-a9ff-f93a3c23b1c7



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

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

article about Grace Hopper, developer of COBOL

[Barkow, Eileen]

Navigate to page A8 for interesting article about Grace Hopper, developer of 
COBOL

http://paper.amny.com/html5/reader/production/default.aspx?=4af0aa34-706c-410d-a9ff-f93a3c23b1c7



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

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

Re: SVC99 DEALLOC Failure

[Barkow, Eileen]

DEALLOC requires 2 text units - the DDName tu and an UNALLOC tu

***UNALLOC TU
LA6,DUNUNALC   POINT TO UNALLOC KEY
STH   6,S99TUKEY   & PLUG IT INTO T.U.
LA6,0  0 PARMS FOR UNALLOC
STH   6,S99TUNUM   PLUG INTO T.U.

MVI   S99VERB,S99VRBUN PLUG IN UNALLOCATE REQUEST CODE

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Scott Ballentine
Sent: Tuesday, October 30, 2018 8:15 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: SVC99 DEALLOC Failure

That error code really means "SVC 99 can't find a required key in the list of 
text units."  You must specify one of DDNAME, DSNAME, or PATH for SVC 99 
unallocation.  For that error, the system only cares that it has found one of 
those three keys in the list during unallocation, and what you did at 
allocation time doesn't matter - SVC 99 is just doing basic parameter list 
validation.

You said "in the RBX I get ERROR CODE 0388" - you mean the S99ERROR field in 
the S99RB?  There are some codes in the S99RBX, but those are different.

Double check that the pointer to the text unit list for the unallocation is 
pointing to the correct storage, the text units contain the correct keys, and 
that you don't have the end of list indicator (the high-order bit) turned on 
for any of the text unit pointers other than the last.

-Scott Ballentine (sbal...@us.ibm.com)
z/OS Allocation, Scheduler, SMF

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



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

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

Re: SDSF and z/OSEM and Automation

[Barkow, Eileen]

You would have to know each job name/number in advance for the $DJ,LONG.
SDSF can show the entire input queue - you just select each task, get the start 
time, and cancel it if needed directly
from SDSF.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Mike Shorkend
Sent: Friday, October 19, 2018 1:17 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: SDSF and z/OSEM and Automation

The $DJ,LONG command returns a field with the job creation date and time. 
You could pull this with REXX and the CONSOLE command and then do the math.

$DJ(827),LONG
$HASP890 JOB(MIKEBR14) 536
$HASP890 JOB(MIKEBR14)  STATUS=(AWAITING EXECUTION),CLASS=Z,
$HASP890PRIORITY=7,SYSAFF=(ANY),HOLD=(NONE),
$HASP890CMDAUTH=(LOCAL),OFFS=(),SECLABEL=,
$HASP890USERID=MIKE,SPOOL=(VOLUMES=(VPSPOL),
$HASP890TGS=1,PERCENT=0.0052),ARM_ELEMENT=NO,
$HASP890CARDS=2,DUBIOUS=NO,REBUILD=NO,
$HASP890SRVCLASS=BATMDM,SCHENV=,SCHENV_AFF=(ANY),
$HASP890CC=(),DELAY=(),CRTIME=(2018.292,17:13:56)

Note that the time returned is UTC and not local

HTH

Mike


On Fri, 19 Oct 2018 at 19:36, Lizette Koehler 
wrote:

> So I want to create a process that "notices" that a job has been in
> the
> JES2
> Input queue for over 24 hours and not run.
>
> Sometimes this is legitimate and sometimes not.
>
> With z/OSEM we add resource names so the users do not need to code
> /*ROUTE XEQ lpar to run.
>
> What I find is sometimes the resource name created in the JCL is not
> valid for the environment.
>
> I know I can issue $DJ,LONG and find out what resource it is
> waiting on.
>
> What I am struggling with is how can I see the INPUT queue and
> determine how long a job has been waiting.
>
> I am thinking something with ISFEXEC (SDSF) that I can pass to
> automation to make the determination and/or cancel of the task.
>
> I am just in the design phase, so no real details other than this
> sketch of the process.
>
> Thanks
>
>
> Lizette
> A theory can never be proven, but it can be falsified.  Karl Raimund
> Popper
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions, send
> email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>


--
Mike Shorkend
m...@shorkend.com
www.shorkend.com
Tel: +972524208743
Fax: +97239772196

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



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

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

Re: SDSF and z/OSEM and Automation

[Barkow, Eileen]

You really do not need automation for this except to kick off a task that uses 
SDSF/REXX to issue an  "I"  command to see the input queues and
Then select each entry to see the date/time the job was submitted.
You can find sample SDSF/REXX clists in the manual which do similar things or I 
have some written  which I can share with you.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Lizette Koehler
Sent: Friday, October 19, 2018 12:37 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: SDSF and z/OSEM and Automation

So I want to create a process that "notices" that a job has been in the JES2 
Input queue for over 24 hours and not run.

Sometimes this is legitimate and sometimes not.

With z/OSEM we add resource names so the users do not need to code /*ROUTE XEQ 
lpar to run.

What I find is sometimes the resource name created in the JCL is not valid for 
the environment.

I know I can issue $DJ,LONG and find out what resource it is waiting on.

What I am struggling with is how can I see the INPUT queue and determine how 
long a job has been waiting.

I am thinking something with ISFEXEC (SDSF) that I can pass to automation to 
make the determination and/or cancel of the task.

I am just in the design phase, so no real details other than this sketch of the 
process.

Thanks


Lizette
A theory can never be proven, but it can be falsified.  Karl Raimund Popper

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



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

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

Re: get ECSA key 7 storage under CICS

[Barkow, Eileen]

I believe that z/OS waits are still occurred in CICS when accessing certain 
types of files, like extra-partition, which are QSAM datasets.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Ed Jaffe
Sent: Thursday, October 18, 2018 1:57 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: get ECSA key 7 storage under CICS

On 10/18/2018 10:50 AM, Wayne Driscoll wrote:
> the logic to retrieve log records via IFI is highly specialized and requires 
> z/OS waits, something not to be done in CICS programming.

That 'wait' restriction was lifted *years* ago with the advent of the
OPENAPI and L8 TCBs . Without that major architectural improvement we
could not have z/OS UNIX, Java, XML, JSON, and numerous other facilities
routinely invoked in the modern era by CICS threadsafe transactions.

--
Phoenix Software International
Edward E. Jaffe
831 Parkview Drive North
El Segundo, CA 90245
https://www.phoenixsoftware.com/



This e-mail message, including any attachments, appended messages and the
information contained therein, is for the sole use of the intended
recipient(s). If you are not an intended recipient or have otherwise
received this email message in error, any use, dissemination, distribution,
review, storage or copying of this e-mail message and the information
contained therein is strictly prohibited. If you are not an intended
recipient, please contact the sender by reply e-mail and destroy all copies
of this email message and do not otherwise utilize or retain this email
message or any or all of the information contained therein. Although this
email message and any attachments or appended messages are believed to be
free of any virus or other defect that might affect any computer system into
which it is received and opened, it is the responsibility of the recipient
to ensure that it is virus free and no responsibility is accepted by the
sender for any loss or damage arising in any way from its opening or use.

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



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

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

Re: get ECSA key 7 storage under CICS

[Barkow, Eileen]

LRS used to provide source code for various VPS modules and I found it in one 
of their libs.
It was not meant to be distributed.
In order to call the SVC a programmer would have to know about it first as well 
as have a need for it;
neither of which applied to any CICS application programmers.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Jousma, David
Sent: Thursday, October 18, 2018 10:02 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: get ECSA key 7 storage under CICS

I'm glad to hear you don't run it.  It's not the few nano seconds, it's the 
idea that anyone could call it, passing any address to any routine, and be in 
supervisor state.   Are you sure LRS would have distributed this?   It would 
seem hard to believe, honestly.

I'd implore you to NOT give this to anyone if they ask for it.

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Barkow, Eileen
Sent: Thursday, October 18, 2018 9:55 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: get ECSA key 7 storage under CICS

**CAUTION EXTERNAL EMAIL**

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

The   SVC code just sets the JSCBAUTH bit on for a few nanoseconds while the 
user code runs and then sets if off  in response to another SVC call to do so.
I do not run it any more but it really came in handy and did not cause any 
problems.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Jousma, David
Sent: Thursday, October 18, 2018 9:50 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: get ECSA key 7 storage under CICS

Eileen,  that code sounds suspiciously like a huge security vulnerability?  Am 
I missing something?

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Barkow, Eileen
Sent: Thursday, October 18, 2018 9:46 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: get ECSA key 7 storage under CICS

**CAUTION EXTERNAL EMAIL**

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

I actually have run a few CICS programs in supervisor state using an old SVC 
routine that LRS used to provide - You just pass it the address of the code to 
run and it sets the JSCBAUTH bit on so that the code runs in supervisor 
state/key 0.
I needed this in order to issue MVS commands directly from CICS, like VTAM 
commands to vary devices INACT and START commands for various things.
I still have the SVC code if anyone wants it.

The problem with CICS has always been that it sets the JSCBAUTH  bit off after 
initialization so that APF authorized programs cannot run.



-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Binyamin Dissen
Sent: Thursday, October 18, 2018 7:13 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: get ECSA key 7 storage under CICS

You need to be supervisor state to do this. Using CICS just because it is 
easier is a wrong decision.

But if you are sold on using CICS, you would need to write a SVC routine to 
actually do the work and have your transaction supply a CICS area as a buffer 
and the SVC routine will do the IFI work and return the record.

On Thu, 18 Oct 2018 05:08:36 -0500 Wang Rong  wrote:

:>Hi Binyamin,
:>
:> Many thanks to your quick replay.
:> I'm trying to capture/send DB2 log record using IFI call. The storage 
requirement is ECSA key 7 storage: "The return area for monitor programs that 
issue IFCID 0306 requests must reside either in ECSA key 7 storage or in the 
64-bit common key 7 storage area above the 2-GB bar" (from IBM book).
:> I prefer to use CICS because it's easy programming.
:>
:>

--
Binyamin Dissen  http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me, you should 
preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems, especially those 
from irresponsible companies.

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



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

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

Re: get ECSA key 7 storage under CICS

[Barkow, Eileen]

The   SVC code just sets the JSCBAUTH bit on for a few nanoseconds while the 
user code runs and then sets if off  in response to another SVC call to do so.
I do not run it any more but it really came in handy and did not cause any 
problems.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Jousma, David
Sent: Thursday, October 18, 2018 9:50 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: get ECSA key 7 storage under CICS

Eileen,  that code sounds suspiciously like a huge security vulnerability?  Am 
I missing something?

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Barkow, Eileen
Sent: Thursday, October 18, 2018 9:46 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: get ECSA key 7 storage under CICS

**CAUTION EXTERNAL EMAIL**

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

I actually have run a few CICS programs in supervisor state using an old SVC 
routine that LRS used to provide - You just pass it the address of the code to 
run and it sets the JSCBAUTH bit on so that the code runs in supervisor 
state/key 0.
I needed this in order to issue MVS commands directly from CICS, like VTAM 
commands to vary devices INACT and START commands for various things.
I still have the SVC code if anyone wants it.

The problem with CICS has always been that it sets the JSCBAUTH  bit off after 
initialization so that APF authorized programs cannot run.



-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Binyamin Dissen
Sent: Thursday, October 18, 2018 7:13 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: get ECSA key 7 storage under CICS

You need to be supervisor state to do this. Using CICS just because it is 
easier is a wrong decision.

But if you are sold on using CICS, you would need to write a SVC routine to 
actually do the work and have your transaction supply a CICS area as a buffer 
and the SVC routine will do the IFI work and return the record.

On Thu, 18 Oct 2018 05:08:36 -0500 Wang Rong  wrote:

:>Hi Binyamin,
:>
:> Many thanks to your quick replay.
:> I'm trying to capture/send DB2 log record using IFI call. The storage 
requirement is ECSA key 7 storage: "The return area for monitor programs that 
issue IFCID 0306 requests must reside either in ECSA key 7 storage or in the 
64-bit common key 7 storage area above the 2-GB bar" (from IBM book).
:> I prefer to use CICS because it's easy programming.
:>
:>

--
Binyamin Dissen  http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me, you should 
preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems, especially those 
from irresponsible companies.

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



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

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

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


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

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

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

Re: get ECSA key 7 storage under CICS

[Barkow, Eileen]

I actually have run a few CICS programs in supervisor state using an old SVC 
routine that LRS used to provide -
You just pass it the address of the code to run and it sets the JSCBAUTH bit on 
so that the code runs in supervisor state/key 0.
I needed this in order to issue MVS commands directly from CICS, like VTAM 
commands to vary devices INACT and START commands for various things.
I still have the SVC code if anyone wants it.

The problem with CICS has always been that it sets the JSCBAUTH  bit off after 
initialization so that APF authorized programs cannot run.



-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Binyamin Dissen
Sent: Thursday, October 18, 2018 7:13 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: get ECSA key 7 storage under CICS

You need to be supervisor state to do this. Using CICS just because it is
easier is a wrong decision.

But if you are sold on using CICS, you would need to write a SVC routine to
actually do the work and have your transaction supply a CICS area as a buffer
and the SVC routine will do the IFI work and return the record.

On Thu, 18 Oct 2018 05:08:36 -0500 Wang Rong  wrote:

:>Hi Binyamin,
:>
:> Many thanks to your quick replay.
:> I'm trying to capture/send DB2 log record using IFI call. The storage 
requirement is ECSA key 7 storage: "The return area for monitor programs that 
issue IFCID 0306 requests must reside either in ECSA key 7 storage or in the 
64-bit common key 7 storage area above the 2-GB bar" (from IBM book).
:> I prefer to use CICS because it's easy programming.
:>
:>

--
Binyamin Dissen 
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

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



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

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

Re: S106 abends after copying into LINKLIST

[Barkow, Eileen]

I was not involved with this strategy and I do not want to point any fingers, 
but it was developed with the assistance of the MVS group.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Seymour J Metz
Sent: Tuesday, October 02, 2018 11:31 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: S106 abends after copying into LINKLIST

Because otherwise you risk an S106. A better question is why you didn't consult 
with the MVS group and devise a bulletproof maintenance strategy.


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


From: IBM Mainframe Discussion List  on behalf of 
Barkow, Eileen 
Sent: Monday, October 1, 2018 10:21 AM
To: IBM-MAIN@listserv.ua.edu
Subject: Re: S106 abends after copying into LINKLIST

The  whole idea was not to have to refresh LLA - we wanted to wait until the 
IPL.
Why should LLA have to be refreshed if we did not want the changes to take 
effect?

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of ITschak Mugzach
Sent: Monday, October 01, 2018 10:19 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: S106 abends after copying into LINKLIST

You need to refresh lla.

בתאריך יום ב׳, 1 באוק׳ 2018, 16:10, מאת Barkow, Eileen ‏<
ebar...@doitt.nyc.gov>:

> Hi MVS gurus.
>  Perhaps someone can offer a plausible explanation for this, so that
> the MVS group will stop blaming the CICS group for the problem.
>
> Last friday morning we copied new CICS LINKLIST/LPA modules into the
> existing LINKLIST/LPA loadlibs
> in use (a rather new scenario in use here - we used to use alternative
> datasets), in anticipation of an IPL to
> be done sunday morning.
> anyway, around 6pm friday evening, an I/O error occured in linklist and
> other jobs started abending with S106 abends.
> the linklist library was not allocated with secondary extents and there
> was no LLA refresh issued during
> the day. I cannot find anything like this situation occurring on IBMLINK
> and we have no dump of the original failure.
>
> Does anyone have any idea of what could have caused the I/O error.
> both the input and output datasets have a max blksize of 32760.
>
> IEW4009I FETCH FAILED FOR MODULE DFHXCPRX FROM DDNAME -LNKLST- BECAUSE
> OF AN I/O ERROR.
> IEW4005I FETCH FOR MODULE DFHXCPRX FROM DDNAME -LNKLST- FAILED BECAUSE
> IEWFETCH ISSUED RC 0F AND REASON 40
> CSV031I LIBRARY ACCESS FAILED FOR MODULE DFHXCPRX, RETURN CODE 24,
> REASON CODE 26080021, DDNAME *LNKLST*
>
>
>
>
>
>   
>
> This e-mail, including any attachments, may be confidential, privileged or
> otherwise legally protected. It is intended only for the addressee. If you
> received this e-mail in error or from someone who was not authorized to
> send it to you, do not disseminate, copy or otherwise use this e-mail or
> its attachments. Please notify the sender immediately by reply e-mail and
> delete the e-mail from your system.
>
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>

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

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

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

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

Re: S106 abends after copying into LINKLIST

[Barkow, Eileen]

I agree that this maintenance strategy is no good but the MVS group does not 
want to have to change parmlib for new maintenance, so
We now have to do the updates right  before an IPL - usually about 4am on 
Sunday mornings.
We used to at least keep separate linklist/lpa datasets for different releases 
of CICS - now the same datasets get overlaid for new releases as well as  
maintenance.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Seymour J Metz
Sent: Tuesday, October 02, 2018 11:29 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: S106 abends after copying into LINKLIST

> Perhaps someone can offer a plausible explanation for this, so that
> the MVS group will stop blaming the CICS group for the problem.

An explanation will not stop the MVS group from blaming the CICS group for a 
problem caused by the CICS group. Your current maintenance strategy is 
dangerous and is the cause of the problem.


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


From: IBM Mainframe Discussion List  on behalf of 
Barkow, Eileen 
Sent: Monday, October 1, 2018 10:09 AM
To: IBM-MAIN@listserv.ua.edu
Subject: S106 abends after copying into LINKLIST

Hi MVS gurus.
 Perhaps someone can offer a plausible explanation for this, so that
the MVS group will stop blaming the CICS group for the problem.

Last friday morning we copied new CICS LINKLIST/LPA modules into the existing 
LINKLIST/LPA loadlibs
in use (a rather new scenario in use here - we used to use alternative 
datasets), in anticipation of an IPL to
be done sunday morning.
anyway, around 6pm friday evening, an I/O error occured in linklist and other 
jobs started abending with S106 abends.
the linklist library was not allocated with secondary extents and there was no 
LLA refresh issued during
the day. I cannot find anything like this situation occurring on IBMLINK and we 
have no dump of the original failure.

Does anyone have any idea of what could have caused the I/O error.
both the input and output datasets have a max blksize of 32760.

IEW4009I FETCH FAILED FOR MODULE DFHXCPRX FROM DDNAME -LNKLST- BECAUSE
OF AN I/O ERROR.
IEW4005I FETCH FOR MODULE DFHXCPRX FROM DDNAME -LNKLST- FAILED BECAUSE
IEWFETCH ISSUED RC 0F AND REASON 40
CSV031I LIBRARY ACCESS FAILED FOR MODULE DFHXCPRX, RETURN CODE 24,
REASON CODE 26080021, DDNAME *LNKLST*





  

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


--
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: S106 abends after copying into LINKLIST

[Barkow, Eileen]

I thought that the system would take up to 5 extents if there Is not enough 
contiguous space when the dataset is allocated.
But not on an existing dataset which is already allocated.


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Blake, Daniel J [CTR]
Sent: Monday, October 01, 2018 12:16 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: S106 abends after copying into LINKLIST

I got that. Just wanted to point out there is a situation where a data set can 
have secondary extents even though you did not specify any during the 
allocation.

Dan



On: 01 October 2018 12:11,
"Barkow, Eileen" mailto:ebar...@doitt.nyc.gov>> wrote:

The dataset allocation stayed the same. It was the emptying out of members and 
compressing that caused the problem.
 Thanks for the response.


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Blake, Daniel J [CTR]
Sent: Monday, October 01, 2018 11:23 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: S106 abends after copying into LINKLIST

Very interesting conversation.  Kind of related, like a third cousin is what I 
found:

,SDSF OUTPUT DISPLAY CSV_LNKLST_SPACE  LINE 0   COLUMNS
,COMMAND INPUT ===>,  ,SCROLL ==
* TOP OF DATA **
CHECK(IBMCSV,CSV_LNKLST_SPACE)
SYSPLEX:  SYSTEM: 
START TIME: 10/01/2018 02:11:10.736219
CHECK DATE: 20050720  CHECK SEVERITY: LOW

CSVH0983I None of the  data sets in LNKLST set LNKLST00 were allocated
with secondary space defined.

END TIME: 10/01/2018 02:11:11.449077  STATUS: SUCCESSFUL


Looks great right?  Unless you allocated a data set on a volume that does not 
have enough contiguous space.  I that case you get this:


SDSF LNK DISPLAY  SYS1 SYS1 EXT92  LINE 1-37 (91)
COMMAND INPUT ===>,  ,SCROLL ===>,CSR ,
PREFIX=*  DEST=(ALL)  OWNER=*  SORT=EXTENT/D  SYSNAME=
NP   DSNAME  Seq   VolSer   
 BlkSize  Extent SMS APFLRecL
SYS2.BMC.DB2BMCLINK   66   ISVM06   23476  
2 NO  YES 0 PO
SYS2.GENER.LOAD1   ISVM06   
32760  1 NO  NO  0 PO


Dan

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Barkow, Eileen
Sent: Monday, October 01, 2018 10:48 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: S106 abends after copying into LINKLIST

Thanks Lizette.

The dataset is was emptied/copied in a different lpar than where it is used.
But as was explained, the pds directory got altered by the empty member 
procedure and no LLA REFRESH was done.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Lizette Koehler
Sent: Monday, October 01, 2018 10:45 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: S106 abends after copying into LINKLIST

What the Dataset where the modules were staged shared among Plexes or are just
allocated to one Plex (but shared among any members in that Plex)

PDS/E datasets can be very touchy.

Did you find an S213 abends on the libraries prior to the S106?

Check the first module indicated in the first S106.  Did it have an I/O errors
when you browse it?

Can you do an IEBCOPY of the PDS to a new one and see if IEBCOPY shows any I/O
Errors

Can you do a IEBPDSE Copy of the PDS/E to a new one and see if there are any I/O
errors?

https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.1.0/com.ibm.zos.v2r1.ida
u100/pdse.htm


Lizette


> -Original Message-
> From: IBM Mainframe Discussion List  On Behalf Of
> Barkow, Eileen
> Sent: Monday, October 01, 2018 7:10 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: S106 abends after copying into LINKLIST
>
> Hi MVS gurus.
>  Perhaps someone can offer a plausible explanation for this, so that the MVS
> group will stop blaming the CICS group for the problem.
>
> Last friday morning we copied new CICS LINKLIST/LPA modules into the existing
> LINKLIST/LPA loadlibs in use (a rather new scenario in use here - we used to
> use alternative datasets), in anticipation of an IPL to be done sunday
> morning.
> anyway, around 6pm friday evening, an I/O error occured in linklist and other
> jobs started abending with S106 abends.
> the linklist library was not allocated with secondary extents and there was
> no LLA refresh issued during the day. I cannot find anything like this
> situation occurring on IBMLINK and we have no dump of the original failure.
>
> Does anyone have any idea of what could have caused the I/O error.
> both the input and output datasets have a max blksize of 32760.
>
> IEW4009I FETCH FA

Re: S106 abends after copying into LINKLIST

[Barkow, Eileen]

The dataset allocation stayed the same. It was the emptying out of members and 
compressing that caused the problem.
 Thanks for the response.


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Blake, Daniel J [CTR]
Sent: Monday, October 01, 2018 11:23 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: S106 abends after copying into LINKLIST

Very interesting conversation.  Kind of related, like a third cousin is what I 
found:

,SDSF OUTPUT DISPLAY CSV_LNKLST_SPACE  LINE 0   COLUMNS
,COMMAND INPUT ===>,  ,SCROLL ==
* TOP OF DATA **
CHECK(IBMCSV,CSV_LNKLST_SPACE)
SYSPLEX:  SYSTEM: 
START TIME: 10/01/2018 02:11:10.736219
CHECK DATE: 20050720  CHECK SEVERITY: LOW

CSVH0983I None of the  data sets in LNKLST set LNKLST00 were allocated
with secondary space defined.

END TIME: 10/01/2018 02:11:11.449077  STATUS: SUCCESSFUL


Looks great right?  Unless you allocated a data set on a volume that does not 
have enough contiguous space.  I that case you get this:


SDSF LNK DISPLAY  SYS1 SYS1 EXT92  LINE 1-37 (91)
COMMAND INPUT ===>,  ,SCROLL ===>,CSR ,
PREFIX=*  DEST=(ALL)  OWNER=*  SORT=EXTENT/D  SYSNAME=
NP   DSNAME  Seq   VolSer   
 BlkSize  Extent SMS APFLRecL
SYS2.BMC.DB2BMCLINK   66   ISVM06   23476  
2 NO  YES 0 PO
SYS2.GENER.LOAD1   ISVM06   
32760  1 NO  NO  0 PO


Dan

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Barkow, Eileen
Sent: Monday, October 01, 2018 10:48 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: S106 abends after copying into LINKLIST

Thanks Lizette.

The dataset is was emptied/copied in a different lpar than where it is used.
But as was explained, the pds directory got altered by the empty member 
procedure and no LLA REFRESH was done.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Lizette Koehler
Sent: Monday, October 01, 2018 10:45 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: S106 abends after copying into LINKLIST

What the Dataset where the modules were staged shared among Plexes or are just
allocated to one Plex (but shared among any members in that Plex)

PDS/E datasets can be very touchy.

Did you find an S213 abends on the libraries prior to the S106?

Check the first module indicated in the first S106.  Did it have an I/O errors
when you browse it?

Can you do an IEBCOPY of the PDS to a new one and see if IEBCOPY shows any I/O
Errors

Can you do a IEBPDSE Copy of the PDS/E to a new one and see if there are any I/O
errors?

https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.1.0/com.ibm.zos.v2r1.ida
u100/pdse.htm


Lizette


> -Original Message-
> From: IBM Mainframe Discussion List  On Behalf Of
> Barkow, Eileen
> Sent: Monday, October 01, 2018 7:10 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: S106 abends after copying into LINKLIST
>
> Hi MVS gurus.
>  Perhaps someone can offer a plausible explanation for this, so that the MVS
> group will stop blaming the CICS group for the problem.
>
> Last friday morning we copied new CICS LINKLIST/LPA modules into the existing
> LINKLIST/LPA loadlibs in use (a rather new scenario in use here - we used to
> use alternative datasets), in anticipation of an IPL to be done sunday
> morning.
> anyway, around 6pm friday evening, an I/O error occured in linklist and other
> jobs started abending with S106 abends.
> the linklist library was not allocated with secondary extents and there was
> no LLA refresh issued during the day. I cannot find anything like this
> situation occurring on IBMLINK and we have no dump of the original failure.
>
> Does anyone have any idea of what could have caused the I/O error.
> both the input and output datasets have a max blksize of 32760.
>
> IEW4009I FETCH FAILED FOR MODULE DFHXCPRX FROM DDNAME -LNKLST- BECAUSE OF AN
> I/O ERROR.
> IEW4005I FETCH FOR MODULE DFHXCPRX FROM DDNAME -LNKLST- FAILED BECAUSE
> IEWFETCH ISSUED RC 0F AND REASON 40 CSV031I LIBRARY ACCESS FAILED FOR MODULE
> DFHXCPRX, RETURN CODE 24, REASON CODE 26080021, DDNAME *LNKLST*
>
>
>
>
>
>   
>
> This e-mail, including any attachments, may be confidential, privileged or
> otherwise legally protected. It is intended only for the addressee. If you
> received this e-mail in error or from someone who was not authorized to send
> it to you, do not disseminate, copy or otherwise us

Re: S106 abends after copying into LINKLIST

[Barkow, Eileen]

Thanks Lizette.

The dataset is was emptied/copied in a different lpar than where it is used.
But as was explained, the pds directory got altered by the empty member 
procedure and no LLA REFRESH was done.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Lizette Koehler
Sent: Monday, October 01, 2018 10:45 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: S106 abends after copying into LINKLIST

What the Dataset where the modules were staged shared among Plexes or are just
allocated to one Plex (but shared among any members in that Plex)

PDS/E datasets can be very touchy.

Did you find an S213 abends on the libraries prior to the S106?

Check the first module indicated in the first S106.  Did it have an I/O errors
when you browse it?

Can you do an IEBCOPY of the PDS to a new one and see if IEBCOPY shows any I/O
Errors

Can you do a IEBPDSE Copy of the PDS/E to a new one and see if there are any I/O
errors?

https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.1.0/com.ibm.zos.v2r1.ida
u100/pdse.htm


Lizette


> -Original Message-
> From: IBM Mainframe Discussion List  On Behalf Of
> Barkow, Eileen
> Sent: Monday, October 01, 2018 7:10 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: S106 abends after copying into LINKLIST
> 
> Hi MVS gurus.
>  Perhaps someone can offer a plausible explanation for this, so that the MVS
> group will stop blaming the CICS group for the problem.
> 
> Last friday morning we copied new CICS LINKLIST/LPA modules into the existing
> LINKLIST/LPA loadlibs in use (a rather new scenario in use here - we used to
> use alternative datasets), in anticipation of an IPL to be done sunday
> morning.
> anyway, around 6pm friday evening, an I/O error occured in linklist and other
> jobs started abending with S106 abends.
> the linklist library was not allocated with secondary extents and there was
> no LLA refresh issued during the day. I cannot find anything like this
> situation occurring on IBMLINK and we have no dump of the original failure.
> 
> Does anyone have any idea of what could have caused the I/O error.
> both the input and output datasets have a max blksize of 32760.
> 
> IEW4009I FETCH FAILED FOR MODULE DFHXCPRX FROM DDNAME -LNKLST- BECAUSE OF AN
> I/O ERROR.
> IEW4005I FETCH FOR MODULE DFHXCPRX FROM DDNAME -LNKLST- FAILED BECAUSE
> IEWFETCH ISSUED RC 0F AND REASON 40 CSV031I LIBRARY ACCESS FAILED FOR MODULE
> DFHXCPRX, RETURN CODE 24, REASON CODE 26080021, DDNAME *LNKLST*
> 
> 
> 
> 
> 
>   
> 
> This e-mail, including any attachments, may be confidential, privileged or
> otherwise legally protected. It is intended only for the addressee. If you
> received this e-mail in error or from someone who was not authorized to send
> it to you, do not disseminate, copy or otherwise use this e-mail or its
> attachments. Please notify the sender immediately by reply e-mail and delete
> the e-mail from your system.
> 
> 
> --
> 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: S106 abends after copying into LINKLIST

[Barkow, Eileen]

Thank you for the explanation -
The emptying of the pds must have caused the problem.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Carmen Vitullo
Sent: Monday, October 01, 2018 10:36 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: S106 abends after copying into LINKLIST

Well I think that's the problem, the directory for that PDS is rebuild, none of 
those pointers to the modules are valid, like a compress when ALL members are 
moved. 
if you would have just copied the updated modules you should have been fine 


Carmen Vitullo 

- Original Message -

From: "Eileen Barkow"  
To: IBM-MAIN@LISTSERV.UA.EDU 
Sent: Monday, October 1, 2018 9:33:01 AM 
Subject: Re: S106 abends after copying into LINKLIST 

The dataset is a standard pds (CICS SDFHLINK). 
We used some sort of SAS proc/clists to empty out the members before copying 
the new ones in - 
I am not sure what this proc does since someone else set it up - 
but it does not appear to have compressed the dataset - just emptied out the 
members. 

-Original Message- 
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Massimo Biancucci 
Sent: Monday, October 01, 2018 10:22 AM 
To: IBM-MAIN@LISTSERV.UA.EDU 
Subject: Re: S106 abends after copying into LINKLIST 

Hi, 

only to better understand. 

Is the loadlib a standard PDS ? Was it compressed ? 

Is the loadlib a PDSE ? This could better explain the incident. 

Best regards. 
Max 

Il giorno lun 1 ott 2018 alle ore 16:10 Barkow, Eileen < 
ebar...@doitt.nyc.gov> ha scritto: 

> Hi MVS gurus. 
> Perhaps someone can offer a plausible explanation for this, so that 
> the MVS group will stop blaming the CICS group for the problem. 
> 
> Last friday morning we copied new CICS LINKLIST/LPA modules into the 
> existing LINKLIST/LPA loadlibs 
> in use (a rather new scenario in use here - we used to use alternative 
> datasets), in anticipation of an IPL to 
> be done sunday morning. 
> anyway, around 6pm friday evening, an I/O error occured in linklist and 
> other jobs started abending with S106 abends. 
> the linklist library was not allocated with secondary extents and there 
> was no LLA refresh issued during 
> the day. I cannot find anything like this situation occurring on IBMLINK 
> and we have no dump of the original failure. 
> 
> Does anyone have any idea of what could have caused the I/O error. 
> both the input and output datasets have a max blksize of 32760. 
> 
> IEW4009I FETCH FAILED FOR MODULE DFHXCPRX FROM DDNAME -LNKLST- BECAUSE 
> OF AN I/O ERROR. 
> IEW4005I FETCH FOR MODULE DFHXCPRX FROM DDNAME -LNKLST- FAILED BECAUSE 
> IEWFETCH ISSUED RC 0F AND REASON 40 
> CSV031I LIBRARY ACCESS FAILED FOR MODULE DFHXCPRX, RETURN CODE 24, 
> REASON CODE 26080021, DDNAME *LNKLST* 
> 
> 
> 
> 
> 
>  
> 
> This e-mail, including any attachments, may be confidential, privileged or 
> otherwise legally protected. It is intended only for the addressee. If you 
> received this e-mail in error or from someone who was not authorized to 
> send it to you, do not disseminate, copy or otherwise use this e-mail or 
> its attachments. Please notify the sender immediately by reply e-mail and 
> delete the e-mail from your system. 
> 
> 
> -- 
> For IBM-MAIN subscribe / signoff / archive access instructions, 
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN 
> 

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

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


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

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

Re: S106 abends after copying into LINKLIST

[Barkow, Eileen]

We did not refresh LLA - looks like we should have.

Thanks everyone.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Jousma, David
Sent: Monday, October 01, 2018 10:37 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: S106 abends after copying into LINKLIST

Did you refresh LLA?   

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Barkow, Eileen
Sent: Monday, October 01, 2018 10:10 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: S106 abends after copying into LINKLIST

**CAUTION EXTERNAL EMAIL**

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

Hi MVS gurus.
 Perhaps someone can offer a plausible explanation for this, so that the MVS 
group will stop blaming the CICS group for the problem.

Last friday morning we copied new CICS LINKLIST/LPA modules into the existing 
LINKLIST/LPA loadlibs in use (a rather new scenario in use here - we used to 
use alternative datasets), in anticipation of an IPL to be done sunday morning.
anyway, around 6pm friday evening, an I/O error occured in linklist and other 
jobs started abending with S106 abends.
the linklist library was not allocated with secondary extents and there was no 
LLA refresh issued during the day. I cannot find anything like this situation 
occurring on IBMLINK and we have no dump of the original failure.

Does anyone have any idea of what could have caused the I/O error.
both the input and output datasets have a max blksize of 32760.

IEW4009I FETCH FAILED FOR MODULE DFHXCPRX FROM DDNAME -LNKLST- BECAUSE OF AN 
I/O ERROR.
IEW4005I FETCH FOR MODULE DFHXCPRX FROM DDNAME -LNKLST- FAILED BECAUSE IEWFETCH 
ISSUED RC 0F AND REASON 40 CSV031I LIBRARY ACCESS FAILED FOR MODULE DFHXCPRX, 
RETURN CODE 24, REASON CODE 26080021, DDNAME *LNKLST*





  

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


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

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


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

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

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

Re: S106 abends after copying into LINKLIST

[Barkow, Eileen]

The dataset is a standard  pds (CICS SDFHLINK).
We used some sort of SAS proc/clists to empty out the members before copying 
the new ones in -
I am not sure what this proc does since someone else set it up - 
but it does not appear to have compressed the dataset - just emptied out the 
members.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Massimo Biancucci
Sent: Monday, October 01, 2018 10:22 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: S106 abends after copying into LINKLIST

Hi,

only to better understand.

Is the loadlib a standard PDS ? Was it compressed ?

Is the loadlib a PDSE ? This could better explain the incident.

Best regards.
Max

Il giorno lun 1 ott 2018 alle ore 16:10 Barkow, Eileen <
ebar...@doitt.nyc.gov> ha scritto:

> Hi MVS gurus.
>  Perhaps someone can offer a plausible explanation for this, so that
> the MVS group will stop blaming the CICS group for the problem.
>
> Last friday morning we copied new CICS LINKLIST/LPA modules into the
> existing LINKLIST/LPA loadlibs
> in use (a rather new scenario in use here - we used to use alternative
> datasets), in anticipation of an IPL to
> be done sunday morning.
> anyway, around 6pm friday evening, an I/O error occured in linklist and
> other jobs started abending with S106 abends.
> the linklist library was not allocated with secondary extents and there
> was no LLA refresh issued during
> the day. I cannot find anything like this situation occurring on IBMLINK
> and we have no dump of the original failure.
>
> Does anyone have any idea of what could have caused the I/O error.
> both the input and output datasets have a max blksize of 32760.
>
> IEW4009I FETCH FAILED FOR MODULE DFHXCPRX FROM DDNAME -LNKLST- BECAUSE
> OF AN I/O ERROR.
> IEW4005I FETCH FOR MODULE DFHXCPRX FROM DDNAME -LNKLST- FAILED BECAUSE
> IEWFETCH ISSUED RC 0F AND REASON 40
> CSV031I LIBRARY ACCESS FAILED FOR MODULE DFHXCPRX, RETURN CODE 24,
> REASON CODE 26080021, DDNAME *LNKLST*
>
>
>
>
>
>   
>
> This e-mail, including any attachments, may be confidential, privileged or
> otherwise legally protected. It is intended only for the addressee. If you
> received this e-mail in error or from someone who was not authorized to
> send it to you, do not disseminate, copy or otherwise use this e-mail or
> its attachments. Please notify the sender immediately by reply e-mail and
> delete the e-mail from your system.
>
>
> --
> 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: S106 abends after copying into LINKLIST

[Barkow, Eileen]

The  whole idea was not to have to refresh LLA - we wanted to wait until the 
IPL.
Why should LLA have to be refreshed if we did not want the changes to take 
effect?

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of ITschak Mugzach
Sent: Monday, October 01, 2018 10:19 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: S106 abends after copying into LINKLIST

You need to refresh lla.

בתאריך יום ב׳, 1 באוק׳ 2018, 16:10, מאת Barkow, Eileen ‏<
ebar...@doitt.nyc.gov>:

> Hi MVS gurus.
>  Perhaps someone can offer a plausible explanation for this, so that
> the MVS group will stop blaming the CICS group for the problem.
>
> Last friday morning we copied new CICS LINKLIST/LPA modules into the
> existing LINKLIST/LPA loadlibs
> in use (a rather new scenario in use here - we used to use alternative
> datasets), in anticipation of an IPL to
> be done sunday morning.
> anyway, around 6pm friday evening, an I/O error occured in linklist and
> other jobs started abending with S106 abends.
> the linklist library was not allocated with secondary extents and there
> was no LLA refresh issued during
> the day. I cannot find anything like this situation occurring on IBMLINK
> and we have no dump of the original failure.
>
> Does anyone have any idea of what could have caused the I/O error.
> both the input and output datasets have a max blksize of 32760.
>
> IEW4009I FETCH FAILED FOR MODULE DFHXCPRX FROM DDNAME -LNKLST- BECAUSE
> OF AN I/O ERROR.
> IEW4005I FETCH FOR MODULE DFHXCPRX FROM DDNAME -LNKLST- FAILED BECAUSE
> IEWFETCH ISSUED RC 0F AND REASON 40
> CSV031I LIBRARY ACCESS FAILED FOR MODULE DFHXCPRX, RETURN CODE 24,
> REASON CODE 26080021, DDNAME *LNKLST*
>
>
>
>
>
>   
>
> This e-mail, including any attachments, may be confidential, privileged or
> otherwise legally protected. It is intended only for the addressee. If you
> received this e-mail in error or from someone who was not authorized to
> send it to you, do not disseminate, copy or otherwise use this e-mail or
> its attachments. Please notify the sender immediately by reply e-mail and
> delete the e-mail from your system.
>
>
> --
> 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

S106 abends after copying into LINKLIST

[Barkow, Eileen]

Hi MVS gurus.
 Perhaps someone can offer a plausible explanation for this, so that
the MVS group will stop blaming the CICS group for the problem.

Last friday morning we copied new CICS LINKLIST/LPA modules into the existing 
LINKLIST/LPA loadlibs
in use (a rather new scenario in use here - we used to use alternative 
datasets), in anticipation of an IPL to
be done sunday morning.
anyway, around 6pm friday evening, an I/O error occured in linklist and other 
jobs started abending with S106 abends.
the linklist library was not allocated with secondary extents and there was no 
LLA refresh issued during
the day. I cannot find anything like this situation occurring on IBMLINK and we 
have no dump of the original failure.

Does anyone have any idea of what could have caused the I/O error.
both the input and output datasets have a max blksize of 32760.

IEW4009I FETCH FAILED FOR MODULE DFHXCPRX FROM DDNAME -LNKLST- BECAUSE
OF AN I/O ERROR.
IEW4005I FETCH FOR MODULE DFHXCPRX FROM DDNAME -LNKLST- FAILED BECAUSE
IEWFETCH ISSUED RC 0F AND REASON 40
CSV031I LIBRARY ACCESS FAILED FOR MODULE DFHXCPRX, RETURN CODE 24,
REASON CODE 26080021, DDNAME *LNKLST*





  

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


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

Re: websphere-liberty question

[Barkow, Eileen]

JCI710L is the fmid for Liberty with CICS 5.4,  but it did not install what it 
should have - just supplied a clist with a PAX command you can run
With the supplied pax file to install the wlp subdirectory into 
/usr/lpp/cicsts/cicsts54.

-Original Message-
From: Barkow, Eileen
Sent: Tuesday, September 25, 2018 12:14 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: RE: websphere-liberty question

Liberty is included with  CICS, but with out recent CICS TS 5.4 install, the 
wlp directory did not get placed in the HFS.
I  had to find the pax file for it and install it manually.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of scott Ford
Sent: Tuesday, September 25, 2018 11:48 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: websphere-liberty question

Does anyone know when you order z/OS new or otherwise if Websphere and
CICS Liberty are optional costs or are they included.

Thanks in advance.

Scott

--



*IDMWORKS *

Scott Ford

z/OS Dev.




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



www.idmworks.com

scott.f...@idmworks.com

Blog: www.idmworks.com/blog





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

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



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

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

Re: websphere-liberty question

[Barkow, Eileen]

Liberty is included with  CICS, but with out recent CICS TS 5.4 install, the 
wlp directory did not get placed in the HFS.
I  had to find the pax file for it and install it manually.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of scott Ford
Sent: Tuesday, September 25, 2018 11:48 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: websphere-liberty question

Does anyone know when you order z/OS new or otherwise if Websphere and
CICS Liberty are optional costs or are they included.

Thanks in advance.

Scott

--



*IDMWORKS *

Scott Ford

z/OS Dev.




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



www.idmworks.com

scott.f...@idmworks.com

Blog: www.idmworks.com/blog





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

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



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

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

Re: Downloading java for z/OS

[Barkow, Eileen]

Try this link directly to the downloads



https://www-01.ibm.com/marketing/iwm/iwm/web/download.do?source=zossdk8_64=urx_PKG=dl



-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Gadi Ben-Avi
Sent: Thursday, August 16, 2018 8:50 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Downloading java for z/OS



I got a message that they are checking of I am allowed to download it because 
of export regulations.



I live in Israel.



-Original Message-

From: IBM Mainframe Discussion List 
mailto:IBM-MAIN@LISTSERV.UA.EDU>> On Behalf Of 
Barkow, Eileen

Sent: Thursday, August 16, 2018 3:43 PM

To: IBM-MAIN@LISTSERV.UA.EDU<mailto:IBM-MAIN@LISTSERV.UA.EDU>

Subject: Re: Downloading java for z/OS



https://developer.ibm.com/javasdk/support/zos/



worked for me.



Click on download for java 8  (64 bit) - you will then need an id to sign in.

After signing in, it goes to the download page



-Original Message-

From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Gadi Ben-Avi

Sent: Thursday, August 16, 2018 4:22 AM

To: IBM-MAIN@LISTSERV.UA.EDU<mailto:IBM-MAIN@LISTSERV.UA.EDU>

Subject: Downloading java for z/OS



Hi,



I am trying to download the NON-SMP/E version of java for z/OS.



Google found https://developer.ibm.com/javasdk/support/zos/, but the link to 
download the NON/SMP/E version is broken.



Anyone have another link?



Gadi



? ?? ?    ?? ??? ??? ??  ? ??? ?? 
??. ?? ,  ?? ???  ?, ???   ? ?? ??? 
? ?? ?? ?. ? ?  ?? ?? ?? ??  ??  
??? ??? ???, ?/?? ?, ? ?? ? ? ? ? ?? ?? ? 
??? ?/?? ?? ?? ??.



--

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







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



--

For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu<mailto: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<mailto: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: Downloading java for z/OS

[Barkow, Eileen]

https://developer.ibm.com/javasdk/support/zos/

worked for me.

Click on download for java 8  (64 bit) - you will then need an id to sign in.
After signing in, it goes to the download page

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Gadi Ben-Avi
Sent: Thursday, August 16, 2018 4:22 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Downloading java for z/OS

Hi,

I am trying to download the NON-SMP/E version of java for z/OS.

Google found https://developer.ibm.com/javasdk/support/zos/, but the link to 
download the NON/SMP/E version is broken.

Anyone have another link?

Gadi

? ?? ?    ?? ??? ??? ??  ? ??? ?? 
??. ?? ,  ?? ???  ?, ???   ? ?? ??? 
? ?? ?? ?. ? ?  ?? ?? ?? ??  ??  
??? ??? ???, ?/?? ?, ? ?? ? ? ? ? ?? ?? ? 
??? ?/?? ?? ?? ??.

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



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

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

Re: DYNALLOC

[Barkow, Eileen]

Are you running with AMODE=24?
I think that you still need to, from looking at my old DYNALLOC pgms.

 DS  0F
DYNBLKS  EQU  *
RBPOINT  DC   A(RBS)  ADR  REQ BLOCK PASSED IN R1
 ORG   RBPOINT   S99RBP  DSECT
 DCX'80'   HI ORDER BIT MUST BE ON
 DS0F
RBS EQU  *
RB   DS0CL20  S99RB DSECT  LOC BY RBPOINT
RBLN DCAL1(RBEL) LEN OF RB
RBVERB   DCAL1(S99VRBAL) FUNC 01-07 01 FOR ALLOC
RBFLAG1  DCAL1(S99NOMNT) FLAG BYTE-DONT CONSIDER OFFLINE UNITS
RBFLAG2  DSX   2ND   FLAG BYTE
RBERROR  DSXL2 ERROR REASON CODE
RBINFO   DSXL2 INFO  REASON CODE
RBTXTPP  DSA(TXPOINTS) LIST OF TEXT PTRS
 DSF   RESERVED
RBAUTHFL DSXL4 FLAGS FOR AUTH FUNCTIONS
RBEL EQU   *-RB

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Tom Marchant
Sent: Thursday, July 05, 2018 11:31 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: DYNALLOC

On Thu, 5 Jul 2018 08:14:35 -0700, Charles Mills wrote:

>Should not be a S0C4 but don't you want pointers to ALL of the text units?
>
He doesn't have pointers to any of his text units. X'0055',X'0001' is likely 
not a valid address.

--
Tom Marchant
>
>
>-Original Message-
>From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On 
>Behalf Of Bill Godfrey
>Sent: Thursday, July 5, 2018 7:48 AM
>To: IBM-MAIN@LISTSERV.UA.EDU
>Subject: Re: DYNALLOC
>
>On Thu, 5 Jul 2018 10:29:22 -0400, Bill Ogden  wrote:
>
>>It has been a few decades since I used DYNALLOC and I am now doing
>>something stupid that results in an 0C4 somewhere in never-never land. Can
>>someone give me a clue without going to much trouble?  (DRB and DRBPTR are
>>on full word boundaries.)
>>
>>  LA1,DRBPTR
>>  DYNALLOC
>>...
>>...
>>TU1  DC  X'0055',X'0001',X'0008',C''  Returned DDname
>>TU2  DC  X'0002',X'0001',X'000A',C'SYS1.TRASH' DSname
>>TU3  DC  X'0004',X'0001',X'0001',X'04' DISP=NEW
>>TU4  DC  X'0005',X'0001',X'0001',X'04' DISP=DELETE
>>TU5  DC  X'0008',X''   Allocate in cylinders
>>TU6  DC  X'000A',X'0001',X'0003',X'0A'  10 cylinders
>>TU7  DC  X'0010',X'0001',X'0006',C'WORK01' volser
>>TU8  DC  X'0015',X'0001',X'0004',C'3390'   UNIT type
>>
>>DRB DC   X'14'
>>  DC   X'01' verb = dsname allocation
>>  DC   X'6080' flags
>>  DC   X''  error codes
>> DCA(TU1)
>>  DCX''
>>
>>DRBPTR   DC  X'80'
>>  DC  AL3(DRB)
>>
>
>Your A(TU1) should be A(TUPL), and TUPL should look like this:
>
>TUPL DCA(TU1,TU2,TU3,TU4,TU5,TU6,TU7,TU8+X'8000)
>
>Bill
>
>--
>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, including any attachments, may be confidential, privileged or 
otherwise legally protected. It is intended only for the addressee. If you 
received this e-mail in error or from someone who was not authorized to send it 
to you, do not disseminate, copy or otherwise use this e-mail or its 
attachments. Please notify the sender immediately by reply e-mail and delete 
the e-mail from your system.

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

Re: trying to reload a pdse after it has been unloaded and ftp'd

[Barkow, Eileen]

 I am not going to be doing PUT after the dump. The PUT is just to manually 
load some test data from a 3rd lpar.
 I have to use GET on the unloaded dump receiving lpar because the lpar 
creating the dump is prevented from doing a PUT to another lpar -
It was set up to be a one way street only.
But thanks again for the help - TYPE E MODE B is what I need for the GET as 
well.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Jackson, Rob
Sent: Wednesday, May 16, 2018 4:22 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: trying to reload a pdse after it has been unloaded and ftp'd

Also, you should consider using a FTP PUT as the second step of the 
dump-creating job, if the FTP server is running on your target system.  The FTP 
client does a good job of setting the SITE command appropriately for you.  Then 
you just have to worry about setting size on the target, if the defaults are 
not acceptable.

First Tennessee Bank
Mainframe Technical Support


-Original Message-
From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> On Behalf Of 
Jackson, Rob
Sent: Wednesday, May 16, 2018 4:17 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: [Originated Externally]Re: trying to reload a pdse after it has been 
unloaded and ftp'd

[External Email]

That looks like the DCB for a tersed dataset.  DSS would be creating RECFM=U 
and BLKSIZE=27998 on disk.

Try this instead:

LOCSITE VARrecfm LRECL=27998 RECFM=U BLKSIZE=27998

First Tennessee Bank
Mainframe Technical Support

-Original Message-
From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> On Behalf Of 
Barkow, Eileen
Sent: Wednesday, May 16, 2018 3:49 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: trying to reload a pdse after it has been unloaded and ftp'd

[External Email]

I used mode b type e and ADRSSSU is not recognizing the INPUT file

ADR389E (001)-TDDS (07), INVALID INPUT ON DDNAME IN, INPUT DATA SET NOT PRODUCED
//RESTFAEXEC  PGM=ADRDSSU,COND=(0,NE)
 //SYSPRINT  DD  SYSOUT=*
 //IN  DD DSN=PBCDOFP.FA.HIST.DUMPED,DISP=SHR


COMMAND INPUT ===>SCROLL ===> P
EZA1701I >>> PASS
230 FTPPMSA is logged on.  Working directory is "FTPPMSA.".
EZA1460I Command:
EZA1736I mode B
EZA1701I >>> MODE B
200 Data transfer mode is Block
EZA1460I Command:
EZA1736I type e
EZA1701I >>> TYPE E
200 Representation type is Ebcdic NonPrint EZA1460I Command:
EZA1736I LOCSITE TR PRI=500 SEC=60
EZA1460I Command:
EZA1736I LOCSITE  LRECL=1024 BLKSIZE=27648 RECFM=FB EZA1460I Command:
EZA1736I GET 'XCICS.FA.HIST.DUMPED' 'PBCDOFP.FA.HIST.DUMPED' (REPLACE EZA1701I 
>>> PASV

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Jackson, Rob
Sent: Wednesday, May 16, 2018 2:09 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: trying to reload a pdse after it has been unloaded and ftp'd

We DSS dump and FTP hundreds of PDSs and PDSEs every day (don't ask), both text 
and loadlibs.  From z/OS to z/OS you don't need to worry about tersing for 
portability.  You just need 'type e' and 'mode b' in your FTP control cards.

First Tennessee Bank
Mainframe Technical Support


-Original Message-
From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> On Behalf Of 
Barkow, Eileen
Sent: Wednesday, May 16, 2018 12:51 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: trying to reload a pdse after it has been unloaded and ftp'd

[External Email]

THANK YOU Lionel!
The TERSE/UNTERSE  worked.
Although I think that these utilities should be able to work on their own.


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Dyck, Lionel B. (RavenTek)
Sent: Wednesday, May 16, 2018 12:02 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: trying to reload a pdse after it has been unloaded and ftp'd

For this I have always used ADRDSSU and then Terse'd the results before doing a 
binary FTP transfer - all while retaining the Terse DCB. Then unterse and 
ADRDSSU restore and it has worked.

Hope this helps

--
Lionel B. Dyck (Contractor)  <
Mainframe Systems Programmer - RavenTek Solution Partners

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Barkow, Eileen
Sent: Wednesday, May 16, 2018 10:57 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: [EXTERNAL] trying to reload a pdse after it has been unloaded and ftp'd

I am trying to reload an unloaded pdse after it has been ftp'd to a target lpar.
there is a known problem with this using IEBCOPY UNLOAD/RELOAD described on 
IBMLINK and none of the work-around overrides to ftp work. TRSMAIN/TERSE does 
not support PDSE. So I switched over to ADRDSSU.

I dump a dataset and am able to restore it on the same lpar.
However, when i ftp th

Re: trying to reload a pdse after it has been unloaded and ftp'd

[Barkow, Eileen]

 I forgot to change the DCB info for the untersed datatset.
It is working now -

Thanks Bob 

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Jackson, Rob
Sent: Wednesday, May 16, 2018 4:17 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: trying to reload a pdse after it has been unloaded and ftp'd

That looks like the DCB for a tersed dataset.  DSS would be creating RECFM=U 
and BLKSIZE=27998 on disk.

Try this instead:

LOCSITE VARrecfm LRECL=27998 RECFM=U BLKSIZE=27998

First Tennessee Bank
Mainframe Technical Support

-Original Message-
From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> On Behalf Of 
Barkow, Eileen
Sent: Wednesday, May 16, 2018 3:49 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: trying to reload a pdse after it has been unloaded and ftp'd

[External Email]

I used mode b type e and ADRSSSU is not recognizing the INPUT file

ADR389E (001)-TDDS (07), INVALID INPUT ON DDNAME IN, INPUT DATA SET NOT PRODUCED
//RESTFAEXEC  PGM=ADRDSSU,COND=(0,NE)
 //SYSPRINT  DD  SYSOUT=*
 //IN  DD DSN=PBCDOFP.FA.HIST.DUMPED,DISP=SHR


COMMAND INPUT ===>SCROLL ===> P
EZA1701I >>> PASS
230 FTPPMSA is logged on.  Working directory is "FTPPMSA.".
EZA1460I Command:
EZA1736I mode B
EZA1701I >>> MODE B
200 Data transfer mode is Block
EZA1460I Command:
EZA1736I type e
EZA1701I >>> TYPE E
200 Representation type is Ebcdic NonPrint EZA1460I Command:
EZA1736I LOCSITE TR PRI=500 SEC=60
EZA1460I Command:
EZA1736I LOCSITE  LRECL=1024 BLKSIZE=27648 RECFM=FB EZA1460I Command:
EZA1736I GET 'XCICS.FA.HIST.DUMPED' 'PBCDOFP.FA.HIST.DUMPED' (REPLACE EZA1701I 
>>> PASV

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Jackson, Rob
Sent: Wednesday, May 16, 2018 2:09 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: trying to reload a pdse after it has been unloaded and ftp'd

We DSS dump and FTP hundreds of PDSs and PDSEs every day (don't ask), both text 
and loadlibs.  From z/OS to z/OS you don't need to worry about tersing for 
portability.  You just need 'type e' and 'mode b' in your FTP control cards.

First Tennessee Bank
Mainframe Technical Support


-Original Message-
From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> On Behalf Of 
Barkow, Eileen
Sent: Wednesday, May 16, 2018 12:51 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: trying to reload a pdse after it has been unloaded and ftp'd

[External Email]

THANK YOU Lionel!
The TERSE/UNTERSE  worked.
Although I think that these utilities should be able to work on their own.


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Dyck, Lionel B. (RavenTek)
Sent: Wednesday, May 16, 2018 12:02 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: trying to reload a pdse after it has been unloaded and ftp'd

For this I have always used ADRDSSU and then Terse'd the results before doing a 
binary FTP transfer - all while retaining the Terse DCB. Then unterse and 
ADRDSSU restore and it has worked.

Hope this helps

--
Lionel B. Dyck (Contractor)  <
Mainframe Systems Programmer - RavenTek Solution Partners

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Barkow, Eileen
Sent: Wednesday, May 16, 2018 10:57 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: [EXTERNAL] trying to reload a pdse after it has been unloaded and ftp'd

I am trying to reload an unloaded pdse after it has been ftp'd to a target lpar.
there is a known problem with this using IEBCOPY UNLOAD/RELOAD described on 
IBMLINK and none of the work-around overrides to ftp work. TRSMAIN/TERSE does 
not support PDSE. So I switched over to ADRDSSU.

I dump a dataset and am able to restore it on the same lpar.
However, when i ftp the dumped dataset to the remote lpar, the restore fails 
because the input dataset is not valid for ADRDSSU (tried ftp with both BIN and 
EBCDIC default).

both datasets (remote and local) look the same to me when browsing them and 
have the same dcb info.
does anyone know how to restore an unloaded pdse that has been ftp'd?

thanks in advance for any info.

 Data Set Name . . . . : XCICS.FA.HIST.DUMPED
   General Data
  Management class . . : **None**
  Storage class  . . . : **None**
  Volume serial . . . : W1STG2
  Device type . . . . : 3390
  Data class . . . . . : **None**
  Organization  . . . : PS
  Record format . . . : U
  Record length . . . : 0
  Block size  . . . . : 27998
  1st extent tracks . : 1500
  Secondary tracks  . : 60

***original job used to create XCICS.FA.HIST.DUMPED**
 //DUMP EXEC  PGM=ADRDSSU
 //SYSPRINT DDSYSOUT=A
 //DASD1DDUNIT=SYSDA,VOL=SER

Re: trying to reload a pdse after it has been unloaded and ftp'd

[Barkow, Eileen]

I used mode b type e and ADRSSSU is not recognizing the INPUT file

ADR389E (001)-TDDS (07), INVALID INPUT ON DDNAME IN, INPUT DATA SET NOT PRODUCED
//RESTFAEXEC  PGM=ADRDSSU,COND=(0,NE)
 //SYSPRINT  DD  SYSOUT=* 
 //IN  DD DSN=PBCDOFP.FA.HIST.DUMPED,DISP=SHR 
   

COMMAND INPUT ===>SCROLL ===> P
EZA1701I >>> PASS   
230 FTPPMSA is logged on.  Working directory is "FTPPMSA.". 
EZA1460I Command:   
EZA1736I mode B 
EZA1701I >>> MODE B 
200 Data transfer mode is Block 
EZA1460I Command:   
EZA1736I type e 
EZA1701I >>> TYPE E 
200 Representation type is Ebcdic NonPrint  
EZA1460I Command:   
EZA1736I LOCSITE TR PRI=500 SEC=60  
EZA1460I Command:   
EZA1736I LOCSITE  LRECL=1024 BLKSIZE=27648 RECFM=FB 
EZA1460I Command:   
EZA1736I GET 'XCICS.FA.HIST.DUMPED' 'PBCDOFP.FA.HIST.DUMPED' (REPLACE   
EZA1701I >>> PASV   

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Jackson, Rob
Sent: Wednesday, May 16, 2018 2:09 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: trying to reload a pdse after it has been unloaded and ftp'd

We DSS dump and FTP hundreds of PDSs and PDSEs every day (don't ask), both text 
and loadlibs.  From z/OS to z/OS you don't need to worry about tersing for 
portability.  You just need 'type e' and 'mode b' in your FTP control cards.

First Tennessee Bank
Mainframe Technical Support


-Original Message-
From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> On Behalf Of 
Barkow, Eileen
Sent: Wednesday, May 16, 2018 12:51 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: trying to reload a pdse after it has been unloaded and ftp'd

[External Email]

THANK YOU Lionel!
The TERSE/UNTERSE  worked.
Although I think that these utilities should be able to work on their own.


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Dyck, Lionel B. (RavenTek)
Sent: Wednesday, May 16, 2018 12:02 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: trying to reload a pdse after it has been unloaded and ftp'd

For this I have always used ADRDSSU and then Terse'd the results before doing a 
binary FTP transfer - all while retaining the Terse DCB. Then unterse and 
ADRDSSU restore and it has worked.

Hope this helps

--
Lionel B. Dyck (Contractor)  <
Mainframe Systems Programmer - RavenTek Solution Partners

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Barkow, Eileen
Sent: Wednesday, May 16, 2018 10:57 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: [EXTERNAL] trying to reload a pdse after it has been unloaded and ftp'd

I am trying to reload an unloaded pdse after it has been ftp'd to a target lpar.
there is a known problem with this using IEBCOPY UNLOAD/RELOAD described on 
IBMLINK and none of the work-around overrides to ftp work. TRSMAIN/TERSE does 
not support PDSE. So I switched over to ADRDSSU.

I dump a dataset and am able to restore it on the same lpar.
However, when i ftp the dumped dataset to the remote lpar, the restore fails 
because the input dataset is not valid for ADRDSSU (tried ftp with both BIN and 
EBCDIC default).

both datasets (remote and local) look the same to me when browsing them and 
have the same dcb info.
does anyone know how to restore an unloaded pdse that has been ftp'd?

thanks in advance for any info.

 Data Set Name . . . . : XCICS.FA.HIST.DUMPED
   General Data
  Management class . . : **None**
  Storage class  . . . : **None**
  Volume serial . . . : W1STG2
  Device type . . . . : 3390
  Data class . . . . . : **None**
  Organization  . . . : PS
  Record format . . . : U
  Record length . . . : 0
  Block size  . . . . : 27998
  1st extent tracks . : 1500
  Secondary tracks  . : 60

***original job used to create XCICS.FA.HIST.DUMPED**
 //DUMP EXEC  PGM=ADRDSSU
 //SYSPRINT DD

Re: trying to reload a pdse after it has been unloaded and ftp'd

[Barkow, Eileen]

Thanks a lot for type e and mode b -
I remember using them for something or other in the past.
Getting rid of the terse will help.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Jackson, Rob
Sent: Wednesday, May 16, 2018 2:09 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: trying to reload a pdse after it has been unloaded and ftp'd

We DSS dump and FTP hundreds of PDSs and PDSEs every day (don't ask), both text 
and loadlibs.  From z/OS to z/OS you don't need to worry about tersing for 
portability.  You just need 'type e' and 'mode b' in your FTP control cards.

First Tennessee Bank
Mainframe Technical Support


-Original Message-
From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> On Behalf Of 
Barkow, Eileen
Sent: Wednesday, May 16, 2018 12:51 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: trying to reload a pdse after it has been unloaded and ftp'd

[External Email]

THANK YOU Lionel!
The TERSE/UNTERSE  worked.
Although I think that these utilities should be able to work on their own.


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Dyck, Lionel B. (RavenTek)
Sent: Wednesday, May 16, 2018 12:02 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: trying to reload a pdse after it has been unloaded and ftp'd

For this I have always used ADRDSSU and then Terse'd the results before doing a 
binary FTP transfer - all while retaining the Terse DCB. Then unterse and 
ADRDSSU restore and it has worked.

Hope this helps

--
Lionel B. Dyck (Contractor)  <
Mainframe Systems Programmer - RavenTek Solution Partners

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Barkow, Eileen
Sent: Wednesday, May 16, 2018 10:57 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: [EXTERNAL] trying to reload a pdse after it has been unloaded and ftp'd

I am trying to reload an unloaded pdse after it has been ftp'd to a target lpar.
there is a known problem with this using IEBCOPY UNLOAD/RELOAD described on 
IBMLINK and none of the work-around overrides to ftp work. TRSMAIN/TERSE does 
not support PDSE. So I switched over to ADRDSSU.

I dump a dataset and am able to restore it on the same lpar.
However, when i ftp the dumped dataset to the remote lpar, the restore fails 
because the input dataset is not valid for ADRDSSU (tried ftp with both BIN and 
EBCDIC default).

both datasets (remote and local) look the same to me when browsing them and 
have the same dcb info.
does anyone know how to restore an unloaded pdse that has been ftp'd?

thanks in advance for any info.

 Data Set Name . . . . : XCICS.FA.HIST.DUMPED
   General Data
  Management class . . : **None**
  Storage class  . . . : **None**
  Volume serial . . . : W1STG2
  Device type . . . . : 3390
  Data class . . . . . : **None**
  Organization  . . . : PS
  Record format . . . : U
  Record length . . . : 0
  Block size  . . . . : 27998
  1st extent tracks . : 1500
  Secondary tracks  . : 60

***original job used to create XCICS.FA.HIST.DUMPED**
 //DUMP EXEC  PGM=ADRDSSU
 //SYSPRINT DDSYSOUT=A
 //DASD1DDUNIT=SYSDA,VOL=SER=XCICX0,DISP=SHR
 //TAPE DDUNIT=SYSDA,
 //  DISP=(NEW,CATLG),DSNAME=XCICS.FA.HIST.DUMPED,
 //  SPACE=(TRK,(1500,60),RLSE)
 //SYSINDD*
  DUMP  LOGINDDNAME(DASD1) OUTDDNAME(TAPE) -
 DATASET(INCLUDE(XCICS.FA.HIST)) WAIT(0,0)
 /*
//
**job to restore after ftp of XCICS.FA.HIST.DUMPED to remote lpar**
 //RESTFAEXEC  PGM=ADRDSSU COND=((0,NE),(0,EQ))
 //*ESTEXEC  PGM=ADRDSSU,PARM='TYPRUN=NORUN'
 //SYSPRINT  DD  SYSOUT=*
 //IN  DD DSN=XCICS.FA.HIST.DUMPED,DISP=SHR  //OUT  DD 
VOL=SER=W1STG2,DISP=SHR,UNIT=SYSDA
 //SYSIN DD  *
   RESTORE INDD(IN) OUTDD(OUT) DATASET(INCLUDE(XCICS.FA.HIST)) -
   CATALOG -
  RENUNC(XCICS.FA.HIST,XCICS.FA.HIST.RESTORED) REPLACE  //
*
PAGE 0001 5695-DF175  DFSMSDSS V2R02.0 DATA SET SERVICES 2018.136 11:13
  RESTORE INDD(IN) OUTDD(OUT) DATASET(INCLUDE(XCICS.FA.HIST)) -
  CATALOG -
 RENUNC(XCICS.FA.HIST,XCICS.FA.HIST.RESTORED) REPLACE ADR101I (R/I)-RI01 (01), 
TASKID 001 HAS BEEN ASSIGNED TO COMMAND 'RESTORE '
ADR109I (R/I)-RI01 (01), 2018.136 11:13:26 INITIAL SCAN OF USER CONTROL 
STATEMEN ADR016I (001)-PRIME(01), RACF LOGGING OPTION IN EFFECT FOR THIS TASK 
ADR006I (001)-STEND(01), 2018.136 11:13:26 EXECUTION BEGINS ADR389E (001)-TDDS 
(07), INVALID INPUT ON DDNAME IN, INPUT DATA SET NOT PRODUCED ADR415W 
(001)-TDDS (02), NO DATA SETS WERE COPIED, DUMPED, OR RESTORED FROM ANY ADR006I 
(001)-STEND(02), 2018.136 11:13:26 EXECUTION ENDS ADR013I (001)-CLTSK(01), 
2018.136 11:13:26 TASK COMPLETED WITH RETURN CODE 000

Re: trying to reload a pdse after it has been unloaded and ftp'd

[Barkow, Eileen]

There is a 'mput' ftp command to ftp all the members but it takes a long time.
I am not sure about the MVSPUT option.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Steve Horein
Sent: Wednesday, May 16, 2018 1:56 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: trying to reload a pdse after it has been unloaded and ftp'd

Although I haven't used it much, it would seem ftp's MVSPUT 'XCICS.FA.HIST'
'XCICS.FA.HIST.RESTORED'  (REALLOC could eliminate some steps?

On Wed, May 16, 2018 at 10:57 AM, Barkow, Eileen <ebar...@doitt.nyc.gov>
wrote:

> I am trying to reload an unloaded pdse after it has been ftp'd to a target
> lpar.
> there is a known problem with this using IEBCOPY UNLOAD/RELOAD described
> on IBMLINK and none of the
> work-around overrides to ftp work. TRSMAIN/TERSE does not support PDSE. So
> I switched over to ADRDSSU.
>
> I dump a dataset and am able to restore it on the same lpar.
> However, when i ftp the dumped dataset to the remote lpar, the restore
> fails because the input dataset is not valid for ADRDSSU
> (tried ftp with both BIN and EBCDIC default).
>
> both datasets (remote and local) look the same to me when browsing them
> and have the same dcb info.
> does anyone know how to restore an unloaded pdse that has been ftp'd?
>
> thanks in advance for any info.
> 
>  Data Set Name . . . . : XCICS.FA.HIST.DUMPED
>General Data
>   Management class . . : **None**
>   Storage class  . . . : **None**
>   Volume serial . . . : W1STG2
>   Device type . . . . : 3390
>   Data class . . . . . : **None**
>   Organization  . . . : PS
>   Record format . . . : U
>   Record length . . . : 0
>   Block size  . . . . : 27998
>   1st extent tracks . : 1500
>   Secondary tracks  . : 60
>
> ***original job used to create XCICS.FA.HIST.DUMPED**
>  //DUMP EXEC  PGM=ADRDSSU
>  //SYSPRINT DDSYSOUT=A
>  //DASD1DDUNIT=SYSDA,VOL=SER=XCICX0,DISP=SHR
>  //TAPE DDUNIT=SYSDA,
>  //  DISP=(NEW,CATLG),DSNAME=XCICS.FA.HIST.DUMPED,
>  //  SPACE=(TRK,(1500,60),RLSE)
>  //SYSINDD*
>   DUMP  LOGINDDNAME(DASD1) OUTDDNAME(TAPE) -
>  DATASET(INCLUDE(XCICS.FA.HIST)) WAIT(0,0)
>  /*
> //
> **job to restore after ftp of XCICS.FA.HIST.DUMPED to remote lpar**
>  //RESTFAEXEC  PGM=ADRDSSU COND=((0,NE),(0,EQ))
>  //*ESTEXEC  PGM=ADRDSSU,PARM='TYPRUN=NORUN'
>  //SYSPRINT  DD  SYSOUT=*
>  //IN  DD DSN=XCICS.FA.HIST.DUMPED,DISP=SHR
>  //OUT  DD VOL=SER=W1STG2,DISP=SHR,UNIT=SYSDA
>  //SYSIN DD  *
>RESTORE INDD(IN) OUTDD(OUT) DATASET(INCLUDE(XCICS.FA.HIST)) -
>CATALOG -
>   RENUNC(XCICS.FA.HIST,XCICS.FA.HIST.RESTORED) REPLACE
>  //
> 
> *
> PAGE 0001 5695-DF175  DFSMSDSS V2R02.0 DATA SET SERVICES 2018.136
> 11:13
>   RESTORE INDD(IN) OUTDD(OUT) DATASET(INCLUDE(XCICS.FA.HIST)) -
>   CATALOG -
>  RENUNC(XCICS.FA.HIST,XCICS.FA.HIST.RESTORED) REPLACE
> ADR101I (R/I)-RI01 (01), TASKID 001 HAS BEEN ASSIGNED TO COMMAND 'RESTORE '
> ADR109I (R/I)-RI01 (01), 2018.136 11:13:26 INITIAL SCAN OF USER CONTROL
> STATEMEN
> ADR016I (001)-PRIME(01), RACF LOGGING OPTION IN EFFECT FOR THIS TASK
> ADR006I (001)-STEND(01), 2018.136 11:13:26 EXECUTION BEGINS
> ADR389E (001)-TDDS (07), INVALID INPUT ON DDNAME IN, INPUT DATA SET NOT
> PRODUCED
> ADR415W (001)-TDDS (02), NO DATA SETS WERE COPIED, DUMPED, OR RESTORED
> FROM ANY
> ADR006I (001)-STEND(02), 2018.136 11:13:26 EXECUTION ENDS
> ADR013I (001)-CLTSK(01), 2018.136 11:13:26 TASK COMPLETED WITH RETURN CODE
> 0008
> ADR012I (SCH)-DSSU (01), 2018.136 11:13:26 DFSMSDSS PROCESSING COMPLETE.
> HIGHEST
>
>
>
>
>
>
>
>   
>
> This e-mail, including any attachments, may be confidential, privileged or
> otherwise legally protected. It is intended only for the addressee. If you
> received this e-mail in error or from someone who was not authorized to
> send it to you, do not disseminate, copy or otherwise use this e-mail or
> its attachments. Please notify the sender immediately by reply e-mail and
> delete the e-mail from your system.
>
>
> --
> 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: trying to reload a pdse after it has been unloaded and ftp'd

[Barkow, Eileen]

I was going to try XMIT as a last resort but the TERSE/UNTERSE steps added to 
the ADRDSSU  jobs worked.
I think that XMIT needs a USERID to send to and there are different userids 
involved in each lpar.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Seymour J Metz
Sent: Wednesday, May 16, 2018 12:03 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: trying to reload a pdse after it has been unloaded and ftp'd

You can FTP an XMIT unload.


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


From: IBM Mainframe Discussion List <IBM-MAIN@listserv.ua.edu> on behalf of 
Barkow, Eileen <ebar...@doitt.nyc.gov>
Sent: Wednesday, May 16, 2018 11:57 AM
To: IBM-MAIN@listserv.ua.edu
Subject: trying to reload a pdse after it has been unloaded and ftp'd

I am trying to reload an unloaded pdse after it has been ftp'd to a target lpar.
there is a known problem with this using IEBCOPY UNLOAD/RELOAD described on 
IBMLINK and none of the
work-around overrides to ftp work. TRSMAIN/TERSE does not support PDSE. So I 
switched over to ADRDSSU.

I dump a dataset and am able to restore it on the same lpar.
However, when i ftp the dumped dataset to the remote lpar, the restore fails 
because the input dataset is not valid for ADRDSSU
(tried ftp with both BIN and EBCDIC default).

both datasets (remote and local) look the same to me when browsing them and 
have the same dcb info.
does anyone know how to restore an unloaded pdse that has been ftp'd?

thanks in advance for any info.

 Data Set Name . . . . : XCICS.FA.HIST.DUMPED
   General Data
  Management class . . : **None**
  Storage class  . . . : **None**
  Volume serial . . . : W1STG2
  Device type . . . . : 3390
  Data class . . . . . : **None**
  Organization  . . . : PS
  Record format . . . : U
  Record length . . . : 0
  Block size  . . . . : 27998
  1st extent tracks . : 1500
  Secondary tracks  . : 60

***original job used to create XCICS.FA.HIST.DUMPED**
 //DUMP EXEC  PGM=ADRDSSU
 //SYSPRINT DDSYSOUT=A
 //DASD1DDUNIT=SYSDA,VOL=SER=XCICX0,DISP=SHR
 //TAPE DDUNIT=SYSDA,
 //  DISP=(NEW,CATLG),DSNAME=XCICS.FA.HIST.DUMPED,
 //  SPACE=(TRK,(1500,60),RLSE)
 //SYSINDD*
  DUMP  LOGINDDNAME(DASD1) OUTDDNAME(TAPE) -
 DATASET(INCLUDE(XCICS.FA.HIST)) WAIT(0,0)
 /*
//
**job to restore after ftp of XCICS.FA.HIST.DUMPED to remote lpar**
 //RESTFAEXEC  PGM=ADRDSSU COND=((0,NE),(0,EQ))
 //*ESTEXEC  PGM=ADRDSSU,PARM='TYPRUN=NORUN'
 //SYSPRINT  DD  SYSOUT=*
 //IN  DD DSN=XCICS.FA.HIST.DUMPED,DISP=SHR
 //OUT  DD VOL=SER=W1STG2,DISP=SHR,UNIT=SYSDA
 //SYSIN DD  *
   RESTORE INDD(IN) OUTDD(OUT) DATASET(INCLUDE(XCICS.FA.HIST)) -
   CATALOG -
  RENUNC(XCICS.FA.HIST,XCICS.FA.HIST.RESTORED) REPLACE
 //
*
PAGE 0001 5695-DF175  DFSMSDSS V2R02.0 DATA SET SERVICES 2018.136 11:13
  RESTORE INDD(IN) OUTDD(OUT) DATASET(INCLUDE(XCICS.FA.HIST)) -
  CATALOG -
 RENUNC(XCICS.FA.HIST,XCICS.FA.HIST.RESTORED) REPLACE
ADR101I (R/I)-RI01 (01), TASKID 001 HAS BEEN ASSIGNED TO COMMAND 'RESTORE '
ADR109I (R/I)-RI01 (01), 2018.136 11:13:26 INITIAL SCAN OF USER CONTROL STATEMEN
ADR016I (001)-PRIME(01), RACF LOGGING OPTION IN EFFECT FOR THIS TASK
ADR006I (001)-STEND(01), 2018.136 11:13:26 EXECUTION BEGINS
ADR389E (001)-TDDS (07), INVALID INPUT ON DDNAME IN, INPUT DATA SET NOT PRODUCED
ADR415W (001)-TDDS (02), NO DATA SETS WERE COPIED, DUMPED, OR RESTORED FROM ANY
ADR006I (001)-STEND(02), 2018.136 11:13:26 EXECUTION ENDS
ADR013I (001)-CLTSK(01), 2018.136 11:13:26 TASK COMPLETED WITH RETURN CODE 0008
ADR012I (SCH)-DSSU (01), 2018.136 11:13:26 DFSMSDSS PROCESSING COMPLETE. HIGHEST







  

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


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

trying to reload a pdse after it has been unloaded and ftp'd

[Barkow, Eileen]

I am trying to reload an unloaded pdse after it has been ftp'd to a target lpar.
there is a known problem with this using IEBCOPY UNLOAD/RELOAD described on 
IBMLINK and none of the
work-around overrides to ftp work. TRSMAIN/TERSE does not support PDSE. So I 
switched over to ADRDSSU.

I dump a dataset and am able to restore it on the same lpar.
However, when i ftp the dumped dataset to the remote lpar, the restore fails 
because the input dataset is not valid for ADRDSSU
(tried ftp with both BIN and EBCDIC default).

both datasets (remote and local) look the same to me when browsing them and 
have the same dcb info.
does anyone know how to restore an unloaded pdse that has been ftp'd?

thanks in advance for any info.

 Data Set Name . . . . : XCICS.FA.HIST.DUMPED
   General Data
  Management class . . : **None**
  Storage class  . . . : **None**
  Volume serial . . . : W1STG2
  Device type . . . . : 3390
  Data class . . . . . : **None**
  Organization  . . . : PS
  Record format . . . : U
  Record length . . . : 0
  Block size  . . . . : 27998
  1st extent tracks . : 1500
  Secondary tracks  . : 60

***original job used to create XCICS.FA.HIST.DUMPED**
 //DUMP EXEC  PGM=ADRDSSU
 //SYSPRINT DDSYSOUT=A
 //DASD1DDUNIT=SYSDA,VOL=SER=XCICX0,DISP=SHR
 //TAPE DDUNIT=SYSDA,
 //  DISP=(NEW,CATLG),DSNAME=XCICS.FA.HIST.DUMPED,
 //  SPACE=(TRK,(1500,60),RLSE)
 //SYSINDD*
  DUMP  LOGINDDNAME(DASD1) OUTDDNAME(TAPE) -
 DATASET(INCLUDE(XCICS.FA.HIST)) WAIT(0,0)
 /*
//
**job to restore after ftp of XCICS.FA.HIST.DUMPED to remote lpar**
 //RESTFAEXEC  PGM=ADRDSSU COND=((0,NE),(0,EQ))
 //*ESTEXEC  PGM=ADRDSSU,PARM='TYPRUN=NORUN'
 //SYSPRINT  DD  SYSOUT=*
 //IN  DD DSN=XCICS.FA.HIST.DUMPED,DISP=SHR
 //OUT  DD VOL=SER=W1STG2,DISP=SHR,UNIT=SYSDA
 //SYSIN DD  *
   RESTORE INDD(IN) OUTDD(OUT) DATASET(INCLUDE(XCICS.FA.HIST)) -
   CATALOG -
  RENUNC(XCICS.FA.HIST,XCICS.FA.HIST.RESTORED) REPLACE
 //
*
PAGE 0001 5695-DF175  DFSMSDSS V2R02.0 DATA SET SERVICES 2018.136 11:13
  RESTORE INDD(IN) OUTDD(OUT) DATASET(INCLUDE(XCICS.FA.HIST)) -
  CATALOG -
 RENUNC(XCICS.FA.HIST,XCICS.FA.HIST.RESTORED) REPLACE
ADR101I (R/I)-RI01 (01), TASKID 001 HAS BEEN ASSIGNED TO COMMAND 'RESTORE '
ADR109I (R/I)-RI01 (01), 2018.136 11:13:26 INITIAL SCAN OF USER CONTROL STATEMEN
ADR016I (001)-PRIME(01), RACF LOGGING OPTION IN EFFECT FOR THIS TASK
ADR006I (001)-STEND(01), 2018.136 11:13:26 EXECUTION BEGINS
ADR389E (001)-TDDS (07), INVALID INPUT ON DDNAME IN, INPUT DATA SET NOT PRODUCED
ADR415W (001)-TDDS (02), NO DATA SETS WERE COPIED, DUMPED, OR RESTORED FROM ANY
ADR006I (001)-STEND(02), 2018.136 11:13:26 EXECUTION ENDS
ADR013I (001)-CLTSK(01), 2018.136 11:13:26 TASK COMPLETED WITH RETURN CODE 0008
ADR012I (SCH)-DSSU (01), 2018.136 11:13:26 DFSMSDSS PROCESSING COMPLETE. HIGHEST







  

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


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

Re: [TSO-REXX] Sdsf rexx

[Barkow, Eileen]

Thanks for the critique Hobart.
 Actually the intention of the SINGALS was to terminate the loops and other 
constructs.
This clist was a conversion from an SDSF BATCH process  to extract and archive 
the files and it was my first experience with SDSF/REXX so
I was more interested in the conversion process than in writing elegant REXX 
code, but I will take your comments into consideration the
Next time I write some REXX code, which I may have to do shortly.

So maybe you or some other REXX guru can help me with this:
Is there any way to get the member names in a  PDSE with REXX?
I need to extract the member  names in a PDSE and plug them into a  job stream.
I know how to get the file names in a HFS directory but have not seen anything 
to extract the PDSE member names.


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Hobart Spitz
Sent: Thursday, May 10, 2018 9:10 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: [TSO-REXX] Sdsf rexx

For those who may not be aware, SIGNAL is *not* a GOTO.

I counted 18 SIGNALs, and only 1 CALL.  Many of the SIGNALs here seem to
have been better done with DO...END.

In the words of TRL, SIGNAL terminates "all active pending DO loops, DO
groups, IF constructs, SELECT construct, and INTERPRET instructions" such
that "they cannot be reactivated".

With apologies to Eileen and/or the original coder:  Not being aware of
that fact has apparently let the coder down into a "black hole".  I hope my
post can encourage anyone who thinks this is the way to write REXX, to do
better, and that anyone who copies sees this code not use it as an model
for anything.

This is not an issue of style, pedantics, or personal preference.  Using
SIGNAL this way is even more of a barrier to maintainable, readable code
than a GOTO.  For more information, see the appropriate resources.

It should not even be necessary to say it, but I vote for SIGNAL-less
coding (except for SIGNAL ON/OFF, and where actually necessary.)

OREXXMan
JCL is the buggy whip of 21st century computing.
We want Pipelines in the z/OS base.

On Tue, May 8, 2018 at 4:18 PM, Barkow, Eileen <ebar...@doitt.nyc.gov>
wrote:

> This is a SDSF/REXX clist that extracts sysout datasets with names S*
> on the ST queue and archives them to datatsets.
> It can be adapted to extract datasets with other criteria.
>
> /* REXX */
> TRACE e
> /*ISFTRACE="ON" */
> /*ISFTRMASK="ALL" */
> PROFILE NOPREFIX
> rc=isfcalls('ON')
> PARSE ARG p1 p2 p3
> IF p1 ="" THEN DO
> ISFPREFIX = 'CICS*'
> END
> ELSE
> DO
> ISFPREFIX = p1
> END
> IF p2 ="" THEN DO
> HLQ   = 'XCICSR.'
> END
> ELSE
> DO
> HLQ   = p2||'.'
> END
> IF p3 ="" THEN DO
> ISFPRTVOLSER = 'W1STG1'
> END
> ELSE
> DO
> ISFPRTVOLSER = 'W1STG1'
> END
> ISFOWNER  = '*'
> ISFFILTER = 'QUEUE PRINT'
> CICSJOBN = ISFPREFIX
> ASTPO = POS('*',CICSJOBN)
> if ASTPO ^= 0 then
> do
> ASTPO = ASTPO - 1
> CICSJOBN = SUBSTR(CICSJOBN,1,ASTPO)
> end
> /* Access the ST panel. A TOKEN variable is */
> /* created for each row which is subsequently */
> /* needed to perform actions */
> Address SDSF "ISFEXEC ST"
> lrc=rc
> call msgrtn
> /* Find a job starting with CICSjobn and list data sets */
> /* rexx */
> numrows=isfrows
> if isfrows<=0 then exit
> six = 1
> setix:
> if six > numrows then signal endit
> do ix=six to numrows /* Loop for all rows returned */
> if pos(CICSJOBN,JNAME.ix) = 1 then /* If this is desired row */
> do
> /* Issue the ? action character for the job */
> /* identified by the token variable. Note */
> /* the token must be enclosed in single quotes */
> /* Use the prefix option to ensure unique */
> /* variables are created, beginning with JDS_ */
> Address SDSF "ISFACT ST TOKEN('"TOKEN.ix"') PARM(NP ?)",
> "("prefix JDS_
> if JDS_DDNAME.0 = 0 then exit
> lrc=rc
> if lrc<>0 then
> exit 20
> startjx = 2
> jf = 0
> IF JDS_DDNAME.0 =1 then signal SETJL1
> /***if 2 jesmsglgs use 2nd  */
> do jf = 2 to JDS_DDNAME.0 /* loop for all rows returned */
> IF SUBSTR(JDS_DDNAME.jf,1,4) = 'JESM' then signal GETJLINF
> end
> SETJL1:
> startjx = 1
> GETJLINF:
> do jx=startjx to JDS_DDNAME.0 /* loop for all rows returned */
> IF SUBSTR(JDS_DDNAME.jx,1,4) = 'JESM' then signal GOTJESM
> end
> signal nextjob
> lrc=rc
> call msgrtn
> if lrc<>0 then do
> exit 20
> GOTJESM:
> sjx= jx  /*save position of current ddname entry */
> Address SDSF "ISFACT ST TOKEN('"JDS_TOKEN.jx"') PARM(NP SA)"
> lc = rc
> k = isfddname.0
> /***READ 3RD   RECORD TO GET STARTED TASK NUMBER  */
>  "EXECIO 1  

rare CICS SYSTEMS PROGRAMMING OPPORTUNITY IN BEAUTIFUL DOWNTOWN BROOKLYN

[Barkow, Eileen]

We had a last minute cancellation of an offer so here it is again If anyone Is 
interested.



City of New York
Department of Information Technology & Telecommunication
Job Posting Notice Civil Service Title: Computer Specialist (Operations)
Level:
Title Code No: 13622Salary: $71,330/$82,030 - $111,344
Business Title: Transaction Server (CICS) SpecialistWork Location: 
Brooklyn, NY
Division/Work Unit: IT Services Number of Positions: 1
Job ID: 314923  Hours/Shift: Day - Due to the necessary technical support 
duties of this position in a 24/7 operation, candidate may be required to work 
various shifts such as weekends and/or nights/evenings.
Job Description
DoITT provides for the sustained, efficient and effective delivery of IT 
services, infrastructure and telecommunications to enhance service delivery to 
New York City's residents, businesses, employees and visitors. As the City's 
technology leader, DoITT is responsible for maintaining the foundational IT 
infrastructure and systems that touch every aspect of City life from public 
safety to human services, from education to economic development crossing the 
full spectrum of governmental operations.
The successful candidate will serve as a Transaction Server (CICS) Specialist 
reporting to the IT Services Division. Responsibilities will include: 
Installations of CICS and related system software; maintain updates and apply 
fixes to CICS and related system software; analyze software changes and advise 
management and peers of their effect on the user community; troubleshoot 
software failures and provide expedient resolution; investigate new software 
products to assist management in planning for future needs and growth; maintain 
and/or continue to expand a level of technical expertise commensurate with the 
present configuration of hardware and software; perform other assignments as 
delegated by management; supervise junior staff as required; and perform 
special projects and initiatives as needed.
Minimum Qualification Requirements
1. A baccalaureate degree from an accredited college and four years of 
satisfactory full-time computer operations experience, one year of which must 
have been in a project leader capacity or as a major contributor on a complex 
project;
or
2. An associate degree from an accredited college and six years of satisfactory 
fulltime computer operations experience, one year of which must have been in a 
project leader capacity or as a major contributor on a complex project;
or
3. A four-year high school diploma or its educational equivalent and eight 
years of satisfactory full-time computer operations experience, one year of 
which must have been in a project leader capacity or as a major contributor on 
a complex project;
or
4. Education and/or equivalent to "1", "2", or "3" above. However, all 
candidates must have at least a four-year high school diploma or its 
educational equivalent and the four years of satisfactory full-time experience 
as described in "1", "2", or "3" above.
Preferred Skills
The successful candidate should possess the following: Well versed in debugging 
both system and application errors and be able to write and maintain CICS 
Exits; excellent oral and written communication skills are highly desirable; 
expert knowledge of CICS internals; familiarity with Tivoli System Automation 
and Communication Server software (VTAM and TCP/IP) is a plus.
To Apply
Special Note: Taking and passing civil service exams are necessary to maintain 
employment with the City of New York. Please check the Department of Citywide 
Administrative Services (DCAS) website 
(http://www.nyc.gov/html/dcas/html/work/exam_monthly.shtml) for important exam 
filing information. Please ensure that you are either a permanent employee in 
the civil service title listed on this posting, or, that you file for the 
examination when there is an open filing period. For more information regarding 
the civil service process, please visit the DCAS website at: 
http://www.nyc.gov/html/dcas/html/work/work.shtml
For City employees, please go to Employee Self Service (ESS), click on 
Recruiting Activities > Careers, and search for Job ID #314923
For all other applicants, please go to 
www.nyc.gov/jobs/search and search for Job ID 
#314923
-or-
If you do not have access to a computer, please mail resume indicating Job ID # 
to:
Department of Information Technology and Telecommunications (DoITT)
Recruitment Office - 2 Metrotech Center - 4th Floor - Brooklyn, NY 11201
SUBMISSION OF A RESUME IS NOT A GUARANTEE THAT YOU WILL RECEIVE AN INTERVIEW
APPOINTMENTS ARE SUBJECT TO OVERSIGHT
Posting Date: December 27, 2017 Post Until: Filled




  

This e-mail, including any attachments, may be confidential, privileged or 
otherwise legally protected. It is intended only for the addressee. If you 
received this e-mail in error or from someone who was not 

Re: [TSO-REXX] Sdsf rexx

[Barkow, Eileen]

This is a SDSF/REXX clist that extracts sysout datasets with names S* on 
the ST queue and archives them to datatsets.
It can be adapted to extract datasets with other criteria.

/* REXX */
TRACE e
/*ISFTRACE="ON" */
/*ISFTRMASK="ALL" */
PROFILE NOPREFIX
rc=isfcalls('ON')
PARSE ARG p1 p2 p3
IF p1 ="" THEN DO
ISFPREFIX = 'CICS*'
END
ELSE
DO
ISFPREFIX = p1
END
IF p2 ="" THEN DO
HLQ   = 'XCICSR.'
END
ELSE
DO
HLQ   = p2||'.'
END
IF p3 ="" THEN DO
ISFPRTVOLSER = 'W1STG1'
END
ELSE
DO
ISFPRTVOLSER = 'W1STG1'
END
ISFOWNER  = '*'
ISFFILTER = 'QUEUE PRINT'
CICSJOBN = ISFPREFIX
ASTPO = POS('*',CICSJOBN)
if ASTPO ^= 0 then
do
ASTPO = ASTPO - 1
CICSJOBN = SUBSTR(CICSJOBN,1,ASTPO)
end
/* Access the ST panel. A TOKEN variable is */
/* created for each row which is subsequently */
/* needed to perform actions */
Address SDSF "ISFEXEC ST"
lrc=rc
call msgrtn
/* Find a job starting with CICSjobn and list data sets */
/* rexx */
numrows=isfrows
if isfrows<=0 then exit
six = 1
setix:
if six > numrows then signal endit
do ix=six to numrows /* Loop for all rows returned */
if pos(CICSJOBN,JNAME.ix) = 1 then /* If this is desired row */
do
/* Issue the ? action character for the job */
/* identified by the token variable. Note */
/* the token must be enclosed in single quotes */
/* Use the prefix option to ensure unique */
/* variables are created, beginning with JDS_ */
Address SDSF "ISFACT ST TOKEN('"TOKEN.ix"') PARM(NP ?)",
"("prefix JDS_
if JDS_DDNAME.0 = 0 then exit
lrc=rc
if lrc<>0 then
exit 20
startjx = 2
jf = 0
IF JDS_DDNAME.0 =1 then signal SETJL1
/***if 2 jesmsglgs use 2nd  */
do jf = 2 to JDS_DDNAME.0 /* loop for all rows returned */
IF SUBSTR(JDS_DDNAME.jf,1,4) = 'JESM' then signal GETJLINF
end
SETJL1:
startjx = 1
GETJLINF:
do jx=startjx to JDS_DDNAME.0 /* loop for all rows returned */
IF SUBSTR(JDS_DDNAME.jx,1,4) = 'JESM' then signal GOTJESM
end
signal nextjob
lrc=rc
call msgrtn
if lrc<>0 then do
exit 20
GOTJESM:
sjx= jx  /*save position of current ddname entry */
Address SDSF "ISFACT ST TOKEN('"JDS_TOKEN.jx"') PARM(NP SA)"
lc = rc
k = isfddname.0
/***READ 3RD   RECORD TO GET STARTED TASK NUMBER  */
 "EXECIO 1  DISKR " isfddname.k 3 " (STEM STCREC. "
 lrc = rc
 If lrc ^= 0 THEN SIGNAL NOSTC
 PARSE VAR STCREC.1  S1 STRNUM S3
 STRNUM = STRIP(STRNUM)
 STCNUM = SUBSTR(STRNUM,1,8)
/***READ 4TH   RECORD TO GET JOBNAME  */
 "EXECIO 1  DISKR " isfddname.k 4 " (STEM STCREC. "
 PARSE VAR STCREC.1  X1 X2 X3 JN XX
 JN = STRIP(JN)
 "EXECIO 0  DISKR " isfddname.k  " (finis"
 sjx = sjx+1
 signal setjx
setjx:
IF sjx >  JDS_DDNAME.0 then signal nextjob
do jx=sjx to JDS_DDNAME.0 /* loop for all rows returned */
IF SUBSTR(JDS_DDNAME.jx,1,4) = 'S000' then signal GOTSTAT
end
signal NOSTAT
NOSTC:
EXIT
NOSTAT:
six =six+1
signal setix
EXIT
GOTSTAT:
Address SDSF "ISFACT ST TOKEN('"JDS_TOKEN.jx"') PARM(NP SA)",
"("prefix SDS_
lc = rc
k = isfddname.0
STATIN = isfddname.k
STATDS = isfdsname.k
/***READ FIRST RECORD TO GET INFO TO WRITE OUTPUT DATAST  */
 "EXECIO *  DISKR " isfddname.k " (STEM REC. "
 lrc = rc
 If lrc ^= 0 THEN SIGNAL noapp
 PARSE VAR REC.1  A  A2 A3 A4 A5 JN A7 JD A9 JT A6
 IF SUBSTR(A,1,4) = '1App' THEN SIGNAL GOTAPP
noapp:
 EXIT
GOTAPP:
 JDATE= ".D"||SUBSTR(JD,1,2)||SUBSTR(JD,4,2)||SUBSTR(JD,9,2)
 JTIME= ".T"||SUBSTR(JT,1,2)||SUBSTR(JT,4,2)||SUBSTR(JT,7,2)
 STPNUM = "."||STCNUM
 "FREE FILE(STATOUT)"
 /*OUTDS = "XCICS."||JN||JDATE||STPNUM||JTIME */
 OUTDS =  HLQ||JN||JDATE||STPNUM||JTIME
/*if SYSDSN(OUTDS) ^= 'OK' */
/* THEN SIGNAL NEWDS */
 "FREE FILE(XXX)  "
 "ALLOC FILE(XXX) DSNAME("OUTDS") SHR  "
 IF RC ^= 0 THEN SIGNAL NEWDS
 SIGNAL MOREDS
 NEWDS:
 /*"DELETE  "OUTDS"  " */
 /*LLOC FILE(STATOUT) DSNAME("OUTDS") NEW CATALOG  DSORG(PS) */
/*PACE(10 5) TRACKS RECFM(F B A) BLKSIZE(14300) LRECL(143) VOL(XCICS1)*/
 ISFPRTDDNAME='STATOUT'
 ISFPRTDSNAME= "'"OUTDS"'"
 ISFPRTDEST='NEW'
 ISFPRTRECFM = 'FB'
 ISFPRTLRECL = '143'
 ISFPRTBLKSIZE= '14300'
 /*ISFPRTVOLSER= 'XCICS1' */
 ISFPRTSPACETYPE = 'BLKS'
 ISFPRTPRIMARY = '1000'
 ISFPRTSECONDARY = '0500'
 ISFPRTUNIT = 'SYSDA'
 ISFPRTDISP = 'NEW'
Address SDSF "ISFACT ST TOKEN('"JDS_TOKEN.jx"') PARM(NP XDC)"
lrc = rc
if lrc = 0 then signal MOREDS
call msgrtn
MOREDS:
/look for more STAT (S00*) DATASETS  **/
sjx =sjx+1
signal setjx
/*CALL msgrtn */
endit:
 EXIT
nextjob:
/***process more jobs with the same jobname  **/
six = six+1
sjx = 2
signal setix
exit
/* Subroutine to list error messages */
msgrtn: procedure expose isfmsg isfmsg2.
/* The isfmsg variable contains a short message */
if isfmsg<>"" then
Say "isfmsg is:" isfmsg
/* The isfmsg2 stem contains additional descriptive */
/* error messages */
do ix=1 to isfmsg2.0
Say "isfmsg2."ix "is:" isfmsg2.ix
end
return

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Gibney, Dave
Sent: Tuesday, May 08, 2018 3:55 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: [TSO-REXX] Sdsf rexx

Phoenix has superb 

rare CICS Systems programming opportunity in Beautiful Dowtown Brooklyn

[Barkow, Eileen]

 City of New York
Department of Information Technology & Telecommunication
Job Posting Notice Civil Service Title: Computer Specialist (Operations)
Level:
Title Code No: 13622Salary: $71,330/$82,030 - $111,344
Business Title: Transaction Server (CICS) SpecialistWork Location: 
Brooklyn, NY
Division/Work Unit: IT Services Number of Positions: 1
Job ID: 314923  Hours/Shift: Day - Due to the necessary technical support 
duties of this position in a 24/7 operation, candidate may be required to work 
various shifts such as weekends and/or nights/evenings.
Job Description
DoITT provides for the sustained, efficient and effective delivery of IT 
services, infrastructure and telecommunications to enhance service delivery to 
New York City's residents, businesses, employees and visitors. As the City's 
technology leader, DoITT is responsible for maintaining the foundational IT 
infrastructure and systems that touch every aspect of City life from public 
safety to human services, from education to economic development crossing the 
full spectrum of governmental operations.
The successful candidate will serve as a Transaction Server (CICS) Specialist 
reporting to the IT Services Division. Responsibilities will include: 
Installations of CICS and related system software; maintain updates and apply 
fixes to CICS and related system software; analyze software changes and advise 
management and peers of their effect on the user community; troubleshoot 
software failures and provide expedient resolution; investigate new software 
products to assist management in planning for future needs and growth; maintain 
and/or continue to expand a level of technical expertise commensurate with the 
present configuration of hardware and software; perform other assignments as 
delegated by management; supervise junior staff as required; and perform 
special projects and initiatives as needed.
Minimum Qualification Requirements
1. A baccalaureate degree from an accredited college and four years of 
satisfactory full-time computer operations experience, one year of which must 
have been in a project leader capacity or as a major contributor on a complex 
project;
or
2. An associate degree from an accredited college and six years of satisfactory 
fulltime computer operations experience, one year of which must have been in a 
project leader capacity or as a major contributor on a complex project;
or
3. A four-year high school diploma or its educational equivalent and eight 
years of satisfactory full-time computer operations experience, one year of 
which must have been in a project leader capacity or as a major contributor on 
a complex project;
or
4. Education and/or equivalent to "1", "2", or "3" above. However, all 
candidates must have at least a four-year high school diploma or its 
educational equivalent and the four years of satisfactory full-time experience 
as described in "1", "2", or "3" above.
Preferred Skills
The successful candidate should possess the following: Well versed in debugging 
both system and application errors and be able to write and maintain CICS 
Exits; excellent oral and written communication skills are highly desirable; 
expert knowledge of CICS internals; familiarity with Tivoli System Automation 
and Communication Server software (VTAM and TCP/IP) is a plus.
To Apply
Special Note: Taking and passing civil service exams are necessary to maintain 
employment with the City of New York. Please check the Department of Citywide 
Administrative Services (DCAS) website 
(http://www.nyc.gov/html/dcas/html/work/exam_monthly.shtml) for important exam 
filing information. Please ensure that you are either a permanent employee in 
the civil service title listed on this posting, or, that you file for the 
examination when there is an open filing period. For more information regarding 
the civil service process, please visit the DCAS website at: 
http://www.nyc.gov/html/dcas/html/work/work.shtml
For City employees, please go to Employee Self Service (ESS), click on 
Recruiting Activities > Careers, and search for Job ID #314923
For all other applicants, please go to www.nyc.gov/jobs/search and search for 
Job ID #314923
-or-
If you do not have access to a computer, please mail resume indicating Job ID # 
to:
Department of Information Technology and Telecommunications (DoITT)
Recruitment Office - 2 Metrotech Center - 4th Floor - Brooklyn, NY 11201
SUBMISSION OF A RESUME IS NOT A GUARANTEE THAT YOU WILL RECEIVE AN INTERVIEW
APPOINTMENTS ARE SUBJECT TO OVERSIGHT
Posting Date: December 27, 2017 Post Until: Filled




  

This e-mail, including any attachments, may be confidential, privileged or 
otherwise legally protected. It is intended only for the addressee. If you 
received this e-mail in error or from someone who was not authorized to send it 
to you, do not disseminate, copy or otherwise use this e-mail or its 
attachments. Please notify the sender 

Re: IRS Assembler Java Big Plus Jobs

[Barkow, Eileen]

Many of the assembler routines will probably have to be re-written in the 
hideous c/c++ languages to be called by java  (not sure if the JNI supports 
assembler).
Probably all the assembler could be rewritten in c or c++ but java is a lot 
nicer to work with.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Mike LaMartina
Sent: Wednesday, April 18, 2018 1:30 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: IRS Assembler Java Big Plus Jobs

I am surprised that IRS wants to replace Assembler with Java.

I can't think of a bigger mistake.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Joseph Reichman
Sent: Wednesday, April 18, 2018 10:09 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Fwd: IRS Assembler Java Big Plus Jobs

Begin forwarded message:

> From: Reichman Joseph 
> Date: April 18, 2018 at 1:06:33 PM EDT
> To: "reichman...@gmail.com" 
> Subject: FW: IRS  Assembler Java Big Plus Jobs
>
>
>
>
> From: Reichman Joseph
> Sent: Wednesday, April 18, 2018 1:04 PM
> To: 'IBM-MAIN@LISTSERV.UA.EDU' 
> Cc: DeLeon Tracy 
> Subject: IRS Assembler Java Big Plus Jobs
>
> Hi
>
> I have seen many posts here for jobs in that  vain
>
> The IRS is currently Looking for Assembler progs GS13 grade which starts at  
> 87,252 and goes to about 129
>
> I have been working in Assembler for many years after the .com I have been 
> bouncing around jobs more than I would like as IT became less stable
>
> The IRS in my humble opinion offers something private industry at this time 
> can’t match STABILITY. In addition after the first year you get to 
> telecommute albeit it must be within (200 or 125)  miles (IRS says 125 miles
>
> OPM says 200) don’t know which takes prescience of your POD (post of duty) 
> you must only come into the office once a week. I think you need mangers 
> approval (however almost all have no issue with this)
>
>
> For a list of locations and to apply go to USA.JOBS.ORG search for ALC
>
> There is a big push to modernize the code and re-write the Assembler in Java 
> the IRS has invested a lot of time sending me and other members of my group 
> to Java Classes without doubt it’s the best job I ever had
>
>
>
>
> Joe Reichman
>
> Joe Reichman
>
> IT Specialist
>
> Master Files Division
>
> New Carrollton Federal Building, B7-182
>
> OS:IT:AD:CP:I:IB
>
> Flex M,T,Th,F
>
> Home office (240) 863 - 3965
>
> Office (240) 613-4350
>
> Cell (917) 748-9693
>
> TOD M - F  7:30 am  - 4:00 pm

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

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

Re: Interesting - NODE for z/OS

[Barkow, Eileen]

CICS DOCTEMPLATES can include javascript code.
So NODE Is not the only thing that allows it.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of John McKown
Sent: Wednesday, February 21, 2018 8:05 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Interesting - NODE for z/OS

I haven't really had a chance to look at this yet. But I thought others
here might be interested. It is NODE for z/OS. NODE is a "server side"
JavaScript engine. That is, it allows you to run JavaScript programs on
z/OS.

https://github.com/ibmruntimes/node/releases/tag/ibm-6.13.0.0

Source only, no executable.

--
I have a theory that it's impossible to prove anything, but I can't prove
it.

Maranatha! <><
John McKown

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




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

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

Re: Silly C problem adding hex 6C-psa.h - edcdsect

[Barkow, Eileen]

I do not see edcdsect.rexx anywhere. I do not think that we have rexx installed 
on  Unix. 

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Seymour J Metz
Sent: Friday, February 09, 2018 3:26 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Silly C problem adding hex 6C-psa.h - edcdsect

First, he didn't provide the script, only illustrated its use. Second CLIST and 
REXX are two very different languages.

Kirk was showing the OMVS commands to use edcdsect.rexx.


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


From: IBM Mainframe Discussion List <IBM-MAIN@listserv.ua.edu> on behalf of 
Barkow, Eileen <ebar...@doitt.nyc.gov>
Sent: Friday, February 9, 2018 8:40 AM
To: IBM-MAIN@listserv.ua.edu
Subject: Re: Silly C problem adding hex 6C-psa.h - edcdsect

How do you run this script?
I tried it under UNIX and MVS as a rexx clist and get all kinds of errors.

$ ccsect
psa.h:: ccsect 1: FSUM7351 not found
edcdsect.rexx: ccsect 4: FSUM7351 not found
$

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Kirk Wolf
Sent: Friday, February 09, 2018 7:58 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Silly C problem adding hex 6C

It is better IMO to use EDCDSECT and create C header files for the system
DSECTS (PSA, ASCB, ASXB, etc), then you don't have to hard code offsets
into your code.

We have a little rexx shell script that we have been using for a dozen
years that invokes the assembler + EDCDSECT.  It is simple to add recipes
to your Makefile for whatever system headers you want.

For example:

psa.h:
echo "  IHAPSA " > asm_temp.s
echo "  END" >> asm_temp.s
edcdsect.rexx asm_temp.s  > psa.h

Then you can do:

#include "psa.h"
struct psa* pPSA = (struct psa*)0;
struct ascb* pASCB = (struct ascb*)pPSA->psaaold;
...

EDCDSECT is not perfect, but it generally works pretty well.


Kirk Wolf
Dovetailed Technologies
http://secure-web.cisco.com/12TWE8dXdbRVXzcJYbEA-byAvN6cSXeP1rhfnhh7Pa0wEeRF7mWSLoZ6goOOhN-t5hX_thEGjwBDQ5gSI8NqWhi6LjidYzSAXzKkKFzZw3nd2Y0Js2LoiFS29YljbOBrGQX0f5bWALkUNdJIOmT6GJgUYeSW61vUrayUrir72UXGxNNWqdq9kYlKXrQjKMr_yqb8lasCwZfSutQl221odQZH4QvP-FhM4k39wet0AE_TrUe5bv9Px9RQd2eHVSYBdtn0PQ17RvquapDqCGAnvV2mr66eC9N9mIBW2tOH7-hg7A6bAgssqsCVXtCObu9iRexaPkE_5NNvnjIuly_-Go7oOwjv6eUz9PN0PhYlIzIHKBfXfeEOACeMlYo6mW72dXK972uIiNQmgc9gGw3YjN9KTaRfxUdIMuDiFPkRvblpZt-NOXRidkWltUZ8BPzHr/http%3A%2F%2Fdovetail.com%0D%0A%0D%0AOn%20Fri%2C%20Feb%209%2C%202018%20at%206%3A02%20AM%2C%20Bernd%20Oppolzer%20%3Cbernd.oppolzer%40t-online.de>
wrote:

> More simple ... the pointers don't need to be int pointers;
> char pointers are just as good:
>
>
> #include 
> #include 
> #include 
> #include 
>
> int main  (int argc, char **argv)
>
> {
>char *PSA;
>char *ASCB;
>char *ASXB;
>char *ASXBP;
>char *JNPI;
>char jobname[9];
>
>PSA = (char *) 0x224; /* address of PSAAOLD */
>ASCB = (char *) (*PSA);
>printf ("ASCB = %p\n", ASCB);
>ASXB = ASCB + 0x6c;
>printf ("ASXB = %p\n", ASXB);
>ASXBP = (char *) (*ASXB);
>printf ("ASXBP = %p\n", ASXBP);
>JNPI = ASXBP + 0xC0;
>printf ("JNPI = %p\n", JNPI);
>memcpy (jobname, JNPI, 8);
>jobname [8] = 0x00;
>printf ("jobname = %s\n", jobname);
> }
>
>
>
> Am 09.02.2018 um 12:57 schrieb Bernd Oppolzer:
>
>> This is a slightly modified version of jn2.c:
>>
>> #include 
>> #include 
>> #include 
>> #include 
>>
>> int main  (int argc, char **argv)
>>
>> {
>>int *PSA;
>>int *ASCB;
>>int *ASXB;
>>int *ASXBP;
>>int *JNPI;
>>char jobname[9];
>>
>>PSA = (int *) 0x224; /* address of PSAAOLD */
>>ASCB = (int *) *PSA;
>>printf ("ASCB = %p\n", ASCB);
>>ASXB = (int *) ((char *) ASCB + 0x6c);
>>printf ("ASXB = %p\n", ASXB);
>>ASXBP = (int *) *ASXB;
>>printf ("ASXBP = %p\n", ASXBP);
>>JNPI = (int *) ((char *) ASXBP + 0xC0);
>>printf ("JNPI = %p\n", JNPI);
>>memcpy (jobname, JNPI, 8);
>>jobname [8] = 0x00;
>>printf ("jobname = %s\n", jobname);
>> }
>>
>> a) pure ANSI C
>>
>> b) some intermediate steps and variables removed
>>
>> c) there is a subtle error in the original version:
>> the terminating hex zero in jobname is missing. I added it.
>>
>> Caution: untested ...
>>
>> Kind regards
>>
>> Bernd
>>
>>
>>
>> Am 09.02.2018 um 12:41 schrieb Bernd Oppolzer:
>>
>&g

Re: Silly C problem adding hex 6C

[Barkow, Eileen]

I looked at JZOS.
The only jzos samples I have is for 32 bit addressing - I cannot find 64 bit 
samples to use with 64 bit java.
IBM gives you a run-around. They  point to a non-existent or useless link in 
the java jzos readme file and there are no 64 bit samples.
Where are the new JZOS samples if they exist?

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Ray Pearce
Sent: Friday, February 09, 2018 9:18 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Silly C problem adding hex 6C

Have you looked at the JZOS Toolkit? It makes this easy.

String jobName = ZUtil.getCurrentJobname();
WtoMessage msg = new WtoMessage(jobName);
MvsConsole.wto(msg);

Regards

Ray


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Barkow, Eileen
Sent: 09 February 2018 14:00
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Silly C problem adding hex 6C

Actually I do not like C or C++ very much - I am just including some c routines 
in a java program I am writing because there are a lot of things that cannot be 
done in Java, or least I do not know how to do them. But I know java little 
better than I know c/c++. In this case, I am using the C console2 routine and 
Want to output the running jobname to the system console.

I used cout to print the jobname because I could not get get it to print 
correctly with printf.
I see that you added code to 0 out the last byte of jobname - that must have 
fixed the formatting.


--
This e-mail message has been scanned and cleared by Google Message Security
and the UNICOM Global security systems. This message is for the named
person's use only. If you receive this message in error, please delete it
and notify the sender.

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




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

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

Re: Silly C problem adding hex 6C

[Barkow, Eileen]

Actually I do not like C or C++ very much -
I am just including some c routines in a java program I am writing because 
there are a lot of things that cannot be done in
Java, or least I do not know how to do them. But I know java little better than 
I know c/c++. In this case, I am using the C console2 routine and
Want to output the running jobname to the system console.

I used cout to print the jobname because I could not get get it to print 
correctly with printf.
I see that you added code to 0 out the last byte of jobname - that must have 
fixed the formatting.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Bernd Oppolzer
Sent: Friday, February 09, 2018 6:41 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Silly C problem adding hex 6C

.. in fact, the original source contains some parts,
which are not ANSI C, for example cout (which is C++)
and iostream.h (which is also part of the C++ library).

Because I don't like C++ ... and the program claims to be
a C program, I would (as a QA person) force the coder to
eliminate these parts of the code.

Kind regards

Bernd


Am 09.02.2018 um 12:32 schrieb Bernd Oppolzer:
> Am 09.02.2018 um 07:45 schrieb Elardus Engelbrecht:
>> Bernd Oppolzer wrote:
>>
>>> To be more pedantic, use additional parantheses:
>>> ASXB = (int *) (((char *) ASCB) + 0x6c);
>> I C ( "I see"   ;-D )
>>
>> Seriously, I find this whole thread very interesting.
>>
>> Just a question please and please excuse my ignorance.
>>
>> Are these discussions about C or C++?
>>
>> Because:
>>
>> OP said 'crawl my way around C/C++'
>> Shmuel and Paul are talking about C and Charles talked about C++ (for
>> his 2 templates)
>>
>> Feel free to teach me so I can C...
>>
>> TIA!
>>
>> Groete / Greetings
>> Elardus Engelbrecht
>>
>>
>
> I went back to the original post which started the thread;
> the OP said "C / C++", but posted a C program (called jn2.c),
> so I guess, the discussion should in fact be about C.
>
> a) It's all pure C syntax
> b) with C++, the filetype would have been "cpp"
>
> HTH, kind regards
>
> Bernd
>
> --
> 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, including any attachments, may be confidential, privileged or 
otherwise legally protected. It is intended only for the addressee. If you 
received this e-mail in error or from someone who was not authorized to send it 
to you, do not disseminate, copy or otherwise use this e-mail or its 
attachments. Please notify the sender immediately by reply e-mail and delete 
the e-mail from your system.

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

Re: Silly C problem adding hex 6C-psa.h - edcdsect

[Barkow, Eileen]

How do you run this script?
I tried it under UNIX and MVS as a rexx clist and get all kinds of errors.

$ ccsect
psa.h:: ccsect 1: FSUM7351 not found
edcdsect.rexx: ccsect 4: FSUM7351 not found
$

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Kirk Wolf
Sent: Friday, February 09, 2018 7:58 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Silly C problem adding hex 6C

It is better IMO to use EDCDSECT and create C header files for the system
DSECTS (PSA, ASCB, ASXB, etc), then you don't have to hard code offsets
into your code.

We have a little rexx shell script that we have been using for a dozen
years that invokes the assembler + EDCDSECT.  It is simple to add recipes
to your Makefile for whatever system headers you want.

For example:

psa.h:
echo "  IHAPSA " > asm_temp.s
echo "  END" >> asm_temp.s
edcdsect.rexx asm_temp.s  > psa.h

Then you can do:

#include "psa.h"
struct psa* pPSA = (struct psa*)0;
struct ascb* pASCB = (struct ascb*)pPSA->psaaold;
...

EDCDSECT is not perfect, but it generally works pretty well.


Kirk Wolf
Dovetailed Technologies
http://dovetail.com

On Fri, Feb 9, 2018 at 6:02 AM, Bernd Oppolzer 
wrote:

> More simple ... the pointers don't need to be int pointers;
> char pointers are just as good:
>
>
> #include 
> #include 
> #include 
> #include 
>
> int main  (int argc, char **argv)
>
> {
>char *PSA;
>char *ASCB;
>char *ASXB;
>char *ASXBP;
>char *JNPI;
>char jobname[9];
>
>PSA = (char *) 0x224; /* address of PSAAOLD */
>ASCB = (char *) (*PSA);
>printf ("ASCB = %p\n", ASCB);
>ASXB = ASCB + 0x6c;
>printf ("ASXB = %p\n", ASXB);
>ASXBP = (char *) (*ASXB);
>printf ("ASXBP = %p\n", ASXBP);
>JNPI = ASXBP + 0xC0;
>printf ("JNPI = %p\n", JNPI);
>memcpy (jobname, JNPI, 8);
>jobname [8] = 0x00;
>printf ("jobname = %s\n", jobname);
> }
>
>
>
> Am 09.02.2018 um 12:57 schrieb Bernd Oppolzer:
>
>> This is a slightly modified version of jn2.c:
>>
>> #include 
>> #include 
>> #include 
>> #include 
>>
>> int main  (int argc, char **argv)
>>
>> {
>>int *PSA;
>>int *ASCB;
>>int *ASXB;
>>int *ASXBP;
>>int *JNPI;
>>char jobname[9];
>>
>>PSA = (int *) 0x224; /* address of PSAAOLD */
>>ASCB = (int *) *PSA;
>>printf ("ASCB = %p\n", ASCB);
>>ASXB = (int *) ((char *) ASCB + 0x6c);
>>printf ("ASXB = %p\n", ASXB);
>>ASXBP = (int *) *ASXB;
>>printf ("ASXBP = %p\n", ASXBP);
>>JNPI = (int *) ((char *) ASXBP + 0xC0);
>>printf ("JNPI = %p\n", JNPI);
>>memcpy (jobname, JNPI, 8);
>>jobname [8] = 0x00;
>>printf ("jobname = %s\n", jobname);
>> }
>>
>> a) pure ANSI C
>>
>> b) some intermediate steps and variables removed
>>
>> c) there is a subtle error in the original version:
>> the terminating hex zero in jobname is missing. I added it.
>>
>> Caution: untested ...
>>
>> Kind regards
>>
>> Bernd
>>
>>
>>
>> Am 09.02.2018 um 12:41 schrieb Bernd Oppolzer:
>>
>>> .. in fact, the original source contains some parts,
>>> which are not ANSI C, for example cout (which is C++)
>>> and iostream.h (which is also part of the C++ library).
>>>
>>> Because I don't like C++ ... and the program claims to be
>>> a C program, I would (as a QA person) force the coder to
>>> eliminate these parts of the code.
>>>
>>> Kind regards
>>>
>>> Bernd
>>>
>>>
>>> Am 09.02.2018 um 12:32 schrieb Bernd Oppolzer:
>>>
 Am 09.02.2018 um 07:45 schrieb Elardus Engelbrecht:

> Bernd Oppolzer wrote:
>
> To be more pedantic, use additional parantheses:
>> ASXB = (int *) (((char *) ASCB) + 0x6c);
>>
> I C ( "I see"   ;-D )
>
> Seriously, I find this whole thread very interesting.
>
> Just a question please and please excuse my ignorance.
>
> Are these discussions about C or C++?
>
> Because:
>
> OP said 'crawl my way around C/C++'
> Shmuel and Paul are talking about C and Charles talked about C++ (for
> his 2 templates)
>
> Feel free to teach me so I can C...
>
> TIA!
>
> Groete / Greetings
> Elardus Engelbrecht
>
>
>
 I went back to the original post which started the thread;
 the OP said "C / C++", but posted a C program (called jn2.c),
 so I guess, the discussion should in fact be about C.

 a) It's all pure C syntax
 b) with C++, the filetype would have been "cpp"

 HTH, kind regards

 Bernd

 --
 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: Silly C problem adding hex 6C

[Barkow, Eileen]

Thank you John, Charles, Seymour, Allan,Paul and everyone else for their help 
with this.
I finally got the program to work and display the job name. Of course there are 
more efficient ways of coding this using struct and templates,
but this is the way I can best understand the strange workings of this somewhat 
convoluted compiler.

$ jn2
ASCB = FB7A00
ASXBC =  FB7A6C
ASXB =  FB7A6C
ASXBP = AFD000
JNP = AFD0C0
jobname = ACSCEXB

jn2.c

define _XOPEN_SOURCE
#include 
#include 
#include 
#include 
#include 
#include 
int main(int argc, char *argv[])
 {
int *PSA;
int  *ASCB;
int  *ASXB=nullptr;
unsigned char *ASXBC;
unsigned char *JNPC;
int   *   ASXBP;
int   *   JNPI;
unsigned char jobname[9];
unsigned char * JNP;
PSA=(int *)0x224; /* address of PSAAOLD */
ASCB=(int *)*PSA;
printf("ASCB = %X\n",ASCB);
ASXBC= (unsigned char *)ASCB + 0x6c;
printf("ASXBC =  %X\n",ASXBC);
ASXB= (int *)ASXBC;
printf("ASXB =  %X\n",ASXB);
ASXBP = (int *)*ASXB;
printf("ASXBP = %X\n",ASXBP);
JNP = (unsigned char *)ASXBP+0XC0;
printf("JNP = %X\n",JNP);
JNPI = (int *)JNP;
memcpy  (jobname,JNPI,8);
cout<<"jobname = "< wrote:

> On Thu, 8 Feb 2018 10:22:40 -0600, Allan Kielstra wrote:
>
> >The size of a char in 1 byte.  Try
> >
> >(char *) ASXB = (char *) ASCB + 0x6c;  /* lazy version */
> >
> ANSI says a cast may not be used as an L-value.  IBM's C compiler
> enforces this.  I once did something like (IIRC?):
> *(char * *) ASXB += 0x6c;
>

​I did it this way:

char *psaaold;
char *ascbjbni;
unsigned char *ascbjbns;
unsigned char *ascbjbn;
unsigned char *a;
unsigned char jobname[9];
psaaold = *(unsigned char **)0x224; /* address of PSAAOLD */
ascbjbni = *(unsigned char **)(psaaold + 0xac);
ascbjbns = *(unsigned char **)(psaaold + 0xb0);​



>
> My head hurts.
>
> -- gil
>


--
I have a theory that it's impossible to prove anything, but I can't prove
it.

Maranatha! <><
John McKown

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




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

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

Re: Silly C problem adding hex 6C

[Barkow, Eileen]

I tried the simplest solution of casting ASXB to a  CHAR * since I am not 
familiar with templates and  basically got the same value as before.
I will try some of the other solutions .

Thanks everyone
 $ jn2
ASCB = FB7A00
ASXBC =  FB7BB0


int *PSA;
 int  *ASCB;
 int  *ASXB=nullptr;
 char *ASXBC;
 char jobnameÝ9¨;
 PSA=(int *)0x224; /* address of PSAAOLD */
 ASCB=(int *)*PSA;
 printf("ASCB = %X\n",ASCB);
 ASXBC= (char *)(ASCB + 0x6c);
 printf("ASXBC =  %X\n",ASXBC);

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Paul Gilmartin
Sent: Thursday, February 08, 2018 12:39 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Silly C problem adding hex 6C

On Thu, 8 Feb 2018 10:22:40 -0600, Allan Kielstra wrote:

>The size of a char in 1 byte.  Try
>
>(char *) ASXB = (char *) ASCB + 0x6c;  /* lazy version */
>
ANSI says a cast may not be used as an L-value.  IBM's C compiler
enforces this.  I once did something like (IIRC?):
*(char * *) ASXB += 0x6c;

My head hurts.

-- gil

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




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

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

Re: Silly C problem adding hex 6C

[Barkow, Eileen]

Thank you Charles and Seymore. I thought that the problem had something to do 
with adding to pointers but
I could not find any doc about it in the manuals.
I am still not sure that I understand how to fix it but I will try based on 
your info.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Charles Mills
Sent: Thursday, February 08, 2018 11:33 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Silly C problem adding hex 6C

Yes, pointer arithmetic is scaled by the item size. Works kind of like a
subscript. If foo is an int* then foo+1 points to the next integer. (IOW
foo+4 if you think in assembler terms.)

The basic strategy is to cast it to a char* and then back.

If you would like, here are two template functions that will do the trick
you want to accomplish.

// Pointer absolute arithmetic
// This one matches if no explicit typename
template static inline T *PointerAdd(const T *ptr, const int
increment)
{
return (T *)( reinterpret_cast(ptr)+increment );
}

// This one matches if explicit typename
template static inline T *PointerAdd(const void *ptr, const
int increment)
{
return (T *)( reinterpret_cast(ptr)+increment );
}

How to use? Here is an example of adding an absolute length to a struct
pointer:

apfePtr = PointerAdd(apfePtr, apfePtr->apfelen);

Charles


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Seymour J Metz
Sent: Thursday, February 8, 2018 8:12 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Silly C problem adding hex 6C

Isn't pointer arithmetic in C scaled by the item size?

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




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

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

Re: Silly C problem adding hex 6C

[Barkow, Eileen]

How do you specify the item size when adding?

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Seymour J Metz
Sent: Thursday, February 08, 2018 11:12 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Silly C problem adding hex 6C

Isn't pointer arithmetic in C scaled by the item size?


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


From: IBM Mainframe Discussion List <IBM-MAIN@listserv.ua.edu> on behalf of 
Barkow, Eileen <ebar...@doitt.nyc.gov>
Sent: Thursday, February 8, 2018 11:06 AM
To: IBM-MAIN@listserv.ua.edu
Subject: Silly C problem adding  hex 6C

I am still trying to crawl my way around C/C++ and am just trying to do one 
simple thing:
add value 0X6C to a pointer address (which was originally supplied by this list 
as a means to get the jobname).
 something gets added to the pointer but it is not 0x6c.
i tried all different combinations of char *; int *; void *; adding decimal 
108; but still get the same thing.

My little program correctly picks up the address of a valid ASCB (00FCAA00) 
from the PSA.
Now I just want to point to the address at 00FCAA6C which is a pointer to the 
ASXB which contains the jobname at offset 0XC0.

But somehow I cannot add 6C to the ASCB pointer FCAA00 and get the ASXB pointer 
at FCAA6C.
Instead I get FCABB0 (or some other address depending on which ASCB is 
obtained).
Can some C guru please tell me what I am doing wrong?

i will post the program and results - this is running on UNIX/OMVS.


 MVSZ MVSZ - Storage Contents : ACSCEXB -- (00FCAA00,,SQA) ---
 Command ===>  Scroll ===> PAG

 Address  Offset  0-1-2-3-  4-5-6-7-  8-9-A-B-  C-D-E-F-0---4---8---C---
 00FCAA00 +0  C1E2C3C2  00FBC100  00FCAB80    | ASCB..A...¿Ø |
 00FCAA10+10          |  |
 00FCAA20+20  02E4  0078  000100FF    | ...U.Ì.. |
 00FCAA30+30  7FF19E00    19A77000    | "1Æ..xø. |
 00FCAA40+40    00308F46  D3DC5674  8B346008  | ..±ãLüîÈ».-. |
 00FCAA50+50          |  |
 00FCAA60+60  00AFF158  8F80    00AFD000  | .®1ì..±Ø.®}. |
 00FCAA70+70  1D171020      00AFD520  | .®N. |
 00FCAA80+80      80AFFF98  4000  | Ø®.q ... |

 result running jn2
$ jn2
ASCB = FCAA00
ASXB =  FCABB0
$

jn2.c program

#define _XOPEN_SOURCE
#include 
#include 
#include 
#include 
#include 
#include 
int main(int argc, char *argv[])
 {
int *PSA;
int  *ASCB;
int  *ASXB;
char jobname[9];
PSA=(int *)0x224; /* address of PSAAOLD */
ASCB=(int *)*PSA;
printf("ASCB = %X\n",ASCB);
ASXB=ASCB+0x6c;
printf("ASXB =  %X\n",ASXB);
}

to compile:
c++ -+ -c -o jn2.o -I/u/eileen/j16/cons \
 -I/usr/lpp/java/J8.0_64/include \
 -W"c,lp64,dll,xplink,langlvl(longlong,nullptr)" jn2.c

to link:
c++ \
-W l,AMODE=64,lp64,LET=4,xplink,dynam=dll,case=mixed \
-I=CELQS003.x \
-o jn2\
  linkmods/CELQSTRT.o \
 linkmods/CEESTART.o \
 linkmods/CELQSG03.o \
 linkmods/CELQINPL.o \
 linkmods/CELQETBL.o \
 linkmods/CELQLLST.o \
 linkmods/CELQBST.o \
 linkmods/CELQTRM.o \
 jn2.o



  

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


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

Silly C problem adding hex 6C

[Barkow, Eileen]

I am still trying to crawl my way around C/C++ and am just trying to do one 
simple thing:
add value 0X6C to a pointer address (which was originally supplied by this list 
as a means to get the jobname).
 something gets added to the pointer but it is not 0x6c.
i tried all different combinations of char *; int *; void *; adding decimal 
108; but still get the same thing.

My little program correctly picks up the address of a valid ASCB (00FCAA00) 
from the PSA.
Now I just want to point to the address at 00FCAA6C which is a pointer to the 
ASXB which contains the jobname at offset 0XC0.

But somehow I cannot add 6C to the ASCB pointer FCAA00 and get the ASXB pointer 
at FCAA6C.
Instead I get FCABB0 (or some other address depending on which ASCB is 
obtained).
Can some C guru please tell me what I am doing wrong?

i will post the program and results - this is running on UNIX/OMVS.


 MVSZ MVSZ - Storage Contents : ACSCEXB -- (00FCAA00,,SQA) ---
 Command ===>  Scroll ===> PAG

 Address  Offset  0-1-2-3-  4-5-6-7-  8-9-A-B-  C-D-E-F-0---4---8---C---
 00FCAA00 +0  C1E2C3C2  00FBC100  00FCAB80    | ASCB..A...¿Ø |
 00FCAA10+10          |  |
 00FCAA20+20  02E4  0078  000100FF    | ...U.Ì.. |
 00FCAA30+30  7FF19E00    19A77000    | "1Æ..xø. |
 00FCAA40+40    00308F46  D3DC5674  8B346008  | ..±ãLüîÈ».-. |
 00FCAA50+50          |  |
 00FCAA60+60  00AFF158  8F80    00AFD000  | .®1ì..±Ø.®}. |
 00FCAA70+70  1D171020      00AFD520  | .®N. |
 00FCAA80+80      80AFFF98  4000  | Ø®.q ... |

 result running jn2
$ jn2
ASCB = FCAA00
ASXB =  FCABB0
$

jn2.c program

#define _XOPEN_SOURCE
#include 
#include 
#include 
#include 
#include 
#include 
int main(int argc, char *argv[])
 {
int *PSA;
int  *ASCB;
int  *ASXB;
char jobname[9];
PSA=(int *)0x224; /* address of PSAAOLD */
ASCB=(int *)*PSA;
printf("ASCB = %X\n",ASCB);
ASXB=ASCB+0x6c;
printf("ASXB =  %X\n",ASXB);
}

to compile:
c++ -+ -c -o jn2.o -I/u/eileen/j16/cons \
 -I/usr/lpp/java/J8.0_64/include \
 -W"c,lp64,dll,xplink,langlvl(longlong,nullptr)" jn2.c

to link:
c++ \
-W l,AMODE=64,lp64,LET=4,xplink,dynam=dll,case=mixed \
-I=CELQS003.x \
-o jn2\
  linkmods/CELQSTRT.o \
 linkmods/CEESTART.o \
 linkmods/CELQSG03.o \
 linkmods/CELQINPL.o \
 linkmods/CELQETBL.o \
 linkmods/CELQLLST.o \
 linkmods/CELQBST.o \
 linkmods/CELQTRM.o \
 jn2.o



  

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


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

Re: curious: Popularity & use of C on z/OS.

[Barkow, Eileen]

https://www.javatpoint.com/features-of-java



here is a quote from the java tutorial in the above url comparing java to C.

I originally saw a quote in a Lynda.com tutorial (which I no longer have access 
to) that also stated Java to be a simplification of C.


According to Sun, Java language is simple because:

  syntax is based on C++ (so easier for programmers to learn it after C++).

  removed many confusing and/or rarely-used features e.g., explicit 
pointers, operator overloading etc.

  No need to remove unreferenced objects because there is Automatic Garbage 
Collection in java.









-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Steve Smith
Sent: Friday, January 12, 2018 11:41 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: curious: Popularity & use of C on z/OS.



Whoa now... Java is a lot of things, but it is definitely not a

simplification of C.  You might call it a simplified ("different"

might be better) C++, but that's a whole 'nother thing.



C has very concise syntax you'd best invest the time in learning

it step-by-step, because little of it is intuitively obvious.  But

it's not that hard, and it really won't take long if you know

assembler and/or some other language.



sas



On Fri, Jan 12, 2018 at 11:17 AM, Barkow, Eileen 
<ebar...@doitt.nyc.gov<mailto:ebar...@doitt.nyc.gov>> wrote:

> C is a REALLY-REALLY hard language to learn (at least I am finding it to be 
> so).

> Actually, I am only trying to use C without really learning it which makes it 
> even more difficult.

>

> Java was created in order to be a simplification of C -

> But of course the problem with Java on z/os is that it runs under Unix which 
> scares off a lot of  Cobol and other application programmers  as well

>   as some Z/OS and RACF system programmers who do not want to be bothered 
> setting up Unix for use by application programmers.

> And Java incurs a lot more overhead, especially if  you don’t have a ZAP 
> processor (or is it ZIP?).

>

> -Original Message-

> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On 
> Behalf Of John McKown

> Sent: Friday, January 12, 2018 8:56 AM

> To: IBM-MAIN@LISTSERV.UA.EDU<mailto:IBM-MAIN@LISTSERV.UA.EDU>

> Subject: curious: Popularity & use of C on z/OS.

>

> This is being prompted by the recent thread about getting the name of the

> running job in C. These are just some random questions.

>

> First, is C becoming more popular on z/OS? What for? I.e. batch programs,

> UNIX commands, CICS transactions, Db2 applications, ... ?

>

> Given that C, in other *IX systems, is a "system implementation" language,

> I find it interesting that IBM has not tried to make z/OS C have some of

> the same emphasis. Or maybe that is what Metal C is for. What I'm getting

> at is that there are no "system level" function interfaces, such as for

> ENQ/DEQ or "Name/Token" pairs. Would such interfaces be of any general use?

>

> --

> I have a theory that it's impossible to prove anything, but I can't prove

> it.

>

> Maranatha! <><

> John McKown

>

> --

> For IBM-MAIN subscribe / signoff / archive access instructions,

> send email to lists...@listserv.ua.edu<mailto:lists...@listserv.ua.edu> with 
> the message: INFO IBM-MAIN

>

>

> 

>

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

>

> --

> For IBM-MAIN subscribe / signoff / archive access instructions,

> send email to lists...@listserv.ua.edu<mailto:lists...@listserv.ua.edu> with 
> the message: INFO IBM-MAIN







--

sas



--

For IBM-MAIN subscribe / signoff / archive access instructions,

send email to lists...@listserv.ua.edu<mailto: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: curious: Popularity & use of C on z/OS.

[Barkow, Eileen]

I am quoting from a book or manual  or self study course I read - Java was 
developed to be a simplification of C.
I will try to find this quote if I can.

As for learning C, I am still trying to study for the idiotic Java 
certification exam, where you have to pay $400 to predict what the compiler 
will do with
some convoluted, contrived code and where some of the supplied answers are 
clearly wrong and do not agree with what the compiler says.
I  plan to 'retire' in the near future and maybe I can get some part time 
remote java coding work .
If not, then I just like Java better than C. 
 I did take a few self study C/C++ courses but forgot a lot of it since I did 
not really program much in C.


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Steve Smith
Sent: Friday, January 12, 2018 11:41 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: curious: Popularity & use of C on z/OS.

Whoa now... Java is a lot of things, but it is definitely not a
simplification of C.  You might call it a simplified ("different"
might be better) C++, but that's a whole 'nother thing.

C has very concise syntax you'd best invest the time in learning
it step-by-step, because little of it is intuitively obvious.  But
it's not that hard, and it really won't take long if you know
assembler and/or some other language.

sas

On Fri, Jan 12, 2018 at 11:17 AM, Barkow, Eileen <ebar...@doitt.nyc.gov> wrote:
> C is a REALLY-REALLY hard language to learn (at least I am finding it to be 
> so).
> Actually, I am only trying to use C without really learning it which makes it 
> even more difficult.
>
> Java was created in order to be a simplification of C -
> But of course the problem with Java on z/os is that it runs under Unix which 
> scares off a lot of  Cobol and other application programmers  as well
>   as some Z/OS and RACF system programmers who do not want to be bothered 
> setting up Unix for use by application programmers.
> And Java incurs a lot more overhead, especially if  you don’t have a ZAP 
> processor (or is it ZIP?).
>
> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On 
> Behalf Of John McKown
> Sent: Friday, January 12, 2018 8:56 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: curious: Popularity & use of C on z/OS.
>
> This is being prompted by the recent thread about getting the name of the
> running job in C. These are just some random questions.
>
> First, is C becoming more popular on z/OS? What for? I.e. batch programs,
> UNIX commands, CICS transactions, Db2 applications, ... ?
>
> Given that C, in other *IX systems, is a "system implementation" language,
> I find it interesting that IBM has not tried to make z/OS C have some of
> the same emphasis. Or maybe that is what Metal C is for. What I'm getting
> at is that there are no "system level" function interfaces, such as for
> ENQ/DEQ or "Name/Token" pairs. Would such interfaces be of any general use?
>
> --
> I have a theory that it's impossible to prove anything, but I can't prove
> it.
>
> Maranatha! <><
> John McKown
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>
>
> 
>
> This e-mail, including any attachments, may be confidential, privileged or 
> otherwise legally protected. It is intended only for the addressee. If you 
> received this e-mail in error or from someone who was not authorized to send 
> it to you, do not disseminate, copy or otherwise use this e-mail or its 
> attachments. Please notify the sender immediately by reply e-mail and delete 
> the e-mail from your system.
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN



-- 
sas

--
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: curious: Popularity & use of C on z/OS.

[Barkow, Eileen]

C is a REALLY-REALLY hard language to learn (at least I am finding it to be so).
Actually, I am only trying to use C without really learning it which makes it 
even more difficult.

Java was created in order to be a simplification of C -
But of course the problem with Java on z/os is that it runs under Unix which 
scares off a lot of  Cobol and other application programmers  as well
  as some Z/OS and RACF system programmers who do not want to be bothered 
setting up Unix for use by application programmers.
And Java incurs a lot more overhead, especially if  you don’t have a ZAP 
processor (or is it ZIP?).

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of John McKown
Sent: Friday, January 12, 2018 8:56 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: curious: Popularity & use of C on z/OS.

This is being prompted by the recent thread about getting the name of the
running job in C. These are just some random questions.

First, is C becoming more popular on z/OS? What for? I.e. batch programs,
UNIX commands, CICS transactions, Db2 applications, ... ?

Given that C, in other *IX systems, is a "system implementation" language,
I find it interesting that IBM has not tried to make z/OS C have some of
the same emphasis. Or maybe that is what Metal C is for. What I'm getting
at is that there are no "system level" function interfaces, such as for
ENQ/DEQ or "Name/Token" pairs. Would such interfaces be of any general use?

--
I have a theory that it's impossible to prove anything, but I can't prove
it.

Maranatha! <><
John McKown

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




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

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

Re: C code to get running job name.

[Barkow, Eileen]

__jobname(), __stepname() etc are not documented in the
 XL C/C++ Runtime Library Reference Version 2 Release 2 SC14
manual. Where are they documented?



-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Thomas David Rivers
Sent: Thursday, January 11, 2018 8:19 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: C code to get running job name.

John McKown wrote:

>On Wed, Jan 10, 2018 at 11:19 AM, Thomas David Rivers 
>wrote:
>
>
>
>>
>>>
>>>
>>>
>>In Systems/C , this is simply:
>>
>>   #include 
>>   #include 
>>
>>  main()
>>  {
>> printf("Job name is %s\n", __jobname());
>>  }
>>
>>
>>
>>
>That is a nice enhancement for the C language under z/OS. As a general
>rule, I _try_ to avoid any functions which start with one or two
>underscores. These are generally "reserved" for the implementer and so may
>not be available on a different compiler. The __jobname() is a nice example
>of a reasonable extension for z/OS, or z/VSE. Another nice one might be
>__userid() to return the RACF id under which the process is running. ​
>
>
>
Hi John,


 Yes - identifiers that begin with double-underscore are reserved
 for the C implementation; that's why our implementation uses
 those (to avoid conflicts.)

 Along with __jobname(), we have:

__stepname()
__procname()
__get_cpuid()
__userid()

  which can make it very handy indeed.   The Dignus C library
 manual has more details.

  - Dave R. -

--
riv...@dignus.comWork: (919) 676-0847
Get your mainframe programming tools at http://www.dignus.com

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




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

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

Re: C code to get running job name.

[Barkow, Eileen]

Thanks again John. I will try it out.

The problem is when a program is started from OMVS under a USERID and runs 
under a different name, which makes it
difficult for someone to cancel the job or issue modify commands against it.
The system keeps appending numerical values to the USERID and you have to do a 
DA userid* command to find what it is.
I just want to be able to display the actual JOBNAME to the console.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of John McKown
Sent: Wednesday, January 10, 2018 8:58 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: C code to get running job name.

Sorry, but I deleted the email which had the original question. Just for
"fun" (but no profit), I wrote the following C code to display the name of
the job under which the program is running. It can be improved a bit, but
it shows the basics.

#include 
#include 
#include 
int main(int argc, char *argv[]) {
char *psaaold;
char *ascbjbni;
char *ascbjbns;
char *ascbjbn;
char jobname[9];
psaaold=*(char **)0x224; /* address of PSAAOLD */
//printf("%s\n",psaaold);
ascbjbni=*(char **)(psaaold+0xac);
ascbjbns=*(char **)(psaaold+0xb0);
ascbjbn =ascbjbni;
//printf("%s\n",ascbjbni);
if (ascbjbn == NULL) ascbjbn=ascbjbns;
memcpy(jobname,ascbjbn,8);
*(jobname+8)='\0';
printf("%s - %8.8s\n",jobname,ascbjbn);
}

--
I have a theory that it's impossible to prove anything, but I can't prove
it.

Maranatha! <><
John McKown

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




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

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

Re: LRS VPS Printer Replacment

[Barkow, Eileen]

I am curious as to why you want to replace VPS with another product, at least 
one which you would have to pay for anyway.
I know that Mckinney has a competing product which is probably cheaper than 
VPS, but
LRS support has always been great (when they get paid on time) and it may not 
be worth the effort to replace it.
 Especially if a lot of customized code has to be written.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of zos reader
Sent: Thursday, December 14, 2017 4:20 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: LRS VPS Printer Replacment

Hi,

We are planning to replace LRS VPS Printers to other Vendor product, I am
not aware of other vendor products in Market.

Can you all share your thoughts please.

Thanks..

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




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

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

Re: Short on Storage

[Barkow, Eileen]

Where is the storage shortage - below or above the line?
The DFH* msg will tell you.
If above the line, just increase the  EDSALIM (you should be using IEFUSI exit 
set to allow max above the line storage and REGION=0M).
If below, check with MVS group that DSALIM is at the max you can get for your 
lpar.
If below and at max DSALIM, you have problems.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of gsg
Sent: Tuesday, October 17, 2017 12:44 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Short on Storage

We periodically have Short on Storage conditions with CICS.  Not being a CICS 
person, I'm trying to find out what can be done to monitor and or prevent Short 
on Storage conditions.  Of the top, I don't think it's really possible to 
expect we'd be able to absolutely prevent them.  Basically, how can the CICS 
guys be proactive in trying to prevent the SOS condition.  Also, is there a way 
our Operations staff could react quickly to relieve the SOS condition prior to 
calling the CICS guy, waiting for him to VPN into the system to troubleshoot 
etc...

TIA

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




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

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

Re: REXX and SDSF question

[Barkow, Eileen]

Not that it would necessarily fix the problem, but you are using the old 
SDSF/BATCH product and not the SDSF/REXX interface.
SDSF/REXX has parms like ISFPREFIX, ISFOWNER, ISFFILTER.


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Elardus Engelbrecht
Sent: Monday, September 18, 2017 2:50 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: REXX and SDSF question

Grinsell, Don wrote:

>>Are you accommodating for the different SYSNAMEs that you are processing 
>>(LPARs) : QUEUE " SYSNAME ESA1"
>Good eye.  I'm betting you'll be getting the gold star for this one.  ☺

I originally missed that one, and of course I will not get a gold star. ;-)

Thanks for mentioning that!


Paul Gilmartin wrote:

>>"ALLOC FI(ISFOUT) SYSOUT(X)"
>Is X a bitbucket class?  (I suspect it's configurable in PARMs.)

No, at least not for us. The OP could use another class. I just copied/modified 
that line from one of my REXX/SDSF jobs.

We have an output class defined as bitbucket class. Very handy for jobs with 
One-Time-Passwords.

Groete / Greetings
Elardus Engelbrecht

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




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

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

Re: REXX and SDSF question

[Barkow, Eileen]

Is CICSREGION set properly?
What happens if you hard code the region name prefix?
Or try it in quotes and SET DISPLAY ON:

QUEUE "SET DISPLAY ON"
QUEUE "PREFIX "CICSREGION"  "

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Peter Ten Eyck
Sent: Monday, September 18, 2017 12:43 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: REXX and SDSF question

I have some rexx code that is working on one z/OS 2.2 LPAR and "partially" on 
another.

The code determines if a CICS region is running and if the desired messages are 
found
in the DD JESMSGLG.

This code chunk is what goes out gets the SDSF output:

CHECKCICSSTATUS:
ADDRESS TSO
 "ALLOC F(FILEOUT) UNIT(VIO) NEW REUSE",
 "CYLINDERS SPACE(10 10) RECFM(F B A)"
 "ALLOC FI(ISFOUT) DUMMY"
 "ALLOC F(ISFIN) UNIT(VIO) NEW REUSE",
 "RECFM(F B) BLK(3120) LRECL(80)",
 "SPACE(5 5) CYLINDERS DSORG(PS)"
 QUEUE " DA ALL"
 QUEUE " OWNER"
 QUEUE " SYSNAME ESA1"
 QUEUE " PRE " CICSREGION
 QUEUE " FIND " CICSREGION
 QUEUE " ++?"
 QUEUE " FIND JESMSGLG"
 QUEUE " ++S"
 QUEUE " PRINT FILE FILEOUT"
 QUEUE " PRINT"
 QUEUE " PRINT CLOSE"
 QUEUE ""
 "EXECIO * DISKW ISFIN (FINIS"
ADDRESS ISPEXEC
 "SELECT PGM(SDSF)"
ADDRESS TSO
 "EXECIO * DISKR FILEOUT (STEM REC. FINIS"
 "FREE FI(ISFIN ISFOUT FILEOUT)"

It returns all the output records in a stem variable REC.

REC.0 contains the total number of records and REC.1 - REC.?
contains each record.

This works fine on one LPAR and works for something's (possibly just jobs) on 
another LPAR, but not STCs.

Does anyone have a suggestion why I am not able to retrieve the output for STCs 
on one of the LPARs?

Scratching my head...

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




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

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

Re: REXX and SDSF question

[Barkow, Eileen]

Try  QUEUE "OWNER *" not just OWNER

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Elardus Engelbrecht
Sent: Monday, September 18, 2017 1:12 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: REXX and SDSF question

Peter Ten Eyck  wrote:

> QUEUE " DA ALL"
> QUEUE " OWNER"
> QUEUE " SYSNAME ESA1"
> QUEUE " PRE " CICSREGION

... and ...

>This works fine on one LPAR and works for something's (possibly just jobs) on 
>another LPAR, but not STCs.
>Does anyone have a suggestion why I am not able to retrieve the output for 
>STCs on one of the LPARs?

Check that your are not limited by FILTER (FILTER should be OFF), DESTINATION, 
etc.

Try your SDSF by hand, one command after the other and compare the results.

Also compare the WHO command in SDSF.

Once all is the same at the SOURCE (SDSF) of your records, I believe the 
problem is then in your REXX program.

Check/compare your RACF authority in JESSPOOL and SDSF classes.


>Scratching my head...

I also get now and then some queries why I don't see X, Y, Z in SDSF, I know 
they have run because of NOTIFY for example...

Groete / Greetings
Elardus Engelbrecht

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




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

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

Re: Windows 10 Pro automatic update

[Barkow, Eileen]

I think that I am just running windows 10 home version - I have to check it - I 
saw that the pc was originally running windows 7 and was upgraded to 10.
But this worked:
ctl-alt-delete->task manager->services->wuauserv->right click->stop

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of David Boyes
Sent: Tuesday, June 27, 2017 11:11 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Windows 10 Pro automatic update

>>I finally figured out how to turn the updates off in the systems settings and 
>>have not had any problems since then.
>How did you do that?

You must be running the Enterprise version or some kind of site licensed 
version of Win 10. The mass-market version doesn’t allow turning off updates 
entirely (there are some age parameters in update packages that will force the 
update after an interval), and MS can except particular updates so that 
“special” updates ignore the update window settings.

I can understand why MS does it, but I don’t have to like it.


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



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

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

Re: Windows 10 Pro automatic update: was Re: Eliminating the systems programmer was Re: IBM cuts contractor billing by 15 percent (our else)

[Barkow, Eileen]

To turn off windows 10 updates:

ctl-alt-delete->task manager->services->wuauserv->right click->stop

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Clark Morris
Sent: Monday, June 26, 2017 12:37 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Windows 10 Pro automatic update: was Re: Eliminating the systems 
programmer was Re: IBM cuts contractor billing by 15 percent (our else)

[Default] On 26 Jun 2017 08:45:34 -0700, in bit.listserv.ibm-main
ebar...@doitt.nyc.gov (Barkow, Eileen) wrote:

>I thought that the Windows 10 Update problems were due to something in the way 
>that Windows 10 had been mis-installed or upgraded from  Windows 7 on my 
>refurbished computer.
>It would just update and update and then claim that the updates could not be 
>completed for some reason.
>After researching all the error msgs and performing the supposed fixes which 
>did not work,
> I finally figured out how to turn the updates off in the systems settings and 
> have not had any problems since then.

How did you do that?

Clark Morris
>
>-Original Message-
>From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On 
>Behalf Of Bill Wilkie
>Sent: Sunday, June 25, 2017 7:51 AM
>To: IBM-MAIN@LISTSERV.UA.EDU
>Subject: Re: Windows 10 Pro automatic update: was Re: Eliminating the systems 
>programmer was Re: IBM cuts contractor billing by 15 percent (our else)
>
>The choices you get are UPDATE AND RESTART or UPDATE AND SHUTDOWN. But you 
>must install the updates.
>
>
>I learned later after having numerous crashes that you can set the METERED 
>CONNECTION and it will  stop the automatic updates. But even that comes with 
>some quirks. For example, I set it on my wife's machine but when she tried 
>printing it said she may exceed her time so it wouldn't print. I had to remove 
>the metered connection, do the print and turn it on again. I worry about the 
>day when I need to enable it again.
>
>
>I am not against the automatic updates. I am against the ones that cause 
>crashes.
>
>
>For example, they clobbered my WIFI driver after one update and I couldn't 
>connect. I had to hardwire to the Comcast box to be able to keep working. When 
>I had time, I did some searches and found they clobbered my WIFI driver. I 
>found where to download the new driver and it worked again. But I pity the 
>number of people who didn't know how to fix it and ran to Best Buy or Staples 
>and spent a fortune.
>
>
>The worst part is when they tell people they need a new machine and Microsoft 
>makes yet more money. And nobody is saying a word about it, and IMHO it is the 
>biggest RIP OFF of the century.
>
>
>Another one was It didn't come up after the updates. I researched that and 
>finally found that it was because you couldn't have anything plugged into a 
>USB port, so even the wireless mouse stopped it from coming up. On a restart, 
>I was only seeing those circular dots, the ones that give you a stomach ache. 
>I used my wife's machine to Look It up and removed the USB devices and it came 
>up.  I asked the guys at Best Buys and Staples how much they must be making 
>from Windows 10 updates killing machines and they said a fortune.
>
>
>Bill
>
>
>
>
>From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> on behalf of 
>Clark Morris <cfmpub...@ns.sympatico.ca>
>Sent: Saturday, June 24, 2017 8:11 PM
>To: IBM-MAIN@LISTSERV.UA.EDU
>Subject: Windows 10 Pro automatic update: was Re: Eliminating the systems 
>programmer was Re: IBM cuts contractor billing by 15 percent (our else)
>
>[Default] On 24 Jun 2017 12:43:13 -0700, in bit.listserv.ibm-main
>idfli...@gmail.com (scott Ford) wrote:
>
>>Guys,
>>
>>I am a bit different. We run z/PDT on OpenSuse Leap 42.2 x64..running z/OS
>>2.2 .
>>But we us Windows and Linux for our LDAP with are STC agents on z/OS. I am
>>basically all alone with other developers.
>>My laptop runs Windows 10 Pro with a Tn3270 client and use ssh.
>
>Does Windows 10 Pro have the forced automatic update?  Is the ability
>to say that normal working hours are 00:01 to 24:00?  Do you always
>have the choice of Shutdown without update?
>
>Clark Morris
>>
>>I am seeing a lot of customers who lack knowledge in a lot of areas ...so I
>>get pulled in ..
>>
>>Scott
>>
>>
>>
>>On Fri, Jun 23, 2017 at 4:19 PM John McKown <john.archie.mck...@gmail.com>
>>wrote:
>>
>>> On Fri, Jun 23, 2017 at 2:58 PM, Bobbie Justice <
>>> 0013e2d84072-dmarc-requ...@listserv.ua.edu> wrote:
>>>
>>> > "As I  am reading this, 

Re: Windows 10 Pro automatic update: was Re: Eliminating the systems programmer was Re: IBM cuts contractor billing by 15 percent (our else)

[Barkow, Eileen]

There was an option somewhere  to turn the updates off altogether - I don't 
remember right now but will check it when I get home and will let you know 
tomorrow.
These updates were driving me crazy - I was even trying to blame the problem on 
Walmart since I bought the discounted refurbished laptop from them 
(though at a bargain price of $300 for an 8gb HP)

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Clark Morris
Sent: Monday, June 26, 2017 12:37 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Windows 10 Pro automatic update: was Re: Eliminating the systems 
programmer was Re: IBM cuts contractor billing by 15 percent (our else)

[Default] On 26 Jun 2017 08:45:34 -0700, in bit.listserv.ibm-main
ebar...@doitt.nyc.gov (Barkow, Eileen) wrote:

>I thought that the Windows 10 Update problems were due to something in the way 
>that Windows 10 had been mis-installed or upgraded from  Windows 7 on my 
>refurbished computer.
>It would just update and update and then claim that the updates could not be 
>completed for some reason.
>After researching all the error msgs and performing the supposed fixes which 
>did not work,
> I finally figured out how to turn the updates off in the systems settings and 
> have not had any problems since then.

How did you do that?

Clark Morris
>
>-Original Message-
>From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On 
>Behalf Of Bill Wilkie
>Sent: Sunday, June 25, 2017 7:51 AM
>To: IBM-MAIN@LISTSERV.UA.EDU
>Subject: Re: Windows 10 Pro automatic update: was Re: Eliminating the systems 
>programmer was Re: IBM cuts contractor billing by 15 percent (our else)
>
>The choices you get are UPDATE AND RESTART or UPDATE AND SHUTDOWN. But you 
>must install the updates.
>
>
>I learned later after having numerous crashes that you can set the METERED 
>CONNECTION and it will  stop the automatic updates. But even that comes with 
>some quirks. For example, I set it on my wife's machine but when she tried 
>printing it said she may exceed her time so it wouldn't print. I had to remove 
>the metered connection, do the print and turn it on again. I worry about the 
>day when I need to enable it again.
>
>
>I am not against the automatic updates. I am against the ones that cause 
>crashes.
>
>
>For example, they clobbered my WIFI driver after one update and I couldn't 
>connect. I had to hardwire to the Comcast box to be able to keep working. When 
>I had time, I did some searches and found they clobbered my WIFI driver. I 
>found where to download the new driver and it worked again. But I pity the 
>number of people who didn't know how to fix it and ran to Best Buy or Staples 
>and spent a fortune.
>
>
>The worst part is when they tell people they need a new machine and Microsoft 
>makes yet more money. And nobody is saying a word about it, and IMHO it is the 
>biggest RIP OFF of the century.
>
>
>Another one was It didn't come up after the updates. I researched that and 
>finally found that it was because you couldn't have anything plugged into a 
>USB port, so even the wireless mouse stopped it from coming up. On a restart, 
>I was only seeing those circular dots, the ones that give you a stomach ache. 
>I used my wife's machine to Look It up and removed the USB devices and it came 
>up.  I asked the guys at Best Buys and Staples how much they must be making 
>from Windows 10 updates killing machines and they said a fortune.
>
>
>Bill
>
>
>
>
>From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> on behalf of 
>Clark Morris <cfmpub...@ns.sympatico.ca>
>Sent: Saturday, June 24, 2017 8:11 PM
>To: IBM-MAIN@LISTSERV.UA.EDU
>Subject: Windows 10 Pro automatic update: was Re: Eliminating the systems 
>programmer was Re: IBM cuts contractor billing by 15 percent (our else)
>
>[Default] On 24 Jun 2017 12:43:13 -0700, in bit.listserv.ibm-main
>idfli...@gmail.com (scott Ford) wrote:
>
>>Guys,
>>
>>I am a bit different. We run z/PDT on OpenSuse Leap 42.2 x64..running z/OS
>>2.2 .
>>But we us Windows and Linux for our LDAP with are STC agents on z/OS. I am
>>basically all alone with other developers.
>>My laptop runs Windows 10 Pro with a Tn3270 client and use ssh.
>
>Does Windows 10 Pro have the forced automatic update?  Is the ability
>to say that normal working hours are 00:01 to 24:00?  Do you always
>have the choice of Shutdown without update?
>
>Clark Morris
>>
>>I am seeing a lot of customers who lack knowledge in a lot of areas ...so I
>>get pulled in ..
>>
>>Scott
>>
>>
>>
>>On Fri, Jun 23, 2017 at 4:19 PM John McKown <john.ar

Re: Windows 10 Pro automatic update: was Re: Eliminating the systems programmer was Re: IBM cuts contractor billing by 15 percent (our else)

[Barkow, Eileen]

I thought that the Windows 10 Update problems were due to something in the way 
that Windows 10 had been mis-installed or upgraded from  Windows 7 on my 
refurbished computer.
It would just update and update and then claim that the updates could not be 
completed for some reason.
After researching all the error msgs and performing the supposed fixes which 
did not work,
 I finally figured out how to turn the updates off in the systems settings and 
have not had any problems since then.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Bill Wilkie
Sent: Sunday, June 25, 2017 7:51 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Windows 10 Pro automatic update: was Re: Eliminating the systems 
programmer was Re: IBM cuts contractor billing by 15 percent (our else)

The choices you get are UPDATE AND RESTART or UPDATE AND SHUTDOWN. But you must 
install the updates.


I learned later after having numerous crashes that you can set the METERED 
CONNECTION and it will  stop the automatic updates. But even that comes with 
some quirks. For example, I set it on my wife's machine but when she tried 
printing it said she may exceed her time so it wouldn't print. I had to remove 
the metered connection, do the print and turn it on again. I worry about the 
day when I need to enable it again.


I am not against the automatic updates. I am against the ones that cause 
crashes.


For example, they clobbered my WIFI driver after one update and I couldn't 
connect. I had to hardwire to the Comcast box to be able to keep working. When 
I had time, I did some searches and found they clobbered my WIFI driver. I 
found where to download the new driver and it worked again. But I pity the 
number of people who didn't know how to fix it and ran to Best Buy or Staples 
and spent a fortune.


The worst part is when they tell people they need a new machine and Microsoft 
makes yet more money. And nobody is saying a word about it, and IMHO it is the 
biggest RIP OFF of the century.


Another one was It didn't come up after the updates. I researched that and 
finally found that it was because you couldn't have anything plugged into a USB 
port, so even the wireless mouse stopped it from coming up. On a restart, I was 
only seeing those circular dots, the ones that give you a stomach ache. I used 
my wife's machine to Look It up and removed the USB devices and it came up.  I 
asked the guys at Best Buys and Staples how much they must be making from 
Windows 10 updates killing machines and they said a fortune.


Bill




From: IBM Mainframe Discussion List  on behalf of 
Clark Morris 
Sent: Saturday, June 24, 2017 8:11 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Windows 10 Pro automatic update: was Re: Eliminating the systems 
programmer was Re: IBM cuts contractor billing by 15 percent (our else)

[Default] On 24 Jun 2017 12:43:13 -0700, in bit.listserv.ibm-main
idfli...@gmail.com (scott Ford) wrote:

>Guys,
>
>I am a bit different. We run z/PDT on OpenSuse Leap 42.2 x64..running z/OS
>2.2 .
>But we us Windows and Linux for our LDAP with are STC agents on z/OS. I am
>basically all alone with other developers.
>My laptop runs Windows 10 Pro with a Tn3270 client and use ssh.

Does Windows 10 Pro have the forced automatic update?  Is the ability
to say that normal working hours are 00:01 to 24:00?  Do you always
have the choice of Shutdown without update?

Clark Morris
>
>I am seeing a lot of customers who lack knowledge in a lot of areas ...so I
>get pulled in ..
>
>Scott
>
>
>
>On Fri, Jun 23, 2017 at 4:19 PM John McKown 
>wrote:
>
>> On Fri, Jun 23, 2017 at 2:58 PM, Bobbie Justice <
>> 0013e2d84072-dmarc-requ...@listserv.ua.edu> wrote:
>>
>> > "As I  am reading this, all I can think of is Windows 10 and Automatic
>> > updates. Since accidentally going to Windows 10, I have crashed my laptop
>> > at least 10 times and spent many days and a lot of money trying to
>> recover.
>> > Be careful what you wish for."
>> >
>> > Ditto on windows anything. I've had quite enough of windows automatic
>> > updates, system restore, reboot, safe mode, reload the entire operating
>> > system, reload various drivers, reload various apps, reboot again, etc.
>> etc.
>> >
>> > No thanks.
>> >
>>
>> ?At home, I have Windows 7 Professional which I run in a VM under Linux -
>> Fedora 25. The _only_ time that I use this is to log on to work. It is
>> _required_ because work eliminated our VPN in favor of using "Microsoft
>> Terminal Server Gateway". This decision was made during the height of the
>> "We are going 100.0% Microsoft! If it's not MS, we will refuse to run
>> it!" to the sounds of cheering by the Windows support staff.This was
>> immediately after our business-oriented CIO retired and the Windows
>> Infrastructure manager was promoted to CIO. That person is gone, but parts