MVSFORUMS.com

kpmdreamz · Beginner Joined: 06 Apr 2007 Posts: 8 Topics: 2

I am creating the PDS in REXX using ALLOCATE
After i check the created pds and try to create a member inside it - i find that in the PROFILE - NUM is ON.
Everytime i have to do a NUM OFF.

How do i make my REXX create the PDS with NUM OFF

I also need it to have CAPS ON

Nic Clouston · Posted: Tue May 01, 2007 7:20 am Post subject:

Use an initial macro to set your desired settings: something like:-

ISPEXEC 'edit dataset(bvghj) MACRO(setup)'
_________________
Utility and Program control cards are NOT, repeat NOT, JCL.

Bill Dennis · Posted: Tue May 01, 2007 7:51 am Post subject:

NUM OFF is an ISPF setting and is not controlled by allocation. ISPF uses different profiles based on the low-level dsname qualifier (unless you override this action).

For example:
xxx.xxx.CNTL
xxx.xxx.SOURCE

Suppose you name your new PDS something like KPM.REXX.NONUM so that when you edit it the first time and set NUM OFF, ISPF will remember that setting for your edit profile named "NONUM". Be sure not to copy in members with valid sequence numbers or the profile will change to NUM ON.
_________________
Regards,
Bill Dennis

Disclaimer: My comments on this foorum are my own and do not represent the opinions or suggestions of any other person or business entity.

kpmdreamz · Beginner Joined: 06 Apr 2007 Posts: 8 Topics: 2

Nic Clouston · Posted: Tue May 01, 2007 9:27 am Post subject:

Not at all - as Bill said.

But, although you can get it to default to NUM OFF following the method Bill described, subsequently the setting can be changed by the data within the member - if it has vaild sequence numbers then ISPF will change the profile to NUM ON. If you then go to a member without sequence numbers ISPF will turn NUM OFF. It is a data driven thing - just like the CAPS state
_________________
Utility and Program control cards are NOT, repeat NOT, JCL.

kpmdreamz · Beginner Joined: 06 Apr 2007 Posts: 8 Topics: 2

Hi Nic,
thanks for the info.
As of now - i am using your method to have NUM OFF and CAPS ON when the PDS is intially created.
I am doing as below:-
"PROFILE NOPREFIX"
"ALLOC DATASET("DSNNAME") NEW DIR(10) DSORG(PO)",
"SPACE(1 1) CYL RECFM(F B) LRECL(80)",
"BLKSIZE(800)"
ISPEXEC 'edit dataset('DSNNAME'(ONE)) MACRO(INITMAC)'

and my macro is as follows:-
INITMAC---
Address ISREDIT
"MACRO"
"NUM OFF"
"CAPS ON"
"END"
****************
Nic - it is working fine and the new PDS created has NUM OFF and CAPS ON.
Do you see any problem with this approach.
it sure is a long process, but as per my requirement the PDS's must be intially NUM OFF and i can't think of any other way

semigeezer · Posted: Tue May 01, 2007 8:49 pm Post subject:

or "EDIT DATASET('FRED.WILMA.BARNEY(BAMBAM)') MACRO(UNNUM)"

... uses a trick that macros are just a command, but due to some design limitations, you are limited to just the macro name; one word.

I suspect that

var='OFF'
"EDIT DATASET('RALPH.TRIXIE.ED(ALICE)') MACRO(NUM) PARM(VAR)"

might work too but I haven't tried it.

Nic Clouston · Posted: Wed May 02, 2007 3:35 am Post subject:

It's only a long approach coding it the first time - now it does it at the speed of light - or rather the mainframe. The advantage of using a mcro is that you can do multiple commands as you have - you coud even add REC ON I guess so that UNDO is available. The disadvantage of using a macro is that it is one more object to maintain.
_________________
Utility and Program control cards are NOT, repeat NOT, JCL.

kpmdreamz · Beginner Joined: 06 Apr 2007 Posts: 8 Topics: 2

Hi semigeezer,
both the suggestions work - but they throw open the PDS member which i don't want-
so will have to go with the MACRO.

kpmdreamz · Beginner Joined: 06 Apr 2007 Posts: 8 Topics: 2

Nic - Thanks for the input.
I have added REC ON too. Smile