Re: RENT binder option - note of thanks!
+1
On 07/09/2021 22:53, Mike Hochee wrote:
> My intent was definitely not offend anyone with my last post, and if I did
> so, apologies extended.
>
> I view IBM-MAIN as an extremely valuable technical resource. When I perceive
> it being used as a vehicle for one-upmanship it is frustrating, hence my
> strong language. I will try to watch that in any future posts.
>
> Mike
> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
> Behalf Of CM Poncelet
> Sent: Tuesday, September 7, 2021 12:50 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: RENT binder option - note of thanks!
>
> Caution! This message was sent from outside your organization.
>
> To paraphrase Juvenal, "sed quis custodit ipsos custodes?" ("but who guards
> the guards themselves?")
>
> On 06/09/2021 21:15, Mike Hochee wrote:
>> Just a word of thanks to the IBM heavyweights (Jim, Peter, Sri, et. al.) to
>> whom a debt of gratitude is owed for their deep-water expertise, patience,
>> and willingness to share knowledge when they undoubtedly have many other
>> things to work on.
>>
>> I suspect there are many subscriber motivations for posting on this forum,
>> some obvious and simple: wrestling with a problem for days and pulling hair
>> out, making known a potentially serious 'gotcha', or 'Hey, that happened to
>> me!' and therefore sharing the love. There are undoubtedly other motivations
>> for posting that are not so obvious, and disappointingly some of these often
>> muddy the waters and result in very large waste-of-time threads for the vast
>> majority of subscribers, but might however serve to satisfy the personal and
>> non-technical needs of a few folks.
>>
>> Charles' suggestion of a 'Like' button hit the nail on the head. A mechanism
>> for informing personally needy folks that they are no longer enlightening,
>> but instead engaging in an unwelcome behavior. Yes, they did play well with
>> others for a while, but eventually felt a compelling need to make love to
>> their egos in a public forum, a forum designed to assist folks with deeper
>> technical issues.
>>
>> The downside is often evidenced by a dozens of emails rather than 5 or 10.
>> A much more serious downside is that the patience of our excellent IBM
>> resources might eventually wear thin, I know mine would.
>>
>> HTH,
>> Mike
>>
>> --
>> For IBM-MAIN subscribe / signoff / archive access instructions, send
>> email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN .
>>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: RENT binder option - note of thanks!
My intent was definitely not offend anyone with my last post, and if I did so,
apologies extended.
I view IBM-MAIN as an extremely valuable technical resource. When I perceive it
being used as a vehicle for one-upmanship it is frustrating, hence my strong
language. I will try to watch that in any future posts.
Mike
-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf
Of CM Poncelet
Sent: Tuesday, September 7, 2021 12:50 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: RENT binder option - note of thanks!
Caution! This message was sent from outside your organization.
To paraphrase Juvenal, "sed quis custodit ipsos custodes?" ("but who guards the
guards themselves?")
On 06/09/2021 21:15, Mike Hochee wrote:
> Just a word of thanks to the IBM heavyweights (Jim, Peter, Sri, et. al.) to
> whom a debt of gratitude is owed for their deep-water expertise, patience,
> and willingness to share knowledge when they undoubtedly have many other
> things to work on.
>
> I suspect there are many subscriber motivations for posting on this forum,
> some obvious and simple: wrestling with a problem for days and pulling hair
> out, making known a potentially serious 'gotcha', or 'Hey, that happened to
> me!' and therefore sharing the love. There are undoubtedly other motivations
> for posting that are not so obvious, and disappointingly some of these often
> muddy the waters and result in very large waste-of-time threads for the vast
> majority of subscribers, but might however serve to satisfy the personal and
> non-technical needs of a few folks.
>
> Charles' suggestion of a 'Like' button hit the nail on the head. A mechanism
> for informing personally needy folks that they are no longer enlightening,
> but instead engaging in an unwelcome behavior. Yes, they did play well with
> others for a while, but eventually felt a compelling need to make love to
> their egos in a public forum, a forum designed to assist folks with deeper
> technical issues.
>
> The downside is often evidenced by a dozens of emails rather than 5 or 10. A
> much more serious downside is that the patience of our excellent IBM
> resources might eventually wear thin, I know mine would.
>
> HTH,
> Mike
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions, send
> email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN .
>
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: RENT binder option - note of thanks!
To paraphrase Juvenal, "sed quis custodit ipsos custodes?" ("but who
guards the guards themselves?")
On 06/09/2021 21:15, Mike Hochee wrote:
> Just a word of thanks to the IBM heavyweights (Jim, Peter, Sri, et. al.) to
> whom a debt of gratitude is owed for their deep-water expertise, patience,
> and willingness to share knowledge when they undoubtedly have many other
> things to work on.
>
> I suspect there are many subscriber motivations for posting on this forum,
> some obvious and simple: wrestling with a problem for days and pulling hair
> out, making known a potentially serious 'gotcha', or 'Hey, that happened to
> me!' and therefore sharing the love. There are undoubtedly other motivations
> for posting that are not so obvious, and disappointingly some of these often
> muddy the waters and result in very large waste-of-time threads for the vast
> majority of subscribers, but might however serve to satisfy the personal and
> non-technical needs of a few folks.
>
> Charles' suggestion of a 'Like' button hit the nail on the head. A mechanism
> for informing personally needy folks that they are no longer enlightening,
> but instead engaging in an unwelcome behavior. Yes, they did play well with
> others for a while, but eventually felt a compelling need to make love to
> their egos in a public forum, a forum designed to assist folks with deeper
> technical issues.
>
> The downside is often evidenced by a dozens of emails rather than 5 or 10. A
> much more serious downside is that the patience of our excellent IBM
> resources might eventually wear thin, I know mine would.
>
> HTH,
> Mike
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
> .
>
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: 3584 aka TS3500 missing manual
> BTW, my code is 04 44 00 CC CF Radoslaw, https://www.ibm.com/docs/en/ts3500-tape-library?topic=information-sense-key-hardware-error Thanks, Kolusu -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: 3584 aka TS3500 missing manual
W dniu 07.09.2021 o 17:19, Sri h Kolusu pisze: I'm looking for manual "IBM System Storage TS3500 (26th edition, November 2012)" or newer one. Radoslaw, This link shows the various publications of IBM TS3500 tape library publications https://www.ibm.com/docs/en/ts11xx-tape-drive?topic=publications-ts3500-tape-library Now to get the specific publication head over to https://www.ibm.com/resources/publications And click on "Search for Publications" and use the Publication numbers from the first link and you will end with results like this IBM TS3500 with ALMS Introduction and Planning Guide https://www.ibm.com/resources/publications/OutputPubsDetails?PubID=GA32059311 IBM TS3500 with ALMS Operator Guide https://www.ibm.com/resources/publications/OutputPubsDetails?PubID=GA32059408 Somehow I lost the most important part of the title - IBM TS3500 Tape Library *Maintenance Information* (provided with the 3584 Tape Library) I really need it for the TS3500 library, however I have no copy of the manual. I googled for the book and downloaded older version, but my error code is described in newer one. How do I know - there is some dodgy service showing part of the document, but they want my credit card data, so no, thanks. BTW, my code is 04 44 00 CC CF Regards -- Radoslaw Skorupka Lodz, Poland -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: RENT binder option - note of thanks!
:+1: -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: 3584 aka TS3500 missing manual
>>I'm looking for manual "IBM System Storage TS3500 (26th edition, November 2012)" or newer one. Radoslaw, This link shows the various publications of IBM TS3500 tape library publications https://www.ibm.com/docs/en/ts11xx-tape-drive?topic=publications-ts3500-tape-library Now to get the specific publication head over to https://www.ibm.com/resources/publications And click on "Search for Publications" and use the Publication numbers from the first link and you will end with results like this IBM TS3500 with ALMS Introduction and Planning Guide https://www.ibm.com/resources/publications/OutputPubsDetails?PubID=GA32059311 IBM TS3500 with ALMS Operator Guide https://www.ibm.com/resources/publications/OutputPubsDetails?PubID=GA32059408 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 "IF exist"
>>1. SUM FIELDS=NONE - is it just to omit duplicates of SUM records? Radoslaw, I used SUM FIELDS=NONE, to eliminate a cartesian join when matching. For example if you have 10 duplicates for key 'ABC' and 5 duplicates for 'SUM' then the result will be a cartesian join of (10 X 5 = 50 records). So I eliminated the duplicates on key SUM so that it will only produce 10 records for 'ABC' >>2. How to get ABC records with no corresponding SUM record? By default Joinkeys produces only matched records, however it is a simple fix to get the unmatched records using JOIN UNPAIRED. You can find detailed information about the various types of joins here https://www.ibm.com/docs/en/zos/2.4.0?topic=files-join-statement So use the updated control cards. //SORTOUT DD SYSOUT=* //MATCHDD SYSOUT=* //ONLYF1 DD SYSOUT=* //SYSINDD * OPTION COPY JOINKEYS F1=INA,FIELDS=(96,10,A) JOINKEYS F2=INB,FIELDS=(14,10,A) JOIN UNPAIRED,F1 REFORMAT FIELDS=(F1:1,4,?,F1:5) OUTFIL FNAMES=MATCH, INCLUDE=(5,1,CH,EQ,C'B'), BUILD=(1,4,6) OUTFIL FNAMES=ONLYF1, INCLUDE=(5,1,CH,EQ,C'1'), BUILD=(1,4,6) /* Also please go thru the various examples of Joinkeys shown here https://www.ibm.com/docs/en/zos/2.4.0?topic=files-joinkeys-application-examples 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 "IF exist"
Sri Hari, Thank you, now it is really clear and simple. I like the JNFnCNTL DDs. However I have further questions: 1. SUM FIELDS=NONE - is it just to omit duplicates of SUM records? 2. How to get ABC records with no corresponding SUM record? In the example I would also have MARIA record in another report. It can be second ICEMAN run, my input file is not big. Regards -- Radoslaw Skorupka Lodz, Poland W dniu 07.09.2021 o 15:41, Sri h Kolusu pisze: The goal is to get list of NAMEs from ABC record, but only if exist SUM record with same NAME value. Radoslaw, It is quite simple to compare two records using JOINKEYS feature of DFSORT. Here is a JCL which will give you the desired results. //STEP0100 EXEC PGM=SORT //SYSOUT DD SYSOUT=* //INA DD DISP=SHR,DSN=Your Input VB file //INB DD DISP=SHR,DSN=Your Same Input VB file //SORTOUT DD SYSOUT=* //SYSINDD * OPTION COPY JOINKEYS F1=INA,FIELDS=(96,10,A) JOINKEYS F2=INB,FIELDS=(14,10,A) REFORMAT FIELDS=(F1:1,4,5) /* //JNF1CNTL DD * INCLUDE COND=(5,3,SS,EQ,C'ABC') /* //JNF2CNTL DD * INCLUDE COND=(5,3,SS,EQ,C'SUM') SUM FIELDS=NONE /* 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 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: ispf edit macro "HX" line command
My understanding of the OP's initial request was the ability to display a line in hex from within an edit macro, which is probably doing a lot more than just the hex display as it is very easy to do the HX on the line while in edit/view. Unfortunately there are a very limited number of line command options while in edit - unfortunately none of the enhanced edit line commands. This was my solution (reposting for fun) which can then be included in the OP's edit macro: /* -- REXX - * | ISPF Edit Macro to display the requested record in hex in | | an infoline. (Note: no validation is performed) | | | | Syntax: EHEX line| | | | Where EHEX is the macro name (change as you wish) | | line is a record number | | | | Sample: EHEX 4 | * - */ Address ISREdit 'Macro (line)' '(data) = line' line hex = c2x(data) parse value '' with hextop hexbot do i = 1 to length(hex) by 2 hextop = hextop''substr(hex,i,1) hexbot = hexbot''substr(hex,i+1,1) end 'line_after' line '= infoline (hexbot)' 'line_after' line '= infoline (hextop)' Lionel B. Dyck <>< Website: https://www.lbdsoftware.com Github: https://github.com/lbdyck “Worry more about your character than your reputation. Character is what you are, reputation merely what others think you are.” - - - John Wooden -Original Message- From: IBM Mainframe Discussion List On Behalf Of Carmen Vitullo Sent: Tuesday, September 7, 2021 9:13 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: ispf edit macro "HX" line command Like I said I never used this line command, my syntax was not correct but a quick check; ISREDIT (CMD) = 'HX' should work -I've not tested you need to have the cursor positioned to where you need first. I have some examples that position the cursor and perform some tasks but none that would help you here the IBM doc would be helpful for review Carmen On 9/5/2021 3:27 AM, Weizman arbel wrote: >> I do not understand your response, you asked; > I asked about line commnad > >> ISREDIT HX .ZCSR > There was a suggestion > and my response was > that is a line command And it does not work. > Sorry for the misunderstanding > > I did not know the option > "quote original message" > and It's tapping me to comment > > > > > > On Thu, 2 Sep 2021 10:55:00 -0500, Carmen Vitullo wrote: > >> I do not understand your response, you asked; >> >> there is a way to execute "HX" line command > >from edit macro ? >> ISREDIT HX .ZCSR >> >> - is a line command >> >> now you are asking command line ? >> so >> ISREDIT (CMD) - 'HEX' >> >> Carmen >> >> On 9/2/2021 10:14 AM, Weizman arbel wrote: >>> ISREDIT HX .ZCSR should work >>> >>> this is command line >>> and there is Does not exist HX in command line (the command is hex >>> on / hex off) >>> >>> >>> -- For IBM-MAIN subscribe / signoff / archive access instructions, >>> send email tolists...@listserv.ua.edu with the message: INFO >>> IBM-MAIN >>> >> -- >> /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 tolists...@listserv.ua.edu with the message: INFO >> IBM-MAIN > -- > For IBM-MAIN subscribe / signoff / archive access instructions, send > email tolists...@listserv.ua.edu with the message: INFO IBM-MAIN > -- /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*/
3584 aka TS3500 missing manual
I'm looking for manual "IBM System Storage TS3500 (26th edition, November 2012)" or newer one. Any clue? -- Radoslaw Skorupka Lodz, Poland -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: ispf edit macro "HX" line command
Like I said I never used this line command, my syntax was not correct but a quick check; ISREDIT (CMD) = 'HX' should work -I've not tested you need to have the cursor positioned to where you need first. I have some examples that position the cursor and perform some tasks but none that would help you here the IBM doc would be helpful for review Carmen On 9/5/2021 3:27 AM, Weizman arbel wrote: I do not understand your response, you asked; I asked about line commnad ISREDIT HX .ZCSR There was a suggestion and my response was that is a line command And it does not work. Sorry for the misunderstanding I did not know the option "quote original message" and It's tapping me to comment On Thu, 2 Sep 2021 10:55:00 -0500, Carmen Vitullo wrote: I do not understand your response, you asked; there is a way to execute "HX" line command >from edit macro ? ISREDIT HX .ZCSR - is a line command now you are asking command line ? so ISREDIT (CMD) - 'HEX' Carmen On 9/2/2021 10:14 AM, Weizman arbel wrote: ISREDIT HX .ZCSR should work this is command line and there is Does not exist HX in command line (the command is hex on / hex off) -- For IBM-MAIN subscribe / signoff / archive access instructions, send email tolists...@listserv.ua.edu with the message: INFO IBM-MAIN -- /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 tolists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email tolists...@listserv.ua.edu with the message: INFO IBM-MAIN -- /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
Re: DFSORT and "IF exist"
> The goal is to get list of NAMEs from ABC record, but only if exist SUM > record with same NAME value. Radoslaw, It is quite simple to compare two records using JOINKEYS feature of DFSORT. Here is a JCL which will give you the desired results. //STEP0100 EXEC PGM=SORT //SYSOUT DD SYSOUT=* //INA DD DISP=SHR,DSN=Your Input VB file //INB DD DISP=SHR,DSN=Your Same Input VB file //SORTOUT DD SYSOUT=* //SYSINDD * OPTION COPY JOINKEYS F1=INA,FIELDS=(96,10,A) JOINKEYS F2=INB,FIELDS=(14,10,A) REFORMAT FIELDS=(F1:1,4,5) /* //JNF1CNTL DD * INCLUDE COND=(5,3,SS,EQ,C'ABC') /* //JNF2CNTL DD * INCLUDE COND=(5,3,SS,EQ,C'SUM') SUM FIELDS=NONE /* 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: RENT binder option
Paul G wrote Will a module loaded from an APF authorized library and marked RENT but not REFR be placed in write protected storage? Hasn't this been addressed many times, including within this thread? Since there is no such thing as write-protected storage, your question is not answerable as posed. If you are referring to "key 0 storage so that a user key program cannot write into it" then yes. (and there are cases where this would be true even if not from an APF authorized library). If you are referring to "DAT-protected storage" (AKA page-protected storage) then no. Peter Relson z/OS Core Technology Design -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: SMPe GIM30206E
Classification: Confidential An unresolved ERROR Hold will generate RC=8. To eliminate, exclude to PTF with the error hold. DO NOT bypass error hold without a very good reason and understand the implications if you do. HTH, -Original Message- From: IBM Mainframe Discussion List On Behalf Of Wayne Bickerdike Sent: Friday, September 3, 2021 10:01 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: SMPe GIM30206E [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.] It's always advisable to read the HOLDDATA, often these are advisory in nature, could be "check region size is a minimum" or "these parameters are now obsolete and will be ignored". If you are happy that you understand the hold reasons, as previous posters said you can BYPASS. On Sat, Sep 4, 2021 at 9:28 AM Retired Mainframer < 03a485c129c3-dmarc-requ...@listserv.ua.edu> wrote: > At my last site, the Quality Control folks would not accept anything > higher than a four on a job they were required to review. This was a > result of some product teams bamboozling them on 8s and 12s in the > past. Management did not like it when the customers discovered > delivery errors. Once QC was required to review system updates as > part of new security practices, 4 became the limit for SMPE also. > > -Original Message- > From: IBM Mainframe Discussion List On > Behalf Of Mark Jacobs > Sent: Friday, September 3, 2021 10:26 AM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: Re: SMPe GIM30206E > > Look at the SMP/e CAUSER report and see what is/are the hold reasons. > Then it depends on what they are. Bypass or not. There's no need to > exclude them. > Just > expect an RC=8 on the apply. > > Mark Jacobs > > -- > For IBM-MAIN subscribe / signoff / archive access instructions, send > email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > -- Wayne V. Bickerdike -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN ::DISCLAIMER:: The contents of this e-mail and any attachment(s) are confidential and intended for the named recipient(s) only. E-mail transmission is not guaranteed to be secure or error-free as information could be intercepted, corrupted, lost, destroyed, arrive late or incomplete, or may contain viruses in transmission. The e mail and its contents (with or without referred errors) shall therefore not attach any liability on the originator or HCL or its affiliates. Views or opinions, if any, presented in this email are solely those of the author and may not necessarily reflect the views or opinions of HCL or its affiliates. Any form of reproduction, dissemination, copying, disclosure, modification, distribution and / or publication of this message without the prior written consent of authorized representative of HCL is strictly prohibited. If you have received this email in error please delete it and notify the sender immediately. Before opening any email and/or attachments, please check them for viruses and other defects. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: DFSORT and "IF exist"
Gentlemen, Ideed, p. 15 example is very close to my need. Funny fact: last time I read this book just to find details about some trick... contributed by me. :-) I think it is on p. 105 (my name is the eyecatcher). Thank you! Regards -- Radoslaw Skorupka Lodz, Poland W dniu 07.09.2021 o 01:15, Bernd Oppolzer pisze: Thanks, this looks very good; the header on page 14 describes exactly what I had in mind: Join fields from two files on a key In this section, we show some tricks for joining fields from two files in different ways using the JOINKEYS function of DFSORT Radoslaw will sure be able to do the rest for his specific situation Kind regards Bernd Am 07.09.2021 um 00:46 schrieb Joe Monk: I would suggest using DFSORT with JOINKEYS. See the example on page 15 here: https://www.ibm.com/support/pages/system/files/inline-files/$FILE/sorttrck.pdf Joe On Mon, Sep 6, 2021 at 4:24 PM Bernd Oppolzer wrote: Hi Radoslaw, I am not a DFSORT wizard, but: this is similar to a INNER JOIN SQL query; if I had a DB2 system at hand, I would load the SUM and ABC records into two different DB2 tables and do a SELECT statement involving an inner join, this would give the desired result. Maybe the same can be done using a clever MERGE statement using DFSORT, but I don't know the control file syntax for this; I can imagine building the two extracts (SUM and ABC, giving two work files), but then a third MERGE-SORT should combine the two input files and produce output records only, when certain keys in the input files match. Maybe another person knows how to do this with DFSORT; I am almost sure that this is possible. Kind regards Bernd Am 06.09.2021 um 21:41 schrieb Radoslaw Skorupka: I have the following task to do: PS file, VB records, different types. Two types are in scope of interest: SUMeeeNAME123456eee... ABCeNAME123456e SUM and ABC are record identifiers. NAME123456 is 10-char field I need to analyze e is irrelevant content. The goal is to get list of NAMEs from ABC record, but only if exist SUM record with same NAME value. Example: input file SUM JOHN123456 SUM BILL123456 ABC JOHN123456 anything ABC JOHN123456 anythin2 XYZ irrelevant record ABC MARIA23456 eee WW$ another irrelevant record ABC JOHN123456 anythin3 ... NAME in SUM is (10,10) - (offset,lentgh) NAME in ABC is (92,10) RECFM=VB => add 4 to offset desired output: ABC JOHN123456 anything ABC JOHN123456 anythin2 ABC JOHN123456 anythin3 MARIA and BILL are excluded The only idea which come to my mind is to prepare two extracts and then use REXX script, which is far from efficient. Any clue? -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
