DosTips.com

Code: Select all

@echo off
setlocal disableDelayedExpansion
set "channel="

:: Define $D to contain output delimiter. Any string could be used.
set "$D=|"

:: Define the output format
set "$header=channel!$D!chltype!$D!chstada!$D!chstati!$D!status!$D!msgs!$D!sslpeer"
set "$data=!%$header:!=!!%!"

:: Process the command output
setlocal enableDelayedExpansion
>output.txt (
  echo %$header%
  for /f "tokens=1,2 delims=()" %%A in (
    'dis chs(*) chltype chstada chstati msgs sslpeer^|repl "\) *" "\n" x'
  ) do (
    if /i %%A equ CHANNEL if defined CHANNEL echo %$data%
    set "%%A=%%B"
  )
  if defined channel echo %$data%
)

Code: Select all

@echo off
set "caret=^"
setlocal EnableDelayedExpansion

rem Get parameters and assemble from they:
rem 1- The regexp to search for multiple terms
rem 2- The list of submatched subexpressions
rem 3- The headers of the columns
rem The first parameter "channel" is pre-inserted
set "regexp=(channel\([!caret!\)]*)\)"
set "subexprs=:1"
set header[1]=channel
set n=1
:nextParam
   set "regexp=!regexp!|%1\(([!caret!\)]*)\)"
   set /A n+=1
   set subexprs=%subexprs%:%n%
   set header[%n%]=%1
   shift
if "%1" neq "" goto nextParam

rem Get the command output
dis chs(*) %* > data.txt

rem Show headers
set "line="
for /L %%i in (1,1,%n%) do (
   rem Insert here code for width column alignment
   set "line=!line!  !header[%%i]!  |"
)
echo !line:~0,-1!

rem Perform the search. FindRepl program return one line per SUBEXPRESSION (%n% lines per channel)
rem with %n% values in each line enclosed in quotes: all values empty excepting the submatched one

for /L %%i in (1,1,%n%) do set var[%%i]=Undefined
for /F "delims=" %%a in ('^< data.txt FindRepl /I "!regexp!" /$%subexprs%') do (
   set i=0
   for %%b in (%%a) do (
      set /A i+=1
      if %%b neq "" (
         for /F "tokens=1,2 delims=(" %%c in (%%b) do set "next=%%c" & set "channel=%%d"
         if /I "!next!" equ "channel" (
            rem Data for next channel started: show the previous one, if any
            if "!var[1]!" neq "Undefined" (
               set "line="
               for /L %%i in (1,1,%n%) do (
                  rem Insert here code for width column alignment
                  set "line=!line!  !var[%%i]!  |"
               )
               echo !line:~0,-1!
            )
            rem Restart data for next channel
            set "var[1]=!channel!"
            for /L %%i in (2,1,%n%) do set var[%%i]=Undefined
         ) else (
            set "var[!i!]=%%~b"
         )
      )
   )
)

set "line="
for /L %%i in (1,1,%n%) do (
   rem Insert here code for width column alignment
   set "line=!line!  !var[%%i]!  |"
)
echo !line:~0,-1!

Code: Select all

C:\> test chltype chstada  chstati  status  msgs sslpeer
  channel  |  chltype  |  chstada  |  chstati  |  status  |  msgs  |  sslpeer
  ABCD  |  SVRCONN  |  10-12-2013  |  10:20:30  |  RETRYING  |  1009  |  kjhdsfkjsd
  DEFG  |  SDR  |  10-12-2013  |  10:20:30  |  RETRYING  |  10020  |  kjhdsfkjsdfhjkshfjksfdhsjdfhsfsdhjfhsdjfhjkfhhfkfjkhfjkdsjfsdjkhdsjkfhsdjkfhdskjfhkj
  GHIJ  |  CLUSRCVR  |  10-12-2013  |  10:20:30  |  RETRYING  |  Undefined  |  kjhdsfkjsdfhjkshfjkjkhdsjkfhsdjkfhdskjfhkj

Code: Select all

