Register

Forgot Password

Site FAQ

Home > IT Answers > AS/400 > How to parse a file for a specific pattern?

Psjylife

25 pts.

How to parse a file for a specific pattern?

Hello!

i'm new to AS400, and I've been trying to figure out for the whole day how to have the similar behavior as the following unix command:

grep "pattern" my_file

exit $?

1) Grep a pattern in a log file

2) exit OK (or echo OKmessage) if the pattern is found,

exit NOT OK or echo NOT OK message if not found

I can grep using:

CALL PGM(QSHELL/GREP) PARM('Operation Successful' '/PMGT/TMPLIB/jyfile.txt')

But how can I get a return code or status?

Thanks!!

Software/Hardware used:
AS400

ASKED: Oct 27 2009 12:34 AM GMT

_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _

RELATED QUESTIONS

TomLiotta

7740 pts.

RATE THIS ANSWER

+1
Click to Vote:

I'm not sure how you would do this in UNIX, but this is how I would do it with RPGLE:


 
 D  POS            S              5  0 INZ(0)
 
  // ************************************************************* 
  // * CHECK ITEM APPLICATION FOR AMPERSAND.                       
  // ************************************************************* 
                                                                   
          RESET POS;                                               
          RESET PASS_DESC;                                         
                                                                   
          POS = %SCAN('&' : pData);                                
                                                                   
          IF POS <> 0;                                             
                                                                   
            PASS_DESC = %TRIM(pData);                              
            pData = %TRIM(AMPERSANDR(PASS_DESC : POS));            
                                                                   
          ENDIF;

The problem with %scan is that it will only return the first occurrence of the pattern. If you need to find all occurrences’ of the pattern, you will need to contain the above example in a loop.
______________________________________________________________________

It looks like I am missing the first part of my post after the code segment.

It should say:

%scan will search the string, in this case pData for the pattern specified in the first part of the command, the '&'. If it finds one then POS will be updated with the position where the pattern was found. For example, if pData contained "Sanford & Son" then POS would equal 9.

If pData contained "Sanford and Son" then POS would equal zero.

The problem with %scan is that it will only return the first occurrence of the pattern. If you need to find all occurrences’ of the pattern, you will need to contain the above example in a loop.

=========================================================

Although many Qshell programs can be called directly, it isn't how things should normally be done. Qshell programs will usually assume that they're running inside of the shell. The shell provides environment facilities that may be important. Redirection, file handles, etc., ought to be attended to by the shell.

Rather than issuing a CALL, use the STRQSH command to invoke a Qshell function. In your case, this will probably be invoking a Qshell script that you've written. But in it's simplest form:


 STRQSH CMD( 'grep "pattern" my_file' )

Qshell commands entered with STRQSH may be single commands or separated by semi-colons. However, you probably are needing to write a script and store it in an IFS directory, and then:


 STRQSH CMD( 'mypath/myscript.sh' )

...to run the myscript.sh script.

To investigate Qshell, simply run STRQSH with no command parameter. You will be taken into the interactive Qshell.

Tom

Last Answered: Oct 27 2009 11:52 PM GMT by TomLiotta

7740 pts.

Latest Contributors: Teandy

3165 pts.

View History

I'm not sure how you would do this in UNIX, but this is how I would do it with RPGLE:

[CODE]

D  POS            S              5  0 INZ(0)

// ************************************************************* 
 // * CHECK ITEM APPLICATION FOR AMPERSAND.                       
 // ************************************************************* 
                                                                  
         RESET POS;                                               
         RESET PASS_DESC;                                         
                                                                  
         POS = %SCAN('&' : pData);                                
                                                                  
         IF POS <> 0;                                             
                                                                  
           PASS_DESC = %TRIM(pData);                              
           pData = %TRIM(AMPERSANDR(PASS_DESC : POS));            
                                                                  
         ENDIF;                                                   
                                                                  
