L R6,REPORT_ADDRESS 05030000 LA R14,BLANK_CHAR 05040000 LH R7,RECORD_LENGTH 05050000 XR R15,R15 05060000 ICM R15,8,0(R14) 05070000 MVCL R6,R14 05080000 BR R10 05090000 */*******************************************************************/* 05091047 */* CLEAR THE SMFOUT RECORD USED TO PRINT THE REPORT */* 05092047 */*******************************************************************/* 05093047 CLEAR_SMFOUT_RECORD EQU * 05094047 LA R6,SMFOUT_RECORD_START 05095047 LA R14,BLANK_CHAR 05096047 L R7,=A(SMFOUT_L) 05097048 XR R15,R15 05098047 ICM R15,8,0(R14) 05099047 MVCL R6,R14 05099147 BR R10 05099247 */*******************************************************************/* 05100000 */* PUT A RECORD LINE ON SMFOUT OUTPUT FILE */* 05110000 */*******************************************************************/* 05120000 PUT_SMFOUT_RECORD EQU * 05130000 L R8,REPORT_ADDRESS 05140000 PUT SMFOUT,0(R8) 05150000 BR R10 05160000 */*******************************************************************/* 05170000 */* PRINT A MESSAGE OF PROGRAM PROCESSING */* 05180000 */*******************************************************************/* 05190000 PUT_SMFPRINT EQU * 05200000 PUT SMFPRINT,SMFPRINT_RECORD 05210000 BR R10 05220000 */*******************************************************************/* 05680000 */* SEND A ERROR MESSAGE AND END THE PROGRAM WIRH RETURN CODE 8 */* 05690068 */*******************************************************************/* 05700000 ERROR_NO_PARM EQU * 05710068 GETMSG 1,SMFPRINT_RECORD,SMFMSG 05720068 PERFORM PUT_SMFPRINT,R 05730070 B RETURN_RC08 05740068 ERROR_WRONG_PARM EQU * 05741068 GETMSG 2,SMFPRINT_RECORD,SMFMSG 05742068 PERFORM PUT_SMFPRINT,R 05742170 B RETURN_RC08 05743068 ERROR_INVALID_PARM EQU * 05744068 GETMSG 3,SMFPRINT_RECORD,SMFMSG 05745068 PERFORM PUT_SMFPRINT,R 05745170 B RETURN_RC08 05746068 */*******************************************************************/* 05750000 */* DEFINE DATA CONSTANTS TO BE USED BY PROGRAM CHECKING */* 05760000 */*******************************************************************/* 05770000 LTORG 05780000 FULL_8 DC F'8' 05870000 HALF_3 DC H'3' 05880068 DS 0D 05881081 DOUBLE_1024 DC X'0000000000000400' 05890079 PACK_0 DC PL1'0' 05920000 

