What is a PC Call?

[Bill Ashton]

Hi all!

Where can I find out what a PC Call is, and how to use/code these?

Thank you and best regards,
*Billy Ashton*

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

Re: 24/7/365 appropriateness was Re: IBMLink outages in 2012

[Bill Ashton]

In actuality, isn't 24x7 comprehensive enough?

The 24 infers that the availability is round the clock, as opposed to most
operating schedules that embrace a single day shift of 8 hours (banker's
hours), or a day of 14 or 16 hours.
The 7 infers that availability is every day of the week, as opposed to only
5 days or 6 days as posited by many businesses.

Beyond these, there is no de rigueur schedule of weeks within a year, or
even days within a year that is consistently embraced across all cutures
and peoples. Consequently, there is no need to stress availability for 52
or 52.(fraction) weeks and no need to stress 365 day availability. Neither
of these adds clarity beyond what 24x7 or 24/7 or whatever representation
you give to "every hour, every day."

Billy

On Wed, May 23, 2012 at 7:54 AM, Clark Morris wrote:

> On 22 May 2012 20:04:42 -0700, in bit.listserv.ibm-main you wrote:
>
> >In , on 05/21/2012
> >   at 03:51 PM, Clark Morris  said:
> >
> >>I'm the last to see my own errors.  Hopefully it was obvious I
> >>meant 24/7/365
> >
> >That's no better. Either 24/7/52 or 24/365 would be approximately
> >correct.
> >
>
> On a logical basis I agree with you but has the 24/7/365 shortcut for
> continuous availability become so pervasive that it is the shorthand
> way for saying it and is it the way that the general public as opposed
> to us professional nitpickers best understands it?
>
> Clark Morris
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
>



-- 
Thank you and best regards,
*Billy Ashton*

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

Striped file information

[Bill Ashton]

Hi folks!

I have a 2.3GB file that is allocated to a STRIPED Dataclass.

Is there any way to see the particulars on each stripe - where it is, how
big it is, etc.? There is no problem, it is more of a curiosity for me. I
would like to know how performance of STRIPED files compares to a standard
allocation across the same number of volumes. I would like to play with
BUFNO and allocations to see how to best create and use this PS file.

Thanks!
Billy

-- 
Thank you and best regards,
*Billy Ashton*

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

Re: DFSORT, no records for SORTOUT

[Bill Ashton]

Frank, that is a pretty slick trick! Simple and yet still elegant!
Billy

On Thu, Apr 19, 2012 at 2:43 PM, Frank Swarbrick
wrote:

