[Info-vax] COBOL PIC format for a 64 bit unsigned int ("long long") ?

[Jim Duff]

Jan-Erik Söderholm wrote:
> I am trying to call some COBOL code from a piece of C...
> 
> The call from C looks like this :
> 
>  char cob_inart[16];
>  unsigned long long cob_insernr;
>  char cob_utben[16];
>  char cob_utordnr[16];
>  int rc;
> 
>  rc = MES101(cob_inart, cob_insernr, cob_utben, cob_utordnr);
> 
> I get a ACCVIO when trying to use the "unsigned long long"
> paramater on the COBOL side. I have probably not got the
> right PIC clause to match the "unsigned long long", I guess.
> 

"Trying to use" is defined as what?  Can we see either the code that
produces the error or the error itself?  Preferably both.

> Currently it looks like this (in MES101.COB) :
> 
>  WORKING-STORAGE SECTION.
>  01 Answer             PIC S9(9) COMP.
> 
>  LINKAGE SECTION.
>  01 c_inart            PIC X(16).
>  01 c_insernr          pic 9(16) comp.


Your COBOL picture clause for the quadword is not wide enough.


>  01 c_ben              PIC X(16).
>  01 c_ordnr            PIC X(16).
> 
>  PROCEDURE DIVISION USING c_inart c_insernr c_ben c_ordnr
>                           giving Answer.
> 
> As soon as I try to do anything  with the "c_insernr"
> paramater (such as DISPLAY or MOVE) the COBOL code ACCVIO's.
> 
> Does anyone have a clue what the PIC clause should look
> like to match a "unsigned long long" ?
>

Try PIC 9(18) COMP.

See <http://h71000.www7.hp.com/doc/82final/6297/6297pro_097.html#vms_usages>

> And yes, I have scanned the COBOL and C User Guides and
> Ref Manuals, but didn't find anything clear on this point.
> 
> 
> 

Working example:

#include <stdio.h>
#include <stdlib.h>

int main (void) {

    extern int MES101 ();

    char cob_inart[16] = "INART";
    unsigned long long cob_insernr = 123;
    char cob_utben[16] = "UTBEN";
    char cob_utordnr[16] = "UTORDNR";
    int rc;

    rc = MES101 (cob_inart, cob_insernr, cob_utben, cob_utordnr);

    exit (EXIT_SUCCESS);
}


identification division.
program-id. MES101.
environment division.
data division.
working-storage section.
01 answer             pic s9(9) comp.
linkage section.
01 c_inart            pic x(16).
01 c_insernr          pic 9(18) comp.
01 c_ben              pic x(16).
01 c_ordnr            pic x(16).

procedure division using c_inart c_insernr c_ben c_ordnr
                          giving Answer.
00-begin.
    display c_inart.
    display c_insernr with conversion.
    display c_ben.
    display c_ordnr.
    move 1 to answer.
01-end.
    exit.

Jim.
-- 
www.eight-cubed.com