/* Dear SEER-Medicare user:                                               */
/*   In order to use this program, you must make some modifications.      */
/* All lines which may need modifications have the comment USER next to   */
/* them so that you can search for them more easily.                      */
/*                                                                        */
/*   First, change the filenames to match your own directory structure.   */
/* You need to have an input PEDSF file (the original file sent to you by */
/* IMS when you received your data request) and an output PREP file name. */
/* You may also have an input ANALYSIS file (the file you have created,   */
/* containing your selected cohort and 'cleaned' data) if you wish to use */
/* variables which you have defined/created in the SEER*Stat analyses.    */
/* Your analysis file must contain the SEER Registry/Case number as a     */
/* length 10 character string and the SEER Sequence number for the tumor  */
/* as a length 2 character string.  All analysis variables you wish to    */
/* use in SEER*Stat must be numeric.  You should either have a SAS file   */
/* (libname) or a text file (filename) statement for each analysis file,  */
/* NOT BOTH.  TWO SAMPLE SAS DECLARATIONS ARE PROVIDED, YOU MUST SELECT   */
/* ONE.  These samples are both commented out.  If you wish to use one,   */
/* you must uncomment one by removing the * in the first column and       */
/* change the directory path/file name to match your file.                */
/*                                                                        */
/*   Second, you should review the end of study year and month (EOS_Y and */
/* EOS_M).  These are preset to the last month of the Medicare expense    */
/* files which were sent to you by IMS.  If your analysis ends at an      */
/* earlier time, please adjust these 2 variables accordingly.             */
/*                                                                        */
/*   Third, you should modify the 'ANALYSIS MERGE SECTION', where the     */
/* analysis file is merged to the PEDSF information.  A SAS file is       */
/* assumed here, so you may have to add an input statement and you will   */
/* always have to select which variables you wish to add.  Again, this    */
/* section is preset to be commented out.  To uncomment, delete the 2     */
/* lines 'USER comment out begins' and 'USER comment out ends'            */
/*                                                                        */
/*   Finally, if you have added new variables, you must place them in the */
/* output PREP file where the lenX_n variables are shown.  X (lenX) tells */
/* you the length of a variable that can be placed in that position.      */
/* n (_n) allows you to track how many variables of that length are used. */
/* There are 10 variables of length 1 and 10 of length 2.  There are 5    */
/* variables of length 3, 5 of length 4 and 5 of length 5.  The total     */
/* record length is 650.  Your variables MUST be of numeric type and be   */
/* sure to use an appropriate length variable.                            */
/*                                                                        */
/* ** NOTE:  You can NOT use the 90 characters of lenX_n space in any     */
/*           manner, variables MUST be placed in appropriate sized slots. */
/*                                                                        */
/*  Thank you and please let us know if you have any questions.           */
/*                              IMS support staff                         */


/* input files */
filename PEDSF    '/directory/pedsf.cancer.txt';           /* USER - PEDSF file received from IMS */
*libname  ANALYSIS '/directory/';			   /* USER - SAS type analysis file */
*filename ANALYSIS '/directory/analysis.txt';              /* USER - Text type analysis file */

/* output file */
filename PREP  '/directory/SEERPrep.infile.txd';           /* USER - output file being created.  Must have .txd extension for SEER*Prep */

