Re: concat

[Edward Finnell]

Lots of knobs from end user to listserv profile. .txt is a common DOS  
extension for character data. I think attachments are scanned for graphics as  
are normal messages and rejected. The max size of a message is 500 lines  
including attachments(subject to change). Easier to post a link to a video than 
 gumming up the works with attachments.
 
Al's Realloc clist and $Realloc doc came thru as a zip and was able to  
extract both to Windows and view successfully. Didn't try to upload.
 
 
In a message dated 11/30/2016 5:33:43 P.M. Central Standard Time,  
000433f07816-dmarc-requ...@listserv.ua.edu writes:

What  does ".txt" mean?  May I attach a video as long as I rename it to  
"*.txt"?

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

Re: concat

[Mike Myers]

OK, thanks for that info.

Mike

On 11/30/2016 05:25 PM, Edward Finnell wrote:

Attachments are permitted for .txt.
  
  
In a message dated 11/30/2016 12:30:40 P.M. Central Standard Time,

m...@mentor-services.com writes:

I don't  believe that we can attach files on this listserv, so here it is
in source  form:



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



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

Re: concat

[Paul Gilmartin]

On Wed, 30 Nov 2016 17:25:54 -0500, Edward Finnell wrote:

>Attachments are permitted for .txt.
>
What Content-Transfer-Encodings?  8bit?  Quoted-Printable?  Base64?

What does ".txt" mean?  May I attach a video as long as I rename it to "*.txt"?

There must be a size limit.  Not much video.

And, to Ed Gould's likely dismay, I see that the "Charset:" option suppports
no EBCDIC code pages.  Have to convert them to UTF-8.

-- gil

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

Re: concat

[Nims,Alva John (Al)]

I use the attached CLIST to change the concatenations of any of the DDNAMEs, 
except for STEPLIB.  I use an main CLIST that is invoked at login time to add 
to several of the pre-Allocated DDNAMEs and create a few.  The $Realloc.txt is 
some simple documentation I found for the CLIST.

Al Nims
Systems Admin/Programmer 3
UFIT
University of Florida
(352) 273-1298

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Edward Finnell
Sent: Wednesday, November 30, 2016 5:26 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: concat

Attachments are permitted for .txt. 
 
 
In a message dated 11/30/2016 12:30:40 P.M. Central Standard Time, 
m...@mentor-services.com writes:

I don't  believe that we can attach files on this listserv, so here it is in 
source  form:



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

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
PROC 1 DS FIRST LAST ADD REPLACE NOLIST LIST NOPROMPT PROMPT SHR OLD -
   HELP DELETE DDNAME(SYSPROC) DISP(SHR) DEBUG NOERROR
CONTROL NOFLUSH
IF  = HELP OR  = HELP THEN DO
   HELP REALLOC
   EXIT CODE(0)
   END
IF  = OLD THEN SET DISP = OLD
IF  = PROMPT THEN DO
   SET LIST = LIST
   ISPEXEC CONTROL DISPLAY LINE
   END
IF  = LIST THEN CONTROL LIST NOFLUSH
SET SYSOUTTRAP = 1000
LISTA ST
SET SYSOUTTRAP = 0
SET FOUND = NO
SET DSFOUND = NO
SET CONCAT = ()
SET PREF = 
SET PREFL = (())
IF (1:1,) = ' THEN SET DS1 = 
ELSE IF  = THEN SET DS1 = ''
ELSE SET DS1 = ''
SET I = 1
DO WHILE () = NO AND  >= 
   SET DDN = &
   IF  = DEBUG THEN WRITE DEBUG DDN IS 
   IF (()) > 9 THEN -
  IF ((2:10,)) = ( ) THEN DO
 SET FOUND = YES
 SET I =  - 1
 SET DSN = &
 IF  = DEBUG THEN WRITE DEBUG DSN IS 
 IF  = LIST THEN WRITE  ALLOCATION IS
 IF  = LIST THEN WRITE''
 SET DS2 = ''
 IF () >  THEN -
IF (1:,) = () THEN DO
   SET DSN = ((+1):(),)
   IF  = DEBUG THEN WRITE DEBUG DSN IS 
   END
ELSE DO
   SET DSN = ''
   IF  = DEBUG THEN WRITE DEBUG DSN IS 
   END
 ELSE DO
SET DSN = ''
IF  = DEBUG THEN WRITE DEBUG DSN IS 
END
 IF  = AND  ^=  THEN SET CONCAT = 
 IF  =  THEN SET DSFOUND = YES
 END
  ELSE SET I =  + 1
   ELSE SET I =  + 1
   END
