Re: DFSORT: Get part of a file between to records

[Sri h Kolusu]

>> I am trying to use DFSORT to get part of a dataset.

Jack,

Please use the following untested JCL which will give you the desired results

//STEP0100 EXEC PGM=SORT
//SYSOUT   DD SYSOUT=*
//SORTIN   DD DISP=SHR,DSN=Your.input.FB.121.byte file
//SORTOUT  DD SYSOUT=*
//SYSINDD *
  OPTION COPY
  INREC IFTHEN=(WHEN=GROUP,
   BEGIN=(26,10,CH,EQ,C'2022/10/08'),
 END=(01,10,CH,EQ,C'A TOTAL OF'),
PUSH=(122:ID=8))

  OUTFIL BUILD=(001,121),
  INCLUDE=(122,8,CH,GT,C' ')
/*

Thanks,
Kolusu


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

Re: ICHEINTY, R_admin and RACROUTE EXTRACT

[Tony Harminc]

On Mon, 10 Oct 2022 at 14:06, Pierre Fichaud  wrote:

> To All,
> I want replace userid passwords in the RACF database.
> I have encrypted password in a flat file.
>

Where did you get such an encrypted password?


> I labored to get ICHEINTY working but finally did.
>
> R_admin was much easier than ICHEINTY.
>

Not surprisingly. ICHEINTY is a pretty low-level interface. R_Admin is
similar to issuing an ALU command.


> For both ICHEINTY and R-admin, I get return and reason codes set to 0.
>
> But the password does not get changed.
>

Does not get changed (i.e. you can still logon with the old password), or
isn't what you expect after your code runs?


> My SYSPROG temporarily made my userid RACF special and still neither
> worked.
> I don't know why.
> My load library is APF-authorized.
> I was in supervisor state for R_admin.
>

You wouldn't get RC=0 if you weren't suitably authorized. I don't believe
SPECIAL makes a difference for this kind of thing.


> I turned to RACROUTE REQUEST=VERIFY,TYPE=REPLACE.
>

Do you mean REQUEST=EXTRACT,TYPE=REPLACE or REQUEST=VERIFY with NEWPASS= ?.

The former is about the closest thing to ICHEINTY for this purpose, but
generally easier to use.

The latter is essentially a user logon-with-password-change, so you have to
supply the current password.

After fixing one thing, it ran cleanly and it worked..
> I was able to login into TSO with the new password.
>

Again, this is fine if you have an encrypted password to bang in there. But
the use cases for this are on the rare side.

You may want to think about what you expect to happen to the user's
password history when you do this.


> Is there something I missed with ICHEINTY and R_admin ?
>

Presumably. I do know that I have used ICHEINTY to replace passwords and
phrases, and it works fine for me.


> Thanks to those who responded before, especially Peter Relson.
>
Regards, Pierre
>

 Tony H.

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

Re: QWS3270 on zPDT

[Binyamin Dissen]

I would assume that is it.

Perhaps Linux is involved?

On Sun, 9 Oct 2022 10:34:12 -0400 Mike Shaw  wrote:

:>Binyamin,
:>
:>The z/PDT emulator supports 3270E connection to the Linux side of the box.
:>If you have a 3270port statement in your IPL profile, it will specify the
:>local port number that you can use to connect to z/OS via the Linux side of
:>the box. That bypasses TCP/IP altogether. Mine specifies port 3270.
:>
:>If you define a new session to QWS3270 and specify the name or IP address
:>of the Linux side of the box and a port number of 3270, you can connect
:>(non-securely) to that port and appear as a channel-attached local 3270 to
:>z/OS.
:>
:>Does that method eliminate the problem you are seeing?
:>
:>Mike Shaw
:>MVS/QuickRef Support Group
:>Chicago-Soft, Ltd.
:>
:>
:>On Sun, Oct 9, 2022 at 7:55 AM Binyamin Dissen 
:>wrote:
:>
:>> On Fri, 7 Oct 2022 10:05:13 -0400 Mike Shaw 
:>> wrote:
:>>
:>> :>We use QWS3270 on a z/PDT and we have not seen that problem. Are you
:>> :>running as a locally attached 3270 device address or through TCP/IP
:>> :>remotely?
:>>
:>> TCP/IP, appears to be thru a gateway.
:>>
:>> :>On Fri, Oct 7, 2022, 6:17 AM Binyamin Dissen > >
:>> :>wrote:
:>>
:>> :>> I am having a strange issue running QWS3270 against a zPDT system (two
:>> :>> different systems). The screen goes completely blank after a few
:>> seconds of
:>> :>> inactivity.
:>>
:>> :>> Quick3270 Secure works fine.
:>>
:>> :>> Anyone else run into this?
:>>
:>> --
:>> Binyamin Dissen 
:>> http://www.dissensoftware.com
:>>
:>> Director, Dissen Software, Bar & Grill - Israel
:>>
:>> --
:>> 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

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

Director, Dissen Software, Bar & Grill - Israel

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

Re: How to use LISTDSI from Rexx under Unix shell?

[Seymour J Metz]

It depends. The original Converter design, back when it was the Interpreter 
half of the R/I, included detecting conflicting keywords. However, when IBM 
added quoted keywords, e.g., AMP='RECFM=FB', that fell to the wayside for those 
new parameters. For new unquoted keywords the checking is still in effect, 
AFAIK.


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


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Paul Gilmartin [042bfe9c879d-dmarc-requ...@listserv.ua.edu]
Sent: Sunday, October 9, 2022 9:17 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: How to use LISTDSI from Rexx under Unix shell?

On Sun, 9 Oct 2022 21:07:57 +, Farley, Peter x23353  wrote:
>>>
>>If it doesn't work it deserves an SR.  Can you Edit/View files so tagged with 
>>ISPF?
>
>IIRC I have to use the 3.17 Unix directory browser and a "/" to execute "View 
>ASCII/UTF8" or "Edit ASCII/UTF8", as I am unfamiliar with the 3.17 line 
>commands to do that (VA or EA maybe?  I really need to go look those up and 
>start using them), but yes, I CAN view or edit them when so tagged.
>
In my experience, a file tagged 819 or 1208 and FILEDATA is recognized and 
processid
by ISPF; I needn't specify EA or VA.

>>>I originally did not think of using LRECL/RECFM overrides on the SYSEXEC 
>>>allocation because I thought they would be incompatible with the PATH 
>>>keywords.
>>>
>>I'd say you underestimate IBM, but I've had too much unpleasant experience 
>>overestimating IBM in such matters.  BTW, DCB=(LRECL,...) is incompatible 
>>with PATH.  WHY!?
>
>Good question, but probably not one to which we can get a straight answer.  At 
>a guess, old and crotchety JCL interpretation code that no one wants to touch 
>(if it ain't broke, don't fix it), while the "outside a DCB" keywords are 
>probably in newer OCO code that is "easier" (FSVO "easier") to maintain.
>
I suspect the JCL Converter has no ability to detect a conflict between one 
option and
a suboption of another option.

>>> IBM could provide better and more complete examples of accessing Unix
>>> files from a TSO or batch task
>+1...
>N t just HLASM SYSLIB, but also Binder SYSLIB and any/all HLL compiler 
>SYSLIB's, STEPLIB/JOBLIB, et alia: Basically, anywhere a Unix directory can 
>validly be used as a library.  Such usage probably warrants a sub-chapter of 
>its own, or at least a page or two somewhere prominent.
>
I believe Binder is exceptional.  It (necessarily) supported UNIX files in an 
intervel when
Allocation supported PATH but access methods didn't.  In consequence:

o Binder does not support non-trivial concatenations containing UNIX PATHs.

o Binder ignores FILEDATA and
  - treats SYSLIN as BINARY
  - treats SYSPRINT as TEXT.

I consider it indolent design that Binder does not issue a Warning if the 
programmer
codes a conflicting FILEDATA.  I've whined about that here and an IBM 
representative
(Peter?) has said that if I supply invalid input I should not expect any 
specific
behavior such as a message.  That's below the product quality I expect of IBM.

o Binder does not use BPAM, I believe in part because BLDL can't deal with
  UNIX filenames.

>Suggested (sub)chapter title: "Using Unix Directories as libraries".  JCL 
>Programmer's Guide perhaps, with sufficient examples to cover all the bases 
>for both TSO and batch execution.
>
>Actually, I don’t think I've even looked at the JCL Programmer's Guide in too 
>many years, so maybe I should go see what's there these days.
>
>>>   ... that show which DD keywords are compatible with Unix allocations, but 
>>> I won't hold my breath waiting for such to be created.  There may be some 
>>> table(s) somewhere (maybe in the JCL reference manual?) that show 
>>> compatibility, but it's my fault that I haven't looked for them yet.
>>>
>>There used to be such a matrix, in the JCL Ref., IIRC.  Perhaps it outgrew 
>>page size and IBM
>>simply dropped it in favor of scattered "Relationship to other parameters" 
>>sentences.

--
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: How to use LISTDSI from Rexx under Unix shell?

[Seymour J Metz]

Your point? The behavior in question was defaulting to card image, which was 
never a thing prior to SMS.


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


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Paul Gilmartin [042bfe9c879d-dmarc-requ...@listserv.ua.edu]
Sent: Sunday, October 9, 2022 10:28 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: How to use LISTDSI from Rexx under Unix shell?

On Sun, 9 Oct 2022 12:51:07 +, Seymour J Metz wrote:

>The point that I am trying to make is that the behavior in question did not, 
>as claimed, go back half a century.
>
A half century ago, attributes specified to Allocation dominated attributes
intrinsic to the data set, and were in turn dominated by attributes coded
in the DCB.  That behavior has been preserved in the transition from
3350 to 3390, and to UNIX files.

>
>From:  Paul Gilmartin
>Sent: Sunday, October 9, 2022 8:40 AM
>
>On Sun, 9 Oct 2022 04:46:17 +, Seymour J Metz  wrote:
>
>>Anachronism alert! You wrote "Attribute overrides have worked that way for a 
>>half century, longer than MVS UNIX has existed." Half a century ago there was 
>>no PATH and no SDB. In fact, there was no SYSEXEC, only SYSPROC.
>
>And there was no 3390, but BLKSIZE=3120 still works.
>
>What point are you trying to make?
>
>
>From: f Paul Gilmartin
>Sent: Saturday, October 8, 2022 9:10 PM
>>
>In REXX, long ago, prior to SDB. I used to ALLOCATE PATH(whatever) ,
>LRECL(199) RECFM(V,B) ...
>and the REXX RTL would choose a reasonable BLKSIZE.

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

ICHEINTY, R_admin and RACROUTE EXTRACT

[Pierre Fichaud]

To All,
I want replace userid passwords in the RACF database.
I have encrypted password in a flat file.

I labored to get ICHEINTY working but finally did.

R_admin was much easier than ICHEINTY.
For both ICHEINTY and R-admin, I get return and reason codes set to 0. 

But the password does not get changed.
My SYSPROG temporarily made my userid RACF special and still neither worked.
I don't know why.
My load library is APF-authorized.
I was in supervisor state for R_admin.

I turned to RACROUTE REQUEST=VERIFY,TYPE=REPLACE.
After fixing one thing, it ran cleanly and it worked..
I was able to login into TSO with the new password.  

Is there something I missed with ICHEINTY and R_admin ?
Thanks to those who responded before, especially Peter Relson.
Regards, Pierre


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

Re: DFSORT: Get part of a file between to records

[Mike Schwab]

IEBGENER RECORD statement?
https://www.ibm.com/docs/en/zos/2.1.0?topic=statements-record-statement

On Mon, Oct 10, 2022 at 10:17 AM Jack Zukt  wrote:
>
> Hi,
> I am trying to use DFSORT to get part of a dataset.
> We are directing the output of an ABAR job to a dataset and I would like to
> get the log for a specified date. Every LOG begins and ends with specific
> strings, and I would like to get those records and all the records in the
> middle, ignoring all the other ones.
> So, the first group record would have a string like
> (26,10,CH,EQ,C'2022/10/08')
> and the last record group would have a string like
> (01,10,CH,EQ,C'A TOTAL OF').
> I need to get those two records, all the records in between those and
> ignore all the other ones.
> I am trying to use
> OUTFIL FNAMES=OUT#F1,
>IFTHEN=(WHEN=GROUP,
>BEGIN=(26,10,CH,EQ,C'2022/10/08'),
>IFTHEN=(WHEN=ANY,
>   PUSH=(1:1,121),
>END=(01,10,CH,EQ,C'A TOTAL OF'),
> But this is copying all the records to the output file.
> I am still going through the manual but I would appreciate any help because
> I do feel like I am looking at the wrong place.
> TIA
> Jack
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN



-- 
Mike A Schwab, Springfield IL USA
Where do Forest Rangers go to get away from it all?

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

Re: How to use LISTDSI from Rexx under Unix shell?

[Paul Gilmartin]

On Mon, 10 Oct 2022 11:39:59 -0400, Tony Harminc wrote:

>On Sun, 9 Oct 2022 at 21:17, Paul Gilmartin wrote:
>
>What does it mean for allocation to support PATH if access methods didn't
>support it? How could such an allocation/DDname ever be used by a program?
>Would it have to retrieve (by some undocumented scheme?) the file name, and
>then use standard UNIX I/O on it?
> 
(I'mguessing) the documented scheme is a Dynalloc Info request and that Binder
still works that way.  Necessarily for SYSLIB  since it may contain member names
invalid for BLDL (perhaps longer than 8 characters) thus inaccessible by BPAM.


-- 
gil

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

Re: How to use LISTDSI from Rexx under Unix shell?

[Tony Harminc]

On Sun, 9 Oct 2022 at 21:17, Paul Gilmartin <
042bfe9c879d-dmarc-requ...@listserv.ua.edu> wrote:

> [...]
> I believe Binder is exceptional.  It (necessarily) supported UNIX files in
> an intervel when
> Allocation supported PATH but access methods didn't.


What does it mean for allocation to support PATH if access methods didn't
support it? How could such an allocation/DDname ever be used by a program?
Would it have to retrieve (by some undocumented scheme?) the file name, and
then use standard UNIX I/O on it?

  In consequence:
>
> o Binder does not support non-trivial concatenations containing UNIX PATHs.
>
> o Binder ignores FILEDATA and
>   - treats SYSLIN as BINARY
>   - treats SYSPRINT as TEXT.
>

It sounds as though that's what you're saying. I guess I don't remember
that stage of UNIX on (presumably) OS/390.

Tony H.

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

DFSORT: Get part of a file between to records

[Jack Zukt]

Hi,
I am trying to use DFSORT to get part of a dataset.
We are directing the output of an ABAR job to a dataset and I would like to
get the log for a specified date. Every LOG begins and ends with specific
strings, and I would like to get those records and all the records in the
middle, ignoring all the other ones.
So, the first group record would have a string like
(26,10,CH,EQ,C'2022/10/08')
and the last record group would have a string like
(01,10,CH,EQ,C'A TOTAL OF').
I need to get those two records, all the records in between those and
ignore all the other ones.
I am trying to use
OUTFIL FNAMES=OUT#F1,
   IFTHEN=(WHEN=GROUP,
   BEGIN=(26,10,CH,EQ,C'2022/10/08'),
   IFTHEN=(WHEN=ANY,
  PUSH=(1:1,121),
   END=(01,10,CH,EQ,C'A TOTAL OF'),
But this is copying all the records to the output file.
I am still going through the manual but I would appreciate any help because
I do feel like I am looking at the wrong place.
TIA
Jack

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