1.WHAT IS WRONG WITH THE CODE BELOW?
C CUSTNO CHAIN CUSTMAST
IF %ERROR
can any body find the wrong please?
2.What builtin function will you use to achieve the
following functionality?
C QTY IFLT *ZERO
C QTY MULT-1 QTY
ENDIF
Answers were Sorted based on User's Feedback
Answer / ajit
C CUSTNO CHAIN CUSTMAST
IF %ERROR
1) The position is incorrect.
2) If you mistakenly wrote incorrect position, then for %ERROR, you should use CHAIN(E).
3) Use EVAL %ABS(Name of the variable) for 2nd Q.
| Is This Answer Correct ? | 7 Yes | 1 No |
Answer / ved dubey
1. The Position of opcode if is not valid...
2. %ABS can be used instead of this code
| Is This Answer Correct ? | 3 Yes | 1 No |
Answer / naveen chandra joshi
%error should nto be user with Chain opcode. %Found()/% Not
Found() is used with Chain opcode.
| Is This Answer Correct ? | 4 Yes | 2 No |
Answer / syam
A1. C CUSTNO CHAIN(E) CUSTMAST
A2. QTY = %ABS(QTY * -1)
| Is This Answer Correct ? | 2 Yes | 6 No |
How to get only unique records from a file which contains duplicate data using CPYF command ? Example : FILEA has duplicate records and FILEB is a UNIQUE defined.... and I want to get the data from FILEA to FILEB by eliminating all the duplicate records...
I have one cl program which calls two rpg programs named a & b. I am loading a run time array in Pgm A and the control comes back to cl pgm. i call pgmb and I want to read the runtime array in pgmb which was loaded in pgma. How it can be acheived. I should not use any intermediate file or dataarea to store the loaded values.
Hi guys. Im in AS/400(RPGLE,CLP) from last 1 year.Now i wan to upgrade my Knowledge in AS/400. Suggest me some new fields & courses which falls under AS/400. Waiting for your quick Response.
How can you delete records form a file in rpg without using "Delete" OPCODE?
Q1.How we can copy the data of file one session to another session? Q2.how we can execute a loop infinitely in AS/400 coding? Q3.In ALDON tool,multitask is posible on a perticular object by the user?
What is the syntax of passing parameters to a procedure by value?
What is the difference Return and InLr?
i have 6 char field in program, but this field is using in all files i want to chage field size as 10 char , how can i do this except using *like defn...?
1.Suppose my file has 10 fields and I want to make the 2nd field Zeros in all records. And assume I have millions of records and I dont want to read each record and update the desired field with 0. Any other way to do this in one step operation? 2. Assume my file has 100 records and I want to see only first 10 records. Is this possible through LF? 3.I have 3 jobs A B and C. I want to submit B after successful completion of A and want to submit C after successful completion of B. Without using job scheduler or job queue, how can i do that through CL program? 4.What is difference between Bind by copy and bind by reference?
we are sending data of physical file to screen design and it is showing no record why?
during execution, an rpg/400 program automatically follows a sequence of operations for each record that is processed. The built-in program cycle includes the following logical steps.
what is difference between DSPFD and DSPFFD?please give me real senario with good example?