IF  = YES THEN DO
   DO WHILE (+3) <= 
  SET I =  + 3
  SET DDN = &
  IF  = DEBUG THEN WRITE DEBUG DDN IS 
  IF ((1:3,)) = () THEN DO
 IF  = REPLACE AND  = LAST THEN -
SET CONCAT = ( ')'
 SET I =  - 1
 SET DSN = &
 IF  = DEBUG THEN WRITE DEBUG DSN IS 
 IF  = LIST THEN WRITE''
 SET DS2 = ''
 IF () >  THEN -
IF (1:,) = () THEN DO
   SET DSN = ((+1):(),)
   IF  = DEBUG THEN WRITE DEBUG DSN IS 
   END
ELSE DO
   SET DSN = ''
   IF  = DEBUG THEN WRITE DEBUG DSN IS 
   END
 ELSE DO
SET DSN = ''
IF  = DEBUG THEN WRITE DEBUG DSN IS 
END
 IF  = OR  = THEN -
IF  ^=  THEN SET CONCAT =  
 IF  =  THEN SET DSFOUND = YES
 END
  ELSE SET I = 
  END
   END
ELSE DO
   IF  = LIST THEN WRITE  IS NOT ALLOCATED.
   END
IF  = LIST THEN DO
   IF  = DELETE THEN DO
  IF  = YES THEN WRITE  WILL BE DELETED FROM THE LIST.
  END
   ELSE IF  = REPLACE THEN DO
  IF  = LAST THEN WRITE THE LAST DATASET WILL BE REPLACED BY 
  ELSE WRITE THE FIRST DATASET WILL BE REPLACED BY 
  END
   ELSE DO
  IF  = LAST THEN WRITE  WILL BE ADDED TO THE END OF THIS LIST.
  ELSE WRITE  WILL BE ADDED TO THE TOP OF THIS LIST.
  END
   END
IF  = DELETE THEN DO
   IF  = NO THEN DO
  IF  ^= NOERROR THEN +
 WRITE DATASET  WAS NOT FOUND IN  ALLOCATION.
  EXIT CODE(4)
  END
   SET CONCAT2 = 
   END
ELSE IF  = LAST THEN SET CONCAT2 =  
ELSE SET CONCAT2 =  
IF  = PROMPT THEN DO
   WRITE ALLOCATION WILL BE CHANGED WITH THE FOLLOWING COMMAND:
   IF  = THEN WRITEFREE FI()
   ELSE WRITEALLOC FI() DS() 
   WRITENR ENTER YES TO EXECUTE THIS COMMAND ===>
   READ
   IF  ^= YES THEN EXIT CODE(0)
   END
IF  = THEN FREE FI()
ELSE ALLOC FI() DS()  REUSE
SET RC = 
IF  ^= 0 THEN DO
   WRITE ALLOCATION FAILED, RETURN CODE 
   IF  = PROMPT THEN DO
  WRITE ALLOCATION WILL BE CHANGED WITH THE FOLLOWING COMMAND:
  WRITEALLOC FI() DS() 
  WRITENR ENTER YES TO EXECUTE THIS COMMAND ===>
  READ
  IF  ^= YES THEN EXIT CODE(0)
  END
   ALLOC FI() DS()

Re: concat

[Edward Finnell]

Attachments are permitted for .txt. 
 
 
In a message dated 11/30/2016 12:30:40 P.M. Central Standard Time,  
m...@mentor-services.com writes:

I don't  believe that we can attach files on this listserv, so here it is 
in source  form:



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

Re: concat

[Steely.Mark]

Thanks to everyone that replied:  I think the best solution for my needs was 
CONCAT from CBT File 831. 

I had fun trying out all the options suggested.

Thanks again


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

Re: concat

[Lizette Koehler]

Or you can create a standalone ALLOC you do once in ISPF.  Use LIBDEFs and 
ALTLIB in it.  Then so long as you remain in that session, you have what you 
need.

When you logoff the ALTLIB and LIBDEFs go away.

Note:  Some products do not use the ALTLIB.  You need to validate what you are 
doing can handle ALTLIB and LIBDEFs.

Enter ISPF, on the command line execute your Allocation REXX/CLIST for your 
LIBDEFs or ALTLIBs, work in that ISPF Session (if you split screen, execute 
your allocation REXX/CLIST again).  Should be good for the life or your ISPF 
environment.  Con:  If you execute another application that does its owns 
LIBDEFs/ALTLIBs may cause interesting issues.

One shop I was in had an ISPF Logon Clist.  It looked for a specific dataset 
name with a member called ALLOCME - when it was found that was executed and 
re-ordered your TSO logon Datasets putting the user files first.  Then it took 
you into ISPF



Lizette


> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
> Behalf Of Jesse 1 Robinson
> Sent: Wednesday, November 30, 2016 12:47 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: concat
> 
> ALTLIB can be used within an application to change the search list for
> Rexx/CLIST but only for the duration of that application. In order to change
> the library concatenation for the life of a session, a (re)concatenation of
> (SYSPROC/SYSEXEC) must be performed at TSO Ready before entering PDF. That new
> concatenation remains effective until logoff or until another reconcatenation
> occurs at TSO Ready.
> 
> .
> .
> J.O.Skip Robinson
> Southern California Edison Company
> Electric Dragon Team Paddler
> SHARE MVS Program Co-Manager
> 323-715-0595 Mobile
> 626-302-7535 Office
> robin...@sce.com
> 
> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
> Behalf Of Itschak Mugzach
> Sent: Wednesday, November 30, 2016 11:04 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: (External):Re: concat
> 
> you can use ALTLIB tso command. It changes the rexx / clist search order by
> placing a user library(ies) in front of sSYSPROC / SYSEXEC.
> 
> ITschak
> 
> ITschak Mugzach
> Z/OS, ISV Products and Application Security & Risk Assessments Professional
> 
> On Wed, Nov 30, 2016 at 6:32 PM, Sri h Kolusu <skol...@us.ibm.com> wrote:
> 
> > Mark,
> >
> > Issue the command TSO ISRDDN;SAVE and it will give you the current
> > allocation list which can be edited, you can add your desired
> > libraries to that clist. It is saved as Userid.ISRDDN.CLIST
> >
> > Thanks,
> > Kolusu
> >
> > IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> wrote on
> > 11/30/2016 09:19:50 AM:
> >
> > > From: "Steely.Mark" <steely.m...@aaa-texas.com>
> > > To: IBM-MAIN@LISTSERV.UA.EDU
> > > Date: 11/30/2016 09:20 AM
> > > Subject: concat
> > > Sent by: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU>
> > >
> > > Would anyone be able to provide a way to concatenate a library to
> > > the SYSPROC allocation.
> > >
> > > I have tried the concat program from the CBT tape file 134 that
> > > abend with a S0c4.
> > > I have tried a rexx exec called ALLOCREX. This sort of works ( it
> > > adds my ds to SYSPROC) but does not keep the same setup of SYSPROC
> > > before the addition.
> > > I have tried clist SPROC from IBM but for some reason it is not working.
> >
> > >
> > >
> > >
> > > Does anyone have something they can share for z/os V2.2.
> > >
> > > Thanks

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

Re: concat

[Jesse 1 Robinson]

ALTLIB can be used within an application to change the search list for 
Rexx/CLIST but only for the duration of that application. In order to change 
the library concatenation for the life of a session, a (re)concatenation of 
(SYSPROC/SYSEXEC) must be performed at TSO Ready before entering PDF. That new 
concatenation remains effective until logoff or until another reconcatenation 
occurs at TSO Ready.

.
.
J.O.Skip Robinson
Southern California Edison Company
Electric Dragon Team Paddler 
SHARE MVS Program Co-Manager
323-715-0595 Mobile
626-302-7535 Office
robin...@sce.com

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Itschak Mugzach
Sent: Wednesday, November 30, 2016 11:04 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: (External):Re: concat

you can use ALTLIB tso command. It changes the rexx / clist search order by 
placing a user library(ies) in front of sSYSPROC / SYSEXEC.

ITschak

ITschak Mugzach
Z/OS, ISV Products and Application Security & Risk Assessments Professional

On Wed, Nov 30, 2016 at 6:32 PM, Sri h Kolusu <skol...@us.ibm.com> wrote:

> Mark,
>
> Issue the command TSO ISRDDN;SAVE and it will give you the current 
> allocation list which can be edited, you can add your desired 
> libraries to that clist. It is saved as Userid.ISRDDN.CLIST
>
> Thanks,
> Kolusu
>
> IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> wrote on
> 11/30/2016 09:19:50 AM:
>
> > From: "Steely.Mark" <steely.m...@aaa-texas.com>
> > To: IBM-MAIN@LISTSERV.UA.EDU
> > Date: 11/30/2016 09:20 AM
> > Subject: concat
> > Sent by: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU>
> >
> > Would anyone be able to provide a way to concatenate a library to 
> > the SYSPROC allocation.
> >
> > I have tried the concat program from the CBT tape file 134 that 
> > abend with a S0c4.
> > I have tried a rexx exec called ALLOCREX. This sort of works ( it 
> > adds my ds to SYSPROC) but does not keep the same setup of SYSPROC 
> > before the addition.
> > I have tried clist SPROC from IBM but for some reason it is not working.
>
> >
> >
> >
> > Does anyone have something they can share for z/os V2.2.
> >
> > Thanks


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

Re: concat

[Itschak Mugzach]

you can use ALTLIB tso command. It changes the rexx / clist search order by
placing a user library(ies) in front of sSYSPROC / SYSEXEC.

ITschak

ITschak Mugzach
Z/OS, ISV Products and Application Security & Risk Assessments Professional

On Wed, Nov 30, 2016 at 6:32 PM, Sri h Kolusu  wrote:

> Mark,
>
> Issue the command TSO ISRDDN;SAVE and it will give you the current
> allocation list which can be edited, you can add your desired libraries to
> that clist. It is saved as Userid.ISRDDN.CLIST
>
> Thanks,
> Kolusu
>
> IBM Mainframe Discussion List  wrote on
> 11/30/2016 09:19:50 AM:
>
> > From: "Steely.Mark" 
> > To: IBM-MAIN@LISTSERV.UA.EDU
> > Date: 11/30/2016 09:20 AM
> > Subject: concat
> > Sent by: IBM Mainframe Discussion List 
> >
> > Would anyone be able to provide a way to concatenate a library to
> > the SYSPROC allocation.
> >
> > I have tried the concat program from the CBT tape file 134 that
> > abend with a S0c4.
> > I have tried a rexx exec called ALLOCREX. This sort of works ( it
> > adds my ds to SYSPROC) but does not keep the same setup of SYSPROC
> > before the addition.
> > I have tried clist SPROC from IBM but for some reason it is not working.
>
> >
> >
> >
> > Does anyone have something they can share for z/os V2.2.
> >
> > Thanks
> >
> > --
> > For IBM-MAIN subscribe / signoff / archive access instructions,
> > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>
>
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>

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

Re: concat

[Lizette Koehler]

Just to clarify - the TSO CLIST manual has the SPROC code in it as a sample for 
CLIST coding

http://www.ibm.com/support/knowledgecenter/SSLTBW_2.1.0/com.ibm.zos.v2r1.ikjb800/sproc.htm

in the past I did copy this and it did run correctly.  But I think it may need 
to run in TSO READY mode.

Are you looking for something that can run under ISPF to reallocate/concatenate 
to SYSPROC, SYSEXEC, etc...


Lizette


> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
> Behalf Of Mike Myers
> Sent: Wednesday, November 30, 2016 11:30 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: concat
> 
> Mark:
> 
> I have a REXX procedure I wrote many years ago that does the job. I can say
> that it works on z/OS 2.1, but don't have access to a 2.2 system, although I
> can see no reason why it won't run there.
> 
> I don't believe that we can attach files on this listserv, so here it is in
> source form:
> 
> /* rexx */
>   /* 
>  Syntax:
>   %ralok dsname filename 
> 
>  This REXX procedure can be used to alter the existing allocation
>  for the file identified in the second operand. The data set
>  whose name is supplied as the first operand will be inserted
>  into the existing allocation (or replace it), depending on the
>  value of the third operand (as follows):
> 
>   top   - inserts the data set named as the first data
>   set in the concatenation for the file
> 
>   bottom- inserts the data set named as the last data
>   set in the concatenation for the file
> 
>   replace   - inserts the data set named as the only data set
>   allocated to the file
> 
>  arguments:
>   dsname- the name of the data set to be used in altering
>   the concatenation for the file.
> 
>   filename  - the ddname of the file whose concatenation is
>   to be altered.
> 
>- explained above - determines
>   where in the concatenation order the data set
>   is placed. The default is top.
>  */
>   /* 
>  Obtain the parameters.
>  */
>  parse upper arg dsname filename option .
>  if length(dsname) = 0 then , /* Dsname and file are required.*/
>if length(filename) = 0 then do
>  say 'You must provide a data set name and a file name.'
>  say 'Syntax: ralok dsname filename <TOP|BOTTOM|REPLACE>'
>exit 20
>  end
>   /* 
>  Initialize variables.
>  */
>  dsnames = ''/* List of allocated data sets   */
>  found = 0   /* Set file found indicator off  */
>  if length(option) = 0 then option = 'TOP'
>   /* 
>  Act on the option specified.
>  */
>  select
>when option = 'REPLACE' then do  /* Replace entire allocation. */
>  address TSO 'ALLOC F('filename') DA('dsname') SHR REUSE'
>  say 'Data set: 'dsname' replaces allocation for file:' filename
>  exit rc
>end
>when (option = 'TOP' | option = 'BOTTOM') then do
>   /* 
>  Enable SYSOUT trapping. Results go in the array named lista.
>  */
>  x = outtrap(lista.) /* Trap output from LISTA command.   */
>  address TSO 'LISTALC ST'
>  x = outtrap(off)/* Disable output trapping.  */
>  if lista.0 = 0 then exit /* No output from LISTALC, quit.*/
>   /* 
>  Find the desired file in the LISTA output.
>  */
>  do line = 2 to lista.0  /* skip command and header lines */
> /* --
>Process terminal file entry or null file entry.
> -- */
>if (substr(lista.line,1,8) \= 'TERMFILE') & ,
>

Re: concat

[Mike Myers]

Mark:

I have a REXX procedure I wrote many years ago that does the job. I can 
say that it works on z/OS 2.1, but don't have access to a 2.2 system, 
although I can see no reason why it won't run there.


I don't believe that we can attach files on this listserv, so here it is 
in source form:


/* rexx */
 /* 
Syntax:
 %ralok dsname filename 

This REXX procedure can be used to alter the existing allocation
for the file identified in the second operand. The data set
whose name is supplied as the first operand will be inserted
into the existing allocation (or replace it), depending on the
value of the third operand (as follows):

 top   - inserts the data set named as the first data
 set in the concatenation for the file

 bottom- inserts the data set named as the last data
 set in the concatenation for the file

 replace   - inserts the data set named as the only data set
 allocated to the file

arguments:
 dsname- the name of the data set to be used in altering
 the concatenation for the file.

 filename  - the ddname of the file whose concatenation is
 to be altered.

  - explained above - determines
 where in the concatenation order the data set
 is placed. The default is top.
 */
 /* 
Obtain the parameters.
 */
parse upper arg dsname filename option .
if length(dsname) = 0 then , /* Dsname and file are required.*/
  if length(filename) = 0 then do
say 'You must provide a data set name and a file name.'
say 'Syntax: ralok dsname filename '
  exit 20
end
 /* 
Initialize variables.
 */
dsnames = ''/* List of allocated data sets   */
found = 0   /* Set file found indicator off  */
if length(option) = 0 then option = 'TOP'
 /* 
Act on the option specified.
 */
select
  when option = 'REPLACE' then do  /* Replace entire allocation. */
address TSO 'ALLOC F('filename') DA('dsname') SHR REUSE'
say 'Data set: 'dsname' replaces allocation for file:' filename
exit rc
  end
  when (option = 'TOP' | option = 'BOTTOM') then do
 /* 
Enable SYSOUT trapping. Results go in the array named lista.
 */
x = outtrap(lista.) /* Trap output from LISTA command.   */
address TSO 'LISTALC ST'
x = outtrap(off)/* Disable output trapping.  */
if lista.0 = 0 then exit /* No output from LISTALC, quit.*/
 /* 
Find the desired file in the LISTA output.
 */
do line = 2 to lista.0  /* skip command and header lines */
   /* --
  Process terminal file entry or null file entry.
-- */
  if (substr(lista.line,1,8) \= 'TERMFILE') & ,
 (substr(lista.line,1,8) \= 'NULLFILE') then do
parse var lista.line ddname .
ddname = strip(ddname)/* Remove blanks   */
if filename = ddname then do  /* Matches input filename  */
  line = line - 1 /* Back up one line.   */
  parse var lista.line name . /* Isolate the dsname  */
  dsnames = "'"strip(name)"'" /* Assign it to the list   */
  found = 0   /* Found = 1 when the next
 file (ddname) is found. */
  line = line + 1 /* Back to current line.   */
  do until found/* Continue to next file.*/
line = line + 2 /* Check for next file   */
if line <= lista.0 then , /* Don't go past end of
 LISTA output listing.   */
  if substr(lista.line,1,8) \= '' then ,
found = 1   /* Next file name found  */
  else do   /* Add another data set name */

Re: [EXTERNAL] Re: concat

[Dyck, Lionel B. (TRA)]

Have you tried the CONCAT from CBT File 831?


--
Lionel B. Dyck (TRA Contractor)
Mainframe Systems Programmer 
Enterprise Infrastructure Support (Station 200) (005OP6.3.10)
VA OI Service Delivery & Engineering

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of John McKown
Sent: Wednesday, November 30, 2016 10:39 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: [EXTERNAL] Re: concat

On Wed, Nov 30, 2016 at 10:19 AM, Steely.Mark <steely.m...@aaa-texas.com>
wrote:

> Would anyone be able to provide a way to concatenate a library to the 
> SYSPROC allocation.
>
> I have tried the concat program from the CBT tape file 134 that abend 
> with a S0c4.
> I have tried a rexx exec called ALLOCREX. This sort of works ( it adds 
> my ds to SYSPROC) but does not keep the same setup of SYSPROC before 
> the addition.
> I have tried clist SPROC from IBM but for some reason it is not working.
>
>
>
> Does anyone have something they can share for z/os V2.2.
>
> Thanks
>
>
​I have not done this, but you might try BPXWDYN 
http://www.ibm.com/support/knowledgecenter/SSLTBW_2.1.0/com.ibm.zos.v2r1.bpxb600/bpx1rx76.htm

Something like:

ALLOC FILE(SYSPRC1) DSN(​dsn1,dsn2) SHR REUSE CALL BPXWDYN 'CONCAT 
DDLIST(SYSPROC,SYSPRC1) PERMC DIAG(DIAG) MSG(MSG)'

BPXWDYN can be use in a CLIST or REXX or other language (it is CALLable from 
COBOL, PL/I, HLASM, etc).


--
Heisenberg may have been here.

Unicode: http://xkcd.com/1726/

Maranatha! <><
John McKown

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

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

Re: concat

[John McKown]

On Wed, Nov 30, 2016 at 10:19 AM, Steely.Mark 
wrote:

> Would anyone be able to provide a way to concatenate a library to the
> SYSPROC allocation.
>
> I have tried the concat program from the CBT tape file 134 that abend with
> a S0c4.
> I have tried a rexx exec called ALLOCREX. This sort of works ( it adds my
> ds to SYSPROC) but does not keep the same setup of SYSPROC before the
> addition.
> I have tried clist SPROC from IBM but for some reason it is not working.
>
>
>
> Does anyone have something they can share for z/os V2.2.
>
> Thanks
>
>
​I have not done this, but you might try BPXWDYN
http://www.ibm.com/support/knowledgecenter/SSLTBW_2.1.0/com.ibm.zos.v2r1.bpxb600/bpx1rx76.htm

Something like:

ALLOC FILE(SYSPRC1) DSN(​dsn1,dsn2) SHR REUSE
CALL BPXWDYN 'CONCAT DDLIST(SYSPROC,SYSPRC1) PERMC DIAG(DIAG) MSG(MSG)'

BPXWDYN can be use in a CLIST or REXX or other language (it is CALLable
from COBOL, PL/I, HLASM, etc).


-- 
Heisenberg may have been here.

Unicode: http://xkcd.com/1726/

Maranatha! <><
John McKown

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

Re: concat

[Sri h Kolusu]

Mark,

Issue the command TSO ISRDDN;SAVE and it will give you the current 
allocation list which can be edited, you can add your desired libraries to 
that clist. It is saved as Userid.ISRDDN.CLIST

Thanks,
Kolusu

IBM Mainframe Discussion List  wrote on 
11/30/2016 09:19:50 AM:

> From: "Steely.Mark" 
> To: IBM-MAIN@LISTSERV.UA.EDU
> Date: 11/30/2016 09:20 AM
> Subject: concat
> Sent by: IBM Mainframe Discussion List 
> 
> Would anyone be able to provide a way to concatenate a library to 
> the SYSPROC allocation. 
> 
> I have tried the concat program from the CBT tape file 134 that 
> abend with a S0c4.
> I have tried a rexx exec called ALLOCREX. This sort of works ( it 
> adds my ds to SYSPROC) but does not keep the same setup of SYSPROC 
> before the addition. 
> I have tried clist SPROC from IBM but for some reason it is not working. 

> 
> 
> 
> Does anyone have something they can share for z/os V2.2. 
> 
> Thanks
> 
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN



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