[/CODE]

It looks like I am missing the first part of my post after the code segment.

It should say:

%scan will search the string, in this case pData for the pattern specified in the first part of the command, the '&'.  If it finds one then POS will be updated with the position where the pattern was found.  For example, if pData contained "Sanford & Son" then POS would equal 9.

If pData contained "Sanford and Son" then POS would equal zero.

The problem with %scan is that it will only return the first occurrence of the pattern. If you need to find all occurrences’ of the pattern, you will need to contain the above example in a loop.

=========================================================
			
Although many Qshell programs can be called directly, it isn't how things should normally be done. Qshell programs will usually assume that they're running inside of the shell. The shell provides environment facilities that may be important. Redirection, file handles, etc., ought to be attended to by the shell.
			
Rather than issuing a CALL, use the STRQSH command to invoke a Qshell function. In your case, this will probably be invoking a Qshell script that you've written. But in it's simplest form:
[CODE]
STRQSH CMD( 'grep "pattern" my_file' )
[/CODE]
Qshell commands entered with STRQSH may be single commands or separated by semi-colons. However, you probably are needing to write a script and store it in an IFS directory, and then:
[CODE]
STRQSH CMD( 'mypath/myscript.sh' )
[/CODE]	
...to run the myscript.sh script.
			
To investigate Qshell, simply run STRQSH with no command parameter. You will be taken into the interactive Qshell.

Tom

RSS - Discussions Help

Discuss This Answer:

_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _

Psjylife 25 pts. | Oct 28 2009 2:11AM GMT

Hey Tom!
Thanks for your answer, it’s a big help.
Your last command STRQSH CMD( ‘grep “pattern” my_file’ ) would be quite good.

The only thing I need now is to define the status.

I’d like to have a CLP program doing:
STRQSH CMD( ‘grep “pattern” my_file’ )
IF (pattern found) THEN DO ACTION_OK
ELSE DO ACTION NOT_OK
END
Do you think it’s possible to pass a value from the qsh execution to the CLP?

If I use STRQSH I can get the return code of the command:
cp tutu tut cp: 001-2113 Error found getting information for object tutu. No such path or directory $
> echo $?
1 => 1 means NOT OK
ls BYPASS.SAVF src.data f00063.tmp
> echo $?
0 => 0 means OK

Thanks again

TomLiotta 7740 pts. | Oct 28 2009 7:01AM GMT

Given my lack of time, I’ll point this out for now — V5R4 Qshell basic docs.

Without knowing something about what you need to do in [DO ACTION_OK/NOT_OK], I can’t suggest the better course. It’s possible you simply want the action to be done inside Qshell before dropping back out of the shell.

More time later tomorrow.

Tom

Psjylife 25 pts. | Nov 3 2009 12:10PM GMT

Here is the final code that works!

QSH to grep and then check the msg.

Thanks for your help and hope this can help smbdy

/* —————————————————————  */
/*  LOG PARSING                                                     */
/* —————————————————————  */
 /* IF VARIABLES WERE SET PREVIOUSLY, REMOVE THEM SO THAT OUR +
    ADDENVVAR COMMANDS WORK.                                  */
STEPLP:
       RMVENVVAR  ENVVAR(QIBM_QSH_CMD_OUTPUT)
       MONMSG MSGID(CPFA981) /* ENVVAR DOES NOT EXIST */

       RMVENVVAR  ENVVAR(QIBM_QSH_CMD_ESCAPE_MSG)
       MONMSG MSGID(CPFA981) /* ENVVAR DOES NOT EXIST */
 /* SET THE COMMAND OUTPUT TO NONE, AND TELL QSH TO ISSUE +
    ESCAPE MESSAGES FOR ERRORS.                               */

       ADDENVVAR  ENVVAR(QIBM_QSH_CMD_OUTPUT) VALUE(NONE)
       ADDENVVAR  ENVVAR(QIBM_QSH_CMD_ESCAPE_MSG) VALUE(Y)

 /* EXECUTE OUR QSHELL COMMAND */
             CHGVAR     VAR(&GREP_CMD) VALUE(’grep -i “‘ +
                          *TCAT &GREP_MSG *TCAT ‘”  ‘ *CAT &LOGFILE)
  /*           CALL       PGM(UXSET) PARM(’msg’ &GREP_CMD) */
       STRQSH CMD(&GREP_CMD)
