/* Generated by cobc 1.1.0 */ /* Generated from HELLO.cob */ /* Generated at Okt 07 2013 23:18:42 CEST */ /* OpenCOBOL build date Apr 20 2013 02:29:02 */ /* OpenCOBOL package date Feb 06 2009 10:30:55 CET */ /* Compile command cobc -g -debug -x --save-temps HELLO.cob */ /* Frame stack declaration */ struct cob_frame { int perform_through; void *return_address; }; /* Union for CALL statement */ union cob_call_union { void *(*funcptr)(); int (*funcint)(); void *func_void; }; union cob_call_union cob_unifunc; /* Data storage */ /* PROGRAM-ID : HELLO */ static unsigned char b_1[4] __attribute__((aligned)); /* RETURN-CODE */ static unsigned char b_6[80] __attribute__((aligned)); /* output-msg */ /* End of data storage */ /* Attributes */ static const cob_field_attr a_1 = {33, 0, 0, 0, NULL}; /* Fields */ /* PROGRAM-ID : HELLO */ static cob_field f_6 = {80, b_6, &a_1}; /* output-msg */ static cob_field f_7 = {50, NULL, &a_1}; /* user-input */ static cob_field f_8 = {1, NULL, &a_1}; /* dummy-var */ /* End of fields */ /* Constants */ static cob_field c_1 = {21, (unsigned char *)"Input name to greet: ", &a_1}; static cob_field c_2 = {12, (unsigned char *)"Hello World!", &a_1}; static cob_field c_3 = {7, (unsigned char *)"Hello \"", &a_1}; static cob_field c_4 = {2, (unsigned char *)"\"!", &a_1};