Re: simple query

["Rajeev Asthana" <Rajeev_Asthana@xxxxxxxxxxxxx>]

Hi Vishal,

Answer to Q1:
--------------------
You can use RTVJOBA in a CL to retrieve job information:
RTVJOBA    JOB(&JOB) USER(&USER) NBR(&NBR) .

You can use QUSRJOBI API  too. You can get details about this API from 'Work
Management APIs'.

Answer to Q2:
--------------------
To get the total no. of records in a file(database/source PF) you can use a CL
and code following:
RTVMBRD    FILE(Your-Libraray/Your-File) MBR(Your-Member)  NBRCURRCD(&NBRCURRCD)


 If you want to see this from a command line, you can use DSPF command to see
number of records.

You can also use QUSRMBRD API.

Hope this helps.

Rajeev.





"Vishal Gupta" <vishgupta@hotmail.com> on 07/14/99 01:16:43 AM

Please respond to RPG400-L@midrange.com












Subject:  simple query




Hi,

I m new in AS/400 . May be my question is simple but people around me 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 status at any
time desired before its completion.


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 each
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.


______________________________________________________
Get Your Private, Free Email at http://www.hotmail.com
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* 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 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          *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *