It worked! Thank you Cynthia! ... View more

/*******************************************************************\      | Copyright (C) 2012 by SAS Institute Inc., Cary, NC, USA.      |      |                                                               |      | SAS (R) is a registered trademark of SAS Institute Inc.       |      |                                                               |      | This program sets up practice data for some of the examples   | | in the Certification Prep Guide: Base Programming for SAS 9.  | |                                                               | | Last updated: July 8, 2015                                    | \*******************************************************************/      options nosource nonotes nocardimage validvarname=V7 replace;    /* create sample data */ data _null_;    /* determine fileref paths, delimiters, file options */    length fileno fileyes $18 fileset $ 1024;    oshost=trim(substr(symget('sysscp'),1,2));    filepath=trim(pathname("sasuser"));   if (oshost = "OS") and (length(symget('sysscp'))=2) then      do;         filepath=scan(filepath,1);         dlm=".";         fileno="disp=(new,catlg)";         fileyes="disp=(old,catlg)";      end;   else do;      host=trim(substr(symget('sysscp'),1,3));         if (host in ('WIN','OS2')) then            do;               filepath=trim(pathname("sasuser"));               dlm="\";               fileno="";               fileyes="";            end;        else if (host = "VMS") then            do;               filepath="";               dlm="";               fileno="";               fileyes="";            end;        else            do;               filepath=trim(pathname("sasuser"));               dlm="/";               fileno="";               fileyes="";            end;   end;    /* assign filerefs */    array filelst1{8} $ filesas1-filesas8 ('accnt','accnt01','accnt02',                                       'accnt03',                                       'accnt04','activity','fee',                                       'printfee');   do i=1 to dim(filelst1);      if (host = "CMS") then fileset=trim(filelst1(i)) || " sas *";      else fileset=trim(filepath) || dlm || trim(filelst1(i)) || ".sas";      isfile=fileexist(fileset);      if isfile=1 then fileopts=trim(fileyes);      else fileopts=trim(fileno);      rc=filename(filelst1(i),fileset,"",fileopts);   end;    array filelst2{48} $ filedt1-filedt48 ('admit','aprdata','aug99dat',      'bookdata','cardata','census','choldata','citydata','credit2','credit3',      'credit4','credit5','creditc','creditcr','cc','cccomma','data97',      'empdata','excdata1',      'excdata2','excdata3','exer','group3','invent','invent1','invent2',      'jan98dat','loan','memdata','newloans','orderdat','patdata','personel',      'phonsurv','powerdat','pubdata','rawdata','salary','saledata','satdata1','satdata2',      'stordata','survey1','tempdata','tests','tests2','topten', 'vandata');   do i=1 to dim(filelst2);      if (host="CMS") then fileset=trim(filelst2(i)) || " data *";      else fileset=trim(filepath) || dlm || trim(filelst2(i)) || ".dat";      isfile=fileexist(fileset);      if isfile=1 then fileopts=trim(fileyes);      else fileopts=trim(fileno);      rc=filename(filelst2(i),fileset,"",fileopts);   end; run; ... View more

