Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss
Re: ISPF Log file preallocation - bodge the ISPSPROF member? [SEC=UNCLASSIFIED]
150 views
Skip to first unread message
Fenner, Jim
Feb 11, 2015, 11:58:12 PM2/11/15
to
Hi guys,
ISPSPROF is just a member in a PDS, can you not EXECIO it into a rexx, change it to taste, and rewrite it? No ISPF services.
The variable names are in 8-char-wide slots with nowhere to hide
Jim
Apologies in advance if this is stupid...
-----Original Message-----
From: TSO REXX Discussion List [mailto:TSO-...@VM.MARIST.EDU] On Behalf Of Steve Coalbran
Sent: Thursday, 12 February 2015 12:57 AM
To: TSO-...@VM.MARIST.EDU
Subject: Re: ISPF Log file preallocation
Thanks David.
Sadly VPUT won't work as they aren't stored in the profile member ISPPROF but in ISPSPROF.
I tried it... zip!
I see the variables: ZLOGFDSP, ZLOG1PGP & ZLOG2PGP set in ISPSPROF.
I did try adding an NEWAPPL(ISPS) but can't fool ISPF!...
ISPD133 Invalid application ID
Appl ID 'ISPS' is reserved for system use by the dialog manager.
Bummer? ¦-(
I think I will have to proceed with my table services jiggery-pokery on ISPSPROF.
It's getting there.
Whether it is worth all this effort to bypass one little prompt I am not sure?! :-/
/Steve
From: "Baldon, David" <David_...@BMC.COM>
To: TSO-...@VM.MARIST.EDU,
Date: 2015-02-11 14:04
Subject: Re: [TSO-REXX] ISPF Log file preallocation
Sent by: TSO REXX Discussion List <TSO-...@VM.MARIST.EDU>
The thanks belong to Ken. I just confirmed his suggested solution.
Since the log is allocated as part of the ISPF startup process, once you set the variables and VPUT them (only PROFILE is needed), you'll have to exit ISPF at which time the original values will be used. Then, start ISPF again and the new values should be used meaning no log data set will be allocated or opened.
...David
-----Original Message-----
From: TSO REXX Discussion List [mailto:TSO-...@VM.MARIST.EDU] On Behalf Of Steve Coalbran
Sent: Wednesday, February 11, 2015 1:06 AM
To: TSO-...@VM.MARIST.EDU
Subject: Re: ISPF Log file preallocation
Thanks David.
That works! :-D
As you say sometimes (if, in my case, rarely) one needs the LOG but I guess it's just to reset the ZLOG1PGP & ZLOG2PGP variables?
I tried doing this inside the ENVLOG dialogue and VPUTting to everywhere like this...
PARSE VALUE 3 0 0 0 0 WITH zlogclap zlog1pg zlog2pg zlog1pgp zlog2pgp "VPUT (ZLOGCLAP ZLOG1PG ZLOG2PG ZLOG1PGP ZLOG2PGP) PROFILE "
"VPUT (ZLOGCLAP ZLOG1PG ZLOG2PG ZLOG1PGP ZLOG2PGP) SHARED "
"VPUT (ZLOGCLAP ZLOG1PG ZLOG2PG ZLOG1PGP ZLOG2PGP) "
...but this is completely ignored! :-(
/Steve
From: "Baldon, David" <David_...@BMC.COM>
To: TSO-...@VM.MARIST.EDU,
Date: 2015-02-10 17:30
Subject: Re: [TSO-REXX] ISPF Log file preallocation
Sent by: TSO REXX Discussion List <TSO-...@VM.MARIST.EDU>
This worked for me but there are times I need the log so...
-----Original Message-----
From: TSO REXX Discussion List [mailto:TSO-...@VM.MARIST.EDU] On Behalf Of Ken MacKenzie
Sent: Monday, February 09, 2015 9:27 AM
To: TSO-...@VM.MARIST.EDU
Subject: Re: ISPF Log file preallocation
Do you need the log? I usually go to SETTINGS (main menu option 0) and select LOG/LIST defaults and then select Log Data set defaults.
Set the primary pages and secondary pages to zero - nothing gets logged.
Does that help?
Ken MacKenzie
Pramerica Systems Ireland Limited
is a private company limited by shares
incorporated and registered in the Republic of Ireland with registered number 319900 and registered office at 6th Floor, South Bank House, Barrow
Street, Dublin 4, Ireland.
From: Steve Coalbran <COA...@SE.IBM.COM>
To: TSO-...@VM.MARIST.EDU,
Date: 09/02/2015 09:24
Subject: [TSO-REXX] ISPF Log file preallocation
Sent by: TSO REXX Discussion List <TSO-...@VM.MARIST.EDU>
I am trying to hide the message: "SE16661.PLEX0000.SPFLOG1 was preallocated (no free was done)."
I have tried many things including DUMMYing out just about any likely SYSOUT files, although if they are Permalc-d this won't have worked?
Any ideas? :-D
FYI: I am working on MOPZT01 (IBM Demopkg machine in Montpellier) using Logon Proc ADTUSER.
Såvida annat inte anges ovan: / Unless stated otherwise above:
IBM Svenska AB
Organisationsnummer: 556026-6883
Adress: 164 92 Stockholm
----------------------------------------------------------------------
For TSO-REXX subscribe / signoff / archive access instructions, send email
to LIST...@VM.MARIST.EDU with the message: INFO TSO-REXX
----------------------------------------------------------------------
For TSO-REXX subscribe / signoff / archive access instructions, send email
to LIST...@VM.MARIST.EDU with the message: INFO TSO-REXX
----------------------------------------------------------------------
For TSO-REXX subscribe / signoff / archive access instructions, send email to LIST...@VM.MARIST.EDU with the message: INFO TSO-REXX
Såvida annat inte anges ovan: / Unless stated otherwise above:
IBM Svenska AB
Organisationsnummer: 556026-6883
Adress: 164 92 Stockholm
----------------------------------------------------------------------
For TSO-REXX subscribe / signoff / archive access instructions, send email to LIST...@VM.MARIST.EDU with the message: INFO TSO-REXX
----------------------------------------------------------------------
For TSO-REXX subscribe / signoff / archive access instructions, send email to LIST...@VM.MARIST.EDU with the message: INFO TSO-REXX
Såvida annat inte anges ovan: / Unless stated otherwise above:
IBM Svenska AB
Organisationsnummer: 556026-6883
Adress: 164 92 Stockholm
----------------------------------------------------------------------
For TSO-REXX subscribe / signoff / archive access instructions, send email to LIST...@VM.MARIST.EDU with the message: INFO TSO-REXX
**********************************************************************
IMPORTANT
The information transmitted is for the use of the intended
recipient only and may contain confidential and/or legally
privileged material. Any review, re-transmission, disclosure,
dissemination or other use of, or taking of any action in
reliance upon, this information by persons or entities other
than the intended recipient is prohibited and may result in
severe penalties. If you have received this e-mail in error
please notify the Privacy Hotline of the Australian Taxation
Office, telephone 1300 661 542 and delete all copies of this
transmission together with any attachments.
**********************************************************************
----------------------------------------------------------------------
For TSO-REXX subscribe / signoff / archive access instructions,
send email to LIST...@VM.MARIST.EDU with the message: INFO TSO-REXX
ISPSPROF is just a member in a PDS, can you not EXECIO it into a rexx, change it to taste, and rewrite it? No ISPF services.
The variable names are in 8-char-wide slots with nowhere to hide
Jim
Apologies in advance if this is stupid...
-----Original Message-----
From: TSO REXX Discussion List [mailto:TSO-...@VM.MARIST.EDU] On Behalf Of Steve Coalbran
Sent: Thursday, 12 February 2015 12:57 AM
To: TSO-...@VM.MARIST.EDU
Subject: Re: ISPF Log file preallocation
Thanks David.
Sadly VPUT won't work as they aren't stored in the profile member ISPPROF but in ISPSPROF.
I tried it... zip!
I see the variables: ZLOGFDSP, ZLOG1PGP & ZLOG2PGP set in ISPSPROF.
I did try adding an NEWAPPL(ISPS) but can't fool ISPF!...
ISPD133 Invalid application ID
Appl ID 'ISPS' is reserved for system use by the dialog manager.
Bummer? ¦-(
I think I will have to proceed with my table services jiggery-pokery on ISPSPROF.
It's getting there.
Whether it is worth all this effort to bypass one little prompt I am not sure?! :-/
/Steve
From: "Baldon, David" <David_...@BMC.COM>
To: TSO-...@VM.MARIST.EDU,
Date: 2015-02-11 14:04
Subject: Re: [TSO-REXX] ISPF Log file preallocation
Sent by: TSO REXX Discussion List <TSO-...@VM.MARIST.EDU>
The thanks belong to Ken. I just confirmed his suggested solution.
Since the log is allocated as part of the ISPF startup process, once you set the variables and VPUT them (only PROFILE is needed), you'll have to exit ISPF at which time the original values will be used. Then, start ISPF again and the new values should be used meaning no log data set will be allocated or opened.
...David
-----Original Message-----
From: TSO REXX Discussion List [mailto:TSO-...@VM.MARIST.EDU] On Behalf Of Steve Coalbran
Sent: Wednesday, February 11, 2015 1:06 AM
To: TSO-...@VM.MARIST.EDU
Subject: Re: ISPF Log file preallocation
Thanks David.
That works! :-D
As you say sometimes (if, in my case, rarely) one needs the LOG but I guess it's just to reset the ZLOG1PGP & ZLOG2PGP variables?
I tried doing this inside the ENVLOG dialogue and VPUTting to everywhere like this...
PARSE VALUE 3 0 0 0 0 WITH zlogclap zlog1pg zlog2pg zlog1pgp zlog2pgp "VPUT (ZLOGCLAP ZLOG1PG ZLOG2PG ZLOG1PGP ZLOG2PGP) PROFILE "
"VPUT (ZLOGCLAP ZLOG1PG ZLOG2PG ZLOG1PGP ZLOG2PGP) SHARED "
"VPUT (ZLOGCLAP ZLOG1PG ZLOG2PG ZLOG1PGP ZLOG2PGP) "
...but this is completely ignored! :-(
/Steve
From: "Baldon, David" <David_...@BMC.COM>
To: TSO-...@VM.MARIST.EDU,
Date: 2015-02-10 17:30
Subject: Re: [TSO-REXX] ISPF Log file preallocation
Sent by: TSO REXX Discussion List <TSO-...@VM.MARIST.EDU>
This worked for me but there are times I need the log so...
-----Original Message-----
From: TSO REXX Discussion List [mailto:TSO-...@VM.MARIST.EDU] On Behalf Of Ken MacKenzie
Sent: Monday, February 09, 2015 9:27 AM
To: TSO-...@VM.MARIST.EDU
Subject: Re: ISPF Log file preallocation
Do you need the log? I usually go to SETTINGS (main menu option 0) and select LOG/LIST defaults and then select Log Data set defaults.
Set the primary pages and secondary pages to zero - nothing gets logged.
Does that help?
Ken MacKenzie
Pramerica Systems Ireland Limited
is a private company limited by shares
incorporated and registered in the Republic of Ireland with registered number 319900 and registered office at 6th Floor, South Bank House, Barrow
Street, Dublin 4, Ireland.
From: Steve Coalbran <COA...@SE.IBM.COM>
To: TSO-...@VM.MARIST.EDU,
Date: 09/02/2015 09:24
Subject: [TSO-REXX] ISPF Log file preallocation
Sent by: TSO REXX Discussion List <TSO-...@VM.MARIST.EDU>
I am trying to hide the message: "SE16661.PLEX0000.SPFLOG1 was preallocated (no free was done)."
I have tried many things including DUMMYing out just about any likely SYSOUT files, although if they are Permalc-d this won't have worked?
Any ideas? :-D
FYI: I am working on MOPZT01 (IBM Demopkg machine in Montpellier) using Logon Proc ADTUSER.
Såvida annat inte anges ovan: / Unless stated otherwise above:
IBM Svenska AB
Organisationsnummer: 556026-6883
Adress: 164 92 Stockholm
----------------------------------------------------------------------
For TSO-REXX subscribe / signoff / archive access instructions, send email
to LIST...@VM.MARIST.EDU with the message: INFO TSO-REXX
----------------------------------------------------------------------
For TSO-REXX subscribe / signoff / archive access instructions, send email
to LIST...@VM.MARIST.EDU with the message: INFO TSO-REXX
----------------------------------------------------------------------
For TSO-REXX subscribe / signoff / archive access instructions, send email to LIST...@VM.MARIST.EDU with the message: INFO TSO-REXX
Såvida annat inte anges ovan: / Unless stated otherwise above:
IBM Svenska AB
Organisationsnummer: 556026-6883
Adress: 164 92 Stockholm
----------------------------------------------------------------------
For TSO-REXX subscribe / signoff / archive access instructions, send email to LIST...@VM.MARIST.EDU with the message: INFO TSO-REXX
----------------------------------------------------------------------
For TSO-REXX subscribe / signoff / archive access instructions, send email to LIST...@VM.MARIST.EDU with the message: INFO TSO-REXX
Såvida annat inte anges ovan: / Unless stated otherwise above:
IBM Svenska AB
Organisationsnummer: 556026-6883
Adress: 164 92 Stockholm
----------------------------------------------------------------------
For TSO-REXX subscribe / signoff / archive access instructions, send email to LIST...@VM.MARIST.EDU with the message: INFO TSO-REXX
**********************************************************************
IMPORTANT
The information transmitted is for the use of the intended
recipient only and may contain confidential and/or legally
privileged material. Any review, re-transmission, disclosure,
dissemination or other use of, or taking of any action in
reliance upon, this information by persons or entities other
than the intended recipient is prohibited and may result in
severe penalties. If you have received this e-mail in error
please notify the Privacy Hotline of the Australian Taxation
Office, telephone 1300 661 542 and delete all copies of this
transmission together with any attachments.
**********************************************************************
----------------------------------------------------------------------
For TSO-REXX subscribe / signoff / archive access instructions,
send email to LIST...@VM.MARIST.EDU with the message: INFO TSO-REXX
Steve Coalbran
Feb 12, 2015, 2:56:24 AM2/12/15
to
Thanks Jim
Yes, I guess one could do this.
It's not totally straightforward as the variables can wrap lines?
Also, the values are varying length?
ZLOGFDSP may be null!
ZLOG1PGP & ZLOG2PGP may be 1-4 in length?
Defaults appear to be: (deleting the member outside ISPF and restarting)
ZLOGFDSP=''
ZLOG1PG ='10'
ZLOG2PG ='10'
So this will, in EXECIO terms leave:
- - - - - - - - - - - - - - - - 18 Line(s) not Displayed
2...ZLLGJOB3...ZLLGJOB4...ZLMP ..Y.ZLOGCHAR..1.ZLOGCLA ...ZLOGCLAL...
ZLOGFDSP
F000EDDCDDCF000EDDCDDCF000EDDD444400E0EDDCCCCD00F0EDDCCDC4000EDDCCDCD000
EDDCCCED
200893371623008933716240049347000001889367381901179367331000893673313008
93676427
------------------------------------------------------------------------------
...ZLOGIDSP..Y.ZLOGKEPT.. .ZLOGLIN ..60.ZLOGMID ..N.ZLOGPID2...ZLOG1PG
..10.ZLOG
000EDDCCCED00E0EDDCDCDE0040EDDCDCD400FF0EDDCDCC400D0EDDCDCCF000EDDCFDC400
FF0EDDC
0089367942701889367257301079367395002607936749400158936779420079367177002
1079367
------------------------------------------------------------------------------
2PG ..10.ZLSTCHAR..1.ZLSTCLA
...ZLSTCLAL...ZLSTFDSP...ZLSTIDSP..Y.ZLSTKEPT..N.ZL
FDC400
FF0EDEECCCD00F0EDEECDC4000EDEECDCD000EDEECCED000EDEECCED00E0EDEEDCDE00D0ED
277002
10893233819011793233310008932333130089323642700893239427018893232573015793
------------------------------------------------------------------------------
- - - - - - - - - - - - - - - - 22 Line(s) not Displayed
Format for a variable seems to be:
Pos:
1 Variable length nn
2-9 Variable Name
10-11 Value length nnnn
12> Value
Inserting a value into ZLOGFDSP might prove difficult?!
On the other hand it may be that only these two need to be set.
Using my VIEWPROF function I see that...
ZLOGFDSP=''
ZLOG1PG ='0 '
ZLOG2PG ='0 '
Hence the default length of the ZLOGnPG vars appears to be 2 (zapable?).
/Steve
Yes, I guess one could do this.
It's not totally straightforward as the variables can wrap lines?
Also, the values are varying length?
ZLOGFDSP may be null!
ZLOG1PGP & ZLOG2PGP may be 1-4 in length?
Defaults appear to be: (deleting the member outside ISPF and restarting)
ZLOGFDSP=''
ZLOG1PG ='10'
ZLOG2PG ='10'
So this will, in EXECIO terms leave:
- - - - - - - - - - - - - - - - 18 Line(s) not Displayed
2...ZLLGJOB3...ZLLGJOB4...ZLMP ..Y.ZLOGCHAR..1.ZLOGCLA ...ZLOGCLAL...
ZLOGFDSP
F000EDDCDDCF000EDDCDDCF000EDDD444400E0EDDCCCCD00F0EDDCCDC4000EDDCCDCD000
EDDCCCED
200893371623008933716240049347000001889367381901179367331000893673313008
93676427
------------------------------------------------------------------------------
...ZLOGIDSP..Y.ZLOGKEPT.. .ZLOGLIN ..60.ZLOGMID ..N.ZLOGPID2...ZLOG1PG
..10.ZLOG
000EDDCCCED00E0EDDCDCDE0040EDDCDCD400FF0EDDCDCC400D0EDDCDCCF000EDDCFDC400
FF0EDDC
0089367942701889367257301079367395002607936749400158936779420079367177002
1079367
------------------------------------------------------------------------------
2PG ..10.ZLSTCHAR..1.ZLSTCLA
...ZLSTCLAL...ZLSTFDSP...ZLSTIDSP..Y.ZLSTKEPT..N.ZL
FDC400
FF0EDEECCCD00F0EDEECDC4000EDEECDCD000EDEECCED000EDEECCED00E0EDEEDCDE00D0ED
277002
10893233819011793233310008932333130089323642700893239427018893232573015793
------------------------------------------------------------------------------
- - - - - - - - - - - - - - - - 22 Line(s) not Displayed
Format for a variable seems to be:
Pos:
1 Variable length nn
2-9 Variable Name
10-11 Value length nnnn
12> Value
Inserting a value into ZLOGFDSP might prove difficult?!
On the other hand it may be that only these two need to be set.
Using my VIEWPROF function I see that...
ZLOGFDSP=''
ZLOG1PG ='0 '
ZLOG2PG ='0 '
Hence the default length of the ZLOGnPG vars appears to be 2 (zapable?).
/Steve
Steve Coalbran
Feb 12, 2015, 5:08:50 AM2/12/15
to
Hi Jim
Attempted to zap the profile member ISPSPROF and as I view it inline, I
have.
Sadly, although it does change the profile member, it doesn't work.
I am guessing that ISPF caches ISPSPROF and rewrites it?! Bummer?
Here is my current ENVLOGO exec!
(as always Ö=@ and =| for many peoples codepage, I'm on 1143)
/*REXX*/ TRACE "O"
ARG panel
ADDRESS TSO
IF( panel="" )THEN PULL panel
IF( panel="" )THEN EXIT 20
sw = SYSVAR(SYSWTERM)-4
sl = SYSVAR(SYSLTERM)-4
CALL ISPSPROFZAP
ADDRESS ISPEXEC
"CONTROL ERRORS RETURN "
"CONTROL NONDISPL ENTER "
"DISPLAY PANEL(ISRÖPRIM) "
"ADDPOP ROW("sl-14") COLUMN(-99) "
"DISPLAY PANEL("panel") "
"REMPOP ALL "
"CONTROL DISPLAY REFRESH "
"CONTROL NONDISPL ENTER "
EXIT /*>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>*/
/*===================================================================*/
/* set the primary and secondary log pages to zero */
/*===================================================================*/
ISPSPROFZAP:
qds = LISTDSI("ISPTABL FILE")
pds = sysdsname
RC = BPXWDYN("ALLOC RTDDN(PDD) ")
"ALLOC DD("pdd") DS('"pds"(ISPSPROF)') SHR REUSE "
PARSE VALUE "" WITH p. prf
"EXECIO * DISKR" pdd "(STEM P. FINIS "
DO r = 1 TO p.0
prf = prf!!LEFT(p.r,80)
END
prs = prf
p1p = POS("ZLOG1PG ",prf)
IF( p1p>0 )THEN DO
vul = C2X(SUBSTR(prf,p1p+8,2))
IF( vul<1 )THEN SIGNAL FREE /* should not be possible */
val = LEFT(0,vul)
prf = OVERLAY(val,prf,p1p+10,vul)
END
ELSE NOP
p2p = POS("ZLOG2PG ",prf)
IF( p2p>0 )THEN DO
vul = C2X(SUBSTR(prf,p2p+8,2))
IF( vul<1 )THEN SIGNAL FREE /* should not be possible */
val = LEFT(0,vul)
prf = OVERLAY(val,prf,p2p+10,vul)
END
ELSE NOP
IF( prs<>prf )THEN DO
s = 1
DO r = 1 TO p.0
r1 = SUBSTR(prf,s,80)
s = s + 80
p.r = r1
END
"EXECIO" p.0 "DISKW" pdd "(STEM P. FINIS "
END
ELSE NOP
/*
ADDRESS ISPEXEC "VIEW DATASET('SE16661.NEWZT01.ISPF.ISPPROF(ISPSPROF)')"
*/
FREE:
"FREE DD("pdd") "
DROP P.
RETURN /*>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>*/
/Steve
From: "Fenner, Jim" <Jim.F...@ATO.GOV.AU>
To: TSO-...@VM.MARIST.EDU,
Date: 2015-02-12 05:58
Subject: Re: [TSO-REXX] ISPF Log file preallocation - bodge the
ISPSPROF member? [SEC=UNCLASSIFIED]
Attempted to zap the profile member ISPSPROF and as I view it inline, I
have.
Sadly, although it does change the profile member, it doesn't work.
I am guessing that ISPF caches ISPSPROF and rewrites it?! Bummer?
Here is my current ENVLOGO exec!
(as always Ö=@ and =| for many peoples codepage, I'm on 1143)
/*REXX*/ TRACE "O"
ARG panel
ADDRESS TSO
IF( panel="" )THEN PULL panel
IF( panel="" )THEN EXIT 20
sw = SYSVAR(SYSWTERM)-4
sl = SYSVAR(SYSLTERM)-4
CALL ISPSPROFZAP
ADDRESS ISPEXEC
"CONTROL ERRORS RETURN "
"CONTROL NONDISPL ENTER "
"DISPLAY PANEL(ISRÖPRIM) "
"ADDPOP ROW("sl-14") COLUMN(-99) "
"DISPLAY PANEL("panel") "
"REMPOP ALL "
"CONTROL DISPLAY REFRESH "
"CONTROL NONDISPL ENTER "
EXIT /*>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>*/
/*===================================================================*/
/* set the primary and secondary log pages to zero */
/*===================================================================*/
ISPSPROFZAP:
qds = LISTDSI("ISPTABL FILE")
pds = sysdsname
RC = BPXWDYN("ALLOC RTDDN(PDD) ")
"ALLOC DD("pdd") DS('"pds"(ISPSPROF)') SHR REUSE "
PARSE VALUE "" WITH p. prf
"EXECIO * DISKR" pdd "(STEM P. FINIS "
DO r = 1 TO p.0
prf = prf!!LEFT(p.r,80)
END
prs = prf
p1p = POS("ZLOG1PG ",prf)
IF( p1p>0 )THEN DO
vul = C2X(SUBSTR(prf,p1p+8,2))
IF( vul<1 )THEN SIGNAL FREE /* should not be possible */
val = LEFT(0,vul)
prf = OVERLAY(val,prf,p1p+10,vul)
END
ELSE NOP
p2p = POS("ZLOG2PG ",prf)
IF( p2p>0 )THEN DO
vul = C2X(SUBSTR(prf,p2p+8,2))
IF( vul<1 )THEN SIGNAL FREE /* should not be possible */
val = LEFT(0,vul)
prf = OVERLAY(val,prf,p2p+10,vul)
END
ELSE NOP
IF( prs<>prf )THEN DO
s = 1
DO r = 1 TO p.0
r1 = SUBSTR(prf,s,80)
s = s + 80
p.r = r1
END
"EXECIO" p.0 "DISKW" pdd "(STEM P. FINIS "
END
ELSE NOP
/*
ADDRESS ISPEXEC "VIEW DATASET('SE16661.NEWZT01.ISPF.ISPPROF(ISPSPROF)')"
*/
FREE:
"FREE DD("pdd") "
DROP P.
RETURN /*>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>*/
/Steve
From: "Fenner, Jim" <Jim.F...@ATO.GOV.AU>
To: TSO-...@VM.MARIST.EDU,
Date: 2015-02-12 05:58
Subject: Re: [TSO-REXX] ISPF Log file preallocation - bodge the
ISPSPROF member? [SEC=UNCLASSIFIED]
Hi guys,
ISPSPROF is just a member in a PDS, can you not EXECIO it
into a rexx, change it to taste, and rewrite it? No ISPF services.
The variable names are in 8-char-wide slots with nowhere to hide
Jim
Apologies in advance if this is stupid...
-----Original Message-----
Deleted
ISPSPROF is just a member in a PDS, can you not EXECIO it
into a rexx, change it to taste, and rewrite it? No ISPF services.
The variable names are in 8-char-wide slots with nowhere to hide
Jim
Apologies in advance if this is stupid...
-----Original Message-----
Don Imbriale
Feb 12, 2015, 9:07:29 AM2/12/15
to
Mucking around with internals of a usually-system-maintained member with
facilities not intended for that purpose is probably not a good idea. Be
prepared to maintain this whenever maintenance is put on or a new release
is installed.
facilities not intended for that purpose is probably not a good idea. Be
prepared to maintain this whenever maintenance is put on or a new release
is installed.
Steve Coalbran
Feb 12, 2015, 9:14:51 AM2/12/15
to
I gave up already! :lol:
/Steve
From: Don Imbriale <don.im...@GMAIL.COM>
To: TSO-...@VM.MARIST.EDU,
Date: 2015-02-12 15:08
Subject: Re: [TSO-REXX] ISPF Log file preallocation - bodge the
ISPSPROF member? [SEC=UNCLASSIFIED]
Sent by: TSO REXX Discussion List <TSO-...@VM.MARIST.EDU>
?Mucking around with internals of a usually-system-maintained member with
Såvida annat inte anges ovan: / Unless stated otherwise above:
IBM Svenska AB
Organisationsnummer: 556026-6883
Adress: 164 92 Stockholm
/Steve
From: Don Imbriale <don.im...@GMAIL.COM>
To: TSO-...@VM.MARIST.EDU,
Date: 2015-02-12 15:08
Subject: Re: [TSO-REXX] ISPF Log file preallocation - bodge the
ISPSPROF member? [SEC=UNCLASSIFIED]
Sent by: TSO REXX Discussion List <TSO-...@VM.MARIST.EDU>
facilities not intended for that purpose is probably not a good idea. Be
prepared to maintain this whenever maintenance is put on or a new release
is installed.?
prepared to maintain this whenever maintenance is put on or a new release
Såvida annat inte anges ovan: / Unless stated otherwise above:
IBM Svenska AB
Organisationsnummer: 556026-6883
Adress: 164 92 Stockholm
Richards, Robert B.
Feb 12, 2015, 9:16:57 AM2/12/15
to
There went all the Hercules folks.... :-)
And The Linux crowd... <grin>
Etc...
-----Original Message-----
From: TSO REXX Discussion List [mailto:TSO-...@VM.MARIST.EDU] On Behalf Of Don Imbriale
Sent: Thursday, February 12, 2015 9:07 AM
To: TSO-...@VM.MARIST.EDU
Subject: Re: [TSO-REXX] ISPF Log file preallocation - bodge the ISPSPROF member? [SEC=UNCLASSIFIED]
And The Linux crowd... <grin>
Etc...
-----Original Message-----
From: TSO REXX Discussion List [mailto:TSO-...@VM.MARIST.EDU] On Behalf Of Don Imbriale
Sent: Thursday, February 12, 2015 9:07 AM
To: TSO-...@VM.MARIST.EDU
Subject: Re: [TSO-REXX] ISPF Log file preallocation - bodge the ISPSPROF member? [SEC=UNCLASSIFIED]
Steve Coalbran
Feb 12, 2015, 9:21:08 AM2/12/15
to
Just as long as they don't move the TIOT from 10 ?! :-O
/Steve
Såvida annat inte anges ovan: / Unless stated otherwise above:
IBM Svenska AB
Organisationsnummer: 556026-6883
Adress: 164 92 Stockholm
/Steve
Date: 2015-02-12 15:17
Subject: Re: [TSO-REXX] ISPF Log file preallocation - bodge the
ISPSPROF member? [SEC=UNCLASSIFIED]
Subject: Re: [TSO-REXX] ISPF Log file preallocation - bodge the
ISPSPROF member? [SEC=UNCLASSIFIED]
There went all the Hercules folks.... :-)
And The Linux crowd... <grin>
Etc...
-----Original Message-----
deleted
And The Linux crowd... <grin>
Etc...
-----Original Message-----
Såvida annat inte anges ovan: / Unless stated otherwise above:
IBM Svenska AB
Organisationsnummer: 556026-6883
Adress: 164 92 Stockholm
0 new messages