function strip( string ){
    # remove anything from beginning to the first ( ,
    # and remove anything from last bracket ) till the end
    gsub(  /.*\(|\).*/ , "", string )   
    return string
}

BEGIN{ 
    RS="\n\n+"      # set record separator to be more than 1 newlines
    FS="[ \n]+"     # set field separator to be space or newline
    IGNORECASE=1    # case insensitive search
    sep       ="|"  # output delimiter
}
{
    for( i=1; i<=NF; i++){
        printf  $i ~ /CHANNEL/ ? (strip( $i ) sep ) : ""
        printf  $i ~ /CHLTYPE/ ? (strip( $i ) sep ) : ""
        printf  $i ~ /CHSTADA/ ? (strip( $i ) sep ) : ""
        printf  $i ~ /CHSTATI/ ? (strip( $i ) sep ) : ""
        printf  $i ~ /STATUS/  ? (strip( $i ) sep ) : ""
        printf  $i ~ /msgs/    ? (strip( $i ) sep ) : ""
        printf  $i ~ /sslpeer/ ? (strip( $i ) sep ) : ""
        
    }
    print ""

}

Code: Select all

C:\>awk -f  myScript.awk  myStatusFile.txt
ABCD|SVRCONN|10-12-2013|10:20:30|RETRYING|1009|kjhdsfkjsd|
DEFG|SDR|10-12-2013|10:20:30|RETRYING|10020|kjhdsfkjsdfhjkshfjksfdhsjdfhsfsdhjfhsdjfhjkfhhfkfjkhfjkdsjfsdjkhdsjkfhsdjkfhdskjfhkj|
GHIJ|CLUSRCVR|10-12-2013|10:20:30|RETRYING|kjhdsfkjsdfhjkshfjkjkhdsjkfhsdjkfhdskjfhkj|

Code: Select all

`your MQ command` | awk -f myScript.awk 

Code: Select all

@echo off
setlocal disableDelayedExpansion
set "channel="

:: Define $D to contain output delimiter. Any string could be used.
set "$D=|"

:: Define the output format
set "$header=channel!$D!chltype!$D!chstada!$D!chstati!$D!status!$D!msgs!$D!sslpeer"
set "$data=!%$header:!=!!%!"

:: Define LF to contain linefeed character (0x10)
set ^"LF=^

^" Above empty line is critical - DO NOT REMOVE

:: Process the command output
setlocal enableDelayedExpansion
>output.txt (
  echo %$header%
  for %%L in ("!LF!") do for /f "delims==" %%X in (
    'dis chs(*) chltype chstada chstati msgs sslpeer'
  ) do (
    set "ln=%%X"
    for %%L in ("!LF!") do set "ln=!ln:) =%%~L!"
    for /f "tokens=1,2 delims=()" %%A in ("!ln:) =%%~L!") do (
      if /i %%A equ CHANNEL if defined CHANNEL echo %$data%
      set "%%A=%%B"
    )
  )
  if defined channel echo %$data%
)

Code: Select all

@echo off
setlocal disableDelayedExpansion

:: Define $D to contain output delimiter. Any string could be used.
set "$D= | "

:: Define the output format
set "$header=channel!$D!chltype!$D!chstada!$D!chstati!$D!status!$D!msgs!$D!sslpeer"
set "$data=!%$header:!=!!%!"

:: Define LF to contain linefeed character (0x10)
set ^"LF=^

^" Above empty line is critical - DO NOT REMOVE

:: Process the command output
setlocal enableDelayedExpansion
set "channel="
>output.txt (
  echo %$header%
  for %%L in ("!LF!") do for /f "delims=" %%X in (
    'dis chs(*) chltype chstada chstati msgs sslpeer'
  ) do (
    set "ln=%%X"
    for /f "tokens=1,2 delims=()" %%A in ("!ln:) =%%~L!") do (
      if /i %%A equ CHANNEL if defined CHANNEL echo %$data%
      set "%%A=%%B"
    )
  )
  if defined channel echo %$data%
)