MODULE XIOB ( IDENT = 'V1.2-09'			%TITLE 'XIOB - XPORT IOB Dumper Routine'
		%BLISS32( ,ADDRESSING_MODE( EXTERNAL=LONG_RELATIVE ) )
		%BLISS36( ,ENTRY(XIOB),OTS='') 
		) =
BEGIN
LIBRARY 'XPORT';
!
! The Module header and Library declaration above has been inserted in place of the automatically generated one.
!
%BLISS32( PSECT OWN=$OWN$; )
GLOBAL ROUTINE XIOB(control_block) :  NOVALUE = BEGIN

$XPO_DUMP_FIELD( FIELD_NAME=IOB$H_LENGTH, TYPE=SHORT_INTEGER, VALUE=.BLOCK[.control_block,IOB$H_LENGTH] );
$XPO_DUMP_FIELD( FIELD_NAME=IOB$B_VERSION, TYPE=TINY_INTEGER, VALUE=.BLOCK[.control_block,IOB$B_VERSION] );
$XPO_DUMP_FIELD( FIELD_NAME=IOB$B_LEVEL, TYPE=TINY_INTEGER, VALUE=.BLOCK[.control_block,IOB$B_LEVEL] );
$XPO_DUMP_FIELD( FIELD_NAME=IOB$A_FILE_SPEC, TYPE=REF_DESCRIPTOR, VALUE=.BLOCK[.control_block,IOB$A_FILE_SPEC] );
$XPO_DUMP_FIELD( FIELD_NAME=IOB$A_DEFAULT, TYPE=REF_DESCRIPTOR, VALUE=.BLOCK[.control_block,IOB$A_DEFAULT] );
$XPO_DUMP_FIELD( FIELD_NAME=IOB$A_RELATED, TYPE=REF_DESCRIPTOR, VALUE=.BLOCK[.control_block,IOB$A_RELATED] );
$XPO_DUMP_FIELD( FIELD_NAME=IOB$T_CONCAT, TYPE=DESCRIPTOR, VALUE=BLOCK[.control_block,IOB$T_CONCAT] );
$XPO_DUMP_FIELD( FIELD_NAME=IOB$T_RESULTANT, TYPE=DESCRIPTOR, VALUE=BLOCK[.control_block,IOB$T_RESULTANT] );
$XPO_DUMP_FIELD( FIELD_NAME=IOB$A_PROMPT, TYPE=REF_DESCRIPTOR, VALUE=.BLOCK[.control_block,IOB$A_PROMPT] );
$XPO_DUMP_FIELD( FIELD_NAME=IOB$A_ASSOC_IOB, TYPE=ADDRESS, VALUE=.BLOCK[.control_block,IOB$A_ASSOC_IOB] );
$XPO_DUMP_FIELD( FIELD_NAME=IOB$B_FUNCTION, TYPE=BYTE, VALUE=.BLOCK[.control_block,IOB$B_FUNCTION] );
$XPO_DUMP_FIELD( FIELD_NAME=IOB$V_OPTIONS, TYPE=BITS, VALUE=.BLOCK[.control_block,IOB$V_OPTIONS] );
$XPO_DUMP_FIELD( FIELD_NAME=IOB$V_INPUT, TYPE=BIT, VALUE=.BLOCK[.control_block,IOB$V_INPUT] );
$XPO_DUMP_FIELD( FIELD_NAME=IOB$V_OUTPUT, TYPE=BIT, VALUE=.BLOCK[.control_block,IOB$V_OUTPUT] );
$XPO_DUMP_FIELD( FIELD_NAME=IOB$V_OVERWRITE, TYPE=BIT, VALUE=.BLOCK[.control_block,IOB$V_OVERWRITE] );
$XPO_DUMP_FIELD( FIELD_NAME=IOB$V_APPEND, TYPE=BIT, VALUE=.BLOCK[.control_block,IOB$V_APPEND] );
$XPO_DUMP_FIELD( FIELD_NAME=IOB$V_REMEMBER, TYPE=BIT, VALUE=.BLOCK[.control_block,IOB$V_REMEMBER] );
$XPO_DUMP_FIELD( FIELD_NAME=IOB$V_MAX_VERSI, TYPE=BIT, VALUE=.BLOCK[.control_block,IOB$V_MAX_VERSI] );
$XPO_DUMP_FIELD( FIELD_NAME=IOB$V_ATTRIBUTE, TYPE=BITS, VALUE=.BLOCK[.control_block,IOB$V_ATTRIBUTE] );
$XPO_DUMP_FIELD( FIELD_NAME=IOB$V_BINARY, TYPE=BIT, VALUE=.BLOCK[.control_block,IOB$V_BINARY] );
$XPO_DUMP_FIELD( FIELD_NAME=IOB$V_RANDOM, TYPE=BIT, VALUE=.BLOCK[.control_block,IOB$V_RANDOM] );
$XPO_DUMP_FIELD( FIELD_NAME=IOB$V_STREAM, TYPE=BIT, VALUE=.BLOCK[.control_block,IOB$V_STREAM] );
$XPO_DUMP_FIELD( FIELD_NAME=IOB$V_RECORD, TYPE=BIT, VALUE=.BLOCK[.control_block,IOB$V_RECORD] );
$XPO_DUMP_FIELD( FIELD_NAME=IOB$V_SEQUENCED, TYPE=BIT, VALUE=.BLOCK[.control_block,IOB$V_SEQUENCED] );
$XPO_DUMP_FIELD( FIELD_NAME=IOB$V_STATUS, TYPE=BITS, VALUE=.BLOCK[.control_block,IOB$V_STATUS] );
$XPO_DUMP_FIELD( FIELD_NAME=IOB$V_OPEN, TYPE=BIT, VALUE=.BLOCK[.control_block,IOB$V_OPEN] );
$XPO_DUMP_FIELD( FIELD_NAME=IOB$V_EOF, TYPE=BIT, VALUE=.BLOCK[.control_block,IOB$V_EOF] );
$XPO_DUMP_FIELD( FIELD_NAME=IOB$V_CLOSED, TYPE=BIT, VALUE=.BLOCK[.control_block,IOB$V_CLOSED] );
$XPO_DUMP_FIELD( FIELD_NAME=IOB$V_AUTO_CONC, TYPE=BIT, VALUE=.BLOCK[.control_block,IOB$V_AUTO_CONC] );
$XPO_DUMP_FIELD( FIELD_NAME=IOB$V_TERMINAL, TYPE=BIT, VALUE=.BLOCK[.control_block,IOB$V_TERMINAL] );
$XPO_DUMP_FIELD( FIELD_NAME=IOB$V_TEMPORARY, TYPE=BIT, VALUE=.BLOCK[.control_block,IOB$V_TEMPORARY] );
$XPO_DUMP_FIELD( FIELD_NAME=IOB$V_CONC_SPEC, TYPE=BIT, VALUE=.BLOCK[.control_block,IOB$V_CONC_SPEC] );
$XPO_DUMP_FIELD( FIELD_NAME=IOB$T_STRING, TYPE=DESCRIPTOR, VALUE=BLOCK[.control_block,IOB$T_STRING] );
$XPO_DUMP_FIELD( FIELD_NAME=IOB$H_STRING, TYPE=BYTES, VALUE=.BLOCK[.control_block,IOB$H_STRING] );
$XPO_DUMP_FIELD( FIELD_NAME=IOB$A_STRING, TYPE=POINTER, VALUE=.BLOCK[.control_block,IOB$A_STRING] );
$XPO_DUMP_FIELD( FIELD_NAME=IOB$H_FULLWORDS, TYPE=BYTES, VALUE=.BLOCK[.control_block,IOB$H_FULLWORDS] );
$XPO_DUMP_FIELD( FIELD_NAME=IOB$A_OUTPUT, TYPE=REF_DESCRIPTOR, VALUE=.BLOCK[.control_block,IOB$A_OUTPUT] );
$XPO_DUMP_FIELD( FIELD_NAME=IOB$H_PAGE_NUMB, TYPE=SHORT_INTEGER, VALUE=.BLOCK[.control_block,IOB$H_PAGE_NUMB] );
$XPO_DUMP_FIELD( FIELD_NAME=IOB$G_SEQ_NUMB, TYPE=INTEGER, VALUE=.BLOCK[.control_block,IOB$G_SEQ_NUMB] );
$XPO_DUMP_FIELD( FIELD_NAME=IOB$G_CURR_POS, TYPE=INTEGER, VALUE=.BLOCK[.control_block,IOB$G_CURR_POS] );
$XPO_DUMP_FIELD( FIELD_NAME=IOB$G_NEXT_POS, TYPE=INTEGER, VALUE=.BLOCK[.control_block,IOB$G_NEXT_POS] );
$XPO_DUMP_FIELD( FIELD_NAME=IOB$G_REC_SIZE, TYPE=INTEGER, VALUE=.BLOCK[.control_block,IOB$G_REC_SIZE] );
$XPO_DUMP_FIELD( FIELD_NAME=IOB$G_BLK_SIZE, TYPE=INTEGER, VALUE=.BLOCK[.control_block,IOB$G_BLK_SIZE] );
$XPO_DUMP_FIELD( FIELD_NAME=IOB$Z_CREATED, TYPE=SUB_BLOCK, VALUE=BLOCK[.control_block,IOB$Z_CREATED] );
$XPO_DUMP_FIELD( FIELD_NAME=IOB$Z_REVISED, TYPE=SUB_BLOCK, VALUE=BLOCK[.control_block,IOB$Z_REVISED] );
$XPO_DUMP_FIELD( FIELD_NAME=IOB$G_COMP_CODE, TYPE=INTEGER, VALUE=.BLOCK[.control_block,IOB$G_COMP_CODE] );
$XPO_DUMP_FIELD( FIELD_NAME=IOB$G_2ND_CODE, TYPE=INTEGER, VALUE=.BLOCK[.control_block,IOB$G_2ND_CODE] );
$XPO_DUMP_FIELD( FIELD_NAME=IOB$Z_USER, TYPE=INTEGER, VALUE=.BLOCK[.control_block,IOB$Z_USER] );
$XPO_DUMP_FIELD( FIELD_NAME=IOB$G_USER_CODE, TYPE=INTEGER, VALUE=.BLOCK[.control_block,IOB$G_USER_CODE] );
$XPO_DUMP_FIELD( FIELD_NAME=IOB$A_BUFFER_CB, TYPE=ADDRESS, VALUE=.BLOCK[.control_block,IOB$A_BUFFER_CB] );
$XPO_DUMP_FIELD( FIELD_NAME=IOB$A_RMS_FAB, TYPE=ADDRESS, VALUE=.BLOCK[.control_block,IOB$A_RMS_FAB] );
$XPO_DUMP_FIELD( FIELD_NAME=IOB$A_RMS_RAB, TYPE=ADDRESS, VALUE=.BLOCK[.control_block,IOB$A_RMS_RAB] );
$XPO_DUMP_FIELD( FIELD_NAME=IOB$A_FCS_FDB, TYPE=ADDRESS, VALUE=.BLOCK[.control_block,IOB$A_FCS_FDB] );
$XPO_DUMP_FIELD( FIELD_NAME=IOB$H_CHANNEL, TYPE=SHORT_INTEGER, VALUE=.BLOCK[.control_block,IOB$H_CHANNEL] );

END;  END  ELUDOM