How to set on/off a group of indicators in a single statement?
Answers were Sorted based on User's Feedback
Answer / david lex
Both are correct, but if you're using free form, move will
NOT work (since it's not supported).
d dsInds based( *in )
d iErrNameFirst 20 20n
d iErrNameMid 21 21n
d iErrNameLast 22 22n
d iErrNameSuff 23 23n
d errorsName 4a overlay( dsInds : 20 )
/free
// reseting a subgroup of indicators
errorsName = *all'0'; // All indicators OFF
errorsName = *all'1'; // All indicators ON
// reseting the entire indicator structure
dsInds = *all'0';
dsInds = *all'1';
*in( * ) = *off;
*in( * ) = *on;
/end-free
| Is This Answer Correct ? | 1 Yes | 0 No |
Answer / sulthan
I cannot recollect completely. I will explain with an example.
C MOVE '00000' *IN(21).
this will set indicators from 21 to 25( total 5 zeroes from
21) to 0's.
Note: It is MOVEA or MOVE, not sure.
| Is This Answer Correct ? | 2 Yes | 5 No |
there is any limit to display the members in rpg400?
wat is curser?? and its types???
is this a rpg channel?
If record-format name in an externally-described file has already been defined as a file-name.how to solve this?
1. If my rpg program has a date field, What extra care I have to take while compiling that RPG program? 2. If the file is keyed and I have declared the file as well as Key list properly in my program. Still am getting an error message like "Chain/reade operation is not allowed" What may be the case?
What is the syntax of passing parameters to a procedure by value?
we are sending data of physical file to screen design and it is showing no record why?
suppose we have 10 members in physical file and i have to use 4 out of 10 so how can we read this in RPG
When a object will be locked & when a record will be locked? Plz explain.
In a particular program one file is used where override command is applied to a file, now this program calls another program where we want to use the same file but without override.How it can be done?
how we retrieve records without using key field (ex:name) from Physical File through RPG in as/400?
can anybody help me that what is the procedure of debugging the service program?