Re: DFSORT and SS search
Paul Gilmartin wrote: >Welcome back. I've missed you since February. Many thanks. Was busy with projects which kept me too busy and somewhat sidetracked ... I also missed being on the discussion lists where I can get advice and give assistance where I can.. >That absolutely works, but it's less intuitively legible than (e.g. in Rexx): >say '01'x || '1' || '05'x || 'ABCDE' >(I've wished for similar facility in JCL.) I agreed. If a parameter can contains mixed format(s), it would be very helpful. Same as for output where I want to print out things in numeric, hex, char, hex, etc. all in one row from input. Something like IDCAMS PRINT ... DUMP where one half is hex and other half is char. >What if there's a 30-character key containing only one nonprintable character? Ouch ... in COBOL, you get a S0Cx abend. Hard to find that record out of a few millions records. Been There and Got The T-Shirt. Groete / Greetings Elardus Engelbrecht -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: DFSORT and SS search
Sri h Kolusu wrote: >Unless this is a trick question, isn't it simple to have the entire search >string in HEX since all the fields are next to each other? Not a trick question. This is more for my users who are too lazy or dumb to use a mix of hex and characters... ;-) >Something like this >//SYSINDD * > OPTION COPY > INCLUDE COND=(1,500,SS,EQ,X'01F105C1C2C3C4C5') Many thanks. I eventualy used that X'???' format. I don't mind to do all the char to hex conversion myself. There is actually a REXX function just for that. Or I can just enter all fields in Char in a dataset and then use HEX DATA for a copy/paste into DFSORT/ICETOOL JCL. I initially wondered if that is possible using mixed formats ala REXX, but then I remembered OPTION VLSCMP which included short records too where OPTION VLSHRT totally sidetracked me. Eventually I finally got all my results. Many thanks! Groete / Greetings Elardus Engelbrecht -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
DFSORT and SS search
Good day to all DFSORT gurus,
Ok, I was not into these discussion lists for a time, was busy with 1001 other
things..
Question: Is it possible to use SS ('Substring Search') where I search for
variety of formats, like this one:
With input (sitting "anywhere" in a record):
3---
1 ABCDE
0F0CCDDC
11581797
... I want to use SS to search for above input:
+1+2+3+
1,500,SS,EQ,X' 'C'1'X' 'C'ABCDE'
F6FFF6EE6CD6E707C7F7E707C7C7
1B500B22B58B7D1D3D1D7D5D3D12345D
I want to search for four terms: X'01' and C'1' and X'05' and C'ABCDE'. All
these 4 terms are next to each other.
You Assembler gurus should immediately see that I want search 4 terms where the
term 1 and term 3 are having the lengths of term 2 and term 4.
I have a source file where I am having different such sets of 4 terms, like
term 2 is 3 characters long and term 4 is say 3 characters long, but I need to
select only these records where term 2 is 1 character long and term 4 is 5
characters long.
Is it possible with DFSORT (and ICETOOL)?
This is easy to program, but dataset is large (define "large" ;-D ) and I want
to have one single pass with several SS statements.
Many thanks in advance.
Groete / Greetings
Elardus Engelbrecht
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Migrated Data Set Recall Messages
Ed Jaffe wrote: >One of our developers claims that at places he's worked before, messages are >written to joblog and/or syslog when a migrated data set is being recalled. Can he/she prove it? Do you have any sample of such messages? >No such messages are being written here (other than to TSO/E users). >Batch jobs just hang on allocation until the recall completes. Indeed. Batch jobs are putting in a limbo until HSM completes its homework. Even if you cancel that job, HSM will still continue to recall all the datasets. TSO ids will get those messages, it is somewhat annoying if you recall 1000 datasets, but that is WAD. >Do these recall messages actually exist? How do we get them? An option in HSM? >A well-known, popular exit? H, if that is possible, this will be really useful, but not for all and every recalls. Groete / Greetings Elardus Engelbrecht -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Desjardins POC More Details
Mike Shorkend wrote: >That's Israel time >On Thu, 6 Feb 2020, 19:01 Mike Shorkend wrote: >> I need to be off the call by 1830 ... snip ... Sorry Mike, but should IBM-MAIN see all your private chatting? ;-D Groete / Greetings Elardus Engelbrecht -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: RES: RES: Rexx or similar to clone a RACF user?
Sri h Kolusu wrote:
>Here is the JCL that I was talking about. You pass the the exiting userid
>that you need to clone as a parm named BASEUSER and the new userid as another
>parm CLONUSER. I split the statements into different files , so that you can
>run them in the sequence you want to.
Amazing! That is a magic wand with all these useful IFTHEN, BUILD and OUTFIL
statements. (Yes, zSecure or DBSYNC are good for cloning ids, but one more tool
can't hurt at all!)
One correction, - for Ituriel do Nascimento Neto - if you don't mind please:
> IFTHEN=(WHEN=(5,4,CH,EQ,C'0270'),
> BUILD=(1,4,
>C' ALTUSER ',
>JP2,C' OMVS(UID(',15,10,C') ',
>C' HOME(',30,10,C') ',
>C' PROGRAM(',1054,8,C') )')),
Should rather be this:
IFTHEN=(WHEN=(5,4,CH,EQ,C'0270'),
BUILD=(1,4,
C' ALTUSER ',
JP2,C' OMVS(AUTOUID ',
C' HOME(',30,??,C') ',
C' PROGRAM(',1054,8,C') )')),
AUTOUID should rather be used if you want to have RACF generate UID value
instead of copying/cloning the UID.
The HOME is not 10 characters long, it is just over 1000 characters long. You
need to change the '??' to something useful.
See for description of the IRRDBU00 output (watch the wrap):
https://www.ibm.com/support/knowledgecenter/SSLTBW_2.4.0/com.ibm.zos.v2r4.icha300/usr.htm#idg66559
Of course, it is up to you to accept Sri h Kolusu magic wand just as it is
provided.
Groete / Greetings
Elardus Engelbrecht
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: z/OS 2.1 to 2.4
Jousma, David wrote: >Elardus, yea, I took quite a bit of vacation this summer Grrr, I'm so jealous! ;-) But, I have been in a lot of projects and am now just lurking sniffing out the IBM-MAIN and other listserv posts on their websites... >I always suspend delivery of IBM-MAIL mail during that time, otherwise my >outlook email box would probably fill up. :) Due to quantity of daily posts of IBM-MAIN, I have turned of e-mails from IBM-MAIN. We at our work have a limit of 2GB on the Outlook Server to encourage people to properly manage their mails. (We once have years ago GroupWise (called 'GroupStupid' tongue in cheek) and later Zimbra (called 'Zebra')) Ok, back to this thread - I really hope you can sort out the problem with your vendor. If you have any good news, please be kind to share it. Good luck. (While I'm also waiting for z/OS v2.4 to be made available... ;-D ) Groete / Greetings Elardus Engelbrecht -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: z/OS 2.1 to 2.4
Jousma, David wrote: >This is the first I have seen this! That is good news. That is indeed good news. APAR OA53355 and APAR OA56180 were discussed several times on IBM-MAIN. Perhaps you have missed that? Groete / Greetings Elardus Engelbrecht -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: SMF PUZZLE
willie bunter wrote: >The file is PS. I haven't tried type 42. I will give it a shot. >I am trying to find the user/job which created a dsn. I run my trustworthy >SMF job which looks for recids 05 14 15 17 18 61 62 63 64 65 66 67 68 136 139 >163. If you have setup your profiles correctly [1] and you still have the SMF records for that creation date/time, try RACF SMF record type 80. >The job showed the job which read the dsn & deleted it but it doesn't show who >or which job created it. Look in SMF 30 (SMF30RUD) to see who is the OWNER of that job who created that dataset. (I mentioned this, since you said you could not find SMF recs 118/119 for this - FTP transfers) HTH! Groete / Greetings Elardus Engelbrecht [1] - If you have given to RACF this command altdsd '???.*' audit(all(READ)) BEFORE that creation date/time. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: CPU time cost of dynamic allocation
Charles Mills wrote: >I am seeing a CPU time of about .0025 CPU seconds per allocation on a z196. >The entire job lock, stock and barrel uses (according to IEF032I) .00 CPU >seconds. What type of CPU time? SMF30CPT - TCB? SMF30CPS - SRB? SMF30ISB – SRB CPU time for initiator work? SMF30RCT – Region control task CPU time? SMF30ICU_STEP_INIT – Initiator TCB time? ... etc ... Please clarify your observation. Groete / Greetings Elardus Engelbrecht -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: ICETOOL / DFSORT Substring Search Limit?
Sri h Kolusu wrote: >When you used INCLUDE COND=(5,1000,SS,EQ,X'D67DFBB0113C7464') and have VLSHRT >option, VLSHRT tells DFSORT to treat any comparison involving a short field as >false. In this case, any records less than 5+1000 = 1005 bytes are not >included. >When you used INCLUDE COND=(5,8000,SS,EQ,X'D67DFBB0113C7464') and have VLSHRT >option, So VLSHRT tells DFSORT to treat any comparison involving a short field >as false. In this case, any records less than 5+8005 = 8005 bytes are NOT >included. >So in the 2nd case unless the records have a minimum length of 8005 , DFSORT >is not going to include them and hence the reason for less number of records. This makes sense, so the records must be x long this long before being included for comparision. Thanks, now I understand. >You need to use VLSCMP instead of VLSHRT >VLSCMP tells DFSORT that you want to temporarily replace any missing compare >field bytes with binary zeros, thus allowing the short fields to be validly >compared (the binary zeros are not kept for the output records). Thanks for this magic wand: I used this (on another dataset where I certainly know there are more of this STCK timestamp): OPTION VLSCMP OUTFILE FNAMES=PRINT,INCLUDE=(5,8000,SS,EQ,C'D67DFBB0113C7464') .. and got this nice output: ICE054I 0 RECORDS - IN: 1538864, OUT: 1538864 ICE227I 0 PRINT: DELETED = 1399576, REPORT = 0, DATA = 139288 ICE228I 0 PRINT: TOTAL IN = 1538864, TOTAL OUT = 139288 Many thanks for SORTING me out! I really appreciate it much. Thanks Sri and please keep it up! Groete / Greetings Elardus Engelbrecht -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: dfsort: Sort job to get price variance records
Sri h Kolusu wrote: >Ron, >All of your previous queries showed that you are using the competitive product >to DFSORT. If that is still true, I would really appreciate if you can stop >tagging the questions as DFSORT questions. Good point. I remember your post in Feb 2016: "OP's Shop uses Competitive product of DFSORT and so your suggestions about using DFSORT symbols which may or may not be supported and we don't want another discussion about using them incorrectly." To Ron, please say "SynSort" or whatever the product name, then the right people on IBM-MAIN may pick up your post and assist you. Just the word 'dfsort' will cause them NOT to assist you at all. >Giving you the benefit of doubt, I am going to list the procedure(not code the >entire JCL for you) to get the desired results. Ron, did you attempted to produce the output? If so, please post the FULL job (program name and DD as well as input statements) and all error messages you got. In this way, the right people associated with your product can pickup your post and try to assist you. Groete / Greetings Elardus Engelbrecht -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
ICETOOL / DFSORT Substring Search Limit?
Hi to all DFSORT gurus! Is there a limit of usage of Substring Search Limit beside of what is already documented? If I say use using ICETOOL: INCLUDE=(5,1000,SS,EQ,X'D67DFBB0113C7464'), then I got the expected quantity of lines and these: ICE201I A RECORD TYPE IS V - DATA STARTS IN POSITION 5 ICE150I 1 VLSHRT NOT USED FOR SORT, MERGE, INCLUDE, OMIT OR SUM STATEMENT FIELDS ... ICE210I 0 PRINT: EXCP USED, LRECL = 32756, BLKSIZE = 32760, TYPE = VB ... ICE055I 0 INSERT 0, DELETE 0 ICE054I 0 RECORDS - IN: 1787271, OUT: 1787271 ICE227I 0 PRINT: DELETED = 1787268, REPORT = 0, DATA = 3 ICE228I 0 PRINT: TOTAL IN = 1787271, TOTAL OUT = 3 ICE052I 0 END OF DFSORT Using the SAME input and with INCLUDE=(5,8000,SS,EQ,X'D67DFBB0113C7464'), then I got no output and these messages: ICE201I A RECORD TYPE IS V - DATA STARTS IN POSITION 5 ICE150I 1 VLSHRT NOT USED FOR SORT, MERGE, INCLUDE, OMIT OR SUM STATEMENT FIELDS ... ICE210I 0 PRINT: EXCP USED, LRECL = 32756, BLKSIZE = 32760, TYPE = VB ... ICE055I 0 INSERT 0, DELETE 0 ICE054I 0 RECORDS - IN: 1787271, OUT: 1787271 ICE227I 0 PRINT: DELETED = 1787271, REPORT = 0, DATA = 0 ICE228I 0 PRINT: TOTAL IN = 1787271, TOTAL OUT = 0 ICE174I 0 NO DATA RECORDS FOR AN OUTFIL DATA SET - RC=0 ICE052I 0 END OF DFSORT Question: In (p1,m1,SS,EQ,constant) how far apart should the p1 and m1 be? Or rather, what is the maximum size of m1? I am asking this despite it is indeed documented that "m1 specifies the length of the field to be tested. The length can be 1 to 32752 bytes." Just curious of course if you don't mind please. Of course I may Thanks in advance! Groete / Greetings Elardus Engelbrecht -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: ICETOOL problem with variable records
Sri h Kolusu wrote:
>> I am having problems with variable record lengths where minimum record
>> length is 211, 4 (RDW) plus 207 characters. The rest of the record is
>> varying from 0 (zero) to max of LRECL=32756. I am just interested in the
>> first 1000 characters of the input records. (See below for the input record
>> sample)
First thing first - Where I said 211, it musts be 210 and where I said 207, it
must be 206.
Browsing the input dataset, it starts at 1 and last column ends at 206 and then
there are more columns if present up to 32756 columns as per LRECL.
Documentation shows offsets as starting at 0 and the variable part is starting
at 207.
ICETOOL statements for first few columns starts on column 5 (4 for RDW + 1).
Pretty confusing, eh... ;-)
>There are couple of ways to handle.
I was also considering the VTOF statement as a work-around:
As documented: "By default, VTOF or CONVERT automatically uses VLFILL=X'40'
(blank fill byte) to allow processing of variable-length input records which
are too short to contain all specified BUILD or OUTREC fields. You can specify
VLFILL=byte to change the fill byte."
> You can pad the 712 byte with a SPACE. That would allow CSVARDATA contents
> as is if a record happens to have all the 550 bytes
>//VLSHCNTL DD *
> OPTION COPY
> INREC OVERLAY=(712:X)
That resolved my problem! This is the magic solution! Thanks!
I eventually ended up on this:
...
HEADER('Shunted')ON(189,1,CH)-
HEADER('CSVARDATA') ON(211,500,CH)
/*
//VLSHCNTL DD *
OPTION VLSHRT,COPY
INREC OVERLAY=(712:X)
/*
Which shows me this correct output:
Activity Status Shunted CSVARDATA
-- --- --
MQPUTC N AMD 4
PHASE1 C N
PHASE2 C N
MQGETC N
MQPUTPRP C N AMD MQSTR
Records for PHASE1, PHASE2 and MQGET are exactly 206 bytes long and were filled
up by INREC OVERLAY=(712:X) so it could be included in CSVARDATA to avoid
ICE218A.
The other two lines are containing hex values in CSVARDATA. The people needing
these reports need to issue SET HEX ON to see the actual values.
> You can INCLUDE records with a minimum length of 711. Since the input is a
> VB file you can validate the RDW and INCLUDE those Records
>//VLSHCNTL DD *
> OPTION COPY,VLSCMP
> INCLUDE COND=(1,2,BI,GE,711)
Thanks. I will also look at that.
Thanks again Sri for your very helpful and kind assistance. I really appreciate
it much!
Kudos to you!
Groete / Greetings
Elardus Engelbrecht
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
ICETOOL problem with variable records
To all DFSORT gurus,
I am having problems with variable record lengths where minimum record length
is 211, 4 (RDW) plus 207 characters. The rest of the record is varying from 0
(zero) to max of LRECL=32756. I am just interested in the first 1000 characters
of the input records. (See below for the input record sample)
This is the JCL:
//MQ EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//RAWMQDD DISP=SHR,DSN=
//SORTSMF DD DISP=(NEW,DELETE,DELETE),SPACE=(CYL,(500,500,0))
//VREPTDD SYSOUT=*,LRECL=1000
//TOOLIN DD *
SORTFROM(RAWMQ) TO(SORTSMF) USING(VLSH)
DISPLAY FROM(SORTSMF) LIST(VREPT) -
NOCC -
BETWEEN(1) -
TITLE('Extract of MQ CSQ1LOGP data') -
DATE(4MD/) -
TIME(24:)-
PAGE -
BLANK-
WIDTH(1000) -
HEADER('Date and Time') ON(5,21,CH) -
HEADER('Time Diff') ON(26,7,CH) -
HEADER('Time Log') ON(33,8,TC4,E'99:99:99.99') -
HEADER('User Id')ON(61,8,CH) -
HEADER('Time Unit') ON(69,8,TC4,E'99:99:99.99') -
HEADER('Resource') ON(77,8,CH) -
HEADER('Conn Type') ON(85,8,CH) -
HEADER('Conn Id')ON(93,8,CH) -
HEADER('Unit Work') ON(101,3,CH)-
HEADER('Q Mgr') ON(108,4,CH)-
HEADER('CSQ Queue name') ON(112,48,CH) -
HEADER('Activity') ON(180,8,CH)-
HEADER('Status') ON(188,1,CH)-
HEADER('Shunted')ON(189,1,CH)-
HEADER('CSVARDATA') ON(212,500,CH)
/*
//VLSHCNTL DD *
OPTION VLSCMP,COPY
/*
Whenever I include last field starting with 212 and omit that INREC or OUTREC
or similar statements with either VLSHRT or VLSCMP, then I get this example
message:
ICE218A 3 212 BYTE VARIABLE RECORD IS SHORTER THAN 711 BYTE MINIMUM FOR
(sic, yes, there is nothing after FOR)
If I totally omit the last field, then my job go RC=00.
I tried this statement, but the part from column 212 is unconditionally padded
fully with a blank for ALL records. Not good.
INREC IFTHEN=(WHEN=(1,2,BI,LT,999),OVERLAY=(212:X))
Question: what can I do to pad to the righ witht a blank, the part from column
212 for up to 500 characters without loss of data?
I have tried out without success with varying combination of VLSHRT, OUTFILE,
OUTREC, etc.
I have RTFM on 'Short control fields' in z/OS DFSORT Getting Started and z/OS
DFSORT: Application Programming Guide'. IBM-MAIN and Google provided some
hints, but I could not get the results I want.
Thanks in advance.
Groete / Greetings
Elardus Engelbrecht
First record is longer than 207 (211 with 4 char RDW), but second is exactly
207 (211 with 4 char RDW). You can see there is absolutely no characters or
padding to the right. This is given by MQ reporting utility.
Below snippet is starting at column 180:
Command ===>
8+9+0+1
F+F+F+F
8+9+0+1
--
T CN.2...AMD ...
E444CD2F000CDC44000
300035B200100011440
--
E1 CN.2.0.
CF44CD2F0F0
510035B23010001
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: JCL disp on abend
Elaine Beal wrote: >We have a job that is coded as follows- >step1 - idcams repro dummy in to file1,disp=(mod,catalg) >step2 repro above (dummied) file1 , disp=(old,delete,keep) to file2 >disp=(,catlg) >when we get a B37 on step2 file2, file1 is deleted even though it has >disp=(old,delete,keep) The info you supply is too little for IBM-MAIN members to make a suggestion what could be wrong. Please post the JCL and all the messages. Groete / Greetings Elardus Engelbrecht -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: RSH Consulting - RACF Survey - June 2019 - Performance - ERV
Robert S. Hansel (RSH) wrote: >Those of you who do not participate in RACF-L and are not familiar with RSH's >monthly RACF surveys might be interested in the results of our most recent >survey on PARMLIB(IEAOPTxx) ERV Enqueue Residency parameter settings since it >effects more than just RACF. >The results of our survey have been posted to our website. Go to the "RACF >Center" webpage, click on "RSH RACF Surveys", and then click on the survey >link itself. Many thanks to the 39 individuals who participated. >www.rshconsulting.com I am one of those lucky 39 persons ( ;-D ) , but am curious to that one answer where ERV is smaller than 500 (less than the default of ERV.) Can that person please clarify anonymously why, oh why that is fewer than the big blue's default of 500? TIA! Groete / Greetings Elardus Engelbrecht From KC bookies: ERV=xx - Specifies the number of CPU service units that an address space or enclave is allowed to absorb when it is possibly causing enqueue contention. Value range: 0-99 (Default: 500) -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Dynamic LINKLIST impact
Joel C. Ewing wrote: >Have things changed? There has been considerable discussion on Dynamic >LNKLIST in the past on this list. Yes, I remember those discussions. >Basically "ACTIVATE" was always safe, provided it is OK that newly started >address spaces use the new LNKLST and old address spaces continue with the >previous LNKLST concatenation until restarted. But "UPDATE" has always been >advertised as with risk. >"Be careful when you use UPDATE. Updating an address space while a program in >that address space is fetching a module can cause the fetch to fail or to >locate an incorrect copy of the module. The system does not attempt to verify >the validity of the data for UPDATE". I agree 100% with that quote. >I was always lucky when I did LNKLST UPDATE, but I also did this with the >awareness that if it did cause some critical address space to fail that an IPL >might be the safest recovery -- that there was a nonzero, hopefully low, >probability that using this to avoid a service interruption could instead >cause a bigger service interruption. I was also lucky, but when we do a LNKLST UPDATE, we rather do it after hours if we simply cannot do a IPL. >As the nature of potential UPDATE-induced failures is highly dependent on >address space activity, ... Agreed. First thing IPL, if not possible, do that UPDATE during a quit time while taking an extreme risk that something may go down the drain... As always YMMV. I still want to see why the OP wants that route. Thanks Joel for your kind comments. Groete / Greetings Elardus Engelbrecht -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Dynamic LINKLIST impact
Peter wrote: >Is it recommended to do a dynamic LINKLIST during a peak production hours ? Rather not, but this is not my dog. >Will there be any impact to the system during that time as we stop LLA as well. Why do you want to stop it? What are you trying to solve? Why not rebuild a new linklist table and then do a refresh on that new table? Something like this in a PROGxx member: LNKLST DEFINE NAME(A) COPYFROM() LNKLST ADD NAME(A) DSN(.LOAD) LNKLST ACTIVATE NAME(A) LNKLST UPDATE JOB(*) >Please share me your opinion on this and your thoughts. I would practise first on a sandbox and then do the same on to a prod LPAR during AFTER HOURS! Groete / Greetings Elardus Engelbrecht -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Batch REXX, Consoles & SYSPLEX
Giliad Wilf wrote: >>I think you may have already have a CONSOLE with the same name somewhere >>active? Check it out with D EMCS command. >Could be. Consoles are ENQ-ed exclusively on QNAME=SYSZCNZ and >RNAME=CONNAME#consolename. >One has to issue... D GRS,RES=(SYSZCNZ,CONNAME#*) ... and look for possible >sysplex-wide conflicts ... Ah, yes. Thanks. It was a lng time ago I looked around in those GRS parmlib members. Seemed there is an ENQ on my last few brain cells... ;-) Groete / Greetings Elardus Engelbrecht -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Batch REXX, Consoles & SYSPLEX
Veryl Ellis wrote: >The REXX Exec determines what processor and LPAR it is in and issues a >'CONSOLE ACTIVATE', 'CONSOLE SYSCMD... (to start the appropriate TCPIP)' and a >'CONSOLE DEACTIVATE'. Please post the full commands+keywords as used for these 3 CONSOLE. >IKJ55303I CONSOLE command terminated. MCSOPER input parm contains error. >RC=x'10', REASON CODE=x'38', which means "command associated in OPERPARM >segment not valid". Put in a SAY showing the MCSOPER input and also post it here on IBM-MAIN. I think you may have already have a CONSOLE with the same name somewhere active? Check it out with D EMCS command. Groete / Greetings Elardus Engelbrecht -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Share your thoughts about z/OSMF with IBM
Carmen Vitullo wrote: >I never saw a link, can you provide? I'd be happy to share my..thoughts Erin Yu already posted that on 2019-07-04. This is what Erin wrote: "We would like to understand your current experience with the z/OS Management Facility (z/OSMF). Take our IBM z/OS Management Facility 2019 Survey. https://www.surveygizmo.com/s3/5044915/z-OS-Management-Facility-2019-Survey We'd appreciate your response by July 22, 2019." Groete / Greetings Elardus Engelbrecht -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: JCL to include data
Mark Pace wrote: >Working with a user that needs include a bunch of data in a JCL. The data is >too large to copy into the JCL. During the copy he gets several E37s and then >ends with a B37. How is the JCL generated in the first place? Do you build up a large, extra large, extreme large dataset where you throw in the JCL and that "bunch of data" into it before giving it to JES2 internal reader? Do you get the x37 abends before you or them are able to submit it in the first place? Please post an example of that JCL and some sample of that "bunch of data". Also, please post all the x37 abend messages. > It appears to me that he runs out of space in that PDS. ??? Please explain that. Do you mean, you want to add the members as an input into that JCL? Why not just concatenate them using some DD statements? >The data that needs to be included is a flat file and not a PDS, which seems >to rule out the // INCULDE statement. Why not use a [concatenated] DD refering to the source of that data in that flat file / PDs / members of that PDS? Groete / Greetings Elardus Engelbrecht -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: MXG error reading z/OS 2.3 data
Beesley, Paul wrote: >Using MXG 32.04 with SAS 9.1.3, reading a mix of z/OS 2.1 and 2.3 data, I get >this message and RC=4 >ERROR: FOR FILE SMF, INVALID VBS SEGMENT DETECTED. PROCESSING IS CONTINUING >TO THE NEXT RECORD. I have used SAS many moons ago and I certainly remember this badd-a$$ message related to a bad SMF input... >Is this anything to worry about? Yes, loss of SMF data and angry readers of your SAS reports... ;-) >How can I tell which record it is complaining about? Hard to tell. Use IFASMFDP to copy your SMF records to other dataset. It will only read up to the very last readable record. The rest of the dataset are simply lost. (I think there is a freebie on CBT where you can re-join the parts of the SMF VBS dataset...) Use that copy on your SAS/MXG job. Groete / Greetings Elardus Engelbrecht -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Dynamically changing paramters is TSOKEY00
Gadi Ben-Avi wrote: >Is it possible to dynamically change parameters in TSOKEY00? >HIBFREXT specifically. >We are using z/OS v2.3. Good question, it is a loong time ago I even looked at that parmlib member and that HIBFREXT... ;-) I believe it is not possible to do that dynamically. I have to RTFM to see if there are commands you can give to the TSO address space, only modify command available is where you can refresh IKJTSOxx, which is not what you want. I see in the IBM supplied PROC for IKTCAS00, the DD for PARMLIB is something like this: //PARMLIB DD DSN=PARMLIB(TSOKEY..),DISP=SHR,FREE=CLOSE It looks it is open, read and close immediately. After more RTFM it seemed to me, if something is wrong in the parmlib, the default values as programmed inside IKTCAS00 module are used instead. Only "dynamic changes" available for TSOKEY00 are: stop and start. Of course, I may be wrong ... Groete / Greetings Elardus Engelbrecht -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Who is changing a user's ISPF profile
Paul Gilmartin wrote: >>>This typically happens (in my experience) when a single ISPPROF dataset is >>>shared across multiple images (last update wins). True, last one wins >>>always. This is WAD, not BAD. >ISPF Edit nicely serializes member updates. ISPF seems unable to do likewise >with ISPPROF. I call that BAD. So I read about that somewhere many moons ago. I agree with you. >>This is what I did. No problemo anymore with unneeded ISPPROF dsn changes by >>LPAR specific applications. >Perhaps more control should be given to the user, such as a confirmation >prompt at >LOGOFF: "Do you want to save or discard profile changes?" They will reply incorrectly and then shout at you where are my things... Groete / Greetings Elardus Engelbrecht -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Job abend with S722
Allan Staller wrote: >And then he will get Sx37 abends because no dataset can be made large enough >to contain the output. This is what I said. ;-) This is for the storage admin to sort out. >The OP need to go back to the source of the problem (Application Program) and >find out why so much output is being produced. This must be corrected. Indeed. If this is an once-off thing, ten to one an application is in a loop and spitting out lines. Or a debugging setting was set or a large query question was asked. I once got a complaint where a large dsn was copied to SYSOUT=*. A simple cancel was done and the corrected job was re-submitted. I am serious. We have setup rules to catch these $HASP375 and friends. Aftere consulting with the owners, we sometimes (with approval of course) simply give a nice S222 to the job. Groete / Greetings Elardus Engelbrecht -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Who is changing a user's ISPF profile
Allan Staller wrote: >This typically happens (in my experience) when a single ISPPROF dataset is >shared across multiple images (last update wins). True, last one wins always. This is WAD, not BAD. >A)Code/install ISPF EXIT 16 to change the name of the ISPPROF dataset being >used to something image specific. This is what I did. No problemo anymore with unneeded ISPPROF dsn changes by LPAR specific applications. Groete / Greetings Elardus Engelbrecht -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Job abend with S722
raji ece wrote: >Yes... I can.can I have jcl ? Write it self. Friday advice: Try changing //??? DD SYSOUT=* to //??? DD DUMMY ;-D :-D No, seriously, just change //??? DD SYSOUT=* ... to something like this: //??? DD DISP=(NEW,CATLG),DSN=,SPACE=, ... etc ... Consider adding VOLSER= so above can use more than one volsers for that dataset. Or talk to your storage admin. They may or may not have enough space for your jobs. Of course, you may get some nice Sx37 abends... Sx22 abends are there for a good reason. Groete / Greetings Elardus Engelbrecht -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: SMF for cataloged procedures and INCLUDEs. WAS Re: "Trapping" messages written to JESYSMSG?
Tim Hare wrote: >As mentioned before, I've created a SHARE requirement and an RFE to have the >system record the information from the IFC001I (cataloged procedure was >expanded from... msg) and IFC002I (INCLUDE was expanded from... msg) message >in an SMF record.If this would be important or useful to your shop, you >should vote this up. I know we've wanted to find a way for years to determine >what cataloged procedures are in use, and eliminate the ones no one uses from >the non-IBM libraries. This will also help determine if someone is using >JCLLIB to run their own version of a procedure. While you're waiting for that RFE to be accepted (?), please consider RACF command altdsd audit(all(READ)) for ALL your dataset profiles except the catalogs where you can perhaps use audit(all(ALTER)) for them. This will ensure that all and every type of access attempts are logged. Of course, you will have to weed out the non proc dsn from your RACF reports to see what you want. You wrote in that RFE: "Organizations of long standing often have thousands of cataloged procedures. Often a large percentage of these are obsolete or never used (FORTRAN Code-and-Go procedures, anyone?) " Thousands? Wow! That is four-letter word bad. Just migrate them and see when they're recalled by HSM upon usage. Put them in WARNING or (better) clear out the access list in RACF and see who holws at you at 03:00. You can use CSI to search for anciend and unused procs, but I agree in all, a nice SMF record would be handy dandy. Of course JCLLIB is very tricky to check and track. Perhaps a JES2 exit can help you to eliminate all JCLLIB statement, but ... >Here's the RFE link: >http://www.ibm.com/developerworks/rfe/execute?use_case=viewRfe_ID=133491 I have Voted for that cool RFE under grave danger... ;-D Groete / Greetings Elardus Engelbrecht -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: z13s with single CPU able to use SMT?
Brian Westerman wrote: >Bummer About what do you say "bummer"? TIA! Groete / Greetings Elardus Engelbrecht -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Hackers stole NASA data with a $35 computers
With all these recent loong discussions about 'security', 'hacking', 'pen-tests', 'clueless managament', etc. this is interesting: Ok, that is old news to you especially these security gurus, hackers stole from NASA some 500 MB data using a Rasberry PI since April 2018. Scary part - it was undetected for nearly a year... More scary part - system administrator failed to update the database that determines which devices have access to the network. As a result, new devices could be added without proper vetting. URLs: https://www.news24.com/World/News/hacker-used-35-computer-to-steal-restricted-nasa-data-20190625 https://www.cnet.com/news/raspberry-pi-hack-puts-nasa-in-security-jam/ https://www.zdnet.com/article/nasa-hacked-because-of-unauthorized-raspberry-pi-connected-to-its-network/ Original source of this all the way from Office of Inspector General at NASA: https://oig.nasa.gov/docs/IG-19-022.pdf Older hack at NASA - NASA disclosed data breach on 2018/12/19 ... https://www.zdnet.com/article/nasa-discloses-data-breach/ PS: nothing about this is shown on nasa.gov or jpl.nasa.gov Ouch... Groete / Greetings Elardus Engelbrecht -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: ALLOWUSERKEYCSA and Z/OS 2.4
Holger Noach (UHN) wrote: >We are to migrate to Z/OS 2.4 in future, and I can see that we are hit by the >restriction not to be able to modify USERCSA I have set up a SLIP and GTF trace as indicated in link : Ah, yes, the good old friend, OA53355, resurfaced again. ;-) Just apply above APAR and look below for the 2 Health Checks. >https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.3.0/com.ibm.zos.v2r3.e0zm100/BCP_vsm-rsm_userkeyCA_v2r3.htm >But I am interested in a program to extract from SMF type 30 , which could >catch users/programs accessing this storage >The flags are : >SMF30_UserKeyCsaUsage >SMF30_UserKeyCadsUsage >SMF30_UserKeyChangKeyUsage >SMF30_UserKeyRuCsaUsage I have written a small Assembler program which extract above info plus other info. >I canesee that it is previously suggested to use SAS/MXG to do this It was indeed mentioned several times in IBM-MAIN. You can perhaps use Omegamon. Others also have written similar programs, like Tom Russell who wrote a REXX program just for that. Just remember to activate these Health Checks: VSM_ALLOWUSERKEYCSA ZOSMIGV2R3_NEXT_VSM_USERKEYCOMM >So do s anymore have some code extracting SMF type 30 for this purpose which >could be shared E-mail me offlist if you want the source code. Groete / Greetings Elardus Engelbrecht -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: What happens if an SMF exit modifies the SMF record?
Charles Mills wrote: >Thanks @Scott and @Elardus. You're most welcome! >I have submitted an RCF and copied @Scott. Cool! Keep them busy. ;-) >@Elardus -- don't forget IEFU86. Yes, you're right. I just copied (in a hurry!) the list of the IEFU8x involved from a bookie in KC. >> due to security and integrity of the SMF records themselves, IBM is not >> talking much about it. >Security by obscurity? Perhaps, There is even a way to create and validate SMF records with digital signatures. But, still, you can modify it as per earlier discussion, then at the last stage, those records are then signed. "Security by obscurity" - is only working in theory ... ;-) Look at https://en.wikipedia.org/wiki/Security_through_obscurity for some discussion... Groete / Greetings Elardus Engelbrecht -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
DCOLLECT and IGD103I and IGD104I
Good day What is DCOLLECT doing with these datasets and showing these messages? IGD103I SMS ALLOCATED TO DDNAME SYS03179 IGD104I ???.???.??? RETAINED, DDNAME=SYS03179 We just use this IDCAMS statement plus the MCDS and BCDS DD statements in the DCOLLECT batch job: DCOLLECT OUTFILE (???) VOLUMES (*) EXV (EX*, ...etc...) Of course FACILITY Class, profile STGADMIN.IDC.DCOLLECT is in place. (With this profile, it does not matter whether the DCOLLECT job has access to these datasets or not.) Out of gazillion datasets and volsers details, we are getting about 3000 such IGD103I and IGD104I messages. Does DCOLLECT want more info from the VTOC entries or Catalogs? Where is this behaviour documented? Many thanks in advance. Groete / Greetings Elardus Engelbrecht -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: What happens if an SMF exit modifies the SMF record?
Charles Mills wrote: >What happens if an SMF exit modifies the SMF record? Do the next exit in the >chain, SYS1.MANx and/or the stream see the modified record, or is the exit >only modifying a "private copy" of the SMF record? It should be able to do that provided the SMF exit is getting the address (fullword) of the SMF record in register 1. Each SMF record is passed to an installation exit (either IEFU83, IEFU84, or IEFU85) before it is written to the SMF data set. But there is one catch, Inside the SMF exit, you cannot use the SMFWTM or SMFEWTM macro to write to the SMF data set, because the exits are called by SMFWTM/SMFEWTM. Of course, SMF records needed to be collected and then written out instead of being suppressed by the exits themselves. Cheryl Watson and Frank Kyne once wrote in November 2014 this: "An application would pass a record to SMF using the SMFWTM macro, and SMF would call IEFU83 with the record. The exit could choose to delete the record, modify it or perform some action based on the record’s contents. " (From: http://enterprisesystemsmedia.com/article/smf-exits-and-the-life-of-a-job ) >It would seem to me to be an important point, and the documentation is pretty >much silent (or I am visually challenged). However, I tend to interpret "Word >1: The address of the record that SMF is to write" as implying that there is >only a single copy that will get passed on down the line. Your interpretation is correct, but strangely just like you and Scott Ballentine, I also don't see it documented specifically that your SMF exits can modify a record all the way from one exit to other until it is finally written out to the SMF VSAM datasets. I believe the reason is that due to security and integrity of the SMF records themselves, IBM is not talking much about it. For IEFACTRT, I see this note: "When the data for an SMF record exceeds 32,756 bytes in length, the system constructs one or more "continuation" or "additional" records to ensure that no individual record exceeds that length. The system invokes IEFACTRT once for the original record and once for each continuation record." So, I believe SMF records can be changed many times until it is written out finally. >I will submit an RCF once I get a definitive answer here. Please do so. Groete / Greetings Elardus Engelbrecht -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Handy U.S. gov site - Gregorian calendar with DOY
Steve Smith wrote: >https://www.timeanddate.com/ is the ultimate resource. Thanks. I like the formatting of calender in these pages where you also can show week nr and days left of the year, etc. And you can do all that in my favourite language: Afrikaans! ;-) On this site, I see there are also a source for sun rise and sun set. Look at this URL for sun rise/set in Pretoria for example: https://www.timeanddate.com/sun/south-africa/pretoria Thanks Steve, I must agree, this is the ultimate resource! PS: I also used the ISPF pop-up panel often where you can check up the Julian date of a given date. Groete / Greetings Elardus Engelbrecht -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: ads on Knowledge Center?
Susan Shumway wrote: >Yikes, thanks for the notice! We alerted the KC folks and they confirmed that >it's a glitch with DISQUS. They disabled the functionality until a fix is >found. Thanks Susan! Much appreciated. I did not have time to check why my browsers are different (showing ads or not), but as soon as I see this glitch again, I will then compare these browsers. At least this will spare all of us unneeded bandwidth. Thanks again! ;-) Groete / Greetings Elardus Engelbrecht -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Need a second set of eyes to look at my NPF settings
Dana Mitchell wrote: >Your output has PZGWHFL1 as a destination, but your printer is set to >ROUTECDE=(LOCAL) so it's only going to select printout with *NO* destination >coded. Thats why the printer isn't selecting that output. Do you have a NPF >route defined for PZGWHFL1? >You either need to take the dest off your output, or change the printer to >ROUTECDE=(*) I think Good catch! I mis-ROUTE(cde) that one little bugger... ;-) Groete / Greetings Elardus Engelbrecht -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Need a second set of eyes to look at my NPF settings
Dana Mitchell wrote: >Tony Thigpen wrote: >>Maybe you have a 'better way' to use NPF. Could you give me an example of >>what you are doing? >So JES2 never selects output for that printer? You don't ever get $HASP150 ? If that is the case, turn on the debug statement for JES2, something like $T DEBUG,SECURITY=Y I believe there are also other DEBUG statements, but you can also have a look in your HASPARM member for your JES2 to check out the output classes. >What I do is all output for network printers goes to Class C. Different >destination for each different remote printer such as OPSPRT, SYSPRT, XRXPRT. > >Different forms use different Options member. >My printer is defined like this: >PRT3CLASS=C, >MODE=FSS, >FSS=TCPFSS, >FCB=STD8, >CKPTPAGE=100, >START=YES, >WS=(W,R,Q,PRM,LIM/F,UCS,FCB,P), >ROUTECDE=(*PRT) To Tony Thigpen after checking Dana's definitions for JES2: I see your CLASS=R match your SDSF screenprint, but I don't see any definition of your FORM=TONY (as seen from your SDSF). After you started that printer, I see FORMS=(WL1,,,), Is that correct? Is your WS=(Q,R/) correct? Perhaps the Work Selection is too restricted for your printer. I am not sure about the other criterias including that ROUTECDE... DISCLAIMER: I never worked with NPF printers, but with other types where connected to JES2 and other printing subsystems. Good luck! Groete / Greetings Elardus Engelbrecht -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: ICHRDSNT Table. RACF in sysplex communications mode
Mark Jacobs wrote: >Since there's more activity here than in the RACF mailing list, thought I'd >ask here first. I changed the flag byte in the RACF dataset names table to >enable sysplex communications today, and ipled the first system with the >changed table. Even though it's not talking to another system yet via XCF, I >had thought the RVARY LIST command issued on that system would have told me >that it's enabled for sysplex communications. I've verified that this system >is using the updated load module. Are your structures setup and activated? Do a D XCF,STRUCTURE to see them. ... also issue D XCF,STRUCTURE,STRNAME= Check these output: . STATUS: ALLOCATED . CONNECTION NAME ID VERSION SYSNAME JOBNAME ASID STATE -- -- IRRP001@ 02 00020058 RACFDS 0017 ACTIVE If you don't see it, check your setup of the CF structure. >rvary list >ICH15013I ACCF DATABASE STATUS: >ACTIVE USE NUM VOLUME DATASET >-- --- --- -- --- > YES PRIM 1 SYS001 SYS1.PROD.RACF > YES BACK 1 SYS011 SYS1.PROD.RACF.BACKUP >ICH15020I RVARY COMMAND HAS FINISHED PROCESSING. >Here's what I set in the table; >ICHRDSNT CSECT > DCAL1(1) INDICATES ONE RACF DATA SET > DCCL44'SYS1.PROD.RACF' PRIMARY RACF DS NAME > DCCL44'SYS1.PROD.RACF.BACKUP' BACKUP RACF DS NAME > DCAL1(255) # OF RESIDENT DATA BLOCKS >*DCB'01234567' BIT COUNT > DCB'10001000' SYSPLEX, NON DATASHARING > END AL1(1) is easy ... ;-) >Any ideas? I have first X'C8' - 1100 1000 during all the initial setup of CF and the structures. Then IPL, etc. where you get SysPlex and NON DATASHARING. Then after verifying all is Ok and you can get DATASHARING working, then I code in X'CC' - 1100 1100 (and then IPL at a convenient time) If all is working you should get this: MEMBER IS SYSPLEX COMMUNICATIONS ENABLED & IN DATA SHARING MODE. Ok, above is perhaps too elaborate, but I was just very cautious and have practised on a sandbox SysPlex. Good luck! Groete / Greetings Elardus Engelbrecht -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Sort - File split
Sri h Kolusu wrote: > ... I am picking the first 5 PO's >I used Symbols for the number of PO's to be picked, so that you don't have to >change the control cards all the time. >// EXPORT SYMLIST=* >// SET NUMPO=5 ... > INCLUDE=(5001,8,UFF,LE,) Amazing! Using a SET and use that in your INCLUDE. Hmmm, very interesting, that alone opens up a whole lot of possible things to do in SORT. Thanks for sharing this magic wand! Much appreciated! Goete / Greetings Elardus Engelbrecht -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Exit Question
scott Ford wrote: >It is still true you can do I/O , disk I/O in particular from say a RACF exit, >in particular IRREVX01 ? You can only use what is documented. I did a quick RTFM, apparently IRREVX01 is not (or cannot!) doing disk I/O due to the nature of how it is being called in the first place. IRREVX01 receives the command issued twice during pre and post processing calls. I am not sure where the IRREVX01 is running - in the address space of the RACF command issuer or in RACF system address space. The only inputs for IRREVX01 are some flags in the parameter list and command buffer. IRREVX01 can modify the contents of the keywords of the intended command issued. Output allowed is a message area which you can place your own message. There is also a communication area for exchange between the pre and post processing. I know you're a developer, you probably should know that some exits are assembled and later called in a specific way and environment. SMF exits can for example do some I/O, issue WTOs, calling other services, etc., but then only if it is documented and usable. For what is worth, I don't know if z/OS is _actively suppressing_ undocumented things like I/O for exits or just let you have a nasty Abend plus dumps. >Or am i mistaken..I was thinking about somehow talking to LOGGER ... LOGGER? What LOGGER? System Logger? Syslog? LOGREC? SMF exits/macros used to write out something? Or something else? Or, if you can, why are you asking or what are you trying to solve? Groete / Greetings Eladus Engelbrecht -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: LE question
scott Ford wrote:
>I need to do some research on how job is cancelled via the Operator , Abend
>S222. I read through some of the Boston share doc of some time ago by Ed, Sam
>and Skip. Its great.
>I have a job written in Cobol, this job has mission critical data storage in a
>table or array in program storage and that job has been cancelled by an
>Operator. I dont want to lose that data.
Aw crap, crap CRAP! Just ensure that the lame operator ('tape ape') does not
cancel your precious job(s). [1]
Why, oh why, did he/she/it canceled that job in the first place? Huh?
Did he/she/it smoked some 'Durban Poison' (dagga/marijuana)?
Stopping this cancelling fun will save you a lot of grey hairs and having you
to invent innovative abend handling steps.
>I want to know how i should approach it. The other qualifier here is that this
>is Cobol v4.2 which i am stuck with.
There is no way to recover the data, unless you have a backup and the COBOL
program can be rerun without any extra steps.
Ouch, your scenario is a real PITA! Sorry for not giving you a real solution on
how to handle that S222 abend.
Groete / Greetings
Elardus Engelbrecht
[1] - These ops also just reply on a console WTOR with whatever they want...
Gr...
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: COPYING PDS AND PDSE
esmie moo wrote: >Are there special parms that I need to use in the copy PDS & PDSE'S? It depends. Do you want to copy all or specific members? >For example if I want to copy a PDSE to another PDSE (some maybe LOADLIBS) >would the following be okay? PS: I have doctored your JCL sample for better readability! ;-) //COPYJCL1 EXEC PGM=IEBCOPY //SYSPRINT DD SYSOUT=* //SYSUT3 DD UNIT=SYSDA,SPACE=(CYL,(50,50)) //SYSUT4 DD UNIT=SYSDA,SPACE=(CYL,(50,50)) //INDD DD DISP=OLD,DSN=MYDSN.CLIP.SHR //OUTDDDD DISP=OLD,DSN=MYDSN.CLIP.SHR.NEW //SYSINDD * COPY INDD=INDD,OUTDD=OUTDD /* // >Is the COPY command sufficient? It should be, a$$uming you want to copy ALL members without any reblocking with COPYMOD and that both datasets RECFM, LRECL, BLKSIZE, etc. are the same. Perhaps you can drop SYSUT3 and SYSUT4 and add this one: //SYSOUT DD SYSOUT=* Are you getting any error message(s)? Groete / Greetings Elardus Engelbrecht -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Crazy concatenation mystery
Jesse 1 Robinson wrote: >This is almost nutty enough to be a weekend post, but it's a live production >environment, so here goes. We have a prod job (batch Db2) that has run daily >for years. Suddenly on 14 April it started abending with this message from >Fault Analyzer: >IEW2541S 471A MEMBER CUA625 IDENTIFIED BY DDNAME JOBLIB WITH CONCATENATION > NUMBER 1 CONTAINS A BLOCK OF SIZE 32760 WHICH IS LONGER THAN THE > DATA SET BLKSIZE. >IDI0010E IEWBIND error INCLUDE CUA625 rc=83000507 >IDI0002I Module CUA625, program CUA625, offset X'7712': Abend U3003 >So this is all absolutely true. The module *is* 32760 while the PDS *is* >19069-the ancient 3350 track size that was fairly standard for load libraries >in the Dark Ages. I have seen all these replies and have RTFM those messages. Ok, on what z/OS and DB2 versions are you? What have changed? From replies I see possibilities and guesses: FA suddenly decides to do investigation. First time combination of all these loadlibs in JOBLIB (or STEPLIB or LINKLIST)? JCL Change? Blocksize of first loadlib in JOBLIB changed? WHAT Changed? APF, LLA, LPALIST LINKLST, CSV, Extents, Exits? Fetch from APF and a copy is obtained somewhere? You said: No IPL, no z/OS maintenance, but were there any maintanance or application (DB2?) changes done? You also said about recovering from HSM, good, that is one culprit which is weeded out. I would also do that immediately. My guess: Are there other modules with the same name hidden in the JOBLIB (or STEPLIB or LINKLIST)? What happens if you turn OFF the FA during that batch job run? >It should have failed eons ago. Indeed - "The module *is* 32760 while the PDS *is* 19069" will certainly break your things. Can you perhaps do a IEBCOPY with reblocking? Groete / Greetings Elardus Engelbrecht -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Bigotry against mixed case was Re: Upper case for ISPF and SDSF
Paul Gilmartin wrote: >IBM 7030 did something like the latter, but neither is right; it's worse. >... Note that "CAMEL" comes after "Camel" but before "canary". So you can't >simply say either that Aa. Clark Morris wrote: >A more important reason was that addition of mixed case in either ISO/ASCII >changed a compare from a simple Compare Logical Character into a subroutine. >While this was always true if a true dictionary or phone book sort is wanted, >this would make it true for virtually all compares. Should A = a? If not >should the sequence be A,a,B,b ? This is a common and tough problem. Term for that is Collation. You decide what sequence do you want to use (and standardize on). You select ISO, ASCII, EBCDIC or other set or alphaset in whatever language and then you decide what character comes before what other. Do you want to sort from top to bottom or left to right depending on language? Another sequence (collation) problem which is also sometimes overlooked: one example - 'North' certainly comes before 'Northern'. This can be resolved by giving a space higher priority for this case. For more background info: https://en.wikipedia.org/wiki/Collation For DFSORT this: https://www.ibm.com/support/knowledgecenter/SSLTBW_2.2.0/com.ibm.zos.v2r2.icea100/cultenv.htm https://www.ibm.com/support/knowledgecenter/SSLTBW_2.2.0/com.ibm.zos.v2r2.icea100/stand.htm UNICODE in IBM: https://www.ibm.com/support/knowledgecenter/SSLTBW_2.3.0/com.ibm.zos.v2r3.cunu100/collati.htm I know DB2 have also issues with collation in data and tables, but I don't have now access to a DB2 system to check it out. For z/OS Unix things, I believe these have also its own collation setup and defaults. That is hard to sort it out... ;-) Groete / Greetings Elardus Engelbrecht -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Upper case for ISPF and SDSF
Vernooij, Kees wrote: >When I started, also the terminals we used for online access (TSO, IMS etc.) >were uppercase only. I don't know why, maybe because dual case were not >available, cost more, were not necessary? Perhaps you're refering to those 3279 and similar IBM 3270 display terminals? Those heavy toys have 3 blue switches, one for Normal/Test, one for 4 or 2 colours and lastly one which switch from A,a to A or vice versa. From https://en.wikipedia.org/wiki/IBM_3270 I see this note: "3270 character set" [ This set contains both lower and upper case letters ] "On the 3275 and 3277 terminals without the a text feature, lower case characters display as uppercase." Kees, are you perhaps refering to those 3275 or 3277 terminals? I am for once glad we don't have those terminals. It is a nightmare to carry them around and they will break these flimsy tables we now have... ;-) Groete / Greetings Elardus Engelbrecht -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Email validation (was Re: Mainframe Report meets abrupt end | Computerworld Shark Tank)
Paul Gilmartin wrote: >>Not so that RACF will know, but so the application calling RACF will know. >>The application needs to know whether the user entered a password or password >>phrase so it can indicate that to RACF. (And, I suppose, so the application >>developers can decide when/whether to support password phrases.) >It could have been made compatible by merging the password and passphrase >tables and preserving both interfaces. I am sorry, but IMHO no, it is not possible or very difficult to achieve. One reason is that the application logon screens and services needs to be totally rewritten. That only is a major shake-up. The vendors won't bite in this one. A quick RTFM and look in SYS1.MACLIB will show you handling and storing of "password" is absolutely different from "password phrase". In RACF Template, in the user basic template, there are fields for password, encryption method, last date of password change, how many passwords are stored, etc. All of this are repeated for password phrase. ... and there are two sets of tables for enveloping password and password phrase. So you have thus two different envelopes. AFAIK there is only one field applicable to both password and password phrase - password interval. Another field of note in the RACF Template is "User can fall back to password logon". The services handling the RACROUTE macros are getting keywords for password OR password phrase. The issuer of RACROUTE macros needs to specify password and/or password phrase. It is up to RACF to accept either password or password phrase. So, all the way to serve this one thing: "backward compatibility" until alternatives like MFA for example is the only standard or so. >>Additionally, password phrases get some strength from an increased number of >>characters supported, but primarily from increased length. The initial >>implementation required at least 14 characters for that reason, unless the >>installation wanted to provide an exit overriding that to a smaller value, 9 >>to 13. >Or that could have been 1 to 13, depending on how imprudent the admins. It may be possible, but I am sure that will require a major overhaul. Groete / Greetings Elardus Engelbrecht -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Volume compare utility
Jesse 1 Robinson wrote: >Most folks seem to think that we're being a little silly, which is actually >reassuring. No, you are NOT silly. Trust me. Actually I appreciate your posts here in IBM-MAIN. >I did get one off-list offer of a product that that sounds pretty great, but >we may just suck it up pretend we're grownups. Now and then I got similar off-list spam from IBM-MAIN members who wants to try sell me a [junk?] product or two. Like you, I just suck it up because I am grownup ( ok, sort off :-D ), or actually, I am not in a position to say to my management, "buy this spammy thing". Groete / Greetings Elardus Engelbrecht PS: some years ago, an IBM-MAIN member [0] spammed me for about 6+ months trying to sell me a crappy product despite that I politely told him the first time that I cannot accept his offers because I am too low in the food chain to accept/recommend his spam z/OS products. [0] - I see this spammer is silent/lurking on IBM-MAIN these last few months. Am I happy or am I that happy? ;-) -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Email validation (was Re: Mainframe Report meets abrupt end | Computerworld Shark Tank)
John McKown wrote: >So I type the password in on a text editor, then cut'n'paste it into the web >site. Good approach where you can't see what you typed in the first place and you don't want to go the hassle to reset your id. But - What do you do if that website does not allow cut/copy/paste in the first place? Yes, it is about security or some other lame excuses, something about blocking website robot crawlers, spiders or weirdos ... I have encountered such pages where I want to copy into or out from some text and then it is as if my mouse clickery is disabled/broken, or so it looks to me. Such websites also don't allow marking/selecting text for cut/copy/paste operations. If I repeat same actions on say NotePad, then such operations are suddenly working. I would be crying ashamed if I design such a website, but then it is just me... ;-) Groete / Greetings Elardus Engelbrecht -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: dfsort
Elardus Engelbrecht wrote: >So, after reading the replies to you, it seemed to me you need to sort >according to first item_nbr and then location. >After that, you select the FIRST of these numbers. After that you only select >those with CORPORATIVO. >Or reject any/all duplicates of item_nbr and then only subselect location >after that rejection. >Other than that, I don't think there is an easy way to select more than one >records based on two different unrelated selections, unless Sri h Kolusu has a >magic wand for this one too. I am wondering/believing that JOINKEYS could do all of this in one single swoop... I like solutions where you can parse input in one single step and be finished. You can probably use REXX, but REXX is heavy on resources, while DFSORT and ICETOOL have their own magic handling of resources. Now, waiting for Sri ... ;-) Groete / Greetings Elardus Engelbrecht -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: dfsort
Ron Thomas wrote: >We have a file that is received from a vendor ( item_nbr 10 byes and location >20 bytes) . File is a 80 byte FB record >item_nbrlocation >4046340¦CORPORATIVO >4046564¦CORPORATIVO >4046564¦ESTADO >4047131¦CORPORATIVO >4047460¦CORPORATIVO >4047479¦CORPORATIVO >Here we need to extract item_nbrs that has only "CORPORATIVO" location and no >other location defined . In the example above it should pull So, after reading the replies to you, it seemed to me you need to sort according to first item_nbr and then location. After that, you select the FIRST of these numbers. After that you only select those with CORPORATIVO. Or reject any/all duplicates of item_nbr and then only subselect location after that rejection. Other than that, I don't think there is an easy way to select more than one records based on two different unrelated selections, unless Sri h Kolusu has a magic wand for this one too. Of course, if there is a good solution, I am all ears for it! Groete / Greetings Elardus Engelbrecht -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Debug tool in background batch job
Bruce Hewson wrote: >I cannot find program ADSTAT anywhere on my system. This is a custom compiled program. Two clues: STEPLIB is own private library and part of the PARM is '/TEST ...' which tells me the program was compiled with debugging statement inserted in the program and this program is to be running with debug statements as listed in DTCMD. Groete / Greetings Elardus Engelbrecht -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: HSM dummy question ML1
Jake Anderson wrote: >When we say ML1 I understand it's a dasd ? Usually yes, but you as HSM admin has the final say. >So if it a HSM managed where can I list it or do we define a set of pool ? Look in your ARCCMDxx parmlib member for this statement like this example. ADDVOL ?? UNIT(3390) MIGRATION(ML1 ... There are some HSENDCMD QUERY commands and perhaps ISMF which can help you. Groete / Greetings Elardus Engelbrecht (ex-HSM/SMS Storage admin... ;-D ) -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Incoming | Computerworld SHARK TANK
ITschak Mugzach wrote: >... investigation showed that the the people who cleans the computer room >unplugged the power for the vacuum cleaner... The array was using a standard >power plug. Hahaha! I heard a similar, but false story. ( https://www.snopes.com/fact-check/polished-off/ ) Apparently in a hospital in our country, some patients died during a specific shift. Same story, cleaners/janitors unplugged life supporting equipment to do their cleaning with vacuum cleaners and polishers and thus 'polished off the patients'. Also there is a false rumour that in a San Francisco hospital, during Earth Hour the patients were killed during that hour... https://www.snopes.com/fact-check/hour-dearly-beloved/ ;-) Groete / Greetings Elardus Engelbrecht PS: Many years ago, after a mechanic swapped the oxygen and vacuum pipes and a patient died there-after, now these days all plugs and pipes (electrical, vacuum, oxygen, etc. ) are marked with different colors and shapes. Life supporting equipments plugs on the walls are marked with a warning that they are NOT to be unplugged. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: OpenSSH upgrade option
Paul Jodlowski wrote: >>Currently OpenSSH is at 6.4p1, I have been asked by our Network Security Team >>to upgrade to OpenSSH 7.4. z/OS OpenSSH at 6.4p1 is a fully supported by IBM. Your Network Security Team is asking you to 'upgrade', but actually they want to have you to upgrade to an unsupported open version of OpenSSH [on z/OS]. As Timothy Sipples said, IBM will, if needed, backport the OpenSSH. Timothy is right about Db2, it is also same with REXX. You get the official supported REXX at whatever z/OS level from IBM, but there are many commercial and free versions of REXX on other platforms. So, in other words, the Network Security Team wants to have you to throw away official supported OpenSSH? No ways! I would simply refer them to IBM after a lot of explanation of course. Groete / Greetings Elardus Engelbrecht -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Job completed notification not received TSO logon
Peter wrote: >One of our user who has his userid in all the batch job in most of the >scheduled batch. So whenever he logs on he usually gets the notification of >job completion along with logon message. >Nothing has changed in batch and notify parameters are all same. >Not sure why it has stopped working As Tom Brennan said, consider PROFILE WTPMSG MSGID INTERCOM Your SYS1.BRODCAST may be full. Empty it out. Other possibility is that your user is having another TSO session and that session is getting the messages. Groete / Greetings Elardus Engelbrecht PS: Another weird reason I once got, is that the user may run a CLIST or something during the logon process which disables messaging or just send on the user's behalf. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Fwd: Grease is the word | Computerworld Shark Tank
Mark Regan wrote: >https://www.computerworld.com/article/3387937/grease-is-the-word.html Ouch! What a messy grease-up! ;-) What type of card reader has that specific conductive grease? Just curious. "The shop eventually received a working card reader, with conductive grease." - I hope that the replacement is free, since "The wrong kind of grease was put on the roller shaft bearings at the factory." ;-) Groete / Greetings Elardus Engelbrecht -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: AMODE 32
Paul Edwards wrote: >I was thinking that z/Arch and z/OS could be updated to support AMODE 32. I am not sure what you want to solve or prove, but I think you should startup a new company and then invent/patent a brand new mainframe which can address all your needs. If you have a good business case, you may become a formal IBM Partner. I am very sure based by all those replies in this and last year threads, you're not going to achieve what you want from IBM and members of IBM-MAIN. Also, you asked twice in this thread "I don't understand this technical question." while you are comtemplating very technical things. Did IBM accepted your RFE you want to submit last year? I would be surprised if IBM accepted that, because Jim Mulder said No. Groete / Greetings Elardus Engelbrecht -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: DFSORT ICE085A - Options?
van der Grijn, Bart (B) wrote:
>I have a job that fails with
>ICE085A 0 SECOND COMMUNICATION AREA SPACE EXCEEDED - ADD AT LEAST 0K BYTES TO
>REGION
>I understand what the message manual is telling me (reduce the complexity of
>the application), but how do I determine what the limits are or what clauses
>influence the memory usage?
Based on your JCL and on other's replies, may I suggest trying this alternative?
Take your input dataset, split the different columns into different datasets
like this:
Input A, Output O1: Columns 1-10 and you massage them with DFSORT and inserting
those C'|'.
Repeat with Columns 11 to say 35 to output O2.
Repeat again up to the last set of columns.
After all that work, recombine with DFSORT all the outputs O1, O2, O3 .
last output into one final dataset output.
Or, generate a CSV ('comma delimited output') and place that in a dataset and
then do a edit to find/replace the commas with C'|'.
Please let us know what you eventually select as a solution.
Groete / Greetings
Elardus Engelbrecht
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Batch edit of large dataset - Solved
Jeremy Nicoll wrote: >Remember that when an ispf edit macro starts to execute you have access to the >underlying ispf session, and indeed underlying TSO. So change the macro to, >for example: >address ispexec "vget (parmin parmuit) profile" Thanks for showing where to put the vget and vput commands. That was the missing link I needed. >Personally I'd also set up error handling, probably at least a little >validation of the incoming parameters, and I might check that the 'save' >actually works before 'end'ing the macro. As it stands you won't be able to >tell from the invoking rexx exec whether what the macro was intended to do >actually worked. Excellent! I will remember this. >So, what happens is that you use the ispf variables support to save the values >of parmin etc before invoking edit, then once the macro has control it asks >ispf for the values that were saved. Thanks, this is what I want. I want variables which can be used in 'child' processes including macros. Anyways, I will play around with your suggestions, while 'they' will put the DFSORT solution in production. At least this (vget + vput) is something new for me to keep me busy. ;-) Groete / Greetings Elardus Engelbrecht -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Batch edit of large dataset
Sri h Kolusu wrote: >You skipped over the most important Utility DFSORT. ... and I discovered it (and ICETOOL) again! ;-) (see my other thread about this matter) >It can find and REPLACE one or more strings. Here is an example. I eventually used your example I discovered in another thread you posted some years ago. > INREC FINDREP=(ENDPOS=2004, >Note : For FB fies the end position would be 2000 ( No addition of the RDW) Not many people understand that little 4 bytes trick for that RDW. ;-D ;-D >Further if you have any questions please let me know. I will do so, of course. Thanks again for your kind help. Groete / Greetings Elardus Engelbrecht -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Batch edit of large dataset
Paul Gilmartin wrote: >>Unfortunately those IKJEFT01 commands require that the dataset lines need to >>be numbered. >Could you run ISPF Edit under IKJEFT and use its CHANGE command in an initial >macro? Thanks for asking. Eventually yes, I could do it and bypass the problem of line numbers, but please see my other reply to you. Groete / Greetings Elardus Engelbrecht -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Batch edit of large dataset - Solved
Paul Gilmartin wrote:
>>But I have problems to pass the two arguments for the ISREDIT CHANGE command.
>>It is easy (after lots of RTFM on KC! ;-D ) to do that interactively, but not
>>in batch.
>Where does the problem arise? Is it the TSO parser's meddling with delimited
>strings?
>ISPF Edit assignment statements allow parenthesized names of Rexx variables to
>be used as source or target, bypassing delimiter rigamarole.
>Unfortunately, ISREDIT CHANGE has no such capability. Sounds like an
>invitation for an RFE.
Seymour J Metz wrote:
>What problem do you have using ISREDIT in batch? How is the semicolon handled
>in ISREDIT?
Thanks to both Paul and Shmuel for asking!
I am going to answer both of you with this what I experienced.
In book 'z/OS ISPF Edit and Edit Macros' there is an interactive example of
passing parameters:
:
You have this: ISREDIT MACRO (PARM1,PARM2,REST)
This means that if you enter (interactively): FIXIT GOOD BAD AND UGLY
This macro has then 3 parameters where the last one is 'AND UGLY'.
It is also written:
"You can enter parameters along with an edit macro name as a primary command by
using the MACRO command. This command allows you to identify the names of one
or more variables to contain any passed parameters.
Note: For edit line macros, only one parameter is passed to the macro. This
parameter is the line command, including any repetition, as it was entered on
the line."
Nothing about doing the same in batch is written.
Now, for my problem is, I have this macro (which is not working):
ISREDIT MACRO (PARMIN PARMUIT)
ISREDIT RESET
ISREDIT CAPS OFF
ISREDIT CHANGE ALL
ISREDIT SAVE
ISREDIT END
PS: If I remove the PARMIN and PARMUIT and replace it with the actual text,
then it is working.
Above macro is called by this:
/*REXX*/
TRACE ALL
PARSE ARG DSN PARMIN PARMUIT
SAY DSN PARMIN PARMUIT
Z = "EDIT DATASET('"||DSN||"') MACRO(CHANGEIT) CONFIRM(NO) "
ADDRESS ISPEXEC Z
EXIT
This is the JCL:
//EDITASC EXEC PGM=IKJEFT1B,
// PARM='ISPSTART CMD(%EDITA )'
//SYSEXEC DD DISP=SHR,DSN=
Dataset is passed successfully, but how do I pass the PARMIN (text to be
removed) and PARMUIT (new text to be placed) all the way to the ISREDIT CHANGE?
Thanks in advance!
Groete / Greetings
Elardus Engelbrecht
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: FTPS breaks on z14-ZR1
Carmen Vitullo wrote: >Another possible cause of the 425 error code is the SSL requirements on the >server. In the case of the following error message: >* 425 unable to build data connection: Operation not permitted. In this case, check and compare on z13 and z14 what Crypto cards and keys do you have. Groete / Greetings Elardus Engelbrecht -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Batch edit of large dataset
John McKown wrote:
>> Groete / Greetings
>In my usual "left handed" way, I will recommend using "awk" in a UNIX step to
>do this. It is easiest to do if you have Co:Z installed, but it can be done
>using the IBM supplied UNIX commands. Yes, IBM awk can read a z/OS sequential
>dataset. I have verified this on z/OS 1.12 and 2.3. Something like:
>//PS001 EXEC PGM=BPXBATCH,REGION=0M
>//*PARM='SH printenv '
>//STDOUT DD SYSOUT=*
>//STDERR DD SYSOUT=*
>//STDINDD DUMMY
>//STDPARM DD *
>SH awk 'NR <= 2000 {n=sub(/ONE/,"TWO");print;}
>NR > 2000 {n=sub(/./,"+");print $0;}'
>"//'fully-qualified-input-dataset'" |
>cp /dev/fd/0 "//'existing-output-dataset'"
>//STDENV DD *
>/*
>The above will change the _first_ occurance of "ONE" to "TWO" if the relative
>record number is less than or equal to 2000 (NR <= 2000). It will leave any
>other occurrences on the line alone. It will simply copy the current record to
>the output for all other records (NR > 2000).
Excellent. Another improvement - Selective change actions based on other
criterias.
I am aware of awk, but not this NR part.
Thanks for your excellent contribution. Much appreciated!
Groete / Greetings
Elardus Engelbrecht
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: SDSF Edit Function Key disappointment
Lionel Dyck wrote: >I've not used SDSF for a number of years but now I am and I have found a >disconnect between the way SDSF works and the say every other ISPF application >works when in Edit. >When using SJ or SE any user of ISPF Edit will expect F6 to be RCHANGE - but >it isn't. It is defined as blank. F5 is defined as RFIND, which is expected as >are other function keys. >What is different for Repeat Change? ISF.SISFTLIB(ISFKEYS) is somewhat different from other ???KEYS members in your ISPTLIB concatenation. >True the user can always use the KEYS command and change the definition of F6 >to RCHANGE, or the user can just bite the bullet and do a change all. And thus modify ISF.SISFTLIB(ISFKEYS) yourself. What a little drama. >BUT WHY? WAD and BAD, but you can ask the SDSF developers. Let them bite YOUR bullet! Groete / Greetings Elardus Engelbrecht -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Batch edit of large dataset - Solved
Elardus Engelbrecht wrote: >I've got a requirement where a single line in large dataset (RECFM=VB or FB >and LRECL=) needs to be edited/changed in batch. Changed >dataset is then to be used in next job steps. Solved! Whew! ;-) I am familiar with using ISREDIT MACRO function interactively, so I first tried out Alan Young's example in thread 'Re: JCL sample needed' posted on 19 Feb 2016. But I have problems to pass the two arguments for the ISREDIT CHANGE command. It is easy (after lots of RTFM on KC! ;-D ) to do that interactively, but not in batch. Eventually I discovered Sri h Kolusu's better example in the same thread too! After some tailoring I get this: //STEP0100 EXEC PGM=SORT //SYSOUT DD SYSOUT=* //SORTIN DD DISP=SHR,DSN=...???... //SORTOUT DD DISP=SHR,DSN=...???... //SYSINDD * OPTION COPY OUTREC FINDREP=(INOUT=(C'Pest',C'Breaker')) //* With this, I can change in whole dataset all occurances of 'Pest' to 'Breaker'. I (and they who asked me for assistance) don't care for now about the length difference after change operation. Thanks to all who helped offline and online. And to Sri, you are still amazing with all those magical solutions. Thanks again! Groete / Greetings Elardus Engelbrecht PS: Someone else posted this, but it is not working (?) even after I did some editing and also changed C to CHANGE: //TSO EXEC PGM=IKJEFT01,REGION=8M,DYNAMNBR=75 //SYSTSPRT DD SYSOUT=* //SYSTSIN DD * PROFILE PREFIX(userid) EDIT NS28.DATA V ON C * 999 /NOT SCRTCH/NOT SCRTCH/ ALL END NOSAVE DELETE NS28.DATA LISTD 'SYS1.PARMLIB' M /* -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Batch edit of large dataset
Hi to all, I've got a requirement where a single line in large dataset (RECFM=VB or FB and LRECL=) needs to be edited/changed in batch. Changed dataset is then to be used in next job steps. Sounds easy? Interactively with TSO yes, but they want it to be done in a batch job. Something like c '???' '!!!' which can be easily done interactively. I have a look at the different utilities. One utility I could find useful is the EDIT and CHANGE commands running under IKJEFT. Unfortunately those IKJEFT01 commands require that the dataset lines need to be numbered. I tried it out: READY EDIT '??.TEST' OLD TEXT ASIS NONUM EDIT CHANGE 1 2000 'ONE' 'TWO' IKJ52502I DATA SET NOT LINE NUMBERED EDIT END The IKJ52502I is not what I want. Is there a batch utility where I can edit a line in large dataset? I am very sure I am overlooking something obvious. Many thanks in advance. Groete / Greetings Elardus Engelbrecht -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Using DFSORT to generate data
Sri h Kolusu wrote: >It is quite easy to generate your test data. I generated 1 million records >with an LRECL of 100 bytes It is indeed easy for you. But for the rest of us, you're awesome with what you can conjure up with DFSORT and ICETOOL. > OUTFIL REPEAT=100, > BUILD=(SEQNUM,9,ZD,START=10001,INCR=8, REPEAT and BUILD together to build x records out of 'nothing' Amazing. Thanks Sri for this amazing piece of magic. Today I (and hopefully others too) learned something new. Please keep up with your excellent contributions. Thanks again! Groete / Greetings Elardus Engelbrecht -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Vacation over, back to work
Mark Jacobs wrote: >After a two month paid vacation when my previous job ended on January 31st >2019, I'm very happy to begin my next adventure as a Senior Systems Programmer >with ASG Technologies beginning April 1st. Welcome back and congrats on your new work. I am glad you're back, we all need your expertise. Groete / Greetings Elardus Engelbrecht If a program is useless, it will have to be documented. There are 2 ways to write error-free programs; only the third one works. Those who can't write programs, write help files. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: System name change rexx?
ITschak Mugzach wrote: >I need to change several systems that was cloned from same source to different >names. I know what to do and will write my own exec, but I wonder if anyone >here has such exec that replace all occurances of the system name in parmlib >and some system dsnames that has the name inside. Did you considered CPPUPDTE (for PDS like parmlib dsn and similar friends)? Use that for one System Name and repeat for other clones a la 'attack of the clones'. ;-) About 'exec', REXX has a function (sorry, I don't have access to my favourite z/OS toy while writing this reply) you can use to replace a string on the fly. Of course, you need to conjure up an exec to do that thing. I think I have a sample sitting somewhere (under a HSM ML2 mountain) which could help you. I will look at it and if I have anything, I will reply again to you. Groete / Greetings Elardus Engelbrecht Blue Monday joke: An old man went to see his Doctor for consultation over some lab test. "I've got good news and bad news!" said the Doctor. "Give me the good news first!" said the man. "The good news is you only have 24 hours to live!" the doctor said. "Geez! -if that's the good news, what's the bad news?" said the man. The Doctor says, "I forgot to tell you yesterday!!" -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Is it broken? or just useless
Sri h Kolusu wrote: >Look up "z/OS marketing and service announce, availability, and withdrawal >dates" in the below link >https://www.ibm.com/support/home/links/97/product/5381496/z/OS_-_All_versions_and_releases?results=55 Thanks Sri h Kolusu! When it comes by publishing in IBM-MAIN these URLs from Big Blue, you and Susan Shumway are the BEST! Kudos to you! Much appreciated! ;-D Groete / Greetings Elardus Engelbrecht -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: How to grant access to CONSPROF
Jousma, David wrote: >I responded off-list to Lizette, but wanted to share this bit of rexx with the >list again. Thanks for kindly sharing that little snippet you stolem fro somewhere. >... No need to mess with CONSOLE access via TSO. Use SDSF ISFSLASH facility >instead. Thanks. ISFSLASH is also a good alternative. I agree, this could help Lizette to solve her problem. >Runs with the same SAF authority you have with SDSF. More RACF profiles to check, what a "neverending story" ... ;-) >Returns all of the OS responses to the commands as well. This is one thing which I really like. I want to see commands and the results together somewhere. Lizette, if possible, please let IBM-MAIN know if you were successful or not with David's solution. Groete / Greetings Elardus Engelbrecht -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: How to grant access to CONSPROF
Lizette Koehler wrote: >I am trying to run a batch REXX that issues CONSPROF or CONSOLE commands. >I have set up everything in IKJTSO00 for CONSOLE, I have updated the RACF >TSOAUTH for the ID issuing the commands >The process will VARY OFFLINE and VARY ONLINE Dasd volumes >Yet I am still getting >IKJ55353I THE CONSPROF COMMAND HAS TERMINATED.+ >IKJ55353I USER USER001 DOES NOT HAVE CONSOLE COMMAND AUTHORITY. >Any other places to check? You have gotten good replies, but I would like that you please check out this URL: https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.3.0/com.ibm.zos.v2r3.ieag300/iea3g3140.htm Above describe how to setup everything (in RACF) to use Consoles: Class OPERCMDS. Profile - MVS.MCSOPER.. Class TSOAUTH. Profile - CONSOLE. Please also review this ancient APAR II08610. Unless you have a weird exit which Walter described. Groete / Greetings Elardus Engelbrecht -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: How to obtain DSN's on a cartridge on SL laber format
Joe Monk wrote: >UNIT = 3490, LABEL = (, BLP, EXPDT = 98000), >theres your answer right there. BLP = bypass label processing. >Youre getting these messages: >IEC502E R 0580, S03815, SL, TAPEMAP, STEP0010 >IEC501A M 0580, TAPAWS, NL ,, TAPEMAP, STEP0010, AMSOURCE.AWS >because you are not authorized to use BLP. So, you need to check and be sure >that you can use BLP. Since youre not authorized for BLP, the system is >changing it to NL. Excellent catch! I was typing in a reply, but 3 seconds (!) before I send my reply out, I just relooked and immediately see your reply. So, I deleted everything I typed in ... except my last cup of coffee... To the OP, you may need to run your job in another jobclass or ask your JES2 admin to tell you in what jobclass is BLP authorized. (look for JOBCLASS() .. BLP=YES, ) Alternatively, ask your RACF support to allow you access to profile ICHBLP in FACILITY Class. >Otherwise, I'd suggest you use DITTO. Good suggestion. Groete / Greetings Elardus Engelbrecht -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: IARST64 in addrr
Mike Schwab wrote: >PIC is Program Interuption Code. Printed page 72 of >GA22-7000-4_370_Principles_Of_Operation_Sep75.pdf shows this to be page >translation error. That means the logical page references is not in CORE >(RAM). The operating system need to read in the logical memory from paging >files and retry the instruction. Thanks. So I see that too in 'z/Architecture Principles of Operation' PDF bookie SA22-7832-11 (filename as downloaded from Big Blue is dz9zr011.pdf) One snippet on page 6-32 (page 458 of 1902 pages) says: "The page-translation exception is indicated by a program-interruption code of 0011 hex". I hope I quote the right snippet. I am wondering of the OP's 'page-invalid bit' is indeed one. But still, if the OP wants full and free help, he should post what is needed. Dumps, Abend code + return/reason codes, full messages, etc. plus code snippets if needed. Groete / Greetings Elardus Engelbrecht -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: IARST64 in addrr
Joseph Reichman wrote: >I have been getting S0C4 pic 11 11 meaning not a translation error or a >invalid address but that it wasn’t allocated What is 'pic 11 11'? Just like the other wizards, I am also confused by what you wrote. Please post the full Abend message(s) and all the return and reason codes as well the register contents. Groete / Greetings Elardus Engelbrecht -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: SMF/RMF records for 4hr rolling average MSU?
Radoslaw Skorupka wrote: >It's easy to say NO, but sometimes we have to deal with out-of-date HW and SW. Ask NASA. They do sometimes sit with old HW + SW they just can't drop off. Google NASA and Windows and you will soon discover it is not that easy to replace the tools (on earth and in space) at a whim... I do remember that some years ago they want ancient programmers to maintain the ancient, but still running systems used for Voyager spacecrafts... Ok, I am outta this thread. Sorry for this topic drift, but ... ;-) Groete / Greetings Elardus Engelbrecht -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: SMF/RMF records for 4hr rolling average MSU?
Radoslaw Skorupka wrote: >> I got burned by a similar situation. Some hardware broken down, but luckily >> I could scavenge some 'newish' hardware. I tried to install windoze 2008, XP >> and 98, only got a nasty BSOD during initial phase of installation despite >> fiddling around with BIOS settings. >>Installing a newer windoze worked, but I soon ran into compatibility issues, >>just like you. >> So, if your windoze server's hardware crash, you may have some recovery >> problem (hopefully AFTER you retired ... ) >In that case you should be able to run current Windows on new x86 (actually >x64) server and run some VM hypervisor (i.e. VirtualBox) and WindowsXP under >the VM. License should also be no problem. Thanks. We have such machines installed much later, long long after I 'burned' myself. In fact, we have now a win 2008 (64-bit) (really!) running on a VM hypervisor using for some third party software. >BTW: Old system under VirtualBox is my solution for IBM Shopz Download Manager. Interesting, my own SMP/E guys and gals are using a z/OS JCL to do such downloads. Their decision, but it is working. Groete / Greetings Elardus Engelbrecht -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: SMF/RMF records for 4hr rolling average MSU?
John McKown wrote: >> What would you do if they insist to use database without paying for database >> license? >The database in question has a permanent license, so that it not a problem. Excellent. Do you need to pay the vendor every x period? Or is that license just an once-off annoyance? >The problem is that it is running on a old Windows server; which is being >decommissioned. And the software apparently will not run a current Windows >server. I got burned by a similar situation. Some hardware broken down, but luckily I could scavenge some 'newish' hardware. I tried to install windoze 2008, XP and 98, only got a nasty BSOD during initial phase of installation despite fiddling around with BIOS settings. Installing a newer windoze worked, but I soon ran into compatibility issues, just like you. So, if your windoze server's hardware crash, you may have some recovery problem (hopefully AFTER you retired ... ) Groete / Greetings Elardus Engelbrecht -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: ISMF msg
Mark Pace wrote: >I checked in RACF and I had no rules protecting the SYS3 datasets, so I don't >think that was the issue. No 'rules'? This is not looking good, but then, it should probably not affect your issue, AFAIK. Do you have any profiles defined at all or have something in the Global Access Table? What is your PROTECTALL status in RACF? Groete / Greetings Elardus Engelbrecht -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: How many asterisks to change a lightbulb?
Warning - my reply is somewhat long, please ensure your light bulb is still burning while reading this... Paul Gilmartin wrote: >Jesse 1 Robinson wrote: >>It's not Friday yet, but I need to know: what does this mean? >Either you didn't read the thread from the beginning or: >https://en.wikipedia.org/wiki/Lightbulb_joke >Programmers? Don't ask them; that's a hardware problem. Thanks for standing in for me, I appreciate it. You can also search IBM-MAIN and also IBM-MAIN Archives using this search phrase 'light bulb' for a bright shining answer. You will get ten thousand (... and still counting) 'enlighting' jokes and [useless] OT threads about light bulbs. I reposted four 'winners' in case you're in the dark (I could reposted Ed Gould's many, but looong lists, but you can search them yourself): From Shmuel Metz this little fun shorty (one of my favourites): ... The ones that say "You had light bulbs?" Alternatively, the correct answer is "None, it's a hardware problem." Unless you're a CE, in which case it's "None: it's a software problem." From Don Imbriale this JCL which should bypass JES2 and RACF unforgiving checking (after shortening (pun intended) PROGRAM name of course)...: //S1 EXEC PGM=ELECTRICIAN //TOOLMSG DD SYSOUT=* //OLD DD DSN=... //NEW DD DSN=... //LIGHT DD DSN= //TOOLIN DD * SWITCH OFF(LIGHT) REPLACE FROM(OLD) TO(NEW) SWITCH ON(LIGHT) /* From Donna Spradley, she is a great lady: You sell em, but do you know how to install em?? :-) --It's finding and setting up a ladder correctly that's the hard part, at least for me. Then there's the removing-the-light-cover that has cross-threaded screws that can't be turned by hand, that's another problem (while trying to hang onto the ladder). And trying to use that needle-nose plier thingy is a pain, at least for me. Then there's the trying to hang onto the ladder, hold the glass light globe/cover without dropping it, and stick the bulb into the hole correctly (all while holding onto the ladder - and I HATE "heighths"), then turn gently but firmly. If too firmly, the bulb might burst, and THAT would be a nightmare - I might get electrocuted!! Then watch out for the ladder starting to tip, because it's not placed EXACTLY where it should be, and my weight has caused it to lean. Then watch out for that wasp nest that's hidden right up there beside the light fixture. Maybe I should get down and get the wasp spray, but that usually just makes them madder. I wasn't "trained" to do this! HELP! (aka-where's-a-man-when-you-want-one?) From John Ford this little checklist: - Environment: Indoors, outdoors, garage, porch, attic, barn, office? - Vendor: GE, Sylvania, Westinghouse, Phillips, or in-house? - Architecture: Incandescent, fluorescent, halogen, neon, murcury-vapor, xenon, sodium (high or low pressure)? - Platform: Recessed, track, chandelier, sconce, ceiling fixture, table/floor lamp? - Operating system: AC (v110, 220), DC (v1.5, 3, 6, 12)? - Access method: Ladder, stack of crates, jumping, piggy-back, cherry picker? - Language: Muttering, cursing, whining? - User input: Single pole switch, 2-way, dimmer, timer or sensor driven? - GUI: bare bulb (plain or decorative), reflector, diffusion panel, flood, spot or omnidirectional - Output: lumens/candlepower/lux/lamberts/nits? - Downtime: Scheduled or unscheduled? How long? - Maintenance type: Preventive maintenance, upgrade, hyper fix, emergency ZAP? Ok, as as free bonus, one from Ed Goud this little one: Q: How many cops does it take to screw in a light bulb? A: None. It turned itself in. Ok, enough, enough! This is not Friday today! ;-) Paul Gilmartin wrote: >>Shocking and electrifying advice! Thanks, that lighten up my dim-bulb day... >>;-) >>I'm plugging out now... >Galvanized by E.E.'s characteristic wry humor. Galvanized? Hahahaha, oh dear, you made my day! ;-) This is dry (or wry if you want it) good sense of humor... ;-) Oh, look at http://planetmvs.com/ibm-main/faqh.html which contains a reference to 'How many IBM-MAIN Subscribers does it take to change a light bulb?' Ok, enough OT junk, please let me go back to my unscheduled ICH408I broadcasts... Groete / Greetings Elardus Engelbrecht (some of my old and dim signatures... ) How many electrical engineers does it take to change a light bulb? We don't know yet, they're still waiting for a part. How many programmers does it take to change a light bulb? None - it is a hardware problem. Question: How many lawyers take it to change a lightbulb? Answer: I don't know, but this is gonna cost you a lot for consulting fee, fee for actual work done and the bulb itself! Q: How many personal injury attorneys does it take to change a light bulb? A: Three–one to turn the bulb, one to shake him off the ladder, and the third to sue the ladder company. How many surrealists
Re: How many asterisks to change a lightbulb?
Wayne Bickerdike wrote: >And while you are at it, ditch the Edison screw and use a bayonet. 240V would >be good too... Shocking and electrifying advice! Thanks, that lighten up my dim-bulb day... ;-) I'm plugging out now... Groete / Greetings Elardus Engelbrecht -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: How many asterisks to change a lightbulb?
Sankaranarayanan, Vignesh wrote: >Skip, >Wait till you hear about EGNs! Skip is talking about General Resources Classes like SDSF where EGN is not applicable. EGN is for dataset profiles only. As documented on Command Language Ref, I quote partially, "The enhanced generic naming option applies only to data sets ..." Groete / Greetings Elardus Engelbrecht -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: How many asterisks to change a lightbulb?
Walt Farrell wrote: >>On two different RACF plexes, we have these two profiles in the SDSF class: >>ISFCMD.ODSP.* (G) >>ISFCMD.ODSP.** (G) >>I'm confounded to explain the difference between one or two asterisks. Help? >The two differences: >(1) ISFCMD.ODSP.** will protect ISFCMD.ODSP, if that resource exists, bt >ISFCMD.ODSP.* won't. >(2) When both exist, ISFCMD.ODSP.* will (if I remember correctly) be found >first by RACF, and will supercede any specifications in ISFCMD.ODSP.** if both >profiles match the supplied resource name (but I may not remember correctly). True. You have remembered correctly! For 'both profiles match the resource name', in SAG it is stated "If one has an * and the other has a **, the one with * wins." (Look for the URL I listed below) >I'm reasonably sure the RACF Security Administrators Guide discusses this, as >I think I wrote that section of the book at some time. Look in the URL for the SAG: https://www.ibm.com/support/knowledgecenter/SSLTBW_2.2.0/com.ibm.zos.v2r2.icha700/gpcgr.htm There is an excellent table showing most specific to more generic profiles. When in doubt, create different profiles and use a SEARCH to test them out. >Ideally, if only to avoid confusing the security administrators and/or >auditors, one of those profiles should be deleted. I would keep the one with **. In this way I can protect more resources with fewer profiles. Groete / Greetings Elardus Engelbrecht -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Disk space allocation question
Sean Gleann wrote: >Does z/OS / SMS have a set of default space allocation sizes and if so, where >are they held and can I alter or control them? Look in ALLOCxx as kindly suggested by Roger Lowe. If you know what SMS routines were used, look at their definitions. >I have a situation where insufficient contiguous disk space results in the >SPACE request parameters supplied for a DISP=(NEW...) file with values that >are too low to fulfil the final requirements. >Example: I request SPACE=(TRK,(9000,1000)… and what I get is >...TRK,(7200,500), which eventually leads to a B37 abend. Please post that full B37 abend message. There may be another reason why you are not getting what you want. What about trying to use more than one volser for your allocation attempts? >It's that 'eventually' bit that is most disheartening. I would far rather have >the space request completely refused along with a job abend rather than have >the system 'try to help' me. Buy more disks... ;-) Pre-allocations may help before you actually use it, but of course, how do you know what size is 'correct'? Groete / Greetings Elardus Engelbrecht -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: New look and linking for V2.3 product documentation PDFs
Susan Shumway wrote: >I want to make you aware that every PDF in the z/OS V2.3 library was just >refreshed to update the visual style and link coding. Excellent! Thanks for sharing this good news. Groete / Greetings Elardus Engelbrecht -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: BPXF105E
esst...@juno.com wrote: >Both sub directories (SMPHOLD and SMPPTFIN) were created by me.They reside in >My USS Home directory as specified in my RACF OMVS Segment..I can also use >OEDIT from within OMVS to edit and save a file..The batch job uses my userid >to do the OCOPY..There are no ICH408I messages in the SYSLOG nor Job Log. the >permissions are drwxr-xr-x.Confused ? Perhaps someone modified the permissions after you created them. Check the permissions of all and every folders: u and pauld01 and SMPHOLD (and also SMPPTFIN which I don't see in your previous post) Also, check out the attributes of the dataset INMVS. Is your batch job id really pauld01? If so, please show your OMVS Segment of your RACF id. Lastly - your FTP attempt may be not correct. Did you do a binary FTP? Can you compare your previous downloads with your problem file? Groete / Greetings Elardus Engelbrecht -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: z/OS V2R5 Will be the Last Release to Include JES3
Ed Jaffe wrote: >z/OS V2R5 (or whatever it will be called) will be the last release to include >the JES3 feature. IBM justifies that decision in this way: I am feeling for you, you who are really who is one of the serious top-gun JES3 gurus. I remember the ten thousand millions (and still counting) threads in IBM-MAIN about JES3 and comparision and "unification" of JES2 and JES3. >There is still much more to do to bring JES2 up to JES3 standard, but >apparently IBM believes they can get it all done by September 2021... Hahaha, LOL, I don't believe in such predictions that something will happens at time X/Y/Z. Usually I take such 'predictions' with a very small pinch of tasteless salt, but I will remember it and wait at the predicted date/time. Oh, wait, big blue forgot about backward compatibility... I however see, there will be a lot of vendors trying to assisting conversion to JES2 from JES3. Disclaimer: I never ever see or worked with JES3 at all. If I say something about JES3 innards, feel free to disregard it with your great pleasure. ;-) Groete / Greetings Elardus Engelbrecht -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: z/OS 2.4 Announcement Letter (Preview)
Paul Gilmartin wrote: >RACF<->LDAP bridge? Sorry, but I think you are missing something. There is already such an interface. In fact, one of my clients is using a selfhelp web-portal for many years using a SSL LDAP server in one of my LPARs using RACF as a LDAP Backend. Using a LDAP client, you can download a RACF LDAP schema from LDAP's own OMVS folders supplied by IBM. Of course, I disabled DB2 as a LDAP backend to satisfy my cruel auditors. Groete / Greetings Elardus Engelbrecht -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: DEQ dynamically
Jake Anderson wrote: >Is it possible to deallocate a dataset without recycling address space. Why? What are you trying to solve? Or, rather, what are you trying to break? In short - no. You stop the application [1]. >The dataset is users one and for some reason I would like to know if we can >Dynamically remove it from allocation. Stop the holder of that dataset and upon cleanup the dataset will be released by the system. Use D GRS command or ENQ in ISRDDN to see who is holding your dataset and how. Then you stop these ENQ holders. As others said about FREE=CLOSE, in REXX you do a ALLOC, do stuff, then a FREE. As others said, perhaps (?) with an APF-ed program standing outside the ENQ holder address space, you can do 'tricks' at your own career ending peril and serious data loss. Groete / Greetings Elardus Engelbrecht [1] - Or you give a command (if so programmed in the first place of course, say in a menu item or inside the program logic) to do a FREE. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: RACF: Limiting update-authorization of a file to a particular application
Steff Gladstone wrote: Please consider subscribing to RACF-L at http://listserv.uga.edu/archives/racf-l.html >We have an TSO application for end-users that allows them to update certain >VSAM and PDS files. In order for them to update these files we of course have >to give their users update-authorization under RACF for those files. Correct, I am assuming you're refering to VSAM and PDS datasets. >We want to limit their ability to update the files only via the particular TSO >application (or via a particular I/O routine used by the application) and not >via any other application program or IBM utility (e.g., IEBCOPY, ISPF on-line >edit or utilities, etc.). I don't think it is possible, but if the application is a program (load module) which is CALLed in TSO, then it should be possible. See below. I don't think you can protect I/O routines unless you front-end a SVC routine with a ROY exit which is not recommended. For REXX programs, I don't think it is possible to protect it via RACF, unless of course the dataset where it is residing is protected properly. >How can we define the RACF authorizations in such a way as to limit the >end-users' update capabilities to the application (or to a particular I/O >routine) alone? From Knowledge Centre (at https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.3.0/com.ibm.zos.v2r3.icha400/permit.htm#permit) ... you can do that PErmit for Datasets for conditional access via programs (load modules): PERMIT 'XXX.YYY' ID(SMITH) ACCESS(READ) WHEN(PROGRAM(ABC)) or if you want to limit it for a specific LPAR, this: PERMIT 'XXX.YYY' ID(SMITH) ACCESS(READ) WHEN(SYSID(ABC)) Alternative: You can limit a program to be used on a specific LPAR, like this COBOL example: permit IGY* class(PROGRAM) id(?) access(READ) when(SYSID()) >Would the same (or similar) definitions work for a site using Top Secret >instead of RACF? I believe they can also do that, however, I don't know wha the command(s) are for that. HTH! Groete / Greetings Elardus Engelbrecht -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: ISPCFIGU not being used.
Peter Relson wrote: >I know nothing about ISPCFIGU but if you say it works when ISPLLIB then you >should consider that that is where it needs to go. Ok, my turn to help you. This is a [ optional ] module which contains a table of various options for ISPF. You use ISPF Configuration utility (command TSO ISPCCONF) to build it up using keywords. This module ISPCFIGU is placed in ISP.SISPLOAD or in another library. It certainly helps that it is in a LinkList. I use it for examplt to FORCE this setting 'STATS ON' and 'RECOVERY ON' and also enlarge the command recall buffer. >Does it give up? Does it do a "normal" fetch? If ISPF cannot find ISPCFIGU, it then use ISP.SISPLPA(ISPCFIG) which is a default configuration load module. >I'd guess that ISPF searches ISPLLIB first. If what it is looking for is found >via ISPLLIB then that's the copy that's going to be used. Where is it documented that the module must be in ISPLLIB? I did searched on KC, but can't find references for both ISPLLIB and ISPCFIGU. Groete / Greetings Elardus Engelbrecht -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: So long, farewell,Auf wiedersehen, goodbye
Mark Jacobs wrote: >Tomorrow marks my last day at Time Customer Service as the closing of the >division is completed. Oh, this is bad! >After 8573 days, what a long strange trip its been. That is about 23 years and 6 months! With or without leap days? ;-) >I've close to retirement, but would like a few more years. Looking for remote >z/OS System Programmer positions seems to be harder than I initially thought >it would be, but I'm looking everyday. I subscribed to this mailing list (in >digest form) under my personal email address, so I'll be lurking around. Good luck and all of the very best to you. Please continue sharing your wisdom while you search for a position. I will miss you. Groete / Greetings Elardus Engelbrecht -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: External dsect
Peter Relson wrote: >I do agree with all the posts that you should not do a LOAD in an exit. Thanks and I also agree with that. Many years ago, it was my responsibility to load a module with LOAD EP= into a library using SMF UJI exit. That module is a DSECT containing a looong list of accounting codes be used in a JOB (...) statement. Beside overhead issues, it was sometimes difficult to add a new client dynamically. Now, we are just calling RACF. RACF will check if you may use an accounting code. Based on the RC and Reason code your batch job can run or simply fails with a stern message about usage of accounts... I agree with Rob, that you rather, if possible, should use a parm-driven and command refresh instead of having to redo a DSECT assembly. Thanks Peter for your helpful comments. Groete / Greetings Elardus Engelbrecht -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Strange issue with SDSF main panel
Tom Conley wrote: >I've had a very hard time enabling the new commands in SDSF. Indeed. Catch-all profiles in WARNING in a sandbox help a lot. >Issue the TRACE ON;TRACE 80 command, then your failing APF command, then TRACE >OFF. Do a DA OJOB, and a ? in front of the user's TSO session, and look at >the ISFTRACE DD. The RACF profiles are listed in there and you should see the >profile you're failing on. Or you can use the pulldown menu in OPTIONS. Select "22 Set security trace..." After selecting you see a new menu. Where default is 3, check nr 2, 'Issue write-to-programmer messages'. For APF screen, I get this: ISF050I USER=? GROUP=ISFSPROG PROC=? TERMINAL=? ISF051I SAF Access allowed SAFRC=0 ACCESS=READ CLASS=SDSF RESOURCE=ISFCMD.ODSP. APF. ISF059I SAF Access allowed SAFRC=(0,0,0) ACCESS=READ CLASS=SDSF RESOURCE=ISFCMD .FILTER.SYSNAME *** There are two notes - Check the GROUP which is defined in ISFPRMxx PARMLIB menber. Check all the CLASS profiles used too. It also depends on your Filter, Prefix, Owner, Sysname, etc. what you can eventually see or not see. Groete / Greetings Elardus Engelbrecht -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Goodbye, thanks, and take care!
Peter Hunkeler wrote: >I will retire by the end of the month. You may not! ;-) You must enjoy your well deserved retirement. >Thank you so much for all the help, and for all the bearing with me. I learnt >a hell lot just by following this and other fora. Quite often I was able to >solve problems based on the help and the advice given by you. I also enjoyed and learned much from your helpful posts. If you can, please come back and share your wisdom. Many others who retired also are lurking on this and other listservs. All of the very best to you and your family. >I wish you good health and much fun. Thanks Peter and the same to you too. Groete / Greetings Elardus Engelbrecht (from sunny and hot and dry South Africa. Australia is just hotter !!! ) I hope to retire in about 10+ years (human years, not dog years) ;-D -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: FW: Where's the fire? | Computerworld Shark Tank
Mark Regan wrote: I have corrected the URL by joining the 2 lines into 1. >https://www.computerworld.com/article/601/data-center/wheres-the-fire.html Ouch, ouch, ouch, what a nasty fired up event. So, you get fired because there were no fire? ;-) About smoke - One of my previous bosses (during 1990) was a heavy smoker who smoked cigars, pipe and cigaretes. So about 20 - 40+ cigs per day. His ashtray was always full with smoked debris lying around the ashtray and smoke particles everywher on the table, floor, chair, his clothes, etc I hated everytime I had to go to his table, but he was my direct boss ... He was sitting in a corner in a large (about 25 by 25 meters) open plan office with aircondit. Anyways, I just look over to the corner, if there is smoke, then he is in office. No smoke, he is ill at home. Seriously. At that time there was a small fire in our building, but luckily one of the patrolling guards grabbed an extinguisher and smoked out the fire. It was a dustbin fire where someone threw away a still burning cigarette stump. Today, if you want to smoke - you do that outside. Groete / Greetings Elardus Engelbrecht -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