data prep(drop=ctnon90x cthso90x ctscl90x ctcol90x ctblk90x ctwht90x cthsp90x ctpov90x  
	       cten590x cten690x povrc90x nonrc90x hsorc90x sclrc90x colrc90x zpnon90x  
	       zphso90x zpscl90x zpcol90x zpblk90x zpwht90x zphsp90x zpen590x zpen690x  
	       znonrc9x zhsorc9x zsclrc9x zcolrc9x ctnon00x cthso00x ctscl00x ctcol00x  
	       ctblk00x ctwht00x cthsp00x ctpov00x cten500x cten600x povrc00x nonrc00x  
	       hsorc00x sclrc00x colrc00x zpnon00x zphso00x zpscl00x zpcol00x zpblk00x  
	       zpwht00x zphsp00x zpen500x zpen600x znonrc0x zhsorc0x zsclrc0x zcolrc0x  
	       ctpci90x ctmed90x zppci90x zpmed90x ctpci00x ctmed00x ctden00x medag00x  
	       medrc00x zppci00x zpmed00x zpden00x pos i eos_y eos_m count);  /* ctden90x medag90x medrc90x zpden90x */

  EOS_Y = '2001';					   /* USER - End of Study Year */ 
  EOS_M = '12';					           /* USER - End of Study Month */ 

  infile PEDSF lrecl=1810 recfm=f missover pad;
  input @0001  regcase   $char10.
        @0011  fivepct   $char1. 
        @0022  dod_flg   $char1. 
        @0023  med_dodm  $char2. 
        @0025  med_dodd  $char2. 
        @0027  med_dody  $char4. 
        @0031  birthm    $char2.
        @0033  birthd    $char2.
        @0035  birthyr   $char4.
        @0039  m_sex     $char1.
        @0040  race      $char1.
        @0041  rsncd1    $char1.
        @0042  cur_ent   $char1.
        @0043  chr_esrd  $char1. 
        @0044  med_stcd  $char2.
        @0590  STATE     $char2.
        @0592  COUNTY    $char3.
        @0595  zip       $char9.
        @0604  census    $char6.
        @0610  HCSA      $char3.
        @0613  URBRUR    $char1.
        @0614  ctpci90x  $char10.
        @0624  ctmed90x  $char10.
/*        @0634  ctden90x  $char10.  all missing */
        @0644  ctnon90x  $char6.
        @0650  cthso90x  $char6.
        @0656  ctscl90x  $char6.
        @0662  ctcol90x  $char6.
        @0668  ctblk90x  $char6.
        @0674  ctwht90x  $char6.
        @0680  cthsp90x  $char6.
        @0686  ctpov90x  $char6.
        @0692  cten590x  $char6.
        @0698  cten690x  $char6.
/*        @0704  medag90x  $char10.    all missing */
/*        @0714  medrc90x  $char10.    all missing */
        @0724  povrc90x  $char6.
        @0730  nonrc90x  $char6.
        @0736  hsorc90x  $char6.
        @0742  sclrc90x  $char6.
        @0748  colrc90x  $char6.            
        @0754  zppci90x  $char10.
        @0764  zpmed90x  $char10.
