Help Requested

[m204prgmr]

I'm pulling what hair is left, out...LOL

 

There are 3 pieces of unwanted text in my output that I cannot get rid of. I've tried padding, replacing, etc. If someone can take a peek and give some advice that would be swell. I have 8 others just like the attached but with different generation dataset names. Thanks in advance

 

 

 

 

<CLEARVAR1:T:ALL><CLEARVAR1:N:ALL><DOFILE:08:NN:c:\hisp1.txt>><BTFBEG:001:000001:000000:c:\hisp.txt><IFVAR2:1:01:8:IDCAMS SYSTEM SERVICES><TMVAR2:21:01:01:000:000:IDCAMS SYSTEM SERVICES ><ENDIF><IFVAR2:1:01:7:HISP><IFVAR2:1:01:8:HIST><IVAR2:01:13:1:HISP.TSI.GMC.EXTRACT1.INPAT.><TMVAR2:10:02:01:016:051:><TMVAR2:20:02:00:000:000:C:\hisp1.txtF><ENDIF><ENDIF><IFVAR2:1:01:7:CREATION--------><IFVAR2:1:01:8:HIST><IVAR2:01:13:1:CREATION--------><TMVAR2:10:04:01:053:060:><TMVAR2:04:04:00:000:000:><TMVAR2:10:06:01:058:060:><TVAR2:03:01: ><IFVAR2:1:06:4:308><TMVAR2:20:03:00:000:000:C:\hisp1.txtF><TMVAR2:20:04:00:000:000:C:\hisp1.txtF><ELSE><TMVAR2:20:03:00:000:000:C:\hisp1.txtF><TMVAR2:20:04:00:000:000:C:\hisp1.txtT><ENDIF><ENDIF><ENDIF><IFVAR2:1:01:7:STATUS------------><IFVAR2:1:01:8:HIST><IVAR2:01:13:1:STATUS------------><TMVAR2:10:05:01:026:031:><TMVAR2:04:05:00:000:000:><TMVAR2:20:03:00:000:000:C:\hisp1.txtF><TMVAR2:20:05:00:000:000:C:\hisp1.txtT><ENDIF><ENDIF><BTFEND>

hisp.txt

[m204prgmr]

I forgot to mention, the unwanted text is

IDCAMS SYSTEM SERVICES

 

And if someone knows how I can convert the last 3 digits to a YYYYMMDD or similar format, that would be swell too

Thanks again

[randallc]

Hi,

there are 2 spaces between "ams system"

what others?

Best, Randall

[see next post for necessary attached function-macro to run this]

DateSerialDiffExample.mxe

[randallc]

Hi,

1. Slow, using vbs; are you in a rush? [** Assuming the 3 digits are day number of year and NOT after today!]

Variable Set String %T11% "210"

Variable Modify String: Save %T11% to Environment Variable

Variable Set String %T12% "2005"

Variable Modify String: Save %T12% to Environment Variable

Macro Run: DateSerialDiffVBS

Date/Time: Save "yyyyMMdd" into %T1%

Text Box Display:

<TVAR2:11:01:210><TMVAR2:19:11:00:000:000:DateSerialDiff><TVAR2:12:01:2005><TMVAR2:19:12:00:000:000:Year><MACRUN2:DateSerialDiffVBS><DT:yyyyMMddT:01:3:{P0%N1%}{P00000}{P00000}{P00000}><TBOX4:T:1:CenterCenter000278000200:000:%DateSerialDiff%(%Year%)=%DateSerialDiffAnswer%

N1=%N1%

Date in T1=%T1%>

Needs attached macro imported to you current mex library;

Randall

[cf previous post for example macro]

EDIT; Of course, you only have to run this slow vbs once, because it gives you today's "Day of yaer" as sum of original number plus returned "%DateDiff%" from that; so you can

a. calculate any further differences from today's day number of year for the 3 digit

b. put them into N1,

c. put them in the "days back" from today

<DT:yyyyMMddT:01:3:{P0%N1%}{P00000}{P00000}{P00000}>

again;

Best, Randall

DateSerialDiffVBS.mxe

[m204prgmr]

Randall,

the Date conversion appears to be working very well. Thanks so much for all of your help.

Robert

 

btw....I gave up on trying to make the other document pretty. I decided that portion did not need to look any certain way, I just needed the name, date info, and know if was active or not.