[Info-vax] SYS$FAO coding example in BLISS-32

[David Meyer]

Jim Duff <jim at bad.invalid> writes:

> Try section 8.3.1 of the the BLISS 32 User Manual?
>
> https://www.digiater.nl/openvms/freeware/v50/bliss/b32uman.pdf

Thanks for the pointer. I actually found that example in an older
edition of the manual a few days ago, but didn't notice the call to
$FAOL!

One (or two?) problem trying to compile the example with Compaq COBOL
V2.7 on Alpha:

       MSGDESC[0] = .RSLT;              ! Modify output descriptor
    ...........^
    %BLS32-W-TEXT, Null actual parameter for structure BLOCK has no
    default value
    at line number 29 in file DISK$USER_01:[PAPA]SHOWTIMEUM.B32;2

       MSGDESC[0] = .RSLT;              ! Modify output descriptor
    ..............^
    %BLS32-W-TEXT, Fetch or store applied to field of zero size
    at line number 29 in file DISK$USER_01:[PAPA]SHOWTIMEUM.B32;2

However, changing the flagged line as follows allows the example to
compile and run as expected:

    MSGDESC [DSC$W_LENGTH] = .RSLT;

-- 
David Meyer
Takarazuka, Japan
papa at sdf.org