Re: Ability to pass symbolic variable back from REXX to JCL?

[Sri Hari Kolusu]

>> Follow-on question - I have looked through JCL Ref Guide & Init & Tuning 
>> Guide and can't seem to find what I am looking for.  I am looking for 
>> exhaustive built-in symbols list (such as &SYSUID) that can be used in batch 
>> jobs.  I'm not talking about the system symbols (such &SMFID) which are 
>> defined in SYS1.PARMLIB.  To be more specific, I was hoping there was a 
>> built-in symbol to capture the current jobname such as &JOBNAME, but when I 
>> used that in test job it got substituted with "JES2" in converted JCL.   Is 
>> there some exhaustive list of these "Job specific" built in symbols 
>> documented someplace as I don't see in JCL reference guide.

Steve, 

Check these out

https://www.ibm.com/docs/en/zos/2.5.0?topic=iazsymbl-jes-system-symbols

https://www.ibm.com/docs/en/zos/2.3.0?topic=symbols-dynamic-system


Thanks,

Kolusu

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

Re: Minor Announcement

[Sri Hari Kolusu]

Thank you all for your kind words and wishes. Much appreciated.

Kolusu

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

Minor Announcement

[Sri Hari Kolusu]

Hi All,

Today is my last day as a developer with team DFSORT.  I am still with IBM and 
will be moving to a new role in DevOps effective August 19th, 2024.  So, 
answering DFSORT related questions will not be as quick as I did earlier.  I 
*may* continue to answer questions,  but it depends on my 
responsibilities/availability/flexibility of my new team.

Thanks,
Kolusu


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

Re: 3270 programming

[Sri Hari Kolusu]

>> Can you please send me -07?

David,

All the versions of the manual are on Bitsavers