/*        @0774  zpden90x  $char10.    all missing */
        @0784  zpnon90x  $char6.
        @0790  zphso90x  $char6.
        @0796  zpscl90x  $char6.
        @0802  zpcol90x  $char6.
        @0808  zpblk90x  $char6.
        @0814  zpwht90x  $char6.
        @0820  zphsp90x  $char6.
        @0826  zpen590x  $char6. 
        @0832  zpen690x  $char6.
        @0838  znonrc9x  $char6.
        @0844  zhsorc9x  $char6.
        @0850  zsclrc9x  $char6. 
        @0856  zcolrc9x  $char6.
        @0862  ctpci00x  $char10.
        @0872  ctmed00x  $char10.
        @0882  ctden00x  $char10.
        @0892  ctnon00x  $char6.
        @0898  cthso00x  $char6.
        @0904  ctscl00x  $char6.
        @0910  ctcol00x  $char6.
        @0916  ctblk00x  $char6.
        @0922  ctwht00x  $char6.
        @0928  cthsp00x  $char6.
        @0934  ctpov00x  $char6.
        @0940  cten500x  $char6.
        @0946  cten600x  $char6.      
        @0952  medag00x  $char10.
        @0962  medrc00x  $char10.
        @0972  povrc00x  $char6.
        @0978  nonrc00x  $char6.
        @0984  hsorc00x  $char6.
        @0990  sclrc00x  $char6.
        @0996  colrc00x  $char6.      
        @1002  zppci00x  $char10.
        @1012  zpmed00x  $char10.
        @1022  zpden00x  $char10.      
        @1032  zpnon00x  $char6.
        @1038  zphso00x  $char6.
        @1044  zpscl00x  $char6.
        @1050  zpcol00x  $char6.
        @1056  zpblk00x  $char6.
        @1062  zpwht00x  $char6.
        @1068  zphsp00x  $char6.
        @1074  zpen500x  $char6.
        @1080  zpen600x  $char6.
        @1086  znonrc0x  $char6.
        @1092  zhsorc0x  $char6.
        @1098  zsclrc0x  $char6.
        @1104  zcolrc0x  $char6.      
        @1110  S_SEX     $char1.
        @1111  RAC_RECB  $char2.
        @1113  ICD_CODE  $char1.
        @1114  COD89V    $char4.
        @1118  COD10V    $char4.
        @1122  SER_DODM  $char2.
        @1124  SER_DODY  $char4.
        @1131  sRACE     $char2.
        @1133  ORIGIN    $char1.
        @1148  STAT_REC  $char1.
        @1149  YR_BRTH   $char4.
        @1153  PLC_BRTH  $char3.
        @1156  COUNT     $char2.
        @1158  NUMPRIMS  $char2.
        @;

  /* change text fields to numeric */
  if fivepct='N' then fivepct='0';
  else fivepct='1';

  if chr_esrd='Y' then chr_esrd='1';

  if med_dody='    ' then med_dody='0000';
  if med_dodm='  ' then med_dodm='00'; 
  if med_dodd='  ' then med_dodd='00'; 

  /* change . to blank, modify lengths */
  length ctnon90 cthso90 ctscl90 ctcol90 ctblk90 ctwht90 cthsp90 ctpov90 
         cten590 cten690 povrc90 nonrc90 hsorc90 sclrc90 colrc90 zpnon90 
	 zphso90 zpscl90 zpcol90 zpblk90 zpwht90 zphsp90 zpen590 zpen690 
	 znonrc90 zhsorc90 zsclrc90 zcolrc90 ctnon00 cthso00 ctscl00 
	 ctcol00 ctblk00 ctwht00 cthsp00 ctpov00 cten500 cten600 povrc00
	 nonrc00 hsorc00 sclrc00 colrc00 zpnon00 zphso00 zpscl00 zpcol00
	 zpblk00 zpwht00 zphsp00 zpen500 zpen600 znonrc00 zhsorc00 zsclrc00 
	 zcolrc00 $ 5;

  length ctpci90 ctmed90 zppci90 zpmed90 ctpci00 ctmed00 ctden00 medag00 
         medrc00 zppci00 zpmed00 zpden00 $ 6;    /* ctden90 medag90 medrc90 zpden90 */ 

  /* replace . with blank, shorten to length 6 */
  ctpci90=put((substr(ctpci90x,5,6)*1),Z6.);       if ctpci90='     .' then ctpci90='      ';
  ctmed90=put((substr(ctmed90x,5,6)*1),Z6.);       if ctmed90='     .' then ctmed90='      '; 
  /*  ctden90=put((substr(ctden90x,5,6)*1),Z6.);       if ctden90='     .' then ctden90='      ';    */
  /*  medag90=put((substr(medag90x,5,6)*1),Z6.);       if medag90='     .' then medag90='      ';    */
  /*  medrc90=put((substr(medrc90x,5,6)*1),Z6.);       if medrc90='     .' then medrc90='      ';    */
  zppci90=put((substr(zppci90x,5,6)*1),Z6.);       if zppci90='     .' then zppci90='      '; 
  zpmed90=put((substr(zpmed90x,5,6)*1),Z6.);       if zpmed90='     .' then zpmed90='      '; 
  /*  zpden90=put((substr(zpden90x,5,6)*1),Z6.);       if zpden90='     .' then zpden90='      ';    */
  ctpci00=put((substr(ctpci00x,5,6)*1),Z6.);       if ctpci00='     .' then ctpci00='      '; 
  ctmed00=put((substr(ctmed00x,5,6)*1),Z6.);       if ctmed00='     .' then ctmed00='      '; 
  ctden00=put((substr(ctden00x,5,6)*1),Z6.);       if ctden00='     .' then ctden00='      '; 
  medag00=put((substr(medag00x,5,6)*1),Z6.);       if medag00='     .' then medag00='      '; 
  medrc00=put((substr(medrc00x,5,6)*1),Z6.);       if medrc00='     .' then medrc00='      '; 
  zppci00=put((substr(zppci00x,5,6)*1),Z6.);       if zppci00='     .' then zppci00='      '; 
  zpmed00=put((substr(zpmed00x,5,6)*1),Z6.);       if zpmed00='     .' then zpmed00='      '; 
  zpden00=put((substr(zpden00x,5,6)*1),Z6.);       if zpden00='     .' then zpden00='      '; 

  /* replace . with blank, shorten to length 5 */
  ctnon90 = put((compress(ctnon90x,'.')*1),Z5.);   if ctnon90 ='    .' then ctnon90 ='     ';
  cthso90 = put((compress(cthso90x,'.')*1),Z5.);   if cthso90 ='    .' then cthso90 ='     ';
  ctscl90 = put((compress(ctscl90x,'.')*1),Z5.);   if ctscl90 ='    .' then ctscl90 ='     ';
  ctcol90 = put((compress(ctcol90x,'.')*1),Z5.);   if ctcol90 ='    .' then ctcol90 ='     ';
  ctblk90 = put((compress(ctblk90x,'.')*1),Z5.);   if ctblk90 ='    .' then ctblk90 ='     ';
  ctwht90 = put((compress(ctwht90x,'.')*1),Z5.);   if ctwht90 ='    .' then ctwht90 ='     ';
  cthsp90 = put((compress(cthsp90x,'.')*1),Z5.);   if cthsp90 ='    .' then cthsp90 ='     ';
  ctpov90 = put((compress(ctpov90x,'.')*1),Z5.);   if ctpov90 ='    .' then ctpov90 ='     ';
  cten590 = put((compress(cten590x,'.')*1),Z5.);   if cten590 ='    .' then cten590 ='     ';
  cten690 = put((compress(cten690x,'.')*1),Z5.);   if cten690 ='    .' then cten690 ='     ';
  povrc90 = put((compress(povrc90x,'.')*1),Z5.);   if povrc90 ='    .' then povrc90 ='     ';
  nonrc90 = put((compress(nonrc90x,'.')*1),Z5.);   if nonrc90 ='    .' then nonrc90 ='     ';
  hsorc90 = put((compress(hsorc90x,'.')*1),Z5.);   if hsorc90 ='    .' then hsorc90 ='     ';
  sclrc90 = put((compress(sclrc90x,'.')*1),Z5.);   if sclrc90 ='    .' then sclrc90 ='     ';
  colrc90 = put((compress(colrc90x,'.')*1),Z5.);   if colrc90 ='    .' then colrc90 ='     ';     
  zpnon90 = put((compress(zpnon90x,'.')*1),Z5.);   if zpnon90 ='    .' then zpnon90 ='     ';
  zphso90 = put((compress(zphso90x,'.')*1),Z5.);   if zphso90 ='    .' then zphso90 ='     ';
  zpscl90 = put((compress(zpscl90x,'.')*1),Z5.);   if zpscl90 ='    .' then zpscl90 ='     ';
  zpcol90 = put((compress(zpcol90x,'.')*1),Z5.);   if zpcol90 ='    .' then zpcol90 ='     ';
  zpblk90 = put((compress(zpblk90x,'.')*1),Z5.);   if zpblk90 ='    .' then zpblk90 ='     ';
  zpwht90 = put((compress(zpwht90x,'.')*1),Z5.);   if zpwht90 ='    .' then zpwht90 ='     ';
  zphsp90 = put((compress(zphsp90x,'.')*1),Z5.);   if zphsp90 ='    .' then zphsp90 ='     ';
  zpen590 = put((compress(zpen590x,'.')*1),Z5.);   if zpen590 ='    .' then zpen590 ='     ';
  zpen690 = put((compress(zpen690x,'.')*1),Z5.);   if zpen690 ='    .' then zpen690 ='     ';
  znonrc90= put((compress(znonrc9x,'.')*1),Z5.);   if znonrc90='    .' then znonrc90='     ';
  zhsorc90= put((compress(zhsorc9x,'.')*1),Z5.);   if zhsorc90='    .' then zhsorc90='     ';
  zsclrc90= put((compress(zsclrc9x,'.')*1),Z5.);   if zsclrc90='    .' then zsclrc90='     ';
  zcolrc90= put((compress(zcolrc9x,'.')*1),Z5.);   if zcolrc90='    .' then zcolrc90='     ';
  ctnon00 = put((compress(ctnon00x,'.')*1),Z5.);   if ctnon00 ='    .' then ctnon00 ='     ';
  cthso00 = put((compress(cthso00x,'.')*1),Z5.);   if cthso00 ='    .' then cthso00 ='     ';
  ctscl00 = put((compress(ctscl00x,'.')*1),Z5.);   if ctscl00 ='    .' then ctscl00 ='     ';
  ctcol00 = put((compress(ctcol00x,'.')*1),Z5.);   if ctcol00 ='    .' then ctcol00 ='     ';
  ctblk00 = put((compress(ctblk00x,'.')*1),Z5.);   if ctblk00 ='    .' then ctblk00 ='     ';
  ctwht00 = put((compress(ctwht00x,'.')*1),Z5.);   if ctwht00 ='    .' then ctwht00 ='     ';
  cthsp00 = put((compress(cthsp00x,'.')*1),Z5.);   if cthsp00 ='    .' then cthsp00 ='     ';
  ctpov00 = put((compress(ctpov00x,'.')*1),Z5.);   if ctpov00 ='    .' then ctpov00 ='     ';
  cten500 = put((compress(cten500x,'.')*1),Z5.);   if cten500 ='    .' then cten500 ='     ';
  cten600 = put((compress(cten600x,'.')*1),Z5.);   if cten600 ='    .' then cten600 ='     ';
  povrc00 = put((compress(povrc00x,'.')*1),Z5.);   if povrc00 ='    .' then povrc00 ='     ';
  nonrc00 = put((compress(nonrc00x,'.')*1),Z5.);   if nonrc00 ='    .' then nonrc00 ='     ';
  hsorc00 = put((compress(hsorc00x,'.')*1),Z5.);   if hsorc00 ='    .' then hsorc00 ='     ';
  sclrc00 = put((compress(sclrc00x,'.')*1),Z5.);   if sclrc00 ='    .' then sclrc00 ='     ';
  colrc00 = put((compress(colrc00x,'.')*1),Z5.);   if colrc00 ='    .' then colrc00 ='     ';
  zpnon00 = put((compress(zpnon00x,'.')*1),Z5.);   if zpnon00 ='    .' then zpnon00 ='     ';
  zphso00 = put((compress(zphso00x,'.')*1),Z5.);   if zphso00 ='    .' then zphso00 ='     ';
  zpscl00 = put((compress(zpscl00x,'.')*1),Z5.);   if zpscl00 ='    .' then zpscl00 ='     ';
  zpcol00 = put((compress(zpcol00x,'.')*1),Z5.);   if zpcol00 ='    .' then zpcol00 ='     ';
  zpblk00 = put((compress(zpblk00x,'.')*1),Z5.);   if zpblk00 ='    .' then zpblk00 ='     ';
  zpwht00 = put((compress(zpwht00x,'.')*1),Z5.);   if zpwht00 ='    .' then zpwht00 ='     ';
  zphsp00 = put((compress(zphsp00x,'.')*1),Z5.);   if zphsp00 ='    .' then zphsp00 ='     ';
  zpen500 = put((compress(zpen500x,'.')*1),Z5.);   if zpen500 ='    .' then zpen500 ='     ';
  zpen600 = put((compress(zpen600x,'.')*1),Z5.);   if zpen600 ='    .' then zpen600 ='     ';
  znonrc00= put((compress(znonrc0x,'.')*1),Z5.);   if znonrc00='    .' then znonrc00='     ';
  zhsorc00= put((compress(zhsorc0x,'.')*1),Z5.);   if zhsorc00='    .' then zhsorc00='     ';
  zsclrc00= put((compress(zsclrc0x,'.')*1),Z5.);   if zsclrc00='    .' then zsclrc00='     ';
  zcolrc00= put((compress(zcolrc0x,'.')*1),Z5.);   if zcolrc00='    .' then zcolrc00='     ';

  pos = 1160;
  do i = 1 to count;
    input @(pos +  0) seq_num  $char2.
          @(pos +  2) site     $char3.
          @(pos +  5) siterec  $char2.
          @(pos +  7) hist     $char4.
          @(pos + 11) beh      $char1.
          @(pos + 12) modx     $char2.
          @(pos + 14) yrdx     $char4.
          @(pos + 18) agerec   $char2.
          @(pos + 20) rpt_src  $char1.
          @(pos + 21) hststga  $char1.
          @(pos + 22) modajc1  $char2.
          @(pos + 24) modajc3  $char2.
          @(pos + 26) no_surg  $char1.
          @(pos + 27) grade    $char1.
          @(pos + 28) dxconf   $char1.
          @(pos + 29) ss_surg  $char2.
          @(pos + 31) radiatn  $char1.
          @(pos + 34) lateral  $char1.
          @(pos + 35) e4size   $char2.
          @(pos + 37) e4ext    $char1.
          @(pos + 38) e4node   $char1.
          @(pos + 39) e10size  $char3.
          @(pos + 42) e10ext   $char2.
          @(pos + 44) e10node  $char1.
          @(pos + 45) e10pn    $char2.
          @(pos + 47) e10ne    $char2.
          @(pos + 49) e10pe    $char2.
          @(pos + 51) marital  $char1.
     	  @(pos + 52) sx_prim  $char2.
	  @(pos + 54) num_nd   $char2.
	  @(pos + 56) sx_scop  $char1.
	  @(pos + 57) sx_site  $char1.
	  @(pos + 58) reconstr $char1.
	  @(pos + 59) tumor1   $char1.
	  @(pos + 60) tumor2   $char1.
	  @(pos + 61) tumor3   $char1.
	  @(pos + 62) frstprm  $char1.
	  @(pos + 63) radsurg  $char1.
	  @(pos + 64) radbrn   $char1.
	  @;



    if modx='13' then modx='99';

  /* create unchanging variables */
  /* Date of Last Contact: SEER DOD or MEDICARE DOD or END OF STUDY & vital status recode */
  if SER_DODY = '0000' then do;
    if med_dody = '    ' or med_dody < yrdx then do;
      SER_YOLC = eos_y;
      SER_MOLC = eos_m;
      stat_rec = '1';
      end;
    else do;
      SER_YOLC = med_dody;
      SER_MOLC = med_dodm;
      stat_rec = '4';
      end;
    end;
  else do;
    SER_YOLC = SER_DODY;
    SER_MOLC = SER_DODM;
    stat_rec = '4';
    end;
  if (SER_YOLC > eos_y) or ((SER_YOLC = eos_y) and (SER_MOLC > eos_m)) then do; /* died after end of study */
      SER_YOLC = eos_y;
      SER_MOLC = eos_m;
      stat_rec = '1';
      end;

    /* create changing variables */
    /* eod coding system */
    if '1988' <= yrdx then eod_sys='4';
    else if '1983' <= yrdx <= '1987' then eod_sys='3';
    else eod_sys=' ';

    /* age at Dx (3 digit) */
    AgeDX = yrdx - birthyr;
    if modx <= birthm then agedx = agedx-1;
    if agedx < 0 then agedx=0;

    /* type FUP expected */
    if rpt_src in ('6' '7') then type_fup = '1';  	/* death certificate/autopsy */
    else if beh='2' & siterec='47' then type_fup='3';	/* cervix insitu      */
    else type_fup = '2';			  	/* active followup    */
    						  	/* = 4: SanFrancisco? */
     output;
     pos = pos + 65;
     end;
  input;