When I run the code I get errors in the log. Is there a work around.... ERROR: Write access to member SASUSER.ADMIT.DATA is denied. ERROR: Write access to member SASUSER.ADMITJUNE.DATA is denied. ERROR: Write access to member SASUSER.BEFORE.DATA is denied. ERROR: Write access to member SASUSER.CLTRIALS.DATA is denied. ERROR: Write access to member SASUSER.COMPANY.DATA is denied. ERROR: Write access to member SASUSER.CREDIT.DATA is denied. ERROR: Write access to member SASUSER.DEMOG.DATA is denied. ERROR: Write access to member SASUSER.DIABETES.DATA is denied. ERROR: Write access to member SASUSER.EUROPE.DATA is denied. ERROR: Write access to member SASUSER.FINANCE.DATA is denied. ERROR: Write access to member SASUSER.FITCLASS.DATA is denied. ERROR: Write access to member SASUSER.FUNDDRIVE.DATA is denied. ERROR: Write access to member SASUSER.FUNDDRV.DATA is denied. ERROR: Write access to member SASUSER.HEART.DATA is denied. ERROR: Write access to member SASUSER.INSURE.DATA is denied. ERROR: Write access to member SASUSER.LAGUARDIA.DATA is denied. ERROR: Write access to member SASUSER.LOANS.DATA is denied. ERROR: Write access to member SASUSER.MEASURE.DATA is denied. ERROR: Write access to member SASUSER.NEWLOANS.DATA is denied. ERROR: Write access to member SASUSER.NEWADMIT.DATA is denied. ERROR: Write access to member SASUSER.PATIENTS.DATA is denied. ERROR: Write access to member SASUSER.RECORDS.DATA is denied. ERROR: Write access to member SASUSER.REPERTORY.DATA is denied. ERROR: Write access to member SASUSER.REPS.DATA is denied. ERROR: Write access to member SASUSER.SCH.DATA is denied. ERROR: Write access to member SASUSER.STRESS.DATA is denied. ERROR: Write access to member SASUSER.STRESS2.DATA is denied. ERROR: Write access to member SASUSER.STRESS98.DATA is denied. ERROR: Write access to member SASUSER.STRESS99.DATA is denied. ERROR: Write access to member SASUSER.STRESSTEST.DATA is denied. ERROR: Write access to member SASUSER.SURVEY.DATA is denied. ERROR: Write access to member SASUSER.TALENT.DATA is denied. ERROR: Write access to member SASUSER.THERAPY.DATA is denied. ERROR: Write access to member SASUSER.THERAPY1999.DATA is denied. ERROR: Write access to member SASUSER.THERAPY2000.DATA is denied. ERROR: Write access to member SASUSER.TOTALS2000.DATA is denied. ERROR: Write access to member SASUSER.USA.DATA is denied. ERROR: Write access to member SASUSER.VISIT.DATA is denied. ERROR: Write access to member SASUSER.MECHANICS.DATA is denied. ERROR: Write access to member SASUSER.NAVIGATORS.DATA is denied. ERROR: Write access to member SASUSER.PILOTS.DATA is denied. ERROR: Write access to member SASUSER.SALARY.DATA is denied. ERROR: Write access to member SASUSER.STAFF.DATA is denied. ERROR: Write access to member SASUSER.TEMP.DATA is denied. ERROR: Write access to member SASUSER.TEMPS.DATA is denied. ERROR: Write access to member SASUSER.FLIGHTDELAYS.DATA is denied. ERROR: Write access to member SASUSER.FLIGHTSCHEDULE.DATA is denied. ERROR: Write access to member SASUSER.FREQUENTFLYERS.DATA is denied. ERROR: Write access to member SASUSER.INTERNATIONALFLIGHTS.DATA is denied. ERROR: Write access to member SASUSER.MARCHFLIGHTS.DATA is denied. ERROR: Write access to member SASUSER.MECHANICSLEVEL1.DATA is denied. ERROR: Write access to member SASUSER.MECHANICSLEVEL2.DATA is denied. ERROR: Write access to member SASUSER.MECHANICSLEVEL3.DATA is denied. ERROR: Write access to member SASUSER.MONTHLY.DATA is denied. ERROR: Write access to member SASUSER.PAYROLLCHANGES.DATA is denied. ERROR: Write access to member SASUSER.PAYROLLMASTER.DATA is denied. ERROR: Write access to member SASUSER.QSALES.DATA is denied. ERROR: Write access to member SASUSER.STAFFCHANGES.DATA is denied. ERROR: Write access to member SASUSER.STAFFMASTER.DATA is denied. ERROR: Write access to member SASUSER.SUPERVISORS.DATA is denied. ERROR: File SASUSER.STAFFMASTER.DATA does not exist. ERROR: File SASUSER.PAYROLLMASTER.DATA does not exist. ERROR: Write access to member SASUSER.ACITIES.DATA is denied. ERROR: Write access to member SASUSER.AIRPORTS.DATA is denied. ERROR: Write access to member SASUSER.ALLEMPS.DATA is denied. ERROR: Write access to member SASUSER.CAP2000.DATA is denied. ERROR: Write access to member SASUSER.CAP2001.DATA is denied. ERROR: Write access to member SASUSER.CAPACITY.DATA is denied. ERROR: Write access to member SASUSER.CAPINFO.DATA is denied. ERROR: Write access to member SASUSER.CARGOREV.DATA is denied. ERROR: Write access to member SASUSER.CARGO99.DATA is denied. ERROR: File SASUSER.CARGO99.DATA does not exist. ERROR: Write access to member SASUSER.CARGO99.DATA is denied. ERROR: Write access to member SASUSER.COMPETE.DATA is denied. ERROR: Write access to member SASUSER.CONTRIB.DATA is denied. ERROR: Write access to member SASUSER.CTARGETS.DATA is denied. ERROR: Write access to member SASUSER.DNUNDER.DATA is denied. ERROR: Write access to member SASUSER.ECONTRIB.DATA is denied. ERROR: Write access to member SASUSER.EMPDATA.DATA is denied. ERROR: File SASUSER.EMPDATA.DATA does not exist. ERROR: Write access to member SASUSER.EMPDATA.DATA is denied. ERROR: Write access to member SASUSER.EMPDATU.DATA is denied. ERROR: Write access to member SASUSER.EMPDATU2.DATA is denied. ERROR: Write access to member SASUSER.EXPENSES.DATA is denied. ERROR: Write access to member SASUSER.FLIGHTS.DATA is denied. ERROR: Write access to member SASUSER.FLIGHTS2.DATA is denied. ERROR: Write access to member SASUSER.FLIGHTTIMES.DATA is denied. ERROR: Write access to member SASUSER.JCODEDAT.DATA is denied. ERROR: Write access to member SASUSER.JOBHSTRY.DATA is denied. ERROR: Write access to member SASUSER.MEALPLAN.DATA is denied. ERROR: Write access to member SASUSER.MONTHSUM.DATA is denied. ERROR: Write access to member SASUSER.NEWCGNUM.DATA is denied. ERROR: Write access to member SASUSER.NEWEMPS.DATA is denied. ERROR: Write access to member SASUSER.NEWRTNUM.DATA is denied. ERROR: Write access to member SASUSER.NEWSALS.DATA is denied. ERROR: Write access to member SASUSER.NEWTIMES.DATA is denied. ERROR: Write access to member SASUSER.PILOTEMP.DATA is denied. ERROR: Write access to member SASUSER.QUARTER2.DATA is denied. ERROR: Write access to member SASUSER.QUARTER3.DATA is denied. ERROR: Write access to member SASUSER.QUARTER4.DATA is denied. ERROR: Write access to member SASUSER.REVENUE.DATA is denied. ERROR: Write access to member SASUSER.SALCOMPS.DATA is denied. ERROR: Write access to member SASUSER.SALE2000.DATA is denied. ERROR: Write access to member SASUSER.TARGET.DATA is denied. ERROR: Write access to member SASUSER.VCRSALES.DATA is denied. ERROR: Write access to member SASUSER.WCHILL.DATA is denied. ERROR: Write access to member SASUSER.WESTAUST.DATA is denied. ERROR: Write access to member SASUSER.YEAR2000.DATA is denied. ERROR: Write access to member SASUSER.Y2000.DATA is denied. ERROR: Write access to member SASUSER.Y200061.DATA is denied. ERROR: Write access to member SASUSER.Y200062.DATA is denied. ERROR: Write access to member SASUSER.STUDENTS.DATA is denied. ERROR: Write access to member SASUSER.SCHEDULE.DATA is denied. ERROR: Write access to member SASUSER.COURSES.DATA is denied. ERROR: Write access to member SASUSER.REGISTER.DATA is denied. ERROR: Write access to member SASUSER.ALL.VIEW is denied. ERROR: SQL view was not defined due to errors. ... View more

