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 |
in which journalling which attributes are necessary
Suppose i am having 3 programs PgmA,pgmB,pgmC and using source debugger. At debugging time i found that pgmC having some code error..then in debug mode directly how can i debug pgmC
I have some doubts on subfile----------- -----I wrote a prog on subfile to display the records. Every thing is clear but i defined a field called "opt" as input field in subfile record format from that input field i wish to enter into new screen called "EDIT" which i created it as a separate RCD in display file. i gave opt as 2 for edit just like in WRKMBRPDM screen please telll me the code and how can i code for it in RPG.
What would be the effect on the field where reverse image, underline and high intensity?
how to display all the members records in a physical file without using ovrdbf?
which MONMSG will give higher priority in CL program? I know MONMSG are of two types. Program Level Monmsg and Command Monmsg?
What is Multi Occurrence Data Structure(MODS)?
how to find whether a date format is valid or not in RPG400 not in RPGILE.Can you please write the coding for this sir,i'm new to AS400.Please help.
what are the types of identifers
RPG/400 faqs?
what is overlay? how can we pass parameters in cl or rpg programing? how can we get data area value in cl or rpg programming?
How do you code file / field renames in ILE RPG?