CL

Qshell error from a CLP

i correct CPFB9C8 qshell error from my cl call

Comparing ID and password in an AS/400 login screen

Dear friends iam quite new to this AS/400 . could you please let me know how to compare the id and password in a login screen..how to connect the cl program and display file to perform login operation .Do i need to write rpg code for that ..Pls help me out with this code in detail ...

CL/400

I would like to convay my Thanks ReshmaG & Gilly400. My main requirement is I have a Physical file called PF1.On this there are 20-logical files are depended . I have changed some attributes on my PF1. Now I want to recompile all the Lgical Files , which are depended on PF1. I am writing code...

Delete old spool files

The following question was recently submitted by a user via e-mail: I am trying to create a program in CL to delete old spool files on the AS400. I am using the following code, but my program does not recognize any of the commands. Does anyone have any suggestions or solutions? Thank you very...

Keyed Data Queue

Hello, Can any one help me by providing a sample CL program to add and retrieve data from a keyed Data Queue? Please see the below mentioned CL program I am getting “CPF3C36” error. Can any one help me in this regards? PGM ...

Check lock before copy

Could u pls tell me how to check a file is available to copy records in CL

How to run SQL script with parameters in CL

I have to call an sql script with parameters from an existing cl program that runs daily (in batch). If I call it from the cl program, it is giving me this error "Pointer not set for referenced location referenced".

Print a txt member of a qclsrc file using strseu does not work from Advanced JS

I want to print, a “txt” file member, from a qclsrc file using strseu, option 6. I have a cl (Ovrprtf & strseu) that accomplishes this interactively, but when I call this cl from an Advanced JS, job I get an error {CPF000,1 error - Error found on STRSEU command,) and it does not print. The...

OPNQRYF

DCLF FILE(LIBRARY/DISPLAY) START: SNDRCVF RCDFMT(REC) WAIT(*YES) IF COND(&IN03 *EQ '1') THEN(DO) GOTO CMDLBL(END) ENDDO IF COND(&ENQQUA1 *EQ ' ') THEN(DO) GOTO CMDLBL(START) ENDDO IF COND(&ENQQUA1 *NE *BLANKS) THEN(DO) OPNQRYF FILE((SARKNS/ENQP002)) OPTION(*ALL) + QRYSLT('&ENQQUA *EQ ''' *CAT...

Setting lower limits In CL

I know how to declare a file and read through the data in CL....but how can you reset it? Like setll in CL. I have searched and searched but nothing works. I have closed opend...etc.. Any ideas? Example: PGM DCLF FILEA Loop: RCVF FILEA If %EOF ne '0' DO Goto Loop: Enddo. Now I want to read...

Read backword in CL/400

How to read backword a physical file in CL400.

CL/400 program for copying files

regarding as/400. I need to create a CL program for copying all files from HWMSFMODS(library) to HEXPFMODS(library). we are suppose to clear all data in from files. Please advice...

Retreive Document Object name from IFS folder in CL

Iam in need of idea and a CL command to retrieve all the files(STMF) from the IFS folder .

Rpgle paramters from a Cl

I have a rpgle program with parameters. I can watch the parameters change in the program. When I call the program from a Cl language the parameters come back blank.

Difference between CRTPGM command and CRTBNDRPG

Hi, Can any one please tell me what is the difference between CRTPGM command and CRTBNDRPG command and what is the appropriate use of these commands ?

Retreive Stream file size through CL

Hi, How to detemine the file size of a '.TXT' file through CL program? Its a file stored in the IFS folder. Is there any specific command to do this? I need to continuosly look into this folder for the file. Fetch the file size. Wait for some sec and then again retrive the file size. If the...

QMQRY not a valid Query Management variable.

Hi there, I am trying to pass parameters to QMQRY but get the following error. CALL PGM(JCCSTREP2) PARM(C165) 'C165' is not a valid Query Management variable. Error found on STRQMQRY command. CPF0001 received by JCCSTREP2 at 2800. (C D I R) ...

Check expiry date of tape (using iSeries and BRMS)

I am chasing a simple CL program to check if the currently loaded tape has the data as *expired so it can be written to under BRMS. It shouldn't be that hard but I've searched for literally days and can't find anyone to help.

clearing multple members in a physical file

Does anyone know of a way (or utility) to clear multiple members in a physical file ? i create multiple members for the file on the fly based upon date/time in a cl program. the file is a weekly archive of data from a transaction processor, and i want to clear it and start over on a weekly...

Trace Job (TRCJOB)

One of my old CL Prog uses this cmd TRCJOB MAXSTG(1024) EXITPGM(LIB/MYPGM) after migrating to V5R4 it is not working can anybody tell me how to use in V5R4.