Date:         Sun, 29 Jul 2001 17:38:38 -0400
Reply-To:     Gerry Pauline <GPauline@FSMAIL.PACE.EDU>
Sender:       "SAS(r) Discussion" <SAS-L@LISTSERV.UGA.EDU>
From:         Gerry Pauline <GPauline@FSMAIL.PACE.EDU>
Subject:      Re: Format Library Setup Question
Content-Type: text/plain; charset=us-ascii

SAS Pros:

I'd like to acknowledge and thank the following SAS-L members for their
assistance on my Proc FORMAT/CNTLIN question --

Pete Lund         pete.lund@NWCSR.COM
Robert Abelson    Abelson_R@bls.gov
Paul Dorfman      Paul.Dorfman@bcbsfl.com

Pete sent two suggestions, Pete's second suggestion, and the one from
Robert Abelson were variations of the same theme. Paul sent a code
snippet to account for a potential error condition that could arise from
the method suggested by Pete and Robert.

Best of all, thanks to their expertise, I've learned more about the use
of the CNTLIN option. For those who may be interested, the code is
appended below.

-Gerry

Gerard T. Pauline
Computer Systems, DoIT
Pace University

---------------------------------------------------------------------------------------------

    0 * * * Top of File * * *
    1 Filename INPDATA 'STUDENT DUPMAST U' Lrecl=129 Blksize=25800
Recfm=FB ;
    2 Libname  LOOKUP  'X' ;
    3
    4 Data STUDENTS ;
    5
    6   Length START   $ 35
    7          FMTNAME $  6 ;
    8
    9   Retain LABEL  'True' ;
   10
   11   Infile INPDATA ;
   12
   13   Input @43 SID $11.  @61 EMAIL $8.  @95 ALIAS $35. ;
   14
   15   FMTNAME = '$Sid' ;
   16   START   = SID ;
   17   Output ;
   18   FMTNAME = '$EMail' ;
   19   START   = EMAIL ;
   20   Output ;
   21   FMTNAME = '$Alias' ;
   22   START   = ALIAS ;
   23   Output ;
   24 Run ;
   25
   26 Proc SORT Data=STUDENTS NODUPKEY ;
   27   By FMTNAME START ;
   28 Run ;
   29
   30 Data STUDENTS ;
   31   Do Until (Last.FMTNAME) ;
   32      Set STUDENTS ;
   33      By FMTNAME START ;
   34      If (First.START) Then
   35         Output ;
   36   End ;
   37   LABEL = ' ' ;
   38   HLO   = 'O' ;
   39   Output ;
   40 Run ;
   41
   42 Proc FORMAT Cntlin=STUDENTS Library=LOOKUP FmtLib ;
   43   Select $Sid $Email $Alias ;
   44 Run ;
   45 * * * End of File * * *