Agree, however, it took me less than 2 minutes to add the code for FIELD
card.
I was responding to the original, however, here's the extra code,
OUT2.I = 'RPT FIELD,TABLE,'||Dbname|| VERSION
SAY REC.I
SAY OUT.I
SAY OUT2.I
D
"EXECIO * DISKW OFILE(STEM OUT. FINIS "
"EXECIO * DISKW OFILE(S
>> I tried this in REXX, more familiar for me than DFSORT.
Wayne,
Thanks for the REXX code, however, please note that there is additional
processing. OP wants to generate 2 different command files and make a copy of
the input along with setting a return code if the input file is empty, so that
I would probably use a 26 char ALPHA string and index into that to
avoid the stem variable with the hard coded A to F.
or a Hex to Char based on the suffix value
Been a while since I saw Datacom/DB dictionary output :)
On Fri, Nov 10, 2023 at 1:13 PM Wayne Bickerdike wrote:
> I tried this
I tried this in REXX, more familiar for me than DFSORT.
My code:
Stor = ''
ALPHA.1 = 'A'
ALPHA.2 = 'B'
ALPHA.3 = 'C'
ALPHA.4 = 'D'
ALPHA.5 = 'E'
ALPHA.6 = 'F'
"ALLOC F(IFILE) DA('BDB204.OUTLIST(FROM)') SHR REUSE "
"ALLOC F(OFILE) DA('BDB204.OUTLIST(TO)') SHR REUSE "
"EXECIO * DISKR IFILE
Kolusu, thanks once again! This is now complete and working as I had hoped!
Have a good evening!
Don
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO
I think there is also another option, like below
//STEP1 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN DD DISP=SHR,DSN=YOUR.DATASET
//TOOLIN DD *
>> If the input file has no records to process, I would like to set a return
>> code so I can bypass further processing. Is there a way that I can tweak
>> this SORT input that you gave me to know if the SORTCMD1 file is empty, and
>> set a CC for the step?
Don,
Yes, we can set a return code i
Subject: Re: SORT Help with JFY and SQZ
Hi Kolusu, I have one question about a situation that just came up. If the
input file has no records to process, I would like to set a return code so I
can bypass further processing. Is there a way that I can tweak this SORT input
that you
Hi Kolusu, I
Hi Kolusu, I have one question about a situation that just came up.
If the input file has no records to process, I would like to set a return code
so I can bypass further processing. Is there a way that I can tweak this SORT
input that you gave me to know if the SORTCMD1 file is empty, and set a
Kolusu, thanks...this gave me just what I needed in those files!
Have a wonder-filled day!
Don
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-M
>> In total, I am trying to create three output files:
1. The command file with UTL COPY (which I have) 2. The command file with RPT
FIELD 3. The original input file.
Don,
It is quite simple. Here is a sample job that will give you the desired
results. I assumed that your input has an LRECL=1
Well, I found that I could not release 2 records into the Copy from INREC. So
here is what I did to produce all the output. Kolusu, if you have an easier
way, I would be happy to learn and adapt!
This is what I did to get what I needed:
//SYSINDD *
OPTION COPY
Thanks for the tip, Kolusu; it worked great!
Now, I was trying to create a second command file, without that last comma and
field. For example, the statements you gave me created
-UTL COPY,TABLE,B400-TRANHIST(0003),HST0400A
and for the second file, I need
-RPT FIELD,TABLE,B400-TRANHIST(0003)
Ho
I'm getting the distinct impression that DFSORT is becoming a Swiss Army
knife for the systems programmer, much like a SAS DATA step is.
On Wed, Nov 8, 2023 at 9:04 AM Sri h Kolusu wrote:
> >> Here is my code...can someone help me to get rid of the spaces in the
> name, before the ( value?
>
>> Here is my code...can someone help me to get rid of the spaces in the name,
>> before the ( value?
Don,
You are complicating a simple request. First build Only the fields you need,
and you can add the static characters using LEAD on the SQZ operator.
Also, you don't have to get a seqn
Since listserv emails are always plain-text (well, at least in my experience),
there's no way for you to control the font used at the other end. All you can
send are the text characters; the recipient controls what font is used for
plain-text emails.
For just the reasons you're thinking of I t
Good morning! I am trying to do what I thought was a simple SORT Copy function
to create some commands from an input file, but I am being thwarted by embedded
blanks in my line. Here is the input (Sorry for the formatting issues, I am not
sure how to post fixed-space text):
+1+
17 matches
Mail list logo