Re: qstrup cl question/bug

Have you noticed the content of the &CPYR variable?

This statement means:

§1 This program is 'PROPERTY OF IBM'
§2 If it ever changes, it will change to 'PROPERTY OF IBM'
§3 It will never change

To be serious: Theese lines fools the compiler to include the string 'PROPERTY 
OF IBM' in the compiled object, even if the string is never used for anything.

Not long ago I coded the lines:

CALL PGM
IF 5 = 7
CALL 'PGM1'
CALL 'PGM2'
CALL 'PGM3'
ENDIF

Guess why?

You're right: PGM1, -2 and -3 are included in DSPPGMREF. 
Not nice really, cause the first line is ment to be flexible. Some day the 
variable PGM might have a fourth value 'PGM4', but the DSPPGMREF does not 
follow.

More sense to this:
IF 5 = 7
CHAIN REC
ENDIF

which mean: No blocking should be used for the file.

Henrik