[Info-vax] COBOL example $MGBLSC

[Arne Vajhøj]

On 9/8/2023 10:38 PM, Arne Vajhøj wrote:
> Or if you really want to hack it:
> 
> identification division.
> program-id.hex2.
> *
> data division.
> working-storage section.
> 01  v       pic 9(9) comp.
> 01  fmt     pic x(11) value "%d %08x%c%c".
> 01  cr      pic 9(9) comp value 13.
> 01  lf      pic 9(9) comp value 10.
> *
> procedure division.
> main-paragraph.
>      move 123 to v
>      call "DECC$GXPRINTF"
>          using
>             by reference fmt
>             by value v
>             by value v
>             by value cr
>             by value lf
>      end-call
>      stop run.

Not good code. No guarantee that there will be
a terminating zero byte. And %c%c CR LF is
clumsy instead of \n.

So:

identification division.
program-id.hex2.
*
data division.
working-storage section.
01  v       pic 9(9) comp.
01  fmt.
     03  str pic x(7) value "%d %08x".
     03  lfz pic 9(9) comp value 10.
*
procedure division.
main-paragraph.
     move 123 to v
     call "DECC$GXPRINTF"
         using
            by reference fmt
            by value v
            by value v
     end-call
     stop run.

Arne