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"
>> 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
>> 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
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
>> 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
>> 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
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,
>> 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
>> 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.
>> 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
>> 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
>> 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
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
>>. 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
>> 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
>> 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
>> 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
>> 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)
*
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:"
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
>> 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
>> 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
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
>> 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
>> 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
>> 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
>> 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
>> I'd like to do something like // SET FOO= 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=
Will result in
2
>> 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
>> 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
>> 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
>> 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
>> 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
>> 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
>> 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
>> 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.
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
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
>> 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
>> 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
>> 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
>> 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
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
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
>>> 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
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
>> 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 /
>> 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
>> 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)
49 matches
Mail list logo