• How can I get system CPU usage and individual job CPU usage from database output of WRKSYSACT command?

    How can I get current system CPU usage and current individual job CPU usage from database file output of WRKSYSACT command. Which are the fields which store these values. I would like to write a program which reads the output (*file)of WRKSYSACT command. This program would send a message/mail when...

    JohnsonMumbai1,320 pointsBadges:
  • OPNQRYF and CPYFRMQRYF

    I am writing a CL program in which I do OPNQRY file based on status field in the file. After this data selection, an RPG program is called which processes the data and changes the status to next status. After the execution of this I call another CL program. In this CL program, I want to copy query...

    abhinavpassi15 pointsBadges:
  • How to create a startup program for WAS61. The program to start the subsystem (QWAS6/QWAS6). 2 JOBS under qwas6 (wmp and wmpappsvr) after every IPL.

    I was assigned to create a CL program to call a startup program to start subsystem automatically after every IPL. the program WAS61 located here: /QIBM/ProdData/WebSphere/AppServer/V61/ND/bin. I do not know where to start and how. Please help anyone. I have tried the steps mentioned here...

    ejaaje140 pointsBadges:
  • Error in calling RPGLE program from CL

    I have a job running under subsystem. This job is using a CL program which inturn calling RPGLE program. The CL program is failing in call statement to RPGLE with following error message in jobog: Pointer not set for location referenced. Pointer not set for location referenced. Pointer not set for...

    Mayurp5 pointsBadges:
  • Modify hexa string value in CL

    I have a hexa string and I want to modify some value while running program through CL below is the hexa string. X'011F011F000000000F099999999FC9020160309FF0D5 404040F9F9F9E3000000000F40404040404040') In the above string I have a date 20160309. Now I want to change this date to current date.

    97834441841,465 pointsBadges:
  • Why is CL the native language of AS/400?

    Why is CL (Control Language) the calling native language of AS/400? And why it is a driver program?

    Angelg5 pointsBadges:
  • New line in message formatting in CL program

    I want to insert a new line in message formatting in CL program. Like Name new line and details new line and rem details. How can insert a new line in message formatting?

    sivakesava285 pointsBadges:
  • How to pass numeric data to CL program from AS/400 command line

    Hi All, I want to pass numeric data of length (8 0) to my CL program while calling from AS/400 command line but program is not receiving correct value into the program. Can anyone please help me how to pass numeric data?

    Mohan K695 pointsBadges:
  • Use of variable CPYTOIMPF command

    How do I use a variable as the target file in CPYTOIMPF in a CL program?

    tonycs10 pointsBadges:
  • IIF function

    I have 2 tables: First table: 1- name 2- position 3- nationality 4- visa No. Second table: 1- Position 2- No of visas. 3- No of used visas. 4- No of remaining visas. But I want to use IIF function when add new position in first table increases the no of used visas in the second table automatically....

    khalid1155 pointsBadges:
  • Suppress CPI8072 message when using SNDNETSPLF

    We have an interactive CL program that uses SNDNETSPLF to send a spool file to a second outq on the same AS400 running V5R4. After the operation has completed the user receives the message and has to press Enter before the job will continue. Is there a way to suppress this message without...

    Oldtonew135 pointsBadges:
  • Increase size of output file in CL used in DSPJRN command

    I am trying to increase the size of the output file in a CL used in the DSPJRN command. I need to set the OUTFILFMT to *TYPE5. My OUTFILE is being created in QTEMP  - so OUTPUT(*outfile) OUTFILE(QTEMP/DCSTAUDWK1) How can I do this? DSPJRN JRN(&JOURNAL) FILE((DCSCIM) (DCSTCIMU) + (DCSCIU)...

    fischurder5 pointsBadges:
  • Read selective file in CL by using OVRDBF

    How do I read selective file in CL by using OVRDBF by positioning to from particular record till selective record? Lets say I have Emp (record format is REC) file which is having 10 records (rrn or key field). Now I want to read file from 2nd record till 8th  record, how can we do this with...

    hndajad195 pointsBadges:
  • Passing variables from CL to QMQRY

    Hi, I have a CL that get parameter and run QMQRY. When I run it, I get a prompt: "Type a value for variable "x" and press enter". Why I get it even though I pass the parameter? The CL: " PGM PARAM(&X) DCL VAR(&X) TYPE(*CHAR) LEN(8) STRQMQR QMQR(LIB1/QRY1) OUTPUT(*OUTFILE)...

    felixb95 pointsBadges:
  • How to delete specific spool files

    I am not that familiar with command line code as access has been restricted and converted to screen options so forgive me. The task is every month I need to delete specific spool files > 9 months old with specific form type. Originally my thoughts were to: Create formatted file to copy the five...

    Stage15 pointsBadges:
  • EPSON LQ 590 CPI issue

    Hello, I have specified 20 CPI in my CL program using override command, but the printer still prints only 15 CPI. I'm printing information on a pre-printed form hence have positioning issues due to font size. Please advise.

    umesh135 pointsBadges:
  • Retrieve SQL messages from Joblog

    Hi, I'm on 6.1 and I have RUNSQL in a CL program. The statement is 'UPDATE ...' and run's okay but I need to get the SQL MSG SQL7957 with the number of rows updated or the SQL0100 (row not found). I can get this with RCVMSG but only in debug mode. Can anyone help me? Rui

    RuiFerr15 pointsBadges:
  • DSPFD command throws message CPF3061

    I am trying to delete members from a physical file if the member size is reaced. I have written code in CL as below -> dclf file(qtemp/ehutmp) opnid efile create outfile by dspfd-> dspfd file(ehub) type(*mbrlist) output(*outfile) outfile(qtemp/ehutmp) and then read file and delete old member...

    mohit123210 pointsBadges:
  • SQL/400: Call CL program

    From stored procedure in SQL/400, I want to call the CL program. I have created the wrapper program for calling CL as SQL procedure.(qcmd). How can I pass the param with quotes to CL program? SBMJOB CMD(CALL PGM(abc) PARM('parm1' +'parm2 'prtn1')) JOB(prt1) + USER(braha1)

    Bhusha40 pointsBadges:
  • How to use read command in CL program

    How do I use read Command in CL programming?

    mahalakshmi4375 pointsBadges:

Forgot Password

No problem! Submit your e-mail address below. We'll send you an e-mail containing your password.

Your password has been sent to:

To follow this tag...

There was an error processing your information. Please try again later.

Thanks! We'll email you when relevant content is added and updated.

Following