Date:         Fri, 17 Oct 2003 08:20:28 -0400
Reply-To:     "House, Laura" <Laura.House@CIBC.COM>
Sender:       "SAS(r) Discussion" <SAS-L@LISTSERV.UGA.EDU>
From:         "House, Laura" <Laura.House@CIBC.COM>
Subject:      Re: Mainframe SAS program sample
Content-Type: text/plain; charset="iso-8859-1"

Hi, here's a basic job.  It reads a mainframe flat file, and writes a
mainframe flat file to tape.   Welcome back to JCL !
Laura

//PITRANS  JOB (ZVL,CO,9999,99),'CATCHUP - PITRANS',
//         NOTIFY=&SYSUID,MSGCLASS=Q,CLASS=4
//*
//*  READ Transaction File.
//*  Create subset of full monthly file - Sept 20-30
//*  Header date looks like - 2003272
//*
//STEP1    EXEC SASNEW,
//         OPTIONS='MEMSIZE=16M,BUFNO=25'
//WORK     DD UNIT=SYSDA,SPACE=(CYL,(2500,125))
//SASLOG   DD SYSOUT=*,HOLD=YES
//SASLIST  DD SYSOUT=X,HOLD=YES
//PITRANS  DD DSN=XXX.PITRANS.ACTV.G0483V00,DISP=SHR
//*
//LAST     DD DSN=XXX.PITRANS.ACTV.G0483V00.SEP30,
//            UNIT=CTAPE,LABEL=(1,SL),VOL=(,,,99),
//            DCB=(RECFM=FB,LRECL=00350,BLKSIZE=27650),
//            DISP=(NEW,CATLG,CATLG)
//SYSIN    DD  *,DLM=$$


options source source2 nocenter errors=2;

data hdr;
 infile PITRANS missover end=eof ;
 file LAST;
 input @01 rectype $1.
       @16 date    $7.;

 retain hdr_date 8.;
 format hdr_date date9.;

 if _n_ = 1 then dtl_ctnr = 0;

 if rectype = '1'
    then do;
       hdr_date = input(date,julian7.);
       output hdr;
    end;

 if hdr_date >= '20sep2003'd
    then do;
       dtl_ctnr + 1;
       put _infile_;
    end;

 if eof
    then stop;


run;
$$


On Thu, 16 Oct 2003, Zalek Bloom wrote:

> Can someone publish here a sample of SAS mainframe program? I worked
> with a maiframe SAS long time ago and want to prepare for an
> interview.
>
> Thanks,
>
> Zalek
>