RE: How to zero date in prefix area?

John,
I couldn't find an easy way to zero the dates either.
So, here's a macro that I wrote that seems to work.
If anybody knows a better way, please let me know.

/* zerodate.lx */
                                                 
done = 'No'
'bottom'
'extract prefix'
lastrow = substr(prefix,1,6)
'top'
'set prefixdefaulttext 000000'
                                                 
do while( done = 'No' )
  'extract prefix'
  currentrow = substr(prefix,1,6)
  'extract content'
  firstchar = substr(content,1,1)
  'set cursorpos 1'
  'primitive replacechar "' || firstchar || '"'
  'next'
  if currentrow = lastrow then do
    done = 'Yes'
  end
end
'set prefixdefaulttext' substr(date('S'),3,6)
'top'

Barry Hoffman
National Seminars

-----Original Message-----
From:   John Taylor [mailto:john.taylor@telusplanet.net]
Sent:   Thursday, August 17, 2000 3:29 PM
To:     Code400 List
Subject:        How to zero date in prefix area?

I've spent the last 20 minutes searching through the online help, and I
still can't find it. Is there a way to set the prefix date for all lines in
a source member, ala "F13/Set records to date" in SEU?

I'm getting the sinking feeling that I need to write my own macro in order
to accomplish this. Please tell me I'm wrong.




Regards,

John Taylor
Canada







+---
| This is the CODE/400 Mailing List!
| To submit a new message, send your mail to CODE400-L@midrange.com.
| To subscribe to this list send email to CODE400-L-SUB@midrange.com.
| To unsubscribe from this list send email to CODE400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: larry@paque.net
+---