Author: italo_pm
Subject: save SAY var loop.
Posted: Sun Sep 04, 2016 3:06 am (GMT 5.5)
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:
i want my output in this mode:
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:
any suggestions
please?
Regards
Italo.
Subject: save SAY var loop.
Posted: Sun Sep 04, 2016 3:06 am (GMT 5.5)
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 |
i want my output in this mode:
| Code: |
TCPIPS(WEBBKUP ) OPE POR(04038) HTTP NOS TRA(CWXN) CON(00000) BAC( 00300 ) MAX( 002000 ) URM( DFHWBADX ) TCPIPS(WEBCXINT) OPE POR(04038) HTTP NOS TRA(CWXN) CON(00076) BAC( 00300 ) MAX( 002000 ) URM( DFHWBADX ) RESPONSE: NORMAL TIME: 18.38.25 DATE: 31.08.16 |
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 DO k = 1 TO i say "CICS IN EXEC: "nomecics.k END ADDRESS 'SYSVIEWE' 'C(END)' "EXECIO * DISKW TEMPCIWB (FINIS" "FREE FI(TEMPCIWB)" "DROPBUF" /*--------------------------------------------------------------------- */ address TSO "ALLOC FILE(CICTEMWB) DSNAME('MYUSER.SCRIPT.TEXT.TEMPCIWB(CICSWEBS)') SHR" address TSO "EXECIO * DISKR CICTEMWB (FINIS STEM cicsname." "FREE FILE(CICTEMWB)" /*--------------------------------------------------------------------- */ DO cics8= 1 TO cicsname.0 lcicsweb = SUBSTR(cicsname.cics8,1,8) 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 "-------------------------------------------------------------------------------------------" ADDRESS "SYSVIEWE" "C(END)" END /* cics8 */ "DROPBUF" "FREE FILE(CICTEMWB)" /* ------------------------------------------------------------ */ |
any suggestions
please?
Regards
Italo.