RE: Conditioning Header record printing...

I control this myself.  I usually have a subroutine named $CHKOF (Check for
overflow) that is executed before every WRITE statement (except Heading
WRITEs).  It looks something like this in most cases...

if (*INOF)
WRITE HDG
eval *INOF = *OFF
endif

Now, in cases like you speak of, I add a little part to the top of the
$CHKOF subroutine that looks like this:

if (PrtHdg <> 'Y')
WRITE HDG
eval PrtHdg = 'Y'
endif

The only other thing you must remember to do is to set PrtHdg to 'N' in the
right spots (whichever level your pagebreaks occur on).


So, the code looks like this
CL1             EXSR            $CHKOF
CL1                     WRITE           DETAIL
OF(lo)

I'm sure there are more than this way to get this to work, but this is
pretty straightforward.
                         
Brad

-----Original Message-----
From: Nagendra [mailto:NAGENDRA@india.mastech.com]
Sent: Sunday, February 21, 1999 10:43 PM
To: 'MIDRANGE-L@midrange.com'
Subject: Conditioning Header record printing...


Hi all,

When I use Externally described file as a primary file, how do I
condition the printing of Headers???. I tried with 1P indicator but it
gives syntax error.
If I don't condition,  for every cycle the headers are printed. Can any
one help in this regard

Thanks
Nagendra

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