I want to know how I can do extract the result from syslog
i interrogating a CICS via syslog with this command:
/F NANECICS,CEMT I TCPIPS
F CICSWEB2,CEMT I TCPIPS
this is my output in syslog:
Code:
D NI0000000 OS390CX 16244 18:38:24.68 TSU01039 00000210 F CICSWEB2,CEMT I TCPIPS
D MR0000000 OS390CX 16244 18:38:24.68 JOB07063 00000010 + 524
D DR 524 00000010 TCPIPS(WEBBKUP ) OPE POR(04038) HTTP NOS TRA(CWXN)
D DR 524 00000010 CON(00000) BAC( 00300 ) MAX( 002000 ) URM( DFHWBADX )
D DR 524 00000010 TCPIPS(WEBCXINT) OPE POR(04038) HTTP NOS TRA(CWXN)
D DR 524 00000010 CON(00076) BAC( 00300 ) MAX( 002000 ) URM( DFHWBADX )
D DR 524 00000010 RESPONSE: NORMAL TIME: 18.38.25 DATE: 31.08.16
D ER 524 00000010 SYSID=WEB2 APPLID=CICSWEB2
the problem is a list of 50 members and each cycle command in syslog screens are repeated and obtain the previous result but the new result and all data are repeated.
how to write the output in PS for each CICSNAME in this code:
SAY "OUTPUT: " lcicsweb dismr" "disdr" "lineawebnew
this is my rexx:
Code:
/* REXX */
/*----------------------------------------------------------------------------*/
SYSID = mvsvar('sysname')
SAY 'AMBIENTE:'SYSID
/*-----------------------------------------------*/
DSNAME = 'MYUSER.SCRIPT.TEXT.TEMPCIWB'
DSE = SYSDSN("'"STRIP(DSNAME)"'")
IF DSE <> 'OK' THEN DO
"FREE FI(TEMPCIWB)"
"ALLOC FI(TEMPCIWB) DA('"DSNAME"') NEW TRACKS SPACE(10 10) DIR(44) RECFM(F B) LRECL(80)"
END
"FREE FI(TEMPCIWB)"
"ALLOC FI(TEMPCIWB) DA('"DSNAME"(CICSWEBS)') SHR"
/*--------------------------------------------------------------------- */
ADDRESS LINK 'GSVXRXAA'
ADDRESS "SYSVIEWE" "C(PREFIX *)"
"DROPBUF"
ADDRESS "SYSVIEWE" "C(LISTJOBS CICSW*)"
i = 0
DO UNTIL QUEUED() = 0
PULL linea
tipo = LEFT(linea,1)
IF tipo = 'D' THEN DO
i = i + 1
PARSE VAR linea tipo "!" cmd "!" nomecics.i "!"
END
END
ADDRESS LINK 'GSVXRXAA'
"DROPBUF"
ADDRESS "SYSVIEWE" "C(/F "lcicsweb",CEMT I TCPIPS)"
"DROPBUF"
ADDRESS "SYSVIEWE" "C(SYSLOG)"
SAY "-------------------------------------------------------------------------------------------"
SAY "START -- CICSNAME:" lcicsweb
SAY "-------------------------------------------------------------------------------------------"
i = 0
DO WHILE QUEUED() > 0
PULL lineaweb
tipod = SUBSTR(lineaweb,3,2)
/* SAY lineaweb */
IF tipod = "NI" THEN DO
disni = SUBSTR(lineaweb,59,24)
SAY " "
SAY lcicsweb "INIZIO CMD -:"disni
END
IF tipod = 'MR' THEN DO
dismr = SUBSTR(lineaweb,61,3)
END
f=0
IF tipod = 'DR' THEN DO
disdr = SUBSTR(lineaweb,45,3)
f = f + 1
lineawebnew = SUBSTR(lineaweb,61)
END
IF tipod = 'ER' THEN DO
diser = SUBSTR(lineaweb,61)
END
IF dismr = disdr THEN DO
i = i + 1
SAY "OUTPUT: " lcicsweb dismr" "disdr" "lineawebnew
END
END /* WHILE */
SAY "-------------------------------------------------------------------------------------------"
SAY "END -- CICSNAME:" lcicsweb
SAY "-------------------------------------------------------------------------------------------"
Joined: 28 Jan 2012 Posts: 316 Location: Room: TREE(3). Hilbert's Hotel
Guessing from the topic title and
Quote:
I want to know how I can do extract the result from syslog
and
Quote:
how to write the output in PS for each CICSNAME in this code:
SAY "OUTPUT: " lcicsweb dismr" "disdr" "lineawebnew
I think the TS is asking how to get the syslog information in a dataset, i.e output of all the display statement (SAY) in the rexx code into a dataset, but I could be wrong.
@italo_pm
If that's what you want, use a STEM variable to store the result of SAY statements and write into the dataset using that stem variable.