> My very own local sysprog came up with the ideal solution.
>
> //TC33COPY JOB NOTIFY=&SYSUID
> //CONDCOPY EXEC PGM=IDCAMS
> //SYSPRINT DD SYSOUT=*
> //SYSINDD *
>  PRINT INFILE(TC33IN) CHAR COUNT(1)
>  IF LASTCC = 0 THEN REPRO INFILE(TC33IN) OUTFILE(TC33OUT)
>  ELSE IF LASTCC = 4 THEN SET MAXCC=0
> /*
> //TC33IN   DD DISP=SHR,DSN=PROD.VISAEP4.TC33EX
> //TC33OUT  DD DSN=DEV.CVSC.TC33EX,
> //DISP=SHR,
> //LIKE=PROD.VISAEP.TC33EX
>
> Results:
>
> IDCAMS  SYSTEM SERVICES
>
>  PRINT INFILE(TC33IN) CHAR COUNT(1)
>
>
> IDCAMS  SYSTEM SERVICES
> LISTING OF DATA SET -PROD.VISAEP4.TC33EX
> IDC11462I REQUESTED RANGE END BEYOND END OF DATA SET.
> IDC0005I NUMBER OF RECORDS PROCESSED WAS 0
> IDC0001I FUNCTION COMPLETED, HIGHEST CONDITION CODE WAS 4
>
>
> IDCAMS  SYSTEM SERVICES
>
>  IF LASTCC = 0 THEN REPRO INFILE(TC33IN) OUTFILE(TC33OUT)
> IDC0204I PRECEDING COMMAND BYPASSED DUE TO CONDITION CODES
>
>  ELSE IF LASTCC = 4 THEN SET MAXCC=0
>
> IDC0002I IDCAMS PROCESSING COMPLETE. MAXIMUM CONDITION CODE WAS 0
>
>
> Exactly what I was looking for.  Thanks Bill!!
>
> Frank
>
>
>
>
> >
> > From: Frank Swarbrick 
> >To: IBM-MAIN@bama.ua.edu
> >Sent: Thursday, April 19, 2012 12:16 PM
>  >Subject: Re: DFSORT, no records for SORTOUT
> >
> >That works.  Thanks!  I've not used ICETOOL before.
> >One minor thing.  I wish I could skip steps (or conditionally execute
> them) rather than having the job set RC12.  Something like how IDCAMS works:
> >
> > COUNT FROM(TC33IN) EMPTY RC4
> >
> > IF LASTCC = 0
> >   THEN
> > COPY FROM(TC33IN) TO(TC33OUT)   ELSE
> > IF LASTCC = 4
> >   THEN SET MAXCC=0
> >
> >
> >Oh well!
> >
> >Thanks again,
> >Frank
> >
> >
> >
> >
> >
> >>
> >> From: Frank Yaeger 
> >>To: IBM-MAIN@bama.ua.edu
> >>Sent: Thursday, April 19, 2012 11:38 AM
> >>Subject: Re: DFSORT, no records for SORTOUT
> >>
> >>Frank Swarbrick at IBM Mainframe Discussion List 
> >>wrote on 04/19/2012 10:22:56 AM:
> >>> I know of the NULLOUT and NULLOFL options to specify return code
> >>> setting if there are no records to be written to the output file.
> >>> I'm wondering if there is any option I can specify so that the
> >>> SORTOUT file will not even be opened if there are no records to be
> >>> written to it.  Basically, I want to leave the "old" records that
> >>> were in SORTOUT alone if there is nothing new to go in to it for this
> >>run.
> >>>
> >>> At this point the best thing I can think of is to run SORT twice;
> >>> the first time copying one record to a dummy file with NULLOUT=RC4
> >>> set.  Then skipping step 2, the actual copy into the real SORTOUT,
> >>> if the RC from step 1 is not 0.
> >>>
> >>> If there is a program other than SORT (IDCAMS?) that I can use to
> >>> accomplish this, that's fine as well.  No actual sorting is being
> >>> done; just a straight copy.
> >>
> >>Frank,
> >>
> >>You could use a DFSORT ICETOOL job with COUNT and COPY like this:
> >>
> >>//S1EXEC  PGM=ICETOOL
> >>//TOOLMSG DD SYSOUT=*
> >>//DFSMSG  DD SYSOUT=*
> >>//IN DD DSN=...  input file
> >>//OUT DD DSN=...  output file
> >>//TOOLIN DD *
> >>MODE STOP
> >>COUNT FROM(IN) EMPTY RC12
> >>COPY FROM(IN) TO(OUT)
> >>/*
> >>
> >>If IN is emtpy, the COUNT operator will set RC=12 and
> >>the COPY operator will NOT be executed so OUT will not be
> >>opened.  The step will give back cc=12.  COUNT does not
> >>require an output data set.
> >>
> >>If IN is not empty, the COUNT operator will set RC=0 and
> >>the COPY operator will be executed so OUT will be
> >>opened and IN will be copied to it.  The step will give
> >>back cc=0
> >>
> >>Note that MODE STOP is the default so you don't have to
> >>specify it, but I put it in for doc purposes.
> >>
> >>Frank Yaeger - DFSORT Development Team (IBM) - yae...@us.ibm.com
> >>Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
> >>
> >>=> DFSORT/MVS is on the Web at http://www.ibm.com/storage/dfsort
> >>--
> >>For IBM-MAIN subscribe / signoff / archive access instructions,
> >>send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
> >>
> >>
> >>
> >
> >--
> >For IBM-MAIN subscribe / signoff / archive access instructions,
> >send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
> >
> >
> >
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
>



-- 
Thank you and best regards,
*Billy Ashton*

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists.

Re: ISPF Panel date validation

[Bill Ashton]

Munif, I was also thinking about this...if you request the dates in YY/M/DD
format, you can make your verification much easier with this:
Ver(&RVK,NB,IDATE,MSG=invalid date)

This would automatically take into account the different days in a month
(for example, your sample would allow me to enter April 31, or February 31).
Billy

On Thu, Apr 19, 2012 at 8:19 AM, Thomas Berg wrote:

> An important note is that the rexx code is indentation sensitive, it must
> obey the same indentation rules as the other panel code.  Otherwise a S0C4
> abend is nearly sure.
>
>
>
> Regards,
> Thomas Berg
> __
> Thomas Berg   Specialist   AM/DQS   SWEDBANK AB (publ)
>
>
> > -Ursprungligt meddelande-
> > Från: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] För
> > Bill Ashton
> > Skickat: den 19 april 2012 13:58
> > Till: IBM-MAIN@bama.ua.edu
> > Ämne: Re: ISPF Panel date validation
>  >
> > Of course the REXX test on line 16 needs to have & instead of
> > "and"...sorry
> > about that!
> > Billy
> >
> > On Thu, Apr 19, 2012 at 7:57 AM, Bill Ashton 
> > wrote:
> >
> > > Munif, you may get other answers from the ISPF group if you join
> > there,
> > > but here is my untested quick stab at it...
> > >
> > > 13 *REXX (STRT RVK RES)
> > > 14date1 = Date("B",strt,"U");
> > > 15date2 = Date("B",rvk,"U");
> > > 16If (date2 - date1 <= 90) and (date2 > date1) Then
> > > 17   res = "OK";
> > > 18Else
> > > 19   res = "NG";
> > > 20 *ENDREXX
> > > 21
> > > 22 If (&res NE "OK")  Ver(&rvk,LEN,EQ,99,MSG=Date to far in
> > > future)
> > > 24
> > >
> > > The Rexx will use the variables STRT and RVK from your panel, and will
> > > create a result called RES. It will convert both dates to a base
> > number
> > > format and then compare them. It will see if RVK is 90 days or less in
> > the
> > > future and that RVK is further ahead than STRT, and set the result to
> > "OK"
> > > or "NG" depending on the test.
> > >
> > > Then the regular panel code will check the result switch, and if it is
> > not
> > > "OK" it will perform a VER that will always faill, so you can specify
> > the
> > > proper message number.
> > >
> > > Hope this works out for you.
> > > Billy
> > >
> > >
> > >
> > > On Thu, Apr 19, 2012 at 6:56 AM, Terry Sambrooks <
> > > terry.sambro...@btclick.com> wrote:
> > >
> > >> Hi Munif,
> > >>
> > >> Re: "I  have been requested to modify a panel to verify that user
> > input a
> > >> valid date (MM/DD/YY) and the
> > >> input date is no more then 3 months away (roughly speaking)."
> > >>
> > >> REXX may provide better validation capability in this instance, but
> > you do
> > >> not need to exit the panel, to use REXX as it can be embedded on the
> > panel
> > >> itself within the PROC section.
> > >>
> > >> It usage is described in Chapter 7 Panel Definition Statement
> > Reference in
> > >> the ISPF Dialog Developers Guide and Reference.
> > >>
> > >> Kind Regards - Terry
> > >>
> > >> Director
> > >> KMS-IT Limited
> > >> 228 Abbeydale Road South
> > >> Dore
> > >> Sheffield
> > >> S17 3LA
> > >> UK
> > >>
> > >> Reg : 3767263
> > >>
> > >> Outgoing e-mails have been scanned, but it is the recipients
> > >> responsibility
> > >> to ensure their anti-virus software is up to date.
> > >>
> > >>
> > >>
> > >>
> > >> -
> > -
> > >> For IBM-MAIN subscribe / signoff / archive access instructions,
> > >> send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
> > >>
> > >
> > >
> > >
> > > --
> > > Thank you and best regards,
> > > *Billy Ashton*
> > >
> > >
> >
> >
> > --
> > Thank you and best regards,
> > *Billy Ashton*
>  >
> > --
> > For IBM-MAIN subscribe / signoff / archive access instructions,
> > send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
>



-- 
Thank you and best regards,
*Billy Ashton*

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

Re: ISPF Panel date validation

[Bill Ashton]

Of course the REXX test on line 16 needs to have & instead of "and"...sorry
about that!
Billy

On Thu, Apr 19, 2012 at 7:57 AM, Bill Ashton  wrote:

> Munif, you may get other answers from the ISPF group if you join there,
> but here is my untested quick stab at it...
>
> 13 *REXX (STRT RVK RES)
> 14date1 = Date("B",strt,"U");
> 15date2 = Date("B",rvk,"U");
> 16If (date2 - date1 <= 90) and (date2 > date1) Then
> 17   res = "OK";
> 18Else
> 19   res = "NG";
> 20 *ENDREXX
> 21
> 22 If (&res NE "OK")  Ver(&rvk,LEN,EQ,99,MSG=Date to far in
> future)
> 24
>
> The Rexx will use the variables STRT and RVK from your panel, and will
> create a result called RES. It will convert both dates to a base number
> format and then compare them. It will see if RVK is 90 days or less in the
> future and that RVK is further ahead than STRT, and set the result to "OK"
> or "NG" depending on the test.
>
> Then the regular panel code will check the result switch, and if it is not
> "OK" it will perform a VER that will always faill, so you can specify the
> proper message number.
>
> Hope this works out for you.
> Billy
>
>
>
> On Thu, Apr 19, 2012 at 6:56 AM, Terry Sambrooks <
> terry.sambro...@btclick.com> wrote:
>
>> Hi Munif,
>>
>> Re: "I  have been requested to modify a panel to verify that user input a
>> valid date (MM/DD/YY) and the
>> input date is no more then 3 months away (roughly speaking)."
>>
>> REXX may provide better validation capability in this instance, but you do
>> not need to exit the panel, to use REXX as it can be embedded on the panel
>> itself within the PROC section.
>>
>> It usage is described in Chapter 7 Panel Definition Statement Reference in
>> the ISPF Dialog Developers Guide and Reference.
>>
>> Kind Regards - Terry
>>
>> Director
>> KMS-IT Limited
>> 228 Abbeydale Road South
>> Dore
>> Sheffield
>> S17 3LA
>> UK
>>
>> Reg : 3767263
>>
>> Outgoing e-mails have been scanned, but it is the recipients
>> responsibility
>> to ensure their anti-virus software is up to date.
>>
>>
>>
>>
>> --
>> For IBM-MAIN subscribe / signoff / archive access instructions,
>> send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
>>
>
>
>
> --
> Thank you and best regards,
> *Billy Ashton*
>
>


-- 
Thank you and best regards,
*Billy Ashton*

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

Re: ISPF Panel date validation

[Bill Ashton]

Munif, you may get other answers from the ISPF group if you join there, but
here is my untested quick stab at it...

13 *REXX (STRT RVK RES)
14date1 = Date("B",strt,"U");
15date2 = Date("B",rvk,"U");
16If (date2 - date1 <= 90) and (date2 > date1) Then
17   res = "OK";
18Else
19   res = "NG";
20 *ENDREXX
21
22 If (&res NE "OK")  Ver(&rvk,LEN,EQ,99,MSG=Date to far in
future)
24

The Rexx will use the variables STRT and RVK from your panel, and will
create a result called RES. It will convert both dates to a base number
format and then compare them. It will see if RVK is 90 days or less in the
future and that RVK is further ahead than STRT, and set the result to "OK"
or "NG" depending on the test.

Then the regular panel code will check the result switch, and if it is not
"OK" it will perform a VER that will always faill, so you can specify the
proper message number.

Hope this works out for you.
Billy



On Thu, Apr 19, 2012 at 6:56 AM, Terry Sambrooks <
terry.sambro...@btclick.com> wrote:

> Hi Munif,
>
> Re: "I  have been requested to modify a panel to verify that user input a
> valid date (MM/DD/YY) and the
> input date is no more then 3 months away (roughly speaking)."
>
> REXX may provide better validation capability in this instance, but you do
> not need to exit the panel, to use REXX as it can be embedded on the panel
> itself within the PROC section.
>
> It usage is described in Chapter 7 Panel Definition Statement Reference in
> the ISPF Dialog Developers Guide and Reference.
>
> Kind Regards - Terry
>
> Director
> KMS-IT Limited
> 228 Abbeydale Road South
> Dore
> Sheffield
> S17 3LA
> UK
>
> Reg : 3767263
>
> Outgoing e-mails have been scanned, but it is the recipients responsibility
> to ensure their anti-virus software is up to date.
>
>
>
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
>



-- 
Thank you and best regards,
*Billy Ashton*

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

Re: Execute certian steps based on input parm

[Bill Ashton]

Why not pass the the version in as a symbolic:
//ABC PROC VER=620
//PGMNAME EXEC PGM=PGM
//STEPLIB DD DNS=LOADMOD.V&ver

Then you can call it from your JCL:
//STEP1  EXEC PROC=ABC,VER=620or
//STEP1  EXEC PROC=ABC  (This will default to 620)

and then if you have a new version, you can change some JCL:
//STEP2  EXEC PROC=ABC,VER=710

Another option, if you want to change the version all at once, is to use
dataset alias definitions.
To do this, you set your proc up like this:
//ABC PROC
//PGMNAME EXEC PGM=PGM
//STEPLIB DD DNS=LOADMOD.PROD.VERSION

Then, your JCL would have only this:
//STEP1  EXEC PROC=ABC

To set this up, you would use IDCAMS like this:
//STEP0EXEC PGM=IDCAMS
//SYSPRINT DD  SYSOUT=*
//SYSINDD  *
  DELLOADMOD.PROD.VERSION   ALIAS
  DEF ALIAS(NAME(LOADMOD.PROD.VERSION) -
 REL(LOADMOD.V620))

That way, everyone who uses LOADMOD.PROD.VERSION, in JCL or ISPF browse,
etc, will automatically get LOADMOD.V620.

Then, when you want to upgrade, you just run the IDCAMS for the new version:
//STEP0EXEC PGM=IDCAMS
//SYSPRINT DD  SYSOUT=*
//SYSINDD  *
  DELLOADMOD.PROD.VERSION   ALIAS
  DEF ALIAS(NAME(LOADMOD.PROD.VERSION) -
 REL(LOADMOD.V710))

Your proc doesn't need to change, your JCL doesn't change, any CLIST or
REXX programs don't change, and everything processes the same way, just on
a different version.

Of course before you upgrade, you can perform testing by either using a JCL
STEPLIB override to the absolute version, or you can define an alias of
LOADMOD.TEST.VERSION... This will give you a lot of options, if this is
what you are looking for.

I hope this is some help to you.
Billy



On Wed, Apr 18, 2012 at 9:02 AM, Victor Zhang wrote:

> Ok, the proc is like:
> //ABC PROC VER='620'
> //PGMNAME EXEC PGM=PGM
> //STEPLIB DD DNS=LOADMOD.V620
>
> IF VER NOT = '620' i want proc be:
> //PGMNAME EXEC PGM=PGM
> //STEPLIB DD DNS=LOADMOD.V710
>
> So I code:
> //ABC PROC VER='620'
> //IF620 IF (&VER=620) THEN
> //PGMNAME EXEC PGM=PGM
> //STEPLIB DD DNS=LOADMOD.V620
> // ELSE
> //PGMNAME EXEC PGM=PGM
> //STEPLIB DD DNS=LOADMOD.V710
> //ENDIF
>
> But it does not work.
>
> Please help.
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
>



-- 
Thank you and best regards,
*Billy Ashton*

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

Re: GO TO "cobol"

[Bill Ashton]

John, the READ construct now is much easier with

READ FILE
AT END
Do stuff
NOT AT END
Do normal processing
END-READ

This makes it really easy to keep the code tight and all together. By using
program switches, I have handled program start and end, abend, and
processed 6 or 7 files with no (or very few) paragraphs, and only a couple
statements ending with periods.  It actually was fun to put together and
was easy to maintain. However, it would not always be this streamlined for
some large programs with lots of things going on.

Billy

On Mon, Apr 16, 2012 at 8:28 AM, McKown, John  wrote:

> Our use of GO TO is generally restricted to usage such as:
>
>   PERFORM I-P THRU I-P-EXIT UNTIL CONDITION.
>
> I-P.
>READ FILE AT END
> SET CONDITION TO TRUE
> GO TO I-P-EXIT
>END-READ
> ...
> I-P-EXIT.
>EXIT.
>
> Otherwise, to avoid the GO TO, we'd need to do:
>
> I-P.
>READ FILE AT END
> SET CONDITION TO TRUE
>END-READ
>IF NOT CONDITION THEN
> ...
>END-IF.
> I-P-EXIT.
>EXIT.
>
> Which I consider to be worse than the exit, so far as comprehension is
> concerned.
>
> --
> John McKown
> Systems Engineer IV
> IT
>
> Administrative Services Group
>
> HealthMarkets®
>
> 9151 Boulevard 26 . N. Richland Hills . TX 76010
> (817) 255-3225 phone .
> john.mck...@healthmarkets.com . 
> www.HealthMarkets.com
>
> Confidentiality Notice: This e-mail message may contain confidential or
> proprietary information. If you are not the intended recipient, please
> contact the sender by reply e-mail and destroy all copies of the original
> message. HealthMarkets® is the brand name for products underwritten and
> issued by the insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake
> Life Insurance Company®, Mid-West National Life Insurance Company of
> TennesseeSM and The MEGA Life and Health Insurance Company.SM
>
>
>
> > -Original Message-
> > From: IBM Mainframe Discussion List
> > [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Thomas Berg
> > Sent: Monday, April 16, 2012 5:40 AM
> > To: IBM-MAIN@bama.ua.edu
> > Subject: SV: GO TO "cobol"
> >
> > An alternative is to have e g an 88-type LEAVE item that is
> > checked for every code-block including all iterations and selections.
> > (You set leave to true when wanting to do a "leave" type jump.)
> >
> >
> >
> > Regards,
> > Thomas Berg
> > __
> > Thomas Berg   Specialist   AM/DQS   SWEDBANK AB (publ)
> >
> >
> >
> > > -Ursprungligt meddelande-
> > > Från: IBM Mainframe Discussion List
> > [mailto:IBM-MAIN@bama.ua.edu] För
> > > Edward Jaffe
> > > Skickat: den 16 april 2012 08:15
> > > Till: IBM-MAIN@bama.ua.edu
> > > Ämne: Re: GO TO "cobol"
> > >
> > > On 4/15/2012 10:31 PM, Wayne Bickerdike wrote:
> > > > For devotees of Jackson Structured programming, the GOTO
> > is a must for
> > > > POSIT and ADMIT processing. Otherwise it can be messy
> > avoiding a GOTO.
> > >
> > > The problem with GOTO is that the suitability of the target branch
> > > location is
> > > not enforced by the compiler according to any structured discipline.
> > >
> > > Premature terminations (posit/quit/admit) can almost always
> > be handled
> > > with
> > > LEAVE-type statements or immediate return from a subroutine. Some
> > > languages have
> > > SIGNAL, EXIT, etc. which can help provide structured premature
> > > termination for
> > > larger routines without resorting to the dreaded GOTO.
> > >
> > > --
> > > Edward E Jaffe
> > > Phoenix Software International, Inc
> > > 831 Parkview Drive North
> > > El Segundo, CA 90245
> > > 310-338-0400 x318
> > > edja...@phoenixsoftware.com
> > > http://www.phoenixsoftware.com/
> > >
> > >
> > --
> > > For IBM-MAIN subscribe / signoff / archive access instructions,
> > > send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
> >
> > --
> > For IBM-MAIN subscribe / signoff / archive access instructions,
> > send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
> >
> >
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
>



-- 
Thank you and best regards,
*Billy Ashton*

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

Re: Batch utility to show DCB info for files

[Bill Ashton]

Thanks for all the great ideas! I might play with some of these for my own
edification, but for my users at remotes sites, I need something simple. I
was hoping for self-contained, but none of these utilities gives me the
information I wanted in a simple way.

Consequently, I wrote a small, inline Rexx program with LISTDSI that the
users can run with JCL, and made it pretty obvious how to add the DDnames
they need for the files they need to describe.
Thanks again for all your help!
Billy


On Wed, Apr 11, 2012 at 1:32 PM, McKown, John  wrote:

> How about LISTDS? It is a TSO command, so you need something like:
>
> //LISTDS EXEC PGM=IKJEFT01
> //SYSTSPRT DD SYSOUT=*
> //SYSTSIN DD *
>  LISTDS dsn1
>  LISTDS dsn2
> /*
>
> Note that you cannot use "wild cards" in the LISTDS command. You must
> specify a separate command for every data set name.
>
> I am fairly sure you wouldn't be allowed to use it, but installing
> Dovetailed Technologies "Dataset Pipes" and "Co:Z Launcher" would do this
> rather easily.
>
> //LISTDSNS EXEC PROC=COZBATCH
> //STDIN DD *
>  catsearch -l "..."
> /*
>
> Where ... can be a single DSN or a "wild card". E.g.
> "CICSTS32.**.AUTH" matches all dataset which start with CICSTS32, has
> any number of intermediate nodes (0 or more), and have a last node with any
> 4 characters followed by AUTH.
>
> Example command and output:
>
> catsearch -l 'cicsts32.**.auth'
> Volume   Referred  Ext  TracksUsed Recfm Lrecl BlkSz Dsorg  Dsname
> LIHTST  2012/04/08   1 136  99  U0 32760  PO
>  CICSTS32.CICS.SDFHAUTH
> LIHTST  2012/01/30   1  80   ?  U0 32760  PO-E
>  CICSTS32.CICS.SDFJAUTH
> LIHTST  2012/01/30   1 218 175  U0 32760  PO
>  CICSTS32.CPSM.SEYUAUTH
>
> You can freely download these products from http://dovetail.com/
> You don't need to pay for them at all, unless you want support. You don't
> even need to register in any way. The products are installed in some z/OS
> PDSes and in a z/OS UNIX subdirectory. The PDSes contain the batch programs
> and examples. The z/OS UNIX subdirectory contains the z/OS UNIX executable
> files. They are installed via a z/OS UNIX shell script. So you really need
> to be able to access a z/OS UNIX shell. TSO OMVS will work.
>
> --
> John McKown
> Systems Engineer IV
> IT
>
> Administrative Services Group
>
> HealthMarkets(r)
>
> 9151 Boulevard 26 * N. Richland Hills * TX 76010
> (817) 255-3225 phone *
> john.mck...@healthmarkets.com * 
> www.HealthMarkets.com<http://www.healthmarkets.com/>
>
> Confidentiality Notice: This e-mail message may contain confidential or
> proprietary information. If you are not the intended recipient, please
> contact the sender by reply e-mail and destroy all copies of the original
> message. HealthMarkets(r) is the brand name for products underwritten and
> issued by the insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake
> Life Insurance Company(r), Mid-West National Life Insurance Company of
> TennesseeSM and The MEGA Life and Health Insurance Company.SM
>
>
>
> > -Original Message-
> > From: IBM Mainframe Discussion List
> > [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Bill Ashton
> > Sent: Wednesday, April 11, 2012 11:36 AM
> > To: IBM-MAIN@bama.ua.edu
> > Subject: Batch utility to show DCB info for files
> >
>  > Hello!
> >
> > Is there a standard IBM batch utility that can show the DCB and Space
> > atributes for a file? I tried LISTCAT, but it didn't give me
> > this data.
> >
> > I would like to generate a report for a whole list of files,
> > so as we shift
> > these to another location, we can have the metadata, too.
> >
> > Coding a Rexx or other program is not an option...the
> > requirement is to use
> > standard, already existing utilities.
> >
> > Thanks!
> > Billy
> >
> > --
> > Thank you and best regards,
> > *Billy Ashton*
>  >
> > --
> > For IBM-MAIN subscribe / signoff / archive access instructions,
> > send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
> >
> >
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
>



-- 
Thank you and best regards,
*Billy Ashton*

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

Batch utility to show DCB info for files

[Bill Ashton]

Hello!

Is there a standard IBM batch utility that can show the DCB and Space
atributes for a file? I tried LISTCAT, but it didn't give me this data.

I would like to generate a report for a whole list of files, so as we shift
these to another location, we can have the metadata, too.

Coding a Rexx or other program is not an option...the requirement is to use
standard, already existing utilities.

Thanks!
Billy

-- 
Thank you and best regards,
*Billy Ashton*

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

Re: FTP QUESTION

[Bill Ashton]

John, try using ASC instead of BIN.

Billy

On Wed, Apr 11, 2012 at 8:41 AM, John Dawes  wrote:

> G'day,
>
> I am trying to FTP a txt file - jcl  of 850 lines long - from my PC to the
> MAINFRAME.  The PDS has been preallocated.  The FTP function works however
> when I check the PDS member the it has all garbled characters.  I tried the
> FTP with the BIN command and without.  Is there something else I can try?
>
> Thanks in advance.
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
>



-- 
Thank you and best regards,
*Billy Ashton*

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

Re: Stupid JCL trick?

[Bill Ashton]

I use this sort of trick often for controlling sections of JCL, For
example, I might have a step or two that deletes and allocates files, then
another step that processes data into the new files, and finally a step
that prints report files from the job. Then at the top I would SET ALLOC  =
either 1 to run or 0 to not run, SET PROCESS to 1/0, and SET REPORTS to 1/0.

In the JCL I start with a do-nothing BR14, and then surround each section
with IF &ALLOC=1 THEN..ENDIF   If &PROCESS=1 THEN.ENDIF and If
&REPORTS=1 THEN.ENDIF

This might be a weak example, but I can't go into more specific "real"
details of our jobs. I think you can get the idea.

billy

On Thu, Feb 23, 2012 at 2:22 AM, Andrew Armstrong <
androidarmstr...@gmail.com> wrote:

> On Tue, 21 Feb 2012 15:48:12 -0600, Paul Gilmartin 
> wrote:
>
> >Nope.  RTFM.
>
> ...nevertheless (even though it's not in the fine manual) something that
> appears to work for me is:
>
> // IF 1 = 1 THEN
> ...do this stuff...
> // ENDIF
>
> and
>
> // IF 1 = 0 THEN
> ...don't do this stuff...
> // ENDIF
>
> hmmm...bug or feature?
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
>



-- 
Thank you and best regards,
*Billy Ashton*

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