The examples as given were not equivalent.
>>THE.READ = STR('0',DIALS-LEN(THE.READ)):THE.READ
>>
>>versus
>>
>>THE.JUST = "R#":LEN(THE.READ); THE.READ = THE.READ THE.JUST
Apart from the % to # change, the second example ignores DIALS and justifies
within the length of THE.READ
I assume the second one ought to have been
THE.JUST = "R%":DIALS; THE.READ = THE.READ THE.JUST
As the "R%n" form doesn't always work in Unidata....
$DEFINE UNIDATA
|
.....
|
* Special subtlety for Unidata not supporting 'R%3' form
$IFDEF UNIDATA
PFX = ''; SFX = '\0R'
$ELSE
PFX = 'R%'; SFX = ''
$ENDIF
|
.....
|
THE.READ = FMT(THE.READ,PFX:DIALS:SFX)
_______________________________________________
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users
