Return a Cobol BINARY(n) (big-endian) argument as a C short integer
| 401 | |
| 402 | // Return a Cobol BINARY(n) (big-endian) argument as a C short integer |
| 403 | static ISC_USHORT* CobolToShort(const argument_entry *arg) |
| 404 | { |
| 405 | ISC_USHORT *i = NULL; |
| 406 | if (arg->a_address) |
| 407 | { |
| 408 | ISC_USHORT temp = (ISC_USHORT)CvtArgToInt(arg); |
| 409 | i = AllocShortPool(); |
| 410 | if (i) |
| 411 | *i = temp; |
| 412 | } |
| 413 | return (i); |
| 414 | } |
| 415 | |
| 416 | // Store a Cobol array of BINARY(4) fields into a status vector |
| 417 | static void CobolToStatus(ISC_STATUS *stat, const argument_entry *arg) |
no test coverage detected