IBM Version 4 manual Appendix B. Original Examples in Additional

/\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/

/\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/

#include <stdio.h>
#include <string.h>
#include <qusec.h>		/\ Error		Code Parameter Include for the APIs \/
#include	<qwdrjobd.h>	/\	Retrieve Job Description API Include		\/
#include	<qliept.h>	/\	Entry	Point Table Include	\/

/\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/

/\ Error Code Structure	\/
/\	\/
/\ This shows how the user can define the variable-length po￿rtion of	\/
/\ error code for the exception data.	\/
/\	\/

/\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/ typedef struct {

Qus_EC_t		ec_fields;
char		Exception_Data[1ðð]; .7/
}	error_code_t;

/\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/

/\ JOBDð1ðð Structure	\/
/\	\/
/\ This shows how the user can define the variable-length po￿rtion of	\/
/\ the JOBDð1ðð format.	\/
/\	\/

/\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/ typedef struct {

Qwd_JOBDð1ðð_t data;

char	Lib_Data[61ð]; .19/ .2ð/
}	JOBDð1ðð;

main(int argc, char \argv[])

{

error_code_t error_code;

char	library[1ð];
char	qual_job_desc[2ð];
char	\qual_job_ptr = qual_job_desc;
char	rec_var[1ððð];
char	\rec_ptr = rec_var;
char	hold_value[1ð];
char	message_id[7];
char	command_string[49];
int	i;
int	num_libs;
int	offset;
int	rec_len = 1ððð;

memset(hold_value, ' ', 1ð); /\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/

/\ Make sure we received the correct number of parameters. T￿he argc	\/
/\ parameter will contain the number of parameters that was￿ passed	\/
/\ to this program. This number also includes the program it￿self,	\/
/\ so we need to evaluate argc-1.	\/
/\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/
Appendix B. Original Examples in Additional	BLanguages-23