proc sort data=prep;
  by regcase seq_num;
run;

/* *********  BEGIN ANALYSIS MERGE SECTION ********* */    /* USER - begin edits */
/* USER: keep desired variables.  These variables must be numeric.  if you */
/*       named regcase and seq_num differently, you must rename them and   */
/*       they must be character strings (regcase $char10, seq_num $char2)  */ 

/* USER comment out begins        (delete line if using this section)
data analy;
  set ANALYSIS.analysis(keep=regcase seq_num     );	   
							   
							   
proc sort data=analy;
  by regcase seq_num;  

data prep;
  merge prep(in=p) analy(in=a);
  by regcase seq_num;
  if p;
  if a then cohort='1';
  else cohort='0';
run;

 USER comment out ends */	  /* (delete line if using this section) */

/* **********  END ANALYSIS MERGE SECTION ********** */	   /* USER - end edits */ 

data prep(drop=numrec) temp(keep=regcase numrec);
  set prep;
  by regcase seq_num;
  retain numrec seq_rcd;
  if first.regcase then do;
    numrec=0;
    seq_rcd=0;
    end;
  if not (first.regcase and last.regcase) then seq_rcd=seq_rcd+1;
  numrec=numrec+1;
  output prep;
  if last.regcase then output temp;

data prep;
  merge prep temp;
  by regcase;

