Date:         Thu, 6 Jun 2002 15:57:27 -0500
Reply-To:     Jamil Ibrahim <jibrahim@IR.UMSMED.EDU>
Sender:       "SAS(r) Discussion" <SAS-L@LISTSERV.UGA.EDU>
From:         Jamil Ibrahim <jibrahim@IR.UMSMED.EDU>
Subject:      CREATE IDS
Content-Type: multipart/alternative;

HI SAS USERS:
I AM TRYING TO ASSIGN AN ID FOR EACH LINES OF DATA BETWEEN THE LINES
THAT ARE DEFINED WITH "********".
THE LINE AFTER THAT LINE THAT CONTAINS ********* , THEY SHOULD HAVE 1
AND THE NEXT SET OF LINES AFTER THE NEXT ********* SHOULD HAVE AND ID OF
2 AND SO ON.........

I HAVE THIS DATA:
""2","1","N","***","*****","555","5","5","5","555","55","5","555",
""2","1","N","310","42058","555","5","5","5","555","55","5","555",
""2","1","N","310","42058","555","5","5","5","555","55","5","555",
""2","1","N","310","42058","555","5","5","5","555","55","5","555",
""2","1","N","***","*****","555","5","5","5","555","55","5","555",
""2","1","N","310","49129","515","2","5","5","525","13","4","446",
""2","1","N","310","49129","555","5","5","5","555","55","5","555",
""2","1","N","310","49129","555","5","5","5","555","55","5","555",
""2","1","N","310","49129","555","5","5","5","555","55","5","555",
""2","1","N","***","*****","555","5","5","5","555","55","5","555",
""2","1","N","310","10839","555","5","5","5","555","55","5","555",
""2","1","N","310","10839","333","1","3","3","331","33","1","121",
""2","1","N","310","10839","555","5","5","5","555","55","5","555",
""2","1","N","***","*****","555","5","5","5","555","55","5","555",
""2","1","N","310","47210","555","5","5","5","555","55","5","555",
""2","1","N","310","47210","544","5","4","4","555","53","5","555",
""2","1","N","310","47210","444","4","4","4","444","44","4","444",
""2","1","N","310","47210","234","3"," ","3","413","11","4","445",
""2","1","N","310","47210","545","5","5","5","555","44","5","55 ",
""2","1","N","***","*****","555","5","5","5","555","55","5","555",
""2","1","N","310","34239","444","4","4","4","4 4","44","4","444",
""2","1","N","310","34239","444","4","4","4","444","44","4","444",

 HERE IS MY CODE:
options nodate nonumber ;
  dm "log;clear;out;clear";
DATA srf1 ;
INFILE "c:\SONTEMP\TEST.srf" lrecl=1000 MISSOVER pad ;
INPUT @29 (Q1-Q3) ($1.)
       @35   Q4 $1.  @39 q5 $1. @43 q6 $1.
       @47 (q7-q9) ($1.)      @53 (q10-q11) ($1.)  @58 q12 $1.
       @62  (Q13-Q15) ($1.)
       @3  SEM $1.
       @7  YR  $1.
       @15  CRSNUM $3.
        @21 id $5.
       @11  CRSPRE  $1. ;
*  IF _N_ LT 9 THEN DELETE;

  COUNTER=CRSNUM||ID;
 IF COUNTER="********" THEN INCR=INCR+1;

IDD=CRSPRE||CRSNUM||id;
 if COUNTER="********"  then delete;
  DATA SRF2;SET SRF1;by INCR notsorted;
RETAIN RECNO 200; ****THIS STATEMENT INITIALIZES RECNO TO 200;
  IF FIRST.INCR THEN DO;RECNO+1; END;
FILE "C:\SONTEMP\TESTCNT.DAT" ;
put   @1 (q1-q15) ($1.) @18 crsnum $char3. @ 22 id
        @28 crspre $char1. @29 idd $char9. @39 recno 3. ;


        RUN; QUIT;

[text/html]