IBM Version 4 manual , B-36

{
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 entry \/
/\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/
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-36 System API Programming V4R1