If you truly do not have any patterns you will have a great deal of problems.
A data step and Input statements will let your read this but I'm not going to any actual code without knowing which pieces of data you want in the output.
Likely coming into play will be a number of very old school programming elements like _infile_ and the trailing @ for reading.
You will have to parse the lines of code to tell which part of the report you are on.
Here is a PARTIAL program that will read SOME data fields and write one form of output. This is not complete by any means as I don't know which values may need to be numeric. Your "dates" if they are indeed supposed to be in year 2054 could be read as date values with proper informat/formats.
Note that you will want to read up on INPUT statement options. I have heavily used the @"value" which searches a string for that value and then starts reading.
You will need to find the things that delimit which type of "report" a block of data represents and likely write a set of code for each. It suspect it might be advantageous to write to different output data sets but not knowing what you need I'm not going much further. BTW, this is type of thing that I would bill about $250 per hour to code a complete solution as an independent contractor, and possibly include a minimum number of hours as well.
data example;
infile "<path>\sample.txt" lrecl=500;
informat fromdate todate $10. point $10. applid $10. SETTDATE pardate 7.
CompanyName $15. CompanyId $10. sec $4. ENTRYDESC $15.
EFFdate $10.
DDADRamount SAVdramount USERdramount TOTALSdramount Comma15.
DDACRamount SAVCRamount USERCRamount TOTALSCRamount comma15.
;
retain fromdate todate point applid SETTDATE pardate CompanyName
companyId sec entrydesc effdate
;
input @;
if index(_infile_,'R E T U R N R E S O L U T I O N R E P O R T (FOR RETIRES)')>0 then put "Reading title line:" _infile_;
if index(_infile_,'FROM DATE/WINDOW')>0 then input @'FROM DATE/WINDOW' FromDate;
if index(_infile_,'TO DATE/WINDOW')>0 then input @'TO DATE/WINDOW' ToDate;
if index(_infile_,'COLL APPL INFO:') >0 then do;
input @"POINT: " point @"APPL ID:" Applid @"SETT DATE: " settdate
@"PAR DATE:" pardate
/ /*this specific slash is Next line*/
@ "COMPANY NAME:" COMPANYName @ "COMPANY ID:" companyid @"SEC:" SEC
@ "ENTRY DESC:" EntryDesc @ "EFF DATE:" EFFDATE;
input; input; /* blank line, dashline*/
;
end; /*end the block of the COLL APPL INFO*/
if index (_infile_,'DR COUNT')>0 then do;
input @ 'DR COUNT' DDADRcount SAVdrCount USERdrcount TOTALSdrcount
/ @ 'DR AMOUNT' DDADRamount SAVdramount USERdramount TOTALSdramount
/
/ @ 'CR COUNT' DDACRcount SAVCRCount USERCRcount TOTALSCRcount
/ @ 'CR AMOUNT' DDACRamount SAVCRamount USERCRamount TOTALSCRamount
;
output;
end;
run;
Click image to register for webinar