/* HANDLE ERRORS. */

       MONMSG MSGID(QSH0005 QSH0006 QSH0007) EXEC(DO)

            RCVMSG  MSGTYPE(*LAST) RMV(*YES) MSGDTA(&MSGDTA) +
                      MSGID(&MSGID)

          /* CPF0005 - QSHELL COMMAND ENDED “NORMALLY.”         */

            IF (&MSGID *EQ ‘QSH0005′) DO
                CHGVAR VAR(&RESULT) VALUE(%SST(&MSGDTA 1 4))
                CHGVAR VAR(&STATUS) VALUE(%BIN(&RESULT))
                CHGVAR VAR(&SIGNAL) VALUE(0)
            ENDDO

          /* QSH0006 - QSHELL COMMAND ENDED WHEN IT RECEIVED A  +
                SIGNAL.                                         */

            IF (&MSGID *EQ ‘QSH0006′) DO
                CHGVAR VAR(&RESULT) VALUE(%SST(&MSGDTA 1 4))
                CHGVAR VAR(&SIGNAL) VALUE(%BIN(&RESULT))
                CHGVAR VAR(&STATUS) VALUE(-1)
            ENDDO

          /* QSH0007 - QSHELL COMMAND ENDED DUE TO AN EXCEPTION,  +
               FOR EXAMPLE THE PROGRAM CRASHED WITH A CPF MSG.   */

            IF (&MSGID *EQ ‘QSH0007′) DO
                CHGVAR VAR(&STATUS) VALUE(-1)
                CHGVAR VAR(&SIGNAL) VALUE(-1)
            ENDDO
       ENDDO

       /* WHEN &STATUS IS NOT ZERO, WE KNOW OUR GREP COMMAND.    +
          FAILED: KEYWORD WAS NOT FOUND.          */
/* DISPLAY MESSAGE */

       IF (&STATUS *EQ 0) THEN(DO)
            CHGVAR VAR(&MSGTXT) VALUE(’Enhanced Status Management: “‘ +
                      *TCAT &GREP_MSG *TCAT ‘” found in ‘ +
                      *CAT &LOGFILE *TCAT ‘ ‘)
       ENDDO
       IF (&STATUS *NE 0) THEN(DO)
            CHGVAR VAR(&MSGTXT) VALUE(’Enhanced Status Management: “‘ +
                      *TCAT &GREP_MSG *TCAT ‘” not found in ‘ +
                      *CAT &LOGFILE *TCAT ‘ ‘)
       ENDDO

JenniC 60 pts. | Nov 5 2009 6:08PM GMT

In biterscripting

var str file ; set $file="C:/file.txt”
var str pattern ; set $pattern = “abc”
var str content ; cat $file > $content
if ( { sen (”^”+$pattern+”^”) $content } > 0 )
echo “PATTERN IS PRESENT.”
else
echo “PATTERN IS NOT PRESENT.”
endif

The help page for the sen (string enumerator) command is at .

Ask a Question

Browse IT Answers by Topic

Community Blog | About Us | Contact Us | FAQ | Terms of Use | DMCA Policy

TechTarget provides enterprise IT professionals with the information they need to perform their jobs - from developing strategy, to making cost-effective IT purchase decisions and managing their organization's IT projects - with its network of technology-specific Web sites, events and magazines.

All Rights Reserved, Copyright 1999-2009, TechTarget | Read our Privacy Policy | Site Map