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)
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)
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.
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.
CL/400
can any body give me answer to this question please? please give me code in cl with the folling specifications. 1.Accept 2 parameters-date and date type 2.If date type is J then convert date to *MDY format 3.If date type is M convert date to *JUL format 4. Send a program message with the value...
can any body give me answer to this question please? please give me code in cl with the folling specifications. 1.Accept 2 parameters-date and date type 2.If date type is J then convert date to *MDY format 3.If date type is M convert date to *JUL format 4. Send a program message with the value...
To use Arithmetic operations in Cl program
Hi, i am fresher for AS400.I dont know how to retreive a sysval using arithmetic operations in cl programming and too storing in a dataarea and displaying the result through msg
Hi, i am fresher for AS400.I dont know how to retreive a sysval using arithmetic operations in cl programming and too storing in a dataarea and displaying the result through msg
Convert date to match database field with L data type?
The field in file is defined with data type L (2008-09-29). My date range in display file is MMDDYY. How do I convert prompt date so I can opnqryf on field in data base file?
The field in file is defined with data type L (2008-09-29). My date range in display file is MMDDYY. How do I convert prompt date so I can opnqryf on field in data base file?
CL/400
I have taken 2 parameters(like date and date types). A. If suppose date type is j,Now i want to convert date to *MDY format B. if date type is M,now i want to convert date to *JUL format C. sending a Program message with the value of converted date.(With use of CVTDAT in cl coding)Please give me...
I have taken 2 parameters(like date and date types). A. If suppose date type is j,Now i want to convert date to *MDY format B. if date type is M,now i want to convert date to *JUL format C. sending a Program message with the value of converted date.(With use of CVTDAT in cl coding)Please give me...
rpg/400
Hi, Im fresher for as/400.Actually im facing the interview on as/400.in one of the interview interviewer asked one question like what is rpg/400 and cl/400 life cycle.But i can not able to tell answer for this question.can any body tell me what is rpg and cl life cycle in real time cenario?
Hi, Im fresher for as/400.Actually im facing the interview on as/400.in one of the interview interviewer asked one question like what is rpg/400 and cl/400 life cycle.But i can not able to tell answer for this question.can any body tell me what is rpg and cl life cycle in real time cenario?
cl/400
Im kuppi.im working as a software trainee on AS/400 technology.i have also joined with ibmi5 team.im trying to convert date with cl/400 coding.I have taken 2 parameters(like date and date types). A. If suppose date type is j,Now i want to convert date to *MDY format B. if date type is M,now i want...
Im kuppi.im working as a software trainee on AS/400 technology.i have also joined with ibmi5 team.im trying to convert date with cl/400 coding.I have taken 2 parameters(like date and date types). A. If suppose date type is j,Now i want to convert date to *MDY format B. if date type is M,now i want...
All MONMSG's against a particular Command
Is is possible to know all the monitor messages that are available against a particular command in one go
Is is possible to know all the monitor messages that are available against a particular command in one go
QCMDEXC
Hi, i have built a small application using CL to convert date to required format. When i want to accomplish the same from RPGLE program with a display file to input date i wanted to call CVTDAT command from the RPG program. But i am geting error saying this command can't be issued in this set...is...
Hi, i have built a small application using CL to convert date to required format. When i want to accomplish the same from RPGLE program with a display file to input date i wanted to call CVTDAT command from the RPG program. But i am geting error saying this command can't be issued in this set...is...
Read a message Queue without loosing messages
I have developed a CL pgm, which monitors a message queue and in case a job ended abnormally message appears on that message queue, the system sends a email message to certain users. This is working fine, however the user whose message queue i monitor does not receive any message as my program...
I have developed a CL pgm, which monitors a message queue and in case a job ended abnormally message appears on that message queue, the system sends a email message to certain users. This is working fine, however the user whose message queue i monitor does not receive any message as my program...
cl/400
Hi, Good morning my experts.Im kuppi.im working as a software trainee on AS/400 technology.i have also joined with ibmi5 team.im trying to convert date with cl/400 coding.I have taken 2 parameters(like date and date types). A. If suppose date type is j,Now i want to convert date to *MDY format...
Hi, Good morning my experts.Im kuppi.im working as a software trainee on AS/400 technology.i have also joined with ibmi5 team.im trying to convert date with cl/400 coding.I have taken 2 parameters(like date and date types). A. If suppose date type is j,Now i want to convert date to *MDY format...
%SST
Hi, Im traying to get out put of this below mention simple logic code.But im geting out of different.(im trying with my laptop trhough my company server. DCL &FIELD1 *CHAR 10 VALUE('TCS AS/400') DCL &FIELD2 *CHAR 10 CHGVAR(%SST(&FIELD2 1 10))(%SST(&FIELD1 10 1) Can you tell me the...
Hi, Im traying to get out put of this below mention simple logic code.But im geting out of different.(im trying with my laptop trhough my company server. DCL &FIELD1 *CHAR 10 VALUE('TCS AS/400') DCL &FIELD2 *CHAR 10 CHGVAR(%SST(&FIELD2 1 10))(%SST(&FIELD1 10 1) Can you tell me the...
RPG/400 ,CL/400 lifecycle
Hi, Very good morning my friends.Can any body tell me rpg/400 and cl/400 life cycle.please
Hi, Very good morning my friends.Can any body tell me rpg/400 and cl/400 life cycle.please
to read a record RPG 400
Hi, Im learning AS/400 technology.Now im in RPG/400.Actuall my doubt is if suppose i used SETGT with *HIVAL,Which opcode is used to read a record (I think readp.But i have litle bit doubt).please clarify my doubt. ...
Hi, Im learning AS/400 technology.Now im in RPG/400.Actuall my doubt is if suppose i used SETGT with *HIVAL,Which opcode is used to read a record (I think readp.But i have litle bit doubt).please clarify my doubt. ...
Obtain member list RPG 400
can any body tell me is there any opcode to obtain a list of members in a file
can any body tell me is there any opcode to obtain a list of members in a file
CL/400 - I want to know about QRYSLT(Please see below explanation)
Hi, I am not well versed with code in CL/400, i know the concepts. I want to know what is he doing in the below code. e.g usibng the symbols '|>' and '||' and '<|' IF COND(&TODUE7 *NE '0000000') THEN(DO) CHGVAR VAR(&QRYSL) VALUE(&QRYSL |> ' *AND (ODUDT *GE + ...
Hi, I am not well versed with code in CL/400, i know the concepts. I want to know what is he doing in the below code. e.g usibng the symbols '|>' and '||' and '<|' IF COND(&TODUE7 *NE '0000000') THEN(DO) CHGVAR VAR(&QRYSL) VALUE(&QRYSL |> ' *AND (ODUDT *GE + ...


