Date: Thu, 28 Aug 2003 16:00:12 -0400
Reply-To: Ian Whitlock <WHITLOI1@WESTAT.COM>
Sender: "SAS(r) Discussion" <SAS-L@LISTSERV.UGA.EDU>
From: Ian Whitlock <WHITLOI1@WESTAT.COM>
Subject: Re: Trimming the First 37 bytes of a Flat File!
Content-Type: text/plain
Prasad,
If what you want is a new flat file without the first 37 bytes then use
data _null_ ;
infile old ;
input ;
_infile_ = substr(_infile_,38) ;
file new ;
put _infile_ ;
end ;
If you only want to read variables for a SAS data set then Michael gave you
a good answer.
IanWhitlock@westat.com
-----Original Message-----
From: Prasad Kris [mailto:prasad_kris2000@YAHOO.COM]
Sent: Thursday, August 28, 2003 10:33 AM
To: SAS-L@LISTSERV.UGA.EDU
Subject: Trimming the First 37 bytes of a Flat File!
Dear SAS Users,
I have been struggling to trim the first 37bytes of a flat file. These 38
bytes occur on every new line(but for sample i have included only on the
first line)
It may need to store those 37 bytes and search for the entire file and trim
it...
Is there a way to trim??
Thanks for your help!
Prasad.
Attached is a sample layout.
3224182083606001TRU0027678 4.0C03844TU4R062011538044788
06TRR
0000141020020923102648PH0101207000SH01027101Y05N32QUN19771201NM01070F1FIACOM
MON JOHN E
PI01029F08682001619420201 AD01105F1138
CAMINO FANTASY ISLAND IL60750
20000301AD01105F11117 POB 117 WATER
MILL NY11976 19990901AD01105F1130 POB
30 WATER MILL
NY11976 PN01027F109 7269551
EM01100ECU
FE 20020901R EM01100EMPRESS
CASINO F
20020901R
SM010411000000000001001027021002002002005SD01056R000358615000172000000116298
000000000000000457032SD01056M000075000000000000000070421000000000000000707
SD01056O000001706000000000000001654000000000000000000003SD01056T000435321000
172000000188373000000000000001164 TR01288N
0656N001AMEX O8934
I1987070120020901A
011000001654000001654
CC 000000000
200209011111111111111111111111111111X11111111X1X111111X1480000002TR01288N
0656N002AMEX R8934
I1987070120020901A
011000000182000000182
CC 000000000
2002090111111111111 110000002TR01288D
0989D002BLOOMD/FDSB R458618
I1968020120020801A 19941101
011000000000000000065000000000
CLO000000000
TR01288B 0656N011AMEX
R1423 I1997110120020801A
011000000187000000187000002000
CC 000000000
20020801111111111XX1111111111111X1XX11111111111111111111480000002TR01288B
01DTV001CAPITAL 1 BK R52911513
I1999100120020801A 20020801011000007917000008939
MIN 000000237 CC
000000000
20020801111111111111111111111111111X11X11 340000002TR01288Q
09566223CITIBANK FSB C9727
I2002070120020801A
011000102672000110000
LS 000000000
200208011 010000002TR01288B
0382D038CHASE MHT BK R767103101095
I1993100120020801A
011000000990000006800000006800MIN
000000092 LC
000000000
20020801111111111111 120000002TR01288B
0328Q024GECS/PC RHDS R43840
I1992050120020701A 2002010119920701011000000000000004500000004500
CC 00000000000
2002010111111111111111111111111111111111111111111111112 050000001TR01288Q
0462S015CITIMORTGAGE M9671853
I1993120120020701A 011000070421000075000
360M000000707FRD510273106 CV
000000000
20020701111111111X11111111111111111111111111111X1111X111480000002TR01288Q
0235055QBROOK/MCCBG R1001116
I1978070120020701A
2002070120020701011000000000000000389000001400 BRCG54
DL1001 CH 00000000000
20020701111111111111111111111111111111111111111111111111480000002TR01288B
01607121HSBC MORTUSA R425451
I1997100120020701A
20011001011000002310000011400000011400MIN
000000024 CC
00000000000
200207011111111111111111111111X1X111111111111111111XX111120000001TR01288B
01607121HSBC MORTUSA R425451
I1982080120020701A
20011001011000001552000004800000004800MIN
000000006 CC
00000000000
20020701111111111111111111111XX1X111111111111XXXXXXXXXX1110000001TR01288B
0402D035CHASE-MNHTN R989016
C1999110120020701A 2002070120020701011000000000000100976000125000
PROPERTY HE 000000000
20020701111111X111111111111 190000002TR01288B
07519017FST USA BK B R54171225
I2001020120020701A20020301C 20011101011000000000000010000000010000
CCCBC00000000000
2002030111111111111111 090000001TR01288D
03478001SWEZEY R7847
I1991090120020701A20000301C 20000201011000000000000000600000000600
CH 000000000
200003011111111111111XXXXXXXXXXXXXXXXXXXXXXXXXXXXX11X1X1480000002TR01288B
0382D038CHASE MHT BK C767103101095
I1993100120020601A
20020101011000000488000006800000006800MIN
000000098 LC
00000000000
20020601111111111111111111111111111111111111111111111111120000001TR01288B
01597029MBNA AMERICA R53
I2000090120020501A20020301C 20020401011000000000000007037000007500
CCCBC000000000
20020301111111111111111 190000002TR01288B
064DB001CITI R42713827
I2002010120020201A 20020101
011000000000000000000000006500
CC 000000000
200201011 010000002TR01288B
0402D035CHASE-MNHTN C989016
C1999110120001201A 20001201011
000100978 LS
000000000
20001201111111111X1 110000002TR01288B
04476007NORTHFORK BK M1579
P1980020119991101A19991101C 19991001011000000000000053750
240M000000706 RE
000000000
19991101X11111111111111111111111111111111111X11111111111480000002TR01288Q
0930N133TABANK R50446028
I1994060119981201A
19960901011000000000000002599000002600
CH 000000000
199812011XXXXXXXXXXXXXXXXXXXXX1XXXX1111111111 370000002TR01288B
08246001AM CENTURION R72901
I1992070119971101A19971101C 19971101011000000000
000002000
CCTRF000000000
199711011111111111111111XXXXX111 240000002TR01288D
06256374SEARS I4003
I1996080119960901A 19960801
011000000000
00000000000
020000001TR01288F 0235166GHFC
I6011 M1994030119941201A
1994090119940901011000000000000003300000000000
6M000000581 CS
000000000
TR01288O 08065001SUNOCO
R5005436 I1993050119941101A
19940901011000000000000000000000000000
000000000
TR01288N 0656N001AMEX
O3678 I1987110119921201A 19921201
011000000000000000052
000000000
TR01288D 0668N001B ALTMAN
R2636 I 19931101A
001000000000000000000000000200
000000000
IN0106506TRR 00001410FANNIE MAE I
20020923IN0106506TRK 00000004TEST CODE I
20020922IN0106514SFF 00103047ESSEX CREDIT I
20010810IN0106517PHB 00007926AMEX CENTURI I
19991113IN0106517PHB 00004505MBNA I
19990225OB01148TRANS UNION CORPORATION - TRAINING 555 W.
ADAMS CHICAGO, IL 60604 800-888-
4213 AO010170095001 SC0103400950+748 010005030008 ENDS010052