That is correct. ... View more

@ cynthia it is data from an old (very old!) mckesson but yes the mainframe does the same thing. Apparently someone i work with used a delimiter software, which i don't know what it is, to get it like that. i guess it more or less does what text to columns / delimiter does in excel they apparently think they did something -roll eyes- ... View more

that is really great Xia! i know it works with the cards statement however when i sub in my text file in the infile statement I get no observations in the output data set. I can't figure out how to do it to get it to repeat. i tried ... else do; input; end; at the end of the program so but no avail. i figured it finds something that isn't the data we want it will delete but then move to the next observation ... View more

here is the code i am working with ... i always get data errors when the detail line numbers change from one line to 3 lines in 764809. i can't seem to hold the line and grab those guys in a typical hierarchy program... ata myfile3 (drop=chkcol linechk);   infile '/home/nyioves/Nikfold/Invoice.txt' truncover obs=400 ;   length Buyer_Code Vendor $200;     input chkcol $ 5 @1 @;     if chkol='Vouch' then delete;     if chkol='Nbr I' then delete;     if chkol='Price' then delete;     if chkol='-----' then delete;     if chkol='Date:' then delete;     if chkol='Time:' then delete;     if chkol='     ' then delete;     if chkcol="Buyer" then     input @12   Buyer_Code  $50 @   ;     retain Buyer_Code;     else if chkcol="Vendo" then     input @9 Vendor $50     @   ;   retain Vendor;   else do;     input @1 Vouchnum 6.                @7 Invno 9.               @16 seperat1 $1.               @18   Vndinvdate $9.               @27   Number1 6.               @33   InvAmt $8.            @41   Ponum   $7.            @48   Status1 $25. @   ;    retain Vouchnum Invno seperat1 Vndinvdate Number1 InvAmt Ponum Status1;   input @3   linenum $1.            @5   txt1        $20.            @24 Invdate     $8.            @34 linenum2    1.            @36 recd        1.            @38 POdis 1.            @40 Invd 1.            @41 price1      $8.            @49 price2      $8.             @55 status2     $1.    @             ;   retain linenum txt1 Invdate linenum2 recd POdis Invd price1 price2 status2;   input linechk $1. @3 @;   if linechk = '2' then      input @3   linenum $1.            @5   txt1        $20.            @24 Invdate     $8.            @34 linenum2    1.            @36 recd        1.            @38 POdis 1.            @40 Invd 1.            @41 price1      $8.            @49 price2      $8.             @55 status2     $1.    @             ;   retain linenum txt1 Invdate linenum2 recd POdis Invd price1 price2 status2;   else if linechk = '3' then   input @3   linenum $1.            @5   txt1        $20.            @24 Invdate     $8.            @34 linenum2    1.            @36 recd        1.            @38 POdis 1.            @40 Invd 1.            @41 price1      $8.            @49 price2      $8.             @55 status2     $1.                ;      retain linenum txt1 Invdate linenum2 recd POdis Invd price1 price2 status2;   end; run; proc print data=myfile3; run; ... View more

