Path: ...!news.mixmin.net!eternal-september.org!feeder3.eternal-september.org!news.eternal-september.org!.POSTED!not-for-mail
From: David Meyer <papa@sdf.org>
Newsgroups: comp.os.vms
Subject: Re: SYS$FAO coding example in BLISS-32
Date: Fri, 12 Jul 2024 14:17:46 +0900
Organization: A noiseless patient Spider
Lines: 33
Message-ID: <87y167gpdx.fsf@lucy.meyer21c.net>
References: <87bk34uj7f.fsf@lucy.meyer21c.net> <v6pckm$2jgc3$1@dont-email.me>
MIME-Version: 1.0
Content-Type: text/plain
Injection-Date: Fri, 12 Jul 2024 07:17:34 +0200 (CEST)
Injection-Info: dont-email.me; posting-host="8d83aebbdbc767d887b28eb7951ed874";
	logging-data="3047234"; mail-complaints-to="abuse@eternal-september.org";	posting-account="U2FsdGVkX18BkQro8JzbMlaHPMhOFew8"
User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/28.2 (gnu/linux)
Cancel-Lock: sha1:RQj1TWictTO0O+Ihw/m2yfxsNTM=
	sha1:/xDb402SZTm1wivJkTuinFP6zFI=
Bytes: 2006

Jim Duff <jim@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@sdf.org