GA23-0059-07 (1992-06 IBM 3270 Information Display System Data Stream 
Programmer's Reference)

https://bitsavers.org/pdf/ibm/3270/GA23-0059-07_3270_Data_Stream_Programmers_Reference_199206.pdf

GA23-0059-4 (1988-12 IBM 3270 Information Display System Data Stream 
Programmer's Reference)

https://bitsavers.org/pdf/ibm/3270/GA23-0059-4_3270_Data_Stream_Programmers_Reference_Dec88.pdf

GA23-0059-0 (1981-01 IBM 3270 Information Display System Data Stream 
Programmer's Reference)

https://bitsavers.org/pdf/ibm/3270/GA23-0059-0_3270_Data_Stream_Programmers_Reference_Jan1981.pdf


Thanks,
Kolusu

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

Re: LISTDSI Bad return value z/OS 3.1

[Sri Hari Kolusu]

>> (That  seems to have been an off-list communication; Idon't see it in the 
>> archives.)

Paul,

Yes, it is indeed an offline communication.  I just showed the behavior is SAME 
across different releases as Steve mentioned that he did not have access to 2.4 
system anymore.

So, from my example, he checked his code and found that Unit parm value has 
been truncated and he corrected it.

>> Did Kolusu explain what syntactic production resulted in UNIT=339?

Not really.  Resolving a bad value on UNIT parm will depend on OP's ACS 
routines in place.  


Thanks,
Kolusu

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

Re: DFSORT - Something I can't see.

[Sri Hari Kolusu]

> thanks a lot it obviously (now :D) worked. I would have preferred an error.

Max,

I am guessing your shop has VLSHRT as the default.  Here is a topic that 
describes the effects of VLSHRT

https://www.mail-archive.com/ibm-main@listserv.ua.edu/msg92247.html


Thanks,
Kolusu
DFSORT Development
IBM Corporation


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

Re: DFSORT - Something I can't see.

[Sri Hari Kolusu]

> Input is a VBA dataset.

Massimo,

Since the input is VBA, the short records may be the difference.  Please add 
OPTION VLSCMP to the SYSIN and re-run the job.

Thanks,
Kolusu
DFSORT Development
IBM Corporation



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

Re: Reading VSAM LDS data records

[Sri Hari Kolusu]

>> I can't go into much detail about what I am seeking, but wanted to ask this 
>> great group how to read these LDS files.

Don,

If your shop has File Manager, then you can use it to copy the contents of LDS

//STEP0100 EXEC PGM=FILEMGR
//SYSPRINT DD SYSOUT=*
//DDIN DD DISP=SHR,DSN=Your.input.LDS
//DDOUTDD SYSOUT=*
//SYSINDD *
$$FILEM DSC
/*

Thanks,
Kolusu



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

Re: DFSORT / SORT and value/necessity of FILSZ parameter

[Sri Hari Kolusu]

>> We use OPTION COPY.

Eric,

Option COPY does NOT require FILSZ parameter.  It is required when SORTing data 
which helps in calculating the workspace required.   DFSORT issues an 
informational message ICE118I when it couldn't determine the file size.  

https://www.ibm.com/docs/en/zos/2.5.0?topic=messages-ice118i

Thanks,
Kolusu
DFSORT Development
IBM Corporation

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

Re: DFSORT / SORT and value/necessity of FILSZ parameter

[Sri Hari Kolusu]

>> We run sort splits on large tape datasets, with over a hundred million 
>> records. They get split into 3 separate datasets, depending on the data.
These jobs do not use FILSZ.

Eric,

Does the job SORT the data before split , or is it just splitting with a COPY 
operation to separate datasets ?   As long the tape datasets have a standard 
label and Tape processing software(RMM/CA-1/ICETPEX) is providing the details 
of the dataset, you don't need to code FILSZ parameter.  If your job has 
SORTDIAG DD DUMMY coded, then you can check the ICE905I message.

for example.

ICE905I 1 I : RF=144,LR=340,BLK=17680,BCT=514473

  I   = INPUT (SORTIN OR SORTINXX)

 RF=144   RECFM 128 = X'80' F - FIXED  +
 16 = X'10' B - BLOCKED

 LR=340   IS THE LRECL OF THE FILE

 BLK=17680IS THE BLOCKSIZE OF THE DATASET

 BCT=514473   BLOCK COUNT (WILL BE 0 FOR COPY, MERGE OR SORTOUT)


Thanks,
Kolusu
DFSORT Development
IBM Corporation



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

Re: Inquiry on Powerful Sorting and Query Tools for Linux Platform

[Sri Hari Kolusu]

>> This product is a very good DFSORT look alike for Unix/Windows.   Offers 
>> excellent performance and compatibility with existing DFSORT control 
>> statements

Kirk,

Looking at the examples listed here, it seems to have a different syntax 
compared to the sort products on z/OS

https://www.ahlsort.com/Examples/Example/V80

Thanks,
Kolusu

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

Re: Problem when transfereing PDS members using ftp.

[Sri Hari Kolusu]

> When he looked at the destination he say that the last update time was 3 
> hours less than it should have been.

Gadi,

Check this 
https://www.ibm.com/support/pages/time-tags-incorrect-ftp-generated-ispf-statistics

Thanks,
Kolusu
DFSORT Development
IBM Corporation

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

Re: Tech Library -- Where is it hidden now

[Sri Hari Kolusu]

> You can find all the releases here https://www.ibm.com/docs/en/zos - just 
> drill down for the release you want from 2.1 to 3.1

Lionel,

Thanks. I am aware of the main publications link for all the releases, however 
Gil mentioned that about MONTHLY refresh of the "2.5 Adobe Indexed PDF/PDX 
Collection",   I wanted that link.

Thanks,
Kolusu


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

Re: Tech Library -- Where is it hidden now

[Sri Hari Kolusu]

>> But it was better at 2.5 when there was apparently a monthly refresh of the 
>> "2.5 Adobe Indexed PDF/PDX Collection", with the files date stamped and 
>> including the .pdx keyword index.

Gil,

Do you have the link to 2.5 that shows the monthly refresh ? May be we can get 
a similar link to 3.1 too.


Thanks,
 Kolusu

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

Re: Tech Library -- Where is it hidden now

[Sri Hari Kolusu]

> Thanks.  Is there a way to sort (your specialty) or filter that list by date?

Gil,

Your wish granted.  Check the attachment

PS : I did use DFSORT. 😊 

Thanks,
Kolusu
DFSORT Development
IBM Corporation


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
   |Infusing AI into IBM z/OS   
   |June 2024  |
SA23-2230-60   |IBM Encryption Facility for z/OS: Using Encryption Facility for 
OpenPGP|June 2024  |
SC27-8419-60   |IBM z/OS Management Facility Configuration Guide
   |June 2024  |
S550-0433-07   |PSF for z/OS: AFP Download Plus 
   |June 2024  |
S550-0429-06   |PSF for z/OS: Download for z/OS 
   |June 2024  |
SC283123-60|z/OS Authorized Code Scanner Guide  
   |June 2024  |
SC27-3651-60   |z/OS Communications Server: IP Configuration Reference  
   |June 2024  |
SC27-3655-60   |z/OS Communications Server: IP Messages Volume 2 (EZB, EZD) 
   |June 2024  |
SC27-3657-60   |z/OS Communications Server: IP Messages Volume 4 (EZZ, SNM) 
   |June 2024  |
SC27-3659-60   |z/OS Communications Server: IP Programmer's Guide and Reference 
   |June 2024  |
SC27-3661-60   |z/OS Communications Server: IP System Administrator's Commands  
   |June 2024  |
SC27-3662-60   |z/OS Communications Server: IP User's Guide and Commands
   |June 2024  |
GC27-3664-60   |z/OS Communications Server: New Function Summary
   |June 2024  |
SC14-7495-60   |z/OS Cryptographic Services System SSL Programming  
   |June 2024  |
SC23-6846-60   |z/OS DFSMS Access Method Services Commands  
   |June 2024  |
SC23-6847-60   |z/OS DFSMS Advanced Copy Services   
   |June 2024  |
SC23-6855-60   |z/OS DFSMS Using Data Sets  
   |June 2024  |
SC23-6860-60   |z/OS DFSMSdfp Storage Administration
   |June 2024  |
SC23-6864-60   |z/OS DFSMSdfp Utilities 
   |June 2024  |
GC14-7504-60   |z/OS DFSMShsm Data Areas
   |June 2024  |
SC23-6870-60   |z/OS DFSMShsm Managing Your Own Data
   |June 2024  |
SC23-6871-60   |z/OS DFSMShsm Storage Administration
   |June 2024  |
SC23-6874-60   |z/OS DFSMSrmm Implementation and Customization Guide
   |June 2024  |
SA32-0990-60   |z/OS JES2 Commands  
   |June 2024  |
SA38-0683-60   |z/OS Language Environment Programming Reference 
   |June 2024  |
SA38-0688-60   |z/OS Language Environment Vendor Interfaces 
   |June 2024  |
GA32-0905-60   |z/OS MVS Diagnosis: Tools and Service Aids  
   |June 2024  |
SA23-1380-60   |z/OS MVS Initialization and Tuning Reference
   |June 2024  |
SA23-1389-60   |z/OS MVS Planning: Global Resource Serialization
   |June 2024  |
SA23-1370-60   |z/OS MVS Programming: Assembler Services Reference IAR-XCT  
   |June 2024  |
SA23-1371-60   |z/OS MVS Programming: Authorized Assembler Services Guide   
   |June 2024  |
SA23-1373-60   |z/OS MVS Programming: Authorized Assembler Services Reference 
EDT-IXG  |June 2024  |
SA23-1377-60   |z/OS MVS Programming: Callable Services for High-Level 
Languages   |June 2024  |
SA23-1399-60   |z/OS MVS Setting Up a Sysplex   
   |June 2024  |
SA38-0665-60   |z/OS MVS System Codes   
   |June 2024  |
SA38-0667-60   |z/OS MVS System Man

Re: Tech Library -- Where is it hidden now

[Sri Hari Kolusu]

>>  I use: 
>> 
o IBM got 3.1 right the first time; there's little need for updates?


Gil,

In the URL that you use , If you click on the " All Publications" link on top 
of the page , it will result in this url and you can refresh date of each 
publication.

https://www.ibm.com/docs/en/zos/3.1.0?topic=SSLTBW_3.1.0/com.ibm.zos.v3r1.pdf/allpubs.htm


Thanks,
Kolusu


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

Re: python calling COBOL [was: RE: z/OS 3.1 Enhancements & Support News]

[Sri Hari Kolusu]

>> test on our z/OS V2.5 system, but apparently the essential LE module 
>> CEL4RO31 does not exist on our system (or at least I nave not yet found it).

Peter,

CEL4RO31 is supported in V2R4 and higher .  Do you have hlq.SCEERUN2 in your 
SYSLIB ?


Thanks,
Kolusu


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

Re: Another Sort Question

[Sri Hari Kolusu]

>> Maybe you can try this:
Ituriel,

That would be an extra pass of data which is not necessary.  You can adjust it 
to read just 1 record and issue the RC=12, but the question arises as to why 
the other product doesn't work as designed.

Thanks,
Kolusu
DFSORT Development
IBM Corporation


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

Re: Another Sort Question

[Sri Hari Kolusu]

>> I do indeed see the WER* messages in the log.

Cameron,

Thanks for confirming that it is the other product that does NOT behave the way 
it supposed to work.   DFSORT does honor the NULLOFL parm and ends the job with 
RC=4. You probably need to open a case with the vendor.

Thanks,
Kolusu
DFSORT Development
IBM Corporation


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

Re: Another Sort Question

[Sri Hari Kolusu]

> I still see RC=0

Cameron,

Please send me the COMPLETE joblog and I will check as to why your job does not 
end with an RC=4.

Just an fyi... If your DFSMSG has WERxxx messages, then you are using the other 
product, and I don't support it.

Thanks,
Kolusu
DFSORT Development
IBM Corporation

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Cameron Conacher
Sent: Tuesday, July 9, 2024 6:53 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: [EXTERNAL] Re: Another Sort Question

I still see RC=0

STEP0100 00 56


Thanks

...Cameron


From: IBM Mainframe Discussion List  On Behalf Of Sri 
Hari Kolusu
Sent: Tuesday, July 9, 2024 9:31 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Another Sort Question

>> Basically, I wanted to raise RC=4 when the output file from the SORT 
>> is empty. Cameron, NULLOFL should work. Can you run this job? 
>> //STEP0100 EXEC PGM=ICETOOL //TOOLMSG DD SYSOUT=* //DFSMSG DD 
>> SYSOUT=* //LOG31IN DD * //LOG31OUT DD


>> Basically, I wanted to raise RC=4 when the output file from the SORT is 
>> empty.





Cameron,



NULLOFL should work.  Can you run this job?



//STEP0100 EXEC PGM=ICETOOL

//TOOLMSG  DD SYSOUT=*

//DFSMSG   DD SYSOUT=*

//LOG31IN  DD *

//LOG31OUT DD SYSOUT=*

//TOOLIN   DD *

   SELECT FROM(LOG31IN)  -

  TO(LOG31OUT)   -

  ON(001,49,CH)  -

  LAST   -

  USING(LG31)



/*

//LG31CNTL DD *

  OUTFIL FNAMES=LOG31OUT,NULLOFL=RC4

/*





Does that give you RC=4 ?



Thanks,

Kolusu

DFSORT Development

IBM Corporation







--

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


American Express made the following annotations 
 This e-mail was sent to you by a 
representative of Amex Bank of Canada, P.O. Box 3204, Station "F", Toronto, ON, 
M1W 3W7, www.americanexpress.ca. If you no longer wish to receive these 
e-mails, please notify the sender by reply e-mail.

This e-mail is solely for the intended recipient and may contain confidential 
or privileged information. If you are not the intended recipient, any 
disclosure, copying, use, or distribution of the information included in this 
e-mail is prohibited. If you have received this e-mail in error, please notify 
the sender by reply e-mail and immediately and permanently delete this e-mail 
and any attachments. Thank you.

American Express a fait les remarques suivantes Ce courriel vous a ?t? envoy? 
par un repr?sentant de la Banque Amex du Canada, C.P. 3204, succursale F, 
Toronto (Ontario) M1W 3W7, www.americanexpress.ca. Si, par la suite, vous ne 
souhaitez plus recevoir ces courriels, veuillez en aviser les exp?diteurs par 
courriel.

Ce courriel est r?serv? au seul destinataire indiqu? et peut renfermer des 
renseignements confidentiels et privil?gi?s. Si vous n'?tes pas le destinataire 
pr?vu, toute divulgation, duplication, utilisation ou distribution du courriel 
est interdite. Si vous avez re?u ce courriel par erreur, veuillez en aviser 
l'exp?diteur par courriel et d?truire imm?diatement le courriel et toute pi?ce 
jointe. Merci.

--
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: Another Sort Question

[Sri Hari Kolusu]

>> Basically, I wanted to raise RC=4 when the output file from the SORT is 
>> empty.


Cameron,

NULLOFL should work.  Can you run this job?

//STEP0100 EXEC PGM=ICETOOL
//TOOLMSG  DD SYSOUT=*
//DFSMSG   DD SYSOUT=*
//LOG31IN  DD *
//LOG31OUT DD SYSOUT=*
//TOOLIN   DD *
   SELECT FROM(LOG31IN)  -
  TO(LOG31OUT)   -
  ON(001,49,CH)  -
  LAST   -
  USING(LG31)

/*
//LG31CNTL DD *
  OUTFIL FNAMES=LOG31OUT,NULLOFL=RC4
/*


Does that give you RC=4 ?

Thanks,
Kolusu
DFSORT Development
IBM Corporation



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

Re: IEC143I 213-50,IGG0191B, ...

[Sri Hari Kolusu]

>>50 - OPEN detected an error return code from an SMS service while processing 
>>a PDSE.

Binyamin,

IMHO the error 213-50 is most likely to occur when the PDSE has Pending delete 
members.  You can run PGM=IEBPDSE to verify the PDSE in question.

Thanks,
Kolusu

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

Re: reading tso netstat for counting duplicates

[Sri Hari Kolusu]

>> What would be the best process..  I need to strip the port from the field 
>> IP..PORTthen count the number of times the IP shows up in the output

Lizette,

DFSORT can strip the needed field and count the duplicates quite easily.

Please show me a sample input along with the DCB properties and I can code a 
DFSORT job to generate the required output.

Thanks,
Kolusu
DFSORT Development
IBM Corporation

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

Re: SMF 194

[Sri Hari Kolusu]

>> I'm trying to decode SMF 194, but had no success finding its layout.

Ituriel,

You can pick the layout based on your version.

https://www.ibm.com/support/pages/ts7700-statistical-data-format

Thanks,
Kolusu

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

Re: DFSORT Question regarding SORTOUT Library Member Statistics

[Sri Hari Kolusu]

> I don't think that option is on the template workbench.

Michael,

I don't use workbench, but I am assuming that it does let you EDIT the 
template.  If it does , then just add/Modify the stats parm in the template.

Thanks,
Kolusu

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

Re: DFSORT Question regarding SORTOUT Library Member Statistics

[Sri Hari Kolusu]

>> It is a sore point with me that the File Manager template workbench doesn't 
>> generate ISPF statistics on the templates it creates. It will /maintain/ 
>> statistics if they already exist, but it won't create them.

Michael,

Did you try to use the option STATS=FORCE ?

 The ISPF statistics that exist for members being processed are always updated 
and statistics for a member that previously did not have statistics are created.

Thanks,
Kolusu
DFSORT Development
IBM Corporation

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

Re: DFSORT Question regarding SORTOUT Library Member Statistics

[Sri Hari Kolusu]

>> Or just Enter/SAVE/F3 a couple of hundred times. 😊

Cameroon,

You can use ISPF to Set the statistics.  Look at the option 5 in UTILITIES.


  Menu  Options  View  Utilities  Compilers  Help
 EN sss
DSLIST - Data Sets M e 5  1. Library  e
Command ===> e2. Data set e
 e3. Move/Copye
Command - Enter "/"  e4. Data Set Liste   M
 e5. Reset Statistics e ---
 KOLUSU.SORT e6. Hardcopy e
 e*. Reserved e st 
 e8. Outlist  e
 e9. Commands...  e
 e   *0. Reserved e
 e   11. Format   e
 e   12. SuperC   e
 e   13. SuperCE  e
 e   14. Search-For   e
 e   15. Search-ForE  e
 e   16. Table Utilitye
 e   17. Directory List   e
 DM



Thanks,
Kolusu
DFSORT Development
IBM Corporation



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

Re: DFSORT Question regarding SORTOUT Library Member Statistics

[Sri Hari Kolusu]

>> I want to know if I can include an option, or processing clause to ensure 
>> that Library statistics are generated for each new member as I create them.
At the moment, I have a couple of hundred new Library Members that have no 
member statistics at all (who last changed, when created when last changed, 
etc..).

Cameroon,

Unfortunately, DFSORT does NOT copy/generate member statistics when copying.  
However, if your shop has FILE-MANAGER, then you can use the following.

//STEP0100 EXEC PGM=FILEMGR
//SYSPRINT DD SYSOUT=*
//DDIN DD DISP=SHR,DSN=Your.input
//DDOUTDD DISP=OLD,DSN=your.output.pds(memname)
//SYSINDD *
$$FILEM DSC STATS=ON
/*

Thanks,
Kolusu
DFSORT Development
IBM Corporation



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

Re: SDSF and z/OS V2.5

[Sri Hari Kolusu]

Lizette,

Check this presentation by Rob Scott

https://public.dhe.ibm.com/eserver/zseries/zos/racf/pdf/nyrug_2023_10_11_SDSF_Security_How_does_it_work_on_zOS_V2R5.pdf

Thanks,
Kolusu

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

Re: AT-TLS Configuration assistant

[Sri Hari Kolusu]

>> I think it is label for z/OS V1R12. Is it available anywhere for download?

Lennie,

May be chapter 12 in the red book

https://www.redbooks.ibm.com/redbooks/pdfs/sg247899.pdf

Thanks,
Kolusu

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

Re: DSNTEP2 problem

[Sri Hari Kolusu]

>> DSNE117E NOT ABLE TO LOCATE DSNTEP2 IN DSNAME DB2.DBV.SDSNSAMP

Thomas,

Looks like you are pointing to the samp lib. The LOAD module DSNTEP2 is NOT in 
the SDSNSAMP library.

Here is my sample DSNTEP2 (pay attention to LIB statement)

//SYSTSIN  DD  *
  DSN SYSTEM(DB2P)
  RUN  PROGRAM(DSNTEP2)  -
   PLAN(DSNTEP12)-
   LIB('DB2P.RUNLIB.LOAD.V12')
  END

You can try to find the load module with the following procedure.

Go to ISPF 3.4  and bring up the dataset list with the mask DB2.DBV.**
From the command prompt issue the command MEMBER DSNTEP2

From the search results you need to find the one that has a LOAD module

Thanks,
Kolusu



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

Re: DSNTEP2 problem

[Sri Hari Kolusu]

>> IKJ56712I INVALID KEYWORD, PLAN(DSNTEP1)  

Thomas,

You have an invalid PLAN name.  Check with your DBA for the right plan name or 
if you have authority then check the SYSIBM.SYSPLAN catalog table.

Thanks,
 Kolusu

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

Re: Getting list of SMS class entries

[Sri Hari Kolusu]

Billy,

1.  Run DCOLLECT
2.  Use that as INPUT to DFSORT and filter it based on your requirements.

 Kolusu

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Billy Ashton
Sent: Tuesday, June 4, 2024 12:09 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: [EXTERNAL] Getting list of SMS class entries

Hi all, this is a basic request, but I can't seem to find anything about it and 
hope you can help this poor old soul!

I would like to be able to generate a list of SMS classes, data, management, 
and storage classes, and the attributes with them, that I could somehow parse 
in a Rexx program.

Is there a command or program I could run and redirect the output to some sort 
of organized format file to get me this? For example, I would like to find all 
the Data classes with a RECFM/LRECL of FB/4096 that is also multi-volume or 
Management Classes with an expiration date < 90 days, etc.

How can I do that in a batch process I can run monthly?

Thank you and best regards,
Billy Ashton

--
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: Syntax error using Unix cp command with "-W" parameters

[Sri Hari Kolusu]

Peter,

Try with single quotes before SPACE parm

cp -W "seqparms='SPACE=(CYL,(5,5)),RECFM=VB,LRECL=259,BLKSIZE=0'"  
$HOME/testfile.txt "//'TSOUSER.NEWFILE'"

Thanks,


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

Re: DFSORT Fixed Records to CSV - Trim Extraneous Blanks?

[Sri Hari Kolusu]

>>> Is this doable in DFSORT?  If so, can help point me to some examples / 
>>> suggested reading / command statements?

Steve,

Yes DFSORT can do it quite easily.   Since you haven't provided any details 
about LRECL/RECFM here is sample that I came up on the fly.  Run this job and 
check the output.

//***
//* Input file has the following layout *
//* *
//* Fieldname  Position Length  *
//* -   --- *
//* firstname  0130 *
//* lastname   3130 *
//* company6120 *
//***
//STEP0100 EXEC PGM=SORT
//SYSOUT   DD SYSOUT=*
//SORTIN   DD *
FIRST NAMELAST NAME COMPANY
STEVE JR  ESTLE IBM-MAIN
DFSORTIBM   IBM
ABC   DEF   XYZ
IJKLMNOPQRSTUVWXYZ1234567890SOME COMPANY
//SORTOUT  DD SYSOUT=*
//SYSINDD *
  OPTION COPY
** Right justify the fields so that the trailing spaces are gone
  INREC IFTHEN=(WHEN=INIT,
   BUILD=(01,30,JFY=(SHIFT=RIGHT),   # firstname
  C'|',  # stopper
  31,30,JFY=(SHIFT=RIGHT),   # last name
  C'|',  # stopper
  61,20,JFY=(SHIFT=RIGHT),   # company
  C'|')),# stopper

** Parse the right justified content and pick values from nonblank
** pay attention to fixlen parm as it is incremented by 3
** fixlen = original length  +   30 bytes
**  opening quotes   +   01 byte
**  closing quote+   01 byte
**  csv separator01 byte
**   =   33 bytes

IFTHEN=(WHEN=INIT,
   PARSE=(%01=(STARTAT=NONBLANK,
   ENDBEFR=C'|',
FIXLEN=33),

  %02=(STARTAT=NONBLANK,
   ENDBEFR=C'|',
FIXLEN=33),

  %03=(STARTAT=NONBLANK,
   ENDBEFR=C'|',
FIXLEN=23)),

   BUILD=(%01,JFY=(SHIFT=LEFT,
LEAD=C'"',
   TRAIL=C'"'),

  %02,JFY=(SHIFT=LEFT,
LEAD=C'"',
   TRAIL=C'"'),

  %03,JFY=(SHIFT=LEFT,
LEAD=C'"',
   TRAIL=C'"'))),

** Squeeze out the additional spaces while retaining the embedded
** Blanks

IFTHEN=(WHEN=INIT,
   BUILD=(01,89,SQZ=(SHIFT=LEFT,
  PAIR=QUOTE,
   MID=C','))),

** Remove the double quotes that we added to retain the embedded
** Blanks
IFTHEN=(WHEN=INIT,
   FINDREP=(INOUT=(C'"',C'')))

/*


The output from the above job looks like this.

FIRST NAME,LAST NAME,COMPANY
STEVE JR,ESTLE,IBM-MAIN
DFSORT,IBM,IBM
ABC,DEF,XYZ
IJKLMNOPQRSTUVWXYZ,1234567890,SOME COMPANY


Further if you have any questions, please let me know.

Thanks,
Kolusu
DFSORT Development
IBM Corporation



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

Re: DFSort query

[Sri Hari Kolusu]

Ron,

You have been a member on this forum for a long time and yet you post questions 
which lack basic data.

What is the LRECL and RECFM of the input file?

>> LAST_CHANGE_TS 20 bytes

The sample data you posted shows the timestamp as 26 bytes which would change 
the position of the sequence number which you want to validate to pull the 
desired records.

>> Could someone please let me know how we can build this data using dfsort ?

If you had searched, you would have found the DFSORT Smart trick “Include or 
omit groups of records”  which caters to your exact requirement.

https://www.ibm.com/support/pages/smart-dfsort-tricks

Either way here is a DFSORT JOB that would give you the desired results based 
on the following assumptions.

1.  Input file has RECFM=FB
2.  The sequence number starts at position 57 for 2 bytes with the leading zero 
suppressed.
3. If your input file has RECFM=VB, then you are on your own to modify the job 
shown below

//STEP0100 EXEC PGM=SORT
//SYSOUT   DD SYSOUT=*
//SORTIN   DD *
ACCT _NBR PACCT_NBR LAST_CHANGE_TS CROSS_REF_NBR SEQ_NBR
600392811 1762220138659  2024-04-18-10.38.09.57003024538 1
505756281 1500013748790  2024-04-18-10.38.09.57003024538 2
59383061  1500013748790  2024-04-18-10.38.09.57003024538 3
59267071  1500013748790  2024-04-18-10.38.09.57003024538 4
505756281 1500013748790  2024-01-15-08.05.14.03879224538 1
59383061  1500013748790  2024-01-15-08.05.14.03879224538 2
59267071  1500013748790  2024-01-15-08.05.14.03879224538 3
600392811 1762220138659  2024-01-15-08.05.14.03879224538 4
600392561 1762220138631  2024-01-15-08.05.14.03879224531 1
//SORTOUT  DD SYSOUT=*
//SYSINDD *
  OPTION COPY
  INREC IFTHEN=(WHEN=GROUP,
   BEGIN=(57,2,UFF,EQ,1),
PUSH=(60:11,15,
  75:57,02))

  OUTFIL INCLUDE=(75,02,UFF,EQ,1),
   BUILD=(01,10,
  60,15)
/*


Thanks,
Kolusu
DFSORT Development
IBM Corporation





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

Re: DFSORT newline

[Sri Hari Kolusu]

>> So how may the programmer match a newline character?

Paul,

As Mike mentioned, Data on z/OS data is governed by the LRECL.  So, there is no 
newline character. If you are planning to parse out transferred binary data, 
then depending on where the file originated, you can use the equivalent Hex 
characters with \X

Look at example2 here.

https://www.ibm.com/docs/en/zos/2.5.0?topic=expressions-regular-application-examples

Thanks,
Kolusu


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

Re: Execute Rexx from Cobol

[Sri Hari Kolusu]

Lasse,

Try the example listed here.

https://www.ibm.com/docs/en/zos/2.4.0?topic=service-cobol

Thanks,
Kolusu

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

Re: DFSORT Guide feedback?

[Sri Hari Kolusu]

>> How did you find that?  I tried to no avail with Google keywords:

Gil,

I earlier provided you a link to the same in the other topic.

https://www.mail-archive.com/ibm-main@listserv.ua.edu/msg137624.html


Also,  in the PDF documentation it is divided as chapters and the web 
documentation does not have that, but it is in the same chapter order as the 
PDF.   So here is the link to DFSORT Application Programming Guide

https://www.ibm.com/docs/en/zos/3.1.0?topic=guide-abstract-dfsort-application-programming

Now see the left panel which shows the subtopics within this book, and you can 
see " EBCDIC and ASCII collating sequences" as one of the topics.


Thanks,
Kolusu
DFSORT Development
IBM Corporation



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

Re: DFSORT Guide feedback?

[Sri Hari Kolusu]

>> I surmise that I must do this on a web page containint the relevant topic.  
>> I was unable to find ap page describing Table 109.  Can someone help me?  Or 
>> must I submit meta-feedback, "Unable to find web page"?

The table 109 you refer is referring to the EBCDIC table listed here. 

https://www.ibm.com/docs/en/zos/3.1.0?topic=sequences-ebcdic



Thanks,
Kolusu
DFSORT Development
IBM Corporation


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

Re: EBCDIC/ASCII - FTP

[Sri Hari Kolusu]

Gil,

Appendix D in the Application programming guide shows the EBCDIC and ASCII 
collating sequences.

ALTSEQ, CHALT, and LOCALE can be used to select alternate collating sequences 
for character data.

https://www.ibm.com/docs/en/zos/3.1.0?topic=guide-ebcdic-ascii-collating-sequences


Thanks,
Kolusu
DFSORT Development
IBM Corporation



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

Re: IEABRC anomaly

[Sri Hari Kolusu]

>> It turns out that IEABRC does not convert NOP to JNOP. Is that a bug or a 
>> feature?

Shmuel,

Check this topic 
https://bit.listserv.ibm-main.narkive.com/H8UrGudQ/a-little-ieabrc-heads-up

Thanks,
Kolusu


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

Re: EBCDIC/ASCII - FTP

[Sri Hari Kolusu]

>> What UNTERSE tool is available on Windows?  Linux?

Gil,

WWunterse from Watson walker.  Announcement here

https://community.ibm.com/community/user/ibmz-and-linuxone/discussion/free-product-to-unterse-smf-and-vb-data-on-distributed-platforms

Direct download link

https://www.ap4zlabs.com/wwunterse


>> What are the CCSIDs used by "the default standard TCP/IP service 
>> EBCDIC-to-ASCII translation table?"

I remember discussing this issue with you before, any way here is the 
translation table used by DFSORT.

https://www.ibm.com/docs/en/zos/3.1.0?topic=statements-outfil-control#oufcst__etoacon

>>Likewise, what are the CCSIDs in the ASCII and EBCDIC maps in the appendices 
>>of the DFSORT Ref?
And what EBCDIC CCSID(s) is/are used by DFSORT regular expressions?

1047-US is the code page that DFSORT uses for Regular expressions.


>> Are they flexible, as in ISPF Edit which selects according to the terminal 
>> CCSID?:
,
supporting several dozen?  (I suspect this an LE facility.) How does the 
programmer indicate to DFSORT which CCSID to use for regular expressions?  Many 
terminal emulators allow a choice, and individual preferences vary.

DFSORT is not ISPF and vice-versa. Why do want 2 different products to do the 
same function?  I am not sure as why you always draw a comparison of 2 
different products.

>>.How does the programmer indicate to DFSORT which CCSID to use for regular 
>>expressions?  Many terminal emulators allow a choice, and individual 
>>preferences vary.

You cannot.   If you want support for plethora of CCSID's then you are better 
off coding a Unicode Character conversion program which would suffice all your 
requirements.

https://www.ibm.com/docs/en/zos/3.1.0?topic=conversion-character

I am positive that you would even find an issue with that service.  I am not 
sure if you have a real requirement, or you just want to evoke a response for a 
hypothetical scenario.

 
Thanks,
Kolusu


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

Re: EBCDIC/ASCII - FTP

[Sri Hari Kolusu]

>> On zOS, its EBCDIC file, is there any solution first convert to ASCII then 
>> Terse send?

BM,

You can use DFSORT TRAN=ETOA function which translates characters from EBCDIC 
to ASCII using the default standard TCP/IP service EBCDIC-to-ASCII translation 
table. For example, with TRAN=ETOA, the EBCDIC characters aB2 (X'81C2F2') would 
be replaced by the ASCII characters aB2 (X'614232').

//STEP0100 EXEC PGM=SORT
//SYSOUT   DD SYSOUT=*
//SORTIN   DD DISP=SHR,DSN=Your.input.FB.EBCDIC.file
//SORTOUT  DD DSN=your.output.FB.ASCII.file,
//DISP=(NEW,CATLG,DELETE),
//SPACE=(CYL,(X,Y),RLSE)
//SYSINDD *
  OPTION COPY
  OUTREC BUILD=(1,lrecl,TRAN=ETOA)
//*

•   Pass the value of lrecl as numeric.

If your input is a VB file, then use the following control cards

//SYSINDD *
  OPTION COPY
  OUTREC BUILD=(1,4,5,TRAN=ETOA)
//*

You can terse the output file and then FTP it to windows.

Thanks,
Kolusu
DFSORT Development
IBM Corporation


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

Re: Hex error code interpreter?

[Sri Hari Kolusu]

Phil,

You can use the command TSO EXEC 'SYS1.SBPXEXEC(BPXMTEXT)' 'your 8 digit hex 
code' or $ bpxmtext hexcode from shell to get the description of the errnox .

TSO EXEC 'SYS1.SBPXEXEC(BPXMTEXT)' '0594003D' results in

BPXFVLKP 09/23/23
JRDirNotFound: A directory in the pathname was not found

Action: One of the directories specified was not found.  Verify that the name
specified is spelled correctly.


However, TSO EXEC 'SYS1.SBPXEXEC(BPXMTEXT)' '03353084' just results in BPXFSIT 
10/29/19   which is not that helpful

Thanks,
Kolusu



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

Re: DFSort Report question

[Sri Hari Kolusu]

>> What I would like to do is change LEGACY/KDFAES to PASSPHRASE if possible.

Lionel,

You just want to change the ON value and not the header.  Assuming you have a 
COPY/SORT step to filter the data, you can change the values there.  I am 
showing for position 21, but you can change to that 616 in the control cards

//STEP0100 EXEC PGM=ICETOOL
//TOOLMSG  DD SYSOUT=*
//DFSMSG   DD SYSOUT=*
//IN   DD *
A   LEGACY
B   KDFAES
C   NOPHRASE
D   LIONEL
//T1   DD DSN=&&T1,DISP=(,PASS),SPACE=(TRK,(1,0),RLSE)
//REPORT   DD SYSOUT=*
//TOOLIN   DD *
  COPY FROM(IN) TO(T1) USING(CTL1)
  DISPLAY FROM(T1) LIST(REPORT)   -
 HEADER('Rectype')ON(001,01,CH)   -
 HEADER('PassPhrase') ON(021,10,CH)
/*
//CTL1CNTL DD *
  INREC OVERLAY=(021:21,10,CHANGE=(10,C'LEGACY',C'PASSPHRASE',
  C'KDFAES',C'PASSPHRASE'),
  NOMATCH=(21,10))
/*

The output from this is.

RectypePassPhrase
   
A  PASSPHRASE
B  PASSPHRASE
C  NOPHRASE
D  LIONEL


Hope that is what you want.

PS: if you don't have COPY/SORT pass before the DISPLAY , then you can do it 
using traditional reporting features.

Thanks,
Kolusu
DFSORT Development
IBM Corporation



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

Re: DFSort Report question

[Sri Hari Kolusu]

>> The ON value could be "LEGACY", "KDFAES", "PASSWORD" or "NOPHRASE".

Lionel,

How do you determine which header value need to be used? I am guessing that it 
is going to depend on a value in the file. If So we can dynamically change it.

Thanks,
Kolusu
DFSORT Development
IBM Corporation

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

Re: Regular Expressions: DFSORT, ISPF: "$","^"

[Sri Hari Kolusu]

Paul,

DFSORT does indeed support "^" and "&" for the begin and end.

https://www.ibm.com/docs/en/zos/2.4.0?topic=statement-regular-expressions

If scroll down a bit in the above link, we do the examples.

^ibm
Matches records beginning with "ibm"
ibm$
Matches records ending with "ibm"
^ibm$
Matches records with exactly "ibm"

I know you are detail-attentive, so I would add it to the next pub refresh, but 
it only goes into 3.1 (may be V2R5 but not sure).

^
The caret symbol matches the beginning the string.

$
The dollar symbol matches the end of the string.




Would that work?

Thanks,
Kolusu
DFSORT Development
IBM Corporation

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Paul Gilmartin
Sent: Saturday, April 20, 2024 7:47 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: [EXTERNAL] Regular Expressions: DFSORT, ISPF: "$","^"

The description of regular expressions for DFSORT:

mentions "$" to match the end of a string, but not "^" to match the beginning.

The description of regular expressions for ISPF:

mentions neither "^" nor "$".

Are these omissions intentional?

--
gil

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


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

Re: Anyone exploiting ZEDC?

[Sri Hari Kolusu]

>> We initially enabled Extended Format/COMPACT ZP, for all DSORG PS datasets, 
>> but are quickly finding that DFSORT, SAS, ISPF recovery datasets all have 
>> issues.

Dave,

Can you elaborate more on the issue that you have with DFSORT as ZEDC is 
supported by DFSORT.  You can send an offline mail to avoid the clutter here.

Thanks,
Kolusu
DFSORT Development
IBM Corporation

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

Re: EXPDT added to newly allocated dataset

[Sri Hari Kolusu]

Mark,

Check if the dataset got associated with a management class and expiration date 
defined in the management class for the data set.

Thanks,
Kolusu

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

Re: DFSORT SUBDAYS function

[Sri Hari Kolusu]

>> The date begins in column 1 and is 10 characters long. I know I want to use 
>> the SUBDAYS function. I am looking at the DFSORT Programmer Guide. But I 
>> learn best by example.

Richard,

Your input date has separators and DFSORT date arithmetic functions works on 
date without separators.  So, we just need to strip off the separators and then 
apply the SUBDAYS function.

I assumed your input has RECFM=FB and LRECl=80 and you want to subtract 35 days 
from the input. We first strip off the separators and put that date a temp 
location (81) and then apply the subdays function on that.  Here is a sample.


//STEP0100 EXEC PGM=SORT
//SYSOUT   DD SYSOUT=*
//SORTIN   DD *
2024/04/09 - CURR DATE
2024/02/28 - NON LEAP YEAR DATE
2024/02/29 - LEAP YEAR DATE
2007/02/29 - INVALID DATE
//SORTOUT  DD SYSOUT=*
//SYSINDD *
  SORT FIELDS=COPY
  INREC IFOUTLEN=80,
  IFTHEN=(WHEN=INIT,
 OVERLAY=(81:01,10,UFF,M11,LENGTH=8,
  01:81,8,Y4T,SUBDAYS,+35,TOGREG=(Y4T(/
/*

The output from the above is.

2024/03/05 - CURR DATE
2024/01/24 - NON LEAP YEAR DATE
2024/01/25 - LEAP YEAR DATE
** - INVALID DATE


Note that the last record has an invalid date and that subdays function 
replaced it with asterisks.


Thanks,
Kolusu
DFSORT Development
IBM Corporation



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

Re: FORTRAN G/H sources

[Sri Hari Kolusu]

>> is there someone who has kept fortran source from the MVT and MVS3 century, 
>> at least the IO modules that have been used (and distributed) for SNOBOL4 by 
>> University of Arizona ?

Try this. 

https://www.jaymoseley.com/hercules/compilers/list_of.htm

Thanks,
Kolusu

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

Re: MountMon Expired

[Sri Hari Kolusu]

>> Anyone still familiar with Mountmon from IBMTools.  I need to find the 
>> instructions for updating the EXPIRE date.

Philip,

You need to download the latest version of the tape tools to get the latest 
date.

EXPIRE=31DEC2024 106022880 ;  TOOLS stop running after this DATE !!!

Check this topic as to how to get the tape tools download

https://www.mail-archive.com/ibm-main@listserv.ua.edu/msg130926.html

Thanks,
Kolusu




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

Re: How can I determine MVS FQDSN from DD Name in Batch COBOL Program?

[Sri Hari Kolusu]

>> Is your SPOOL so constrained that you are concerned about running out of 
>> space if a job issues even a few million lines of sysout?
>> The issue is that we have so many JOBs over so many decades doing this.

Cameron,

Did you know that you can use LINES parm to cancel/Dump/Warning for the job?

https://www.ibm.com/docs/en/zos/3.1.0?topic=statement-lines-parameter

For example, if you code this on job card

//LINES=(20,CANCEL),

Then the job will be cancelled if it writes out more than 20,000 lines to Spool

You can dynamically insert that LINES parm into every job.

Thanks,
Kolusu



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

Re: DFsort error message

[Sri Hari Kolusu]

>> Is this a standalone sort or one from a cobol program or db2 process?

Lizette,

It is a JCL invoked SORT.

Clue : ICEAM1 INVOCATION ENVIRONMENT IN EFFECT - ICEAM1 ENVIRONMENT SELECTED

Thanks,
Kolusu
DFSORT Development
IBM Corporation



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

Re: DFsort error message

[Sri Hari Kolusu]

>> ICE185A 0 AN SE37  ABEND WAS ISSUED BY DFSORT, ANOTHER PROGRAM OR AN EXIT 
>> (PHASE

Ron,

Most likely your job abended due to lack of space on SORTOUT dataset.  Check 
the JESMSGLG for a detailed explanation of the E37 abend also the dataset name. 
 Fix the space on the dataset by adding more units or compressing/stripping.


>> Parm cards used
SORT FIELDS=COPY

If you are using COPY operation, you do NOT need sortwkxx datasets at all. 
Delete all the SORTWKxx allocations.


Thanks,
Kolusu
DFSORT Development
IBM Corporation



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

Re: How can I determine MVS FQDSN from DD Name in Batch COBOL Program?

[Sri Hari Kolusu]

>> I did not really need the FQDSN. All I needed to know was whether or not 
>> SYSOUT was assign to SPOOL.

Cameroon,

Does this code handle Dynamically allocated Sysout dataset and XTIOT  entries 
(i.e NON_VSAM_XTIOT=YES is set in SMS?

Also, I was wondering what is the need to traverse the entire TIOT when all you 
are interested in a single ddname SYSOUT?

BPXWDYN2 returns a variable named INRTTYP which is the " Requests the data set 
type. One of the following strings is returned: blanks, DUMMY, TERM, SYSIN, 
SYSOUT, or two hexadecimal digits as returned from SVC99."


Thanks,
Kolusu



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

Re: How can I determine MVS FQDSN from DD Name in Batch COBOL Program?

[Sri Hari Kolusu]

>> Why? Well I would like my COBOL program to allow COBOL Displays in 
>> Production ONLY when the User specified a FQDN.

Cameron,

Check this.

https://www.mvsforums.com/helpboards/viewtopic.php?p=62866

Thanks,
Kolusu

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

Re: FTP SBDATACONN - how to display?

[Sri Hari Kolusu]

>> I mean translation details.

Radoslaw,

Check this 
https://www.ibm.com/support/pages/overview-using-data-translation-zos-ftp

https://www.ibm.com/docs/en/zos/2.5.0?topic=protocol-ftp-configuration-statements-in-ftpdata

Thanks,
Kolusu

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

Re: // SET with multiple substitutions?

[Sri Hari Kolusu]

>> I'd like to do something like // SET FOO=&BAR.&BAZ and have the values of 
>> both symbols inserted rather than just one. Is there a way to do that?


Seymour,

If you have BAR and BAZ symbols defined before the FOO , it will substitute.

// SET BAR=PARM1
// SET BAZ=PARM2
// SET FOO=&BAR.&BAZ

Will result in

2 // SET BAR=PARM1
 3 // SET BAZ=PARM2
 4 // SET FOO=&BAR.&BAZ
   /*
   IEFC653I SUBSTITUTION JCL - FOO=PARM1PARM2


Thanks,
Kolusu



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

Re: Ideas for less-distruptive disruptions - Netmaster:Solve and CICS

[Sri Hari Kolusu]

>> I see a lot more research in my future.

Tom,

Here is something to get you started.

https://www.ibm.com/docs/en/cics-ts/beta?topic=server-rexxcics-commands

Thanks,
Kolusu

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

Re: DFSORT and IPL Date

[Sri Hari Kolusu]

>> What I am trying to achieve is simple. I want to select, using DCOLLECT TYPE 
>> D records, files that have been created after the last IPL and ten days 
>> before today:

Jack,

As I showed you earlier , you can use the SDSF REXX interface and get the 
IPLINFO and we can parse to create a symbol with that.

So please add the following

//  SET DCOLSYM=Your.dcollect.symbols.pdsname
//  SET DCOLINP=Your.dcollect.output

Change the SYSTSPRT dd in step SDSFREXX to the following.

//SYSTSPRT DD DSN=&&INFO,DISP=(,PASS),SPACE=(TRK,(1,1),RLSE),
//RECFM=FB,LRECL=133,DSORG=PS


The IPLDATE on my test systems have the format MM/DD/CCYY.  I am converting the 
IPLDATE to Julian format as a SYMBOL so that you can compare it with create 
date on type D record. You concatenate this newly created symbol dataset to 
your existing symbols.

Note : If your date format is different then we need a slight change in the 
control cards for extracting and converting the date.


//**
//* Extract the IPL date and convert it to Julian format   *
//* so that we can use it for comparing it against the *
//* dataset create date which has the CCYYDDDF format  *
//**
//EIPLDATE EXEC PGM=SORT,COND=(0,LT)
//SYSOUT   DD SYSOUT=*
//SORTIN   DD DISP=(OLD,DELETE),DSN=&&INFO
//SORTOUT  DD DSN=&&S,DISP=(,PASS),SPACE=(TRK,(1,0))
//SYSINDD *
  OPTION COPY,NULLOUT=RC4,STOPAFT=1

  INCLUDE COND=(45,12,SS,EQ,C'SYSTEM IPLED')

  INREC PARSE=(%01=(STARTAFT=C'ON ',ENDBEFR=C' ',FIXLEN=10))
BUILD=(%01)

  OUTREC OVERLAY=(15:01,10,UFF,M11,LENGTH=8,
  25:15,08,Y4W,TOJUL=Y4T)

  OUTFIL BUILD=(C'IPLDATE,',25,07,80:X)
/*
//**
//* Extract the Type D DCOLLECT records that are created   *
//* 10 days prior to current date and greater than or equal*
//* the IPL date.  *
//**
//GETTYPD  EXEC PGM=SORT,COND=(0,LT)
//SYSOUT   DD SYSOUT=*
//SYMNOUT  DD SYSOUT=*
//SYMNAMES DD DISP=SHR,DSN=&DCOLSYM(HEADER)
// DD DISP=SHR,DSN=&DCOLSYM(TYPED)
// DD DISP=(OLD,DELETE),DSN=&&S
//SORTIN   DD DISP=SHR,DSN=&DCOLINP
//SORTOUT  DD SYSOUT=*
//SYSINDD *
  OPTION COPY
  INCLUDE COND=(DCURCTYP,EQ,DCUDATAT,AND,  * Type = Data type
DCDCREDT,LT,DATE3P-10,AND, * Created < curr date - 10
DCDCREDT,GE,IPLDATE)   * Created >= IPLDATE
/*


Further if you have any questions, please let me know

Thanks,
Kolusu
DFSORT Development
IBM Corporation



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

Re: DFSORT and IPL Date

[Sri Hari Kolusu]

>> Is there a way to make SORT date comparisons referencing the IPL date? I 
>> have not been able to find anything on the manual.

Jack,

DFSORT does not have direct access to IPL info. It can access system symbols 
but there is no system symbol defined for LAST IPL date (AFAIK).  So as others 
have pointed out, you can code a simple rexx and get the date. or better yet 
use SDSF rexx interface to get the information from the command /D IPLINFO.

It is easy to parse out the info and the get the date.

Here is a sample of SDSF rexx interface (your IPL info can be found in SYSTSPRT 
dd name in the 2nd step)

//**
//* SDSF REXX EXEC INTERFACE TO GET IPLINFO*
//**
//COPYREXX EXEC PGM=IEBUPDTE,PARM='NEW'
//SYSPRINT DD SYSOUT=*
//SYSUT2   DD DSN=&&EXEC,DISP=(NEW,PASS),
//UNIT=SYSDA,SPACE=(TRK,(2,2,2)),
//LRECL=80,RECFM=FB
//SYSINDD DATA,DLM='$$'
./ ADD NAME=IPLINF
/* REXX */
LASTRC=ISFCALLS("ON")
ISFDELAY = 3
MYCMD.0  = 1
MYCMD.1  = "D IPLINFO"
ADDRESS SDSF  "ISFSLASH ("MYCMD.") (WAIT)"
DO RESPINDEX = 1 TO ISFULOG.0
  SAY ISFULOG.RESPINDEX
END
LASTRC=ISFCALLS("OFF")
$$
//*
//**
//* EXECUTE THE REXX EXEC TO FIND THE IPL INFORMATION  *
//**
//SDSFREXX EXEC PGM=IKJEFT01
//SYSPROC  DD DSN=&&EXEC,DISP=(OLD,PASS)
//SYSTSPRT DD SYSOUT=*
//ISPPLIB  DD DSN=ISP.SISPPENU,DISP=SHR
//ISPSLIB  DD DSN=ISP.SISPSENU,DISP=SHR
//ISPMLIB  DD DSN=ISP.SISPMENU,DISP=SHR
//ISPTLIB  DD DSN=ISP.SISPTENU,DISP=SHR
//ISPLOG   DD SYSOUT=*,
//DCB=(BLKSIZE=129,LRECL=125,RECFM=VA,DSORG=PS)
//ISPPROF  DD UNIT=SYSDA,SPACE=(TRK,(1,1,1)),
//DCB=(BLKSIZE=800,LRECL=80,RECFM=FB)
//SYSTSIN  DD *
  PROFILE WTPMSG MSGID VARSTORAGE(HIGH)
  TIME
  ISPSTART CMD(%IPLINF)
/*


I don’t know the complete requirement, so I haven’t added the steps to parse 
out the information and the processing.  I can show you the processing once you 
explain the requirement.


Thanks,
Kolusu
DFSORT Development
IBM Corporation




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

Re: Rexx numeric digits and scientific notation question

[Sri Hari Kolusu]

Charles,

Can you display the form just before you display the multiplied value?

say 'numeric form is : ' form()
say 8947 * 864


Thanks,
Kolusu



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

Re: Line comments in DFSORT

[Sri Hari Kolusu]

>> And, using the example provided, we are able to add a comment to the first 
>> two lines but not the last line, since it does not have a hyphen?

Cameron,

That is true. But if you want you can add as many comment lines you want using 
* in column 1.

//TOOLIN   DD *
* Enter ICETOOL operators here
* My comment line - 1
* My comment line - 2
* My comment line - 3
* My comment line - 4

  COPY FROM(INPUTA) TO(OUTA)

/*


Thanks,
Kolusu
DFSORT Development
IBM Corporation



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

Re: Line comments in DFSORT

[Sri Hari Kolusu]

>> Which shows me that line comments are a byproduct of the ICETOOL 
>> continuation logic, and not a core feature. From your earlier example, I 
>> thought that the # character had some significance, but now I see that it 
>> does not.

Bob,

Just a clarification here.  TOOLIN is the ONLY DD where you cannot have 
REMARKS.  You can code the remarks after the continuation mark.

And the REMARKS as you say line comments you have coded are simply ignored 
after the end of the key word like how TOOLIN dd ignores the content after the 
hyphen. 


>>None of the examples in the doc show line comments being used.

Agreed that finding information in the manuals is tedious but not sure why you 
keep saying stuff like this , when there is an example. Check the examples in 
this link.

https://www.ibm.com/docs/en/zos/2.5.0?topic=rules-continuation-lines 


Most of the examples in our publications do not use line as we have a detailed 
explanation below of the what the example shown is doing.  Look at the example 
link given below

>> I use the traditional "* in column 1" comment to show "Here is what is 
>> coming up in the next several lines of code", usually with a blank line in 
>> front, so that the eye can scan to each block of statements quickly.

This is allowed even in TOOLIN and the examples of ICETOOL does show that.

https://www.ibm.com/docs/en/zos/2.5.0?topic=streams-icetool-example

>> I use line comments to explain the gory details of the code immediately to 
>> the left of it.

The gory details you talk about are usually in  SYSIN for SORT and XXXCNTL for 
ICETOOL.  Both of them allow the REMARKS the line comments.  

>> While teaching, we seek to have a stream of "Aha, I get what it is doing!" 
>> moments. Line comments help us to explain those gory details that lead to 
>> the "Light Bulb" moment.

TOOLIN statements are mostly english like language statements and the gory 
details are in SYSIN and XXXCNTL and both of them allow the Remarks.

You can follow the assembler approach for TOOLIN.

Thanks,
Kolusu
DFSORT Development
IBM Corporation


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

Re: Line comments in DFSORT

[Sri Hari Kolusu]

>> It's unusual, having to add an un-necessary line split just to add a 
>> comment. I was expecting it to work more like IDCAMS, TSO or JCL.

What is stopping you from doing coding like this?

//TOOLIN   DD *
* Enter ICETOOL operators here *

* COPY INPUTA TO OUTA
  COPY  FROM(INPUTA) TO(OUTA)

* COPY INPUT1 TO OUTB
  COPY  FROM(INPUT1) TO(OUTB) USING(ALAS)

* COPY INPUTX TO OUTC
  SORT  FROM(INPUTX) TO(OUTC) USING(ALAK)
/*


>> I searched for every # in the the DFSORT Application Programming Guide to 
>> verify that ICETOOL line comments are not documented.

Not sure where you looked but it is documented here

ICETOOL can be called directly or from a program. ICETOOL allows operator 
statements (and comments) to be supplied in a data set or in a parameter list 
passed by a calling program.

https://www.ibm.com/docs/en/zos/2.5.0?topic=overview-icetooldfsort-relationship


>> I was expecting it to work more like IDCAMS, TSO or JCL.

/*  comment is valid for JCL but not valid for IDCAMS SYSIN as it would signal 
the end of input.

Ie
//SYSINDD *
  LISTCAT ENT('HLQ.MLQ.TLQ') ALL
/* COMMENT-1 */
 LISTCAT ENT('A.B.C') ALL
/*

The second listcat command would NOT execute

So you have to move the comments to position 2 or greater also you need to 
enclose them between /* and */

//SYSINDD *
 /* COMMENT-1 */
 LISTCAT ENT('HLQ.MLQ.TLQ') ALL
 /* COMMENT-2 */
 LISTCAT ENT('A.B.C') ALL
/*

Every utility has its own rules and DFSORT has the most flexible rules. You 
just cannot compare to other utilities.


Thanks,
Kolusu


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

Re: Line comments in DFSORT

[Sri Hari Kolusu]

>> That is good news, but I cannot seem to replicate your results.

Bob,

If you noticed my example job keenly, I had the remarks/comments after the 
Continuation character (-).Btw TOOLIN statements are self-explanatory. You 
adding the remarks is kind of repeating the statements once again

Either way you can something like this

//STEP0100 EXEC PGM=ICETOOL
//TOOLMSG  DD SYSOUT=*
//DFSMSG   DD SYSOUT=*
//INPUTA   DD *
ABC
//INPUT1   DD *
DEF
IJK
//INPUTX   DD *
ABC
XYZ
DEF
//OUTA DD SYSOUT=*
//OUTB DD SYSOUT=*
//OUTC DD SYSOUT=*
//TOOLIN   DD *
  COPY  FROM(INPUTA) -  # COPY INPUTA TO OUTA
  TO(OUTA)
  COPY  FROM(INPUT1) -  # COPY INPUT1 TO OUTB
  TO(OUTB) USING(ALAS)
  SORT  FROM(INPUTX) -  # COPY INPUTX TO OUTC
  TO(OUTC) USING(ALAK)
/*
//ALASCNTL DD *
  INREC OVERLAY(10:C'BOB')  # Add BOB to every record
/*
//ALAKCNTL DD *
  SORT FIELDS=(1,3,CH,D)# sort field-1 Desc
/*


Thanks,
Kolusu
DFSORT Development
IBM Corporation



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

Re: Line comments in DFSORT

[Sri Hari Kolusu]

>> Alas, ICETOOL does not support the same kind of comments.

Bob,

Not sure what you meant by that.  ICETOOL statements TOOLIN and XXXCNTL do 
support comments.  Here is an example.

//STEP0100 EXEC PGM=ICETOOL
//TOOLMSG  DD SYSOUT=*
//DFSMSG   DD SYSOUT=*
//IN   DD *
ABC
DEF
//CTL1OUT  DD SYSOUT=*
//TOOLIN   DD *
  SORT FROM(IN) -# My comment in toolin
  USING(CTL1)
/*
//CTL1CNTL DD *
  SORT FIELDS=(1,3,CH,D) # sort field-1 Desc
/*

Thanks,
Kolusu
DFSORT Development
IBM Corporation



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

Re: Line comments in DFSORT

[Sri Hari Kolusu]

>> I just did an experiment in DFSORT with JCL-style line comments after 
>> INCLUDE, SORT, and OUTREC, and they work!
The DFSORT doc says that comments are only supported when entered with * on 
column 1.

Bob,

Of course, they work as you entered a REMARKS.

Remark Field :  This field can contain any information. It is not required, but 
if it is present, it must be separated from the last operand field by at least 
one blank.

This is documented in here .

https://www.ibm.com/docs/en/zos/3.1.0?topic=statements-general-coding-rules

≫ The DFSORT doc says that comments are only supported when entered with * on 
column 1.
When was this implemented, and why isn’t this documented? Do you think it is 
safe to rely on?

The behavior did not change. It stayed the same across releases.  You can rely 
on remarks working across releases.

≫ When was this implemented, and why isn’t this documented? Do you think it is 
safe to rely on?

AFAIK, the behavior is the same since the inception of DFSORT.

≫ I sent this question to dfs...@us.ibm.com but it 
bounced right back, perhaps there are DFSORT developers here.

The hotline is shut off and we updated the pubs to remove the references to 
that.  I am not sure which documentation you are looking for, but pubs for V2R5 
and higher will not have that reference.

≫perhaps there are DFSORT developers here.

I for one am an active participant on this list.


Thanks,
Kolusu
DFSORT Development
IBM Corporation



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

Re: What am I doing wrong with BPXWUNIX sort?

[Sri Hari Kolusu]

Charles,

Your example data

/* REXX */
stdin.0=3
stdin.1="0001 Main Check"
stdin.2="0002 OMVS (FTP Session)"
stdin.3="0003 C Validation"

cmd="sort -k 2"
call bpxwunix cmd,stdin.,stdout.,stderr.

say "stdout:"
say "==="
do i=1 to stdout.0
  say stdout.i
end

say "stderr:"
say "==="
do i=1 to stderr.0
   say stderr.i
end

produces


stdout:
===
0003 C Validation
0001 Main Check
0002 OMVS (FTP Session)
stderr:
===

Thanks,
Kolusu


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

Re: What am I doing wrong with BPXWUNIX sort?

[Sri Hari Kolusu]

Charles,

Try a space after k.

Something like this

/* REXX */
stdin.0=5
stdin.1="KIJJ 3"
stdin.2="KQWR 1"
stdin.3="ADGF 2"
stdin.4="OEPE 6"
stdin.5="VNVV 5"

cmd="sort -k 2"
call bpxwunix cmd,stdin.,stdout.,stderr.

say "stdout:"
say "==="
do i=1 to stdout.0
  say stdout.i
end

say "stderr:"
say "==="
do i=1 to stderr.0
   say stderr.i
end

Thanks,
Kolusu


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

Re: BASE64 Decode / EPOCH Conversion Code Samples

[Sri Hari Kolusu]

>>. Is anyone aware of where one might locate any sample assembler code, macros 
>>or APIs to perform the following:
- Base64 Decoding (to EBCDIC)- EPOCH Conversion Thanks in advance for the 
assistance.   

Frank,

Check this link for BASE64 decoding and encoding

https://github.com/cicsdev/base64

EPOCH conversion is easy.

Just convert EPOCH to TOD and use SYS1.MACLIB(STCKCONV) to convert it to 
readable date and time format.

TOD =  (epoc * 409600) + 90480181248 


Thanks,
Kolusu

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

Re: Can DFSORT assign custom Return Code values?

[Sri Hari Kolusu]

>> Another simple way to do this is a simple Rexx exec using MVSVAR to get the 
>> system symbol that you want . See 
>> https://www.ibm.com/docs/en/zos/2.5.0?topic=tef-mvsvar to see examples of 
>> how to do this.

Doug,

As I mentioned earlier you don't need REXX to get the MVS variables. DFSORT is 
quite capable of reading the SYSTEM symbols.  If your system has all the 
symbols defined, then you can use the following DFSORT JCL

//STEP0100 EXEC PGM=SORT
//SYSOUT   DD SYSOUT=*
//SYMNOUT  DD SYSOUT=*
//SYMNAMES DD *
SYM01,S'&SYSAPPCLU'
SYM02,S'&SYSDFP'
SYM03,S'&SYSMVS'
SYM04,S'&SYSNAME'
SYM05,S'&SYSOPSYS'
SYM06,S'&SYSSECLAB'
SYM07,S'&SYSSMFID'
SYM08,S'&SYSSMS'
SYM09,S'&SYSCLONE'
SYM10,S'&SYSPLEX'
//SORTIN   DD *
ABC
//SORTOUT  DD SYSOUT=*
//SYSINDD *
  OPTION COPY
  OUTFIL BUILD=(C'SYSAPPCLU IS : ',SYM01,/,
C'SYSDFPIS : ',SYM02,/,
C'SYSMVSIS : ',SYM03,/,
C'SYSNAME   IS : ',SYM04,/,
C'SYSOPSYS  IS : ',SYM05,/,
C'SYSSECLAB IS : ',SYM06,/,
C'SYSSMFID  IS : ',SYM07,/,
C'SYSSMSIS : ',SYM08,/,
C'SYSCLONE  IS : ',SYM09,/,
C'SYSPLEX   IS : ',SYM10)
/*

https://www.ibm.com/docs/en/zos/3.1.0?topic=ss-symbol-statements

Thanks,
Kolusu
DFSORT Development
IBM Corporation



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

Re: Can DFSORT assign custom Return Code values?

[Sri Hari Kolusu]

>> I was to be able to assign one of three different Return Code values (any 
>> value) that I can let check to determine if I am running in Development, 
>> Pre-Prod or Production, and then execute steps related to the specific 
>> environment.
Not something I absolutely need since I could write a tiny program for this.

Cameron,

DFSORT has limited ability to set a return code but not the way you want. 
However, I think we can solve your issue quite easily by validating the symbol 
and only generating the steps that needs to run for that Symbolic. Remember 
DFSORT has the ability of reading the system symbols and determine the LPAR it 
is running.

Please send an offline email with your complete requirement and I will show you 
a way to do it.

Thanks,
Kolusu
DFSORT Development
IBM Corporation

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

Re: DFSMSHSM reports.

[Sri Hari Kolusu]

>> I tried that ISMF selection sequence and received this nice message: 
>> IKJ56500I COMMAND RMMISPF NOT FOUND.

Claude,

The RMMISPF REXX is found in library SYS1.SEDGEXE1.  This is an RMM product 
library, but it is available even on systems where RMM is not licensed.

You can modify your ISPF selection panel using this

https://www.ibm.com/docs/en/zos/2.4.0?topic=users-modifying-ispf-selection-panel


or you can concatenate SYS1.SEDGEXE1 to your sysproc concatenation.


Thanks,
Kolusu



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

Re: DFSMSHSM reports.

[Sri Hari Kolusu]

>> When I look at the record layout from the DFSMSHSM Data Areas manual, I was 
>> amazed on the extensive amount of offsets in the DSR - Daily Statistics 
>> Record.

Claude,

Check out ISMF option G

G  Report Generation - Create Storage Management Reports


On the next screen choose option 1 or 2


Thanks,
Kolusu



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

Re: Nanosecond resolution timestamps for HLL's?

[Sri Hari Kolusu]

Michael,

What version of z/OS are you running ?  clock_gettime is available on z/OS V2R5 
and higher 

Thanks,
Kolusu

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