CL

CL

In a CL code how to determine what are all the codes that require monmsg?

cl

DCL &TEXTFILENM *CHAR 40 dcl &curdt *char 6 dcl &curtm *char 6 /* build your CL file name as */ RTVSYSVAL SYSVAL(QDATE) RTNVAR(&CURDT) RTVSYSVAL SYSVAL(QTime) RTNVAR(&CURTM) ChgVar &TextFileNm (QDATE *TCAT QTIME *TCAT ‘.TXT’ CPYTOIMPF … To stream file . . . . . . . . . TOSTMF &TextFileNm ...

cl

If i create txt files in as400 directory with naming convention AA20080101 can we purge these files using an AS400 command.

cl

i have created a file member AA20081224 using addpfm.The file members will get created on a daily basis with that particular date appended to AA. I need a code that will check on a daily basis if there are file members that are more than 3 months old and purge all members except for the one...

cl

i have a flat file. data is populated to this file on a daily basis. I need to create a new member every day as and when the flat file is populated.In my cl code I tried using AA *cat &qdate in addpfm and build the name of the file but couldnt do so...As stated earlier i neeed this to purge members...

cl

Hi 1.I need a cl code that will purge text files that are more than 3 months old...text files will be created with the date of creation suffixed to the filename... 2.If the above is not possible will i be able to create flat file members and purge those file members.

decimal data error

i mean how to trap decimal data error in cobol\400.as we do monmsg command in cl ,is there any same way in cobol\400

Need a CL to be written

Hi I need a cl to be written;The requirement is as follows There will be files created with naming convention INV20081219 or members within files. Now i need a program that will automatically delete files that are more than 3 months old.

CL SysDate Conversion

Hi I have converted the sys date to *CYMD format.I have two problems, 1.For eg 19/12/08 is now 1081219,where 1 stands for 2000-2050 and 0 stands for 1900 to 1999(defined in system).But i want to map this with dates in file whose format is 20081219. 2.If this is possible i need to subtract the...

QSTRUP

Hi friends, I have the "JDEdwards Enterprise 1" on my system AS/400, and evertime after the IPL I execute this process by STRQSH. How can I configure this "runs" on my QSTRUP ?, I don´t know if this parameters below is correct; CALL PGM(QWAS6/QWASSTRSVR) PARM('-profilePath'...

OPNQRY and WRKQRY

In wrkqry there is an option to save the selected records to an output file.Similarly is there a way to use OPNQRY in a CL or in an SQLRPG to directly move the selected records to another file?

Decimal data error

For testing an RPG program, I changed the CL program which submits the RPG program to a “call”. The change was to include a new parameter (numeric) to the RPG program. After testing, the Call was changed back to SBMJOB, but when tested again, the RPG program bombed with ‘decimal data...

CL modification to retrieve the data in LDA

An application exists in production, which submits a job to do some business processing. The program gets invoked from a CL. The program is proprietary and does not have a source. It’s known that this program uses LDA while processing. How can the CL program, which submits the job, be modified to...

STRPCCMD with blank in path

I am trying to start an Excel spreadsheet with a blank in the path. ex: STRPCCMD 'START K:\My Documents\GL\Monthend.XLS' I've tried all sorts of QUOTE scenarios but have not hit on the right set. Thank you MIS

Search for text within a string in CL/400

Wath function can I use to find a text into other? I mean how caon I find the Position for -B- in the text -AABAA-

CL - Copy To Import File

I am using the CPYTOIMPF fromfile(PF) to STMF('dir\acp&txtfile') where &txtfile is &curdt *tcat &curtm.(system date and time) The stream file is created as acp&txtfile and what i want is acp120108100150.

AS/400 CL program - MSGW status

My requirement is I want to ensure that CL program enter into MSGW status after processing all the statements. What are the easiest ways to achieve this? (Without calling any programs from the CL)

QCMDEXC

What are the commands which can't be executed using QCMDEXC API?

Data Area in CL?

How to get data from Data Area using CL program code?

TXT file naming using CL

Hi I hve created a txt file from a pf using cpytoimpf.The name of the txt file should have ccyymmddhhmmss in its name.I can retreive the date and time parameters from qdate and qtime.How do i name the txt file using a CL.