i tried to break it down by just the 'trouble areas ' but i can this is just not possible here' s the data and there are thousands of this throughout.... oucher Vendor Vendor Payment Po Nb Total Total PO Inv Nbr I nv Nbr/Ln Inv Dat e Due Date Inv Amt Ln Nb Rec'd Dist Inv'd Price Price St ------------ ---------- --- ----------- ----------- -------------- -------- - --------------- -------- --------- -------------- ------------ --- Buyer Code: BLS BETTIE SM ITH  Vendor: 8444 DAT EX- OHMEDA  762100 62245094 / 03/04/15 42097 2142.46 264568 P   1 Las t Recvd Dat e: 12/19/14 1 7 7 1 3971.88 2142.46 Q 762101 62243752 / 03/01/15 42094 16001.6 264568 P   1 Las t Recvd Dat e: 12/19/14 1 7 7 1 3971.88 16001.6 B 762690 62247150 / 03/07/15 42100 1790.38 264568 P   1 Las t Recvd Dat e: 12/19/14 1 7 7 1 3971.88 1790.38 Q 762691 62246387 / 03/06/15 42099 1520.38 264568 P   1 Las t Recvd Dat e: 12/19/14 1 7 7 1 3971.88 1520.38 Q 762692 62246386 / 03/06/15 42099 1070.38 264568 P   1 Las t Recvd Dat e: 12/19/14 1 7 7 1 3971.88 1070.38 Q 762693 62246385 / 03/06/15 42099 1075.19 264568 P   1 Las t Recvd Dat e: 12/19/14 1 7 7 1 3971.88 1075.19 Q 762694 62246384 / 03/06/15 42099 1115.38 264568 P   1 Las t Recvd Dat e: 12/19/14 1 7 7 1 3971.88 1115.38 Q 763572 62253066 / 03/18/15 42111 890.38 264568 P   1 Las t Recvd Dat e: 12/19/14 1 7 7 1 3971.88 890.38 Q 763574 62253064 / 03/18/15 42111 540 264568 P   1 Las t Recvd Dat e: 12/19/14 1 7 7 1 3971.88 540 Q 763805 62255278 / 03/21/15 42114 1520.38 264568 P   1 Las t Recvd Dat e: 12/19/14 1 7 7 1 3971.88 1520.38 Q 764809 62260713 / 04/01/15 42125 8190.48 264568 P   1 Las t Recvd Dat e: 12/19/14 1 7 7 1 3971.88 3971.88 Q   2 Las t Recvd Dat e: 12/19/14 2 7 7 1 3740 3740 Q   3 Las t Recvd Dat e: 12/19/14 3 7 7 1 478.59 478.6 Q 765293 62257450 / 03/26/15 42119 540 264568 P   1 Las t Recvd Dat e: 6 1 574.31 540 Q 765294 62257449 / 03/26/15 42119 720 264568 P   1 Las t Recvd Dat e: 6 1 574.31 720 B Date: 05/01/ 2015 ST. B ARNABAS O SPITAL P age : 2 Time: 8:47am Pay ables Status E xception R pt For 05/01/20 15 R eport: GARPS ESB Voucher Vendor Vendor Payment Po Nb Total Total PO Inv Nbr I nv Nbr/Ln Inv Dat e Due Date Inv Amt Ln Nb Rec'd Dist Inv'd Price Price St ------------ ---------- --- ----------- ----------- -------------- -------- -  ... View more