data _null_;
  set prep;
  by regcase seq_num;
  file PREP lrecl=650;
  hist03 = "    ";  *needs to be blank so that Site Rec with Kaposi and Meso is created properly;
  put @1   regcase   $char10.
      @11  fivepct   $char1.
      @12  dod_flg   $char1.
      @13  med_dodm  $char2.
      @15  med_dodd  $char2.
      @17  med_dody  $char4.
      @21  birthm    $char2.
      @23  birthd    $char2.
      @25  birthyr   $char4.
      @29  m_sex     $char1.
      @30  race      $char1.
      @31  rsncd1    $char1.
      @32  cur_ent   $char1.
      @33  chr_esrd  $char1.
      @34  med_stcd  $char2.
      @36  STATE     $char2.
      @38  COUNTY    $char3.
      @41  zip       $char9.
      @50  census    $char6.
      @56  hcsa      $char3.
      @59  urbrur    $char1.
      @60  ctpci90   $char6.
      @66  ctmed90   $char6. 
      /* @72  ctden90   $char6.   all missing */
      @78  ctnon90   $char5.
      @83  cthso90   $char5. 
      @88  ctscl90   $char5. 
      @93  ctcol90   $char5. 
      @98  ctblk90   $char5. 
      @103 ctwht90   $char5. 
      @108 cthsp90   $char5. 
      @113 ctpov90   $char5. 
      @118 cten590   $char5. 
      @123 cten690   $char5. 
      /* @128 medag90   $char6.   all missing */
      /* @134 medrc90   $char6.   all missing */
      @140 povrc90   $char5. 
      @145 nonrc90   $char5. 
      @150 hsorc90   $char5. 
      @155 sclrc90   $char5. 
      @160 colrc90   $char5. 
      @165 zppci90   $char6. 
      @171 zpmed90   $char6. 
      /* @177  zpden90   $char6.   all missing */
      @183 zpnon90   $char5. 
      @188 zphso90   $char5. 
      @193 zpscl90   $char5. 
      @198 zpcol90   $char5. 
      @203 zpblk90   $char5. 
      @208 zpwht90   $char5. 
      @213 zphsp90   $char5. 
      @218 zpen590   $char5. 
      @223 zpen690   $char5. 
      @228 znonrc90  $char5. 
      @233 zhsorc90  $char5. 
      @238 zsclrc90  $char5. 
      @243 zcolrc90  $char5. 
      @248 ctpci00   $char6. 
      @254 ctmed00   $char6. 
      @260 ctden00   $char6. 
      @266 ctnon00   $char5. 
      @271 cthso00   $char5. 
      @276 ctscl00   $char5. 
      @281 ctcol00   $char5. 
      @286 ctblk00   $char5. 
      @291 ctwht00   $char5. 
      @296 cthsp00   $char5. 
      @301 ctpov00   $char5. 
      @306 cten500   $char5. 
      @311 cten600   $char5. 
      @316 medag00   $char6. 
      @322 medrc00   $char6. 
      @328 povrc00   $char5. 
      @333 nonrc00   $char5. 
      @338 hsorc00   $char5. 
      @343 sclrc00   $char5. 
      @348 colrc00   $char5. 
      @353 zppci00   $char6. 
      @359 zpmed00   $char6. 
      @365 zpden00   $char6. 
      @371 zpnon00   $char5. 
      @376 zphso00   $char5. 
      @381 zpscl00   $char5. 
      @386 zpcol00   $char5. 
      @391 zpblk00   $char5. 
      @396 zpwht00   $char5. 
      @401 zphsp00   $char5. 
      @406 zpen500   $char5. 
      @411 zpen600   $char5. 
      @416 znonrc00  $char5. 
      @421 zhsorc00  $char5. 
      @426 zsclrc00  $char5. 
      @431 zcolrc00  $char5. 
      @436 s_sex     $char1.
      @437 RAC_RECB  $char2.
      @439 ICD_CODE  $char1.
      @440 COD89V    $char4.
      @444 COD10V    $char4.
      @448 SER_DODM  $char2.
      @450 SER_DODY  $char4.
      @454 srace     $char2.
      @456 origin    $char1.
      @457 stat_rec  $char1.
      @458 yr_brth   $char4.
      @462 seq_num   $char2.
      @464 site      $char3.
      @467 siterec   $char2.
      @469 hist      $char4.
      @473 beh       $char1.
      @474 modx      $char2.
      @476 yrdx      $char4.
      @480 agerec    $char2.
      @482 rpt_src   $char1.
      @483 hststga   $char1.
      @484 modajc1   $char2.
      @486 modajc3   $char2.
      @488 no_surg   $char1.
      @489 grade     $char1.
      @490 dxconf    $char1.
      @491 ss_surg   $char2.
      @493 radiatn   $char1.
      @494 lateral   $char1.
      @495 eod_sys   $char1.
      @496 e4size    $char2.
      @498 e4ext     $char1.
      @499 e4node    $char1.
      @500 e10size   $char3.
      @503 e10ext    $char2.
      @505 e10node   $char1.
      @506 e10pn     $char2.
      @508 e10ne     $char2.
      @510 e10pe     $char2.
      @512 marital   $char1.
      @513 sx_prim   $char2.
      @515 num_nd    $char2.
      @517 sx_scop   $char1.
      @518 sx_site   $char1.
      @519 reconstr  $char1.
      @520 tumor1    $char1.
      @521 tumor2    $char1.
      @522 tumor3    $char1.
      @523 frstprm   $char1.
      @524 radsurg   $char1.
      @525 radbrn    $char1.
      @526 plc_brth  $char3.
      @529 numprims  $char2.
      @531 hist03    $char4.   *needs to be blank so that Site Rec with Kaposi and Meso is created properly;


  /* created variables */
      @541 SER_MOLC  $char2.
      @543 SER_YOLC  $char4.
      @547 stat_rec  $char1.
      @548 agedx     Z3.
      @551 type_fup  $char1.
      @552 numrec    Z2.
      @554 seq_rcd   Z2.
      @556 cohort    $char1.

  /* USER - replace lenX_n variables as needed. */
  /* The existing tag must be the appropriate length. */
  /* The variables must be numeric. */
      @561 len1_1    z1.
      @562 len1_2    z1.
      @563 len1_3    z1.
      @564 len1_4    z1.
      @565 len1_5    z1.
      @566 len1_6    z1.
      @567 len1_7    z1.
      @568 len1_8    z1.
      @569 len1_9    z1.
      @570 len1_10   z1.
      @571 len2_1    z2.
      @573 len2_2    z2.
      @575 len2_3    z2.
      @577 len2_4    z2.
      @579 len2_5    z2.
      @581 len2_6    z2.
      @583 len2_7    z2.
      @585 len2_8    z2.
      @587 len2_9    z2.
      @589 len2_10   z2.
      @591 len3_1    z3.
      @594 len3_2    z3.
      @597 len3_3    z3.
      @600 len3_4    z3.
      @603 len3_5    z3.
      @606 len4_1    z4.
      @610 len4_2    z4.
      @614 len4_3    z4.
      @618 len4_4    z4.
      @622 len4_5    z4.
      @626 len5_1    z5.
      @631 len5_2    z5.
      @636 len5_3    z5.
      @641 len5_4    z5.
      @646 len5_5    z5.
      ;
run;