IBM Version 4 manual 36System API Programming V4R1

{

if(((Qus_Generic_Header_ð1ðð_t \)spcptr)->Number_List_Entries\￿.16/ > ð)

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

/\ address current list entry\/ /\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/

{

lstptr = spcptr + (((Qus_Generic_Header_ð1ðð_t \)spcptr)\ ->Offset_List_Data);

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

/\ process all the entries\/ /\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/

for(i = ð; i < (((Qus_Generic_Header_ð1ðð_t \)spcptr)\ .2ð/ ->Number_List_Entries); i++)

{

/\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/ /\ set lstptr2 to first variable length record for this ent￿ry \/ /\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/

lstptr2 = lstptr + 4;

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

/\ process all the variable length records for this entry \/ /\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/

for(j = ð; j < (((Qus_SPLFð2ðð_t \)lstptr)\ .22/.23/ ->Num_Fields_Retd); j++)

{

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

/\ extract spooled file name for report\/ /\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/

if((((Qus_LSPL_Key_Info_t \)lstptr2)\ .24/.25/ ->Key_Field_for_Field_Retd) == 2ð1)

{ memcpy(prtfil, " ", 1ð); memcpy(prtfil, (((var_record_t \)\

lstptr2)->Data_Field),

(((Qus_LSPL_Key_Info_t \)lstptr2)\ ->Data_Length));

}

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

/\ extract number of pages for report\/ /\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/

if((((Qus_LSPL_Key_Info_t \)lstptr2)\ .24/.25/ ->Key_Field_for_Field_Retd) == 211)

{ memcpy(&pages, (((var_record_t \)\ lstptr2)->Data_Field),

(((Qus_LSPL_Key_Info_t \)lstptr2)\ ->Data_Length));

}

B-36System API Programming V4R1