Date:         Sat, 10 Feb 2001 07:36:36 GMT
Reply-To:     Melvin Klassen <Klassen@UVIC.CA>
Sender:       "SAS(r) Discussion" <SAS-L@LISTSERV.UGA.EDU>
From:         Melvin Klassen <Klassen@UVIC.CA>
Organization: Excite@Home - The Leader in Broadband http://home.com/faster
Subject:      Re: SAS Questions
Content-Type: text/plain; charset="us-ascii"

On Thu, 8 Feb 2001 22:29:53, "Giulio Belrango"
<giuliobelrango@home.com> wrote:

> I'm working in a IBM OS/390 environment, and I need some help with a few
> questions and situations.
>
> 1)  I would like to print a report like a credit card number, printing from
> the top to bottom and left to right across the page.
> i.e.
> Credit           Credit        Credit
> Card No.      Card No.    Card No.
> 221               566
> 234               788
> 456               930

If you are using PUT within a DATA step,
then declare a "pagesize",
and then the PUT statement can specify both "line" and "column".

So, you can place anything anywhere on the page,
and "eject" the page whenever you think that it is "full".

> 2) I would like to create test data (small disk files) from large tape files.
> I'd like to read the tape label to get DCB info
> (ie RECFM=FB,LRECL=80,BLKSIZE=4000) with SAS
> and dynamically allocate the disk file and write a few records to it.
> We have lost the Volser and don't know what is on it.
> Reading the label, then allocating and copying to disk
> would save a lot of time.  Any suggestions

PROC TAPELABEL can write the output to a file,
and then SAS can read that file, and generate the JCL
for both the "input" and "output" files.
then, just "submit" the generated job to MVS.

> 3) In  COBOL  Fielda   Pic S9(1).
> When I
> Move  -1  to Fielda         I get  'D9'
> Move 0    to Fielda          I get 'C0'
> I can't seem to get the same results with my Put statement.
> I used 'D9'x and 'C0'x  to get arround this.
> What format should I be using.

The "zoned-decimal" format will output one byte, with the value X'D9'.
The "hex" format will output two bytes, with the value C'D9'.

> 4)  My last question is not a SAS question, but a jcl question, but any help
> would be appreciated. I'd like to allocate a dataset such, that when it
> grows (records are added to it) and when it has not reached its full extends
> of space, it will find space on another disk pack dynamically. It seems that
> if there is no space on that pack the job abends (B37) on space. In other
> words I'd like to create a file that can span packs or named packs.

//  UNIT=(SYSDA,nnn),

or

//  UNIT=(SYSDA,nnn),VOL=SER=(volA,volB,volC),