Thank you again, it is still not quite what I need. It is soooo close but it is dropping a line. The problem with the input data is it there may be zero, one or tw lines that follow that need to be included. Here is the code;
OPTION NOCENTER; DATA want(keep=out_line); LENGTH out_line $200; RETAIN out_line; INFILE datalines TRUNCOVER; INPUT @2 a_line $100.; test = SUBSTR(a_line,1,7); IF test = "MgrMsg:" THEN DO; out_line = a_line; INPUT @2 a_line $100.; test = SUBSTR(a_line,1,7); DO WHILE (test = ' '); out_line = CATX(' ',TRIM(out_line), TRIM(a_line)); input @2 a_line $100. ; test = SUBSTR(a_line,1,7); END; OUTPUT;
END; ELSE DO; out_line = a_line; OUTPUT; END; RETURN; DATALINES; MgrMsg: SCPPSB38 WFUSCBM3/DFUSCBM3.56910/MAIN ST *** FIRST LINE NEEDED ***** *** MAY OR MAY NOT BE ANOTHER ***** APPLMGR: APPL DFUSCBM3.56910 JOB WFUSCBM3 Failed MgrMsg: SCPPSB3L SCPPSB3L/SRVMON.2057/MAIN RESPO MgrMsg: SCPPSB3M SCPPSB3M/SRVMON.2057/MAIN RESPO MgrMsg: SCMSIS47 KPPSCDPP.QA029/DPPSC5@.1308642/ Jobno(43228) User(SCMSIS47) Host(SCMSIS MgrMsg: SCPPSB38 WFUSCBM3/DFUSCBM3.56912/MAIN ST User(SCPPSB38) Host(scppsb38) APPLMGR: APPL DFUSCBM3.56912 JOB WFUSCBM3 Failed MgrMsg: SCMSIS47 KPPSCDPP.QA014/DPPSC5@.1308642/
Jobno(59568) User(SCMSIS47) Host(SCMSIS MgrMsg: SCMSIS47 KPPSCDPP.QA010/DPPSC5@.1308642/ Jobno(7800) User(SCMSIS47) Host(SCMSIS4 ; PROC PRINT;
**** Here is the output
MgrMsg: SCPPSB38 WFUSCBM3/DFUSCBM3.56910/MAIN ST *** MAY OR MAY NOT BE ANOTHER ***** PPLMGR: APPL DFUSCBM3.56910 JOB WFUSCBM3 Failed MgrMsg: SCPPSB3L SCPPSB3L/SRVMON.2057/MAIN RESPO MgrMsg: SCMSIS47 KPPSCDPP.QA029/DPPSC5@.1308642/ MgrMsg: SCPPSB38 WFUSCBM3/DFUSCBM3.56912/MAIN ST PPLMGR: APPL DFUSCBM3.56912 JOB WFUSCBM3 Failed MgrMsg: SCMSIS47 KPPSCDPP.QA014/DPPSC5@.1308642/ MgrMsg: SCMSIS47 KPPSCDPP.QA010/DPPSC5@.1308642/
... View more