IBM Version 4 manual Appendix B. Original Examples in Additional BLanguages-37

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

/\ extract age of spooled file for report\/ /\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/

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

{ memcpy(opndat, " ", 7); memcpy(opndat, (((var_record_t \)\

lstptr2)->Data_Field),

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

}

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

/\ bump lstptr2 to next variable length record\/ /\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/

lstptr2 = lstptr2 +

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

}

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

/\ print collected information\/ /\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/

sprintf(prtlin, "%.1ðs	%.1ðd	%.7s", .26/
prtfil, pages, opndat);
fwrite(prtlin, 1, 1ðð,	record);

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

/\ bump lstptr to next list entry\/ /\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/

lstptr += (((Qus_Generic_Header_ð1ðð_t \)spcptr)\ .27/ ->Size_Each_Entry);

}

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

/\ exit at end of list\/ /\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/

fclose(record);

exit();

}

}

else

{ printf("List data not valid"); .15/ exit();

}

} .28/

Appendix B. Original Examples in Additional BLanguages-37