• Subject: Re: simple query
  • From: "Scott Klement" <infosys@xxxxxxxxxxxx>
  • Date: 14 Jul 1999 14:47:52 -0500

Vishal:

These aren't actually RPG questions, you may want to consider posting
your questions to a more appropriate source in the future.  Perhaps
the MIDRANGE-L list.

To help you out, this time, I'll try to give you the answers to your
questions... (listed below)

"Vishal Gupta" <vishgupta@hotmail.com> wrote:
> Hi,
>
> I m new in AS/400 . May be my question is simple but people around m
>  were
> not able to answer .
>
> I will be thankful if any one of u can help me.
>
> Questions:
>
> 1.How can we see the status of the job while the job is running.How
>  can we
> see the job number of the interactive job.
>
> eg: If i call a program interactively then how can i check its statu
>  at any
> time desired before its completion.

I'm not certain what "status" you are trying to check here.  However,
you might try signing onto a different terminal, and doing a
WRKACTJOB.   This will show you all of the jobs running, and let
you can then do things like change their priorities, look at their
job logs, see how many I/O operations they've done, and many
other things.  Yes, you can get the job number this way.

Its a simple matter to find your job here, see if its running or
waiting for an event, etc.   I often use the ability to check how
many i/o operations have been done to get a rough idea of how
close a program is to being complete.


>
>
> 2.how we can find out the total number of lines coded in a source
>  physical
> file , including the files & programs without opening the SEU for ea
> source member. If it is possible through a CL program then please
>  write the
> commands used . if possible send the code for it.
>
>
> Thanking you all.
>
>

If you're trying to write a CL program to retrieve the number of
lines in a source member, you can do this with the RTVMBRD command.

something like:

DCL VAR(&LIB) TYPE(*CHAR) LEN(10)
DCL VAR(&FILE) TYPE(*CHAR) LEN(10)
DCL VAR(&MBR) TYPE(*CHAR) LEN(10)
DCL VAR(&RECORDS) TYPE(*DEC) LEN(10 0)

/* SET &LIB = LIBRARY, &FILE = FILE, &MBR = SOURCE MEMBER   +
    SOMEWHERE BEFORE THIS STATEMENT:                        */

RTVMBRD FILE(&LIB/&FILE) MBR(&MBR) NBRCURRCD(&RECORDS)


/* NOW &RECORDS CONTAINS THE NUMBER OF LINES IN THE SOURCE MEMBER */



Hope that helps...

Scott Klement
Information Systems Manager
Klement's Sausage Co, Inc.
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* This is the RPG/400 Discussion Mailing List!  To submit a new         *
* message, send your mail to "RPG400-L@midrange.com".  To unsubscribe   *
* from this list send email to MAJORDOMO@midrange.com and specify       *
* 'unsubscribe RPG400-L' in the body of your message.  Questions should *
* be directed to the list owner / operator: david@midrange.com          *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


This thread ...


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2019 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].