Answer / abhishek bajpai

The above answer is wrong. "EDTMSK" keyword can only
protect certain positions of a field (but can't replace a
character entered by the user).
To do this...

Say the actual field is PASSWD which you want to mask.
Create one more field say XYZ of attributes 1A in non
display mode(DSPATR(ND)) with CHECK(ER)keyword. Ur cursor
will remian on this field. Keep the actual field PASSWD as
protected.
Now, what will happen here is, when u enter any character
in XYZ, due to CHECK(ER) keyword the control will go back
to the program and then u can populate field PASSWD with
an '*' inside it and EXFMT the display file again with
blank XYZ and PASSWD with a '*'. Do this inside a loop.
Then in the end you can validate the actual password
entered when the user presses ENTER key. The PASSWD field
here is just to display the number of '*' as the number of
characters entered by the user as a password.

Quite long.
If u haven't understood I can send u the actual code. I
have done it previously for a client.

Abhishek

Answer / nirmal khatri

Hello Abhishek.

Please send code to nirmal_ec1984@indiatimes.com

Thank you in advance.

Answer / bhaskar

Hello Abhishek.

Please send code to bhaskar582@gmail.com

Thank you in advance.

Answer / avinash

Hi Abhishek, Please send me the code to
avinash.8385@gmail.com.

Answer / ankur jain

Hello Abhishek,

Please send me the same code at 21ankur@gmail.com

Thanks in Advance..
Ankur

Answer / ajeet

Hi Abhishek,

Please send me the same code at ajeet.sri@gmail.com

Thanks,
Ajeet

Answer / nirmal

Has anyone got that. Then please send it to
nirmal_ec1984@rediffmail.com. Abhishek do you really have that?

Answer / abhishek bajpai

Hi All,
I checked in here after a real long time.
Will fwd the code to all of u tomorrow morning from my
system...!!

Answer / abhishek bajpai

Fwded the code to everyone of u...

Answer / nirmal

Abhishek,

I haven't received yet. Please resend it to
nirmalec1984@gmail.com.

Thank you in advance.

What are the types of data structure in as400?

0 Answers  

How to know message id (errorid) in msgfile when error is occurred on screen ? WRKMSF will display all error id but i want to know error id based on error msg only?

1 Answers   IBM, Ignis Technologies, SSR,

Define the purpose of Factor 1 the Operation Code and *IN15 in following code HI LO EQ C *YMD Test(D) yymmddDate 15

1 Answers  

What are Control level indicators?

1 Answers  

Can level check error occur if we do chgpf?

0 Answers  

what is the command used to invoke rlu ?

1 Answers   IBM,

what would be the effect on the field where reverse image, underline and highlight display attributes are active ?

1 Answers   IBM,

I am fresher 2009 passedout.can you pls explain me what is AS400 and where it can be used and how about growth in the position as well as salary, whether it is a programming language or else?

3 Answers  

I have created a command that display Source file and library. Now i want that when i enter library name and press f4 on Source file, pgm should display all the PF- SRC's in that Library. For F4 option i have used Choice program but since only limited paramters are passed in Choice pgm i am not able to paas library name and further can't call a pgm that will display list of Source files. Below is the Code snippet for CMD type object :- CMD PROMPT('Source Scan for HUB Standard') PARM KWD(SOURCE) TYPE(*CHAR) LEN(1) RSTD(*YES) + VALUES(N A) MIN(1) + CHOICE('N,A') PARM KWD(SRCFILE) TYPE(FILE) RSTD(*NO) + PROMPT('SOURCE FILE') FILE: QUAL TYPE(*NAME) LEN(10) RSTD(*NO) EXPR (*YES) + CHOICE(*PGM) + CHOICEPGM (XXXXXLIB/YYYPGM) QUAL TYPE(*NAME) LEN(10) DFT(*LIBL) + SPCVAL((*LIBL)) EXPR(*YES) PROMPT ('Library') Below is the Choice pgm:- PGM PARM(&PARM1 &PARM2) DCL VAR(&PARM1) TYPE(*CHAR) LEN (21) DCL VAR(&PARM2) TYPE(*CHAR) LEN (2000) IF COND(%SST(&PARM1 1 10) = 'CHOICE ' *AND + %SST(&PARM1 11 10) = 'SRCFILE ' *AND + (%SST(&PARM1 21 1) = 'C' *OR %SST (&PARM1 + 21 1) = 'P')) THEN (DO) /* (%SST(&PARM1 21 1) = 'C' *OR %SST (&PARM1 + */ CHGVAR VAR(&PARM2) VALUE('Name, F4 for List') ENDDO IF COND(%SST(&PARM1 1 10) = 'CHOICE ' *AND + %SST(&PARM1 11 10) = 'SRCFILE ' *AND + %SST(&PARM1 21 1) = 'P') THEN (DO) CHGVAR VAR(&PARM2) VALUE('Name, F4 for List') CALL PGM(GTSQL) PARM ('XXXXLIB') return ENDDO Thanks in Advance for looking into.

0 Answers   HSBC,

how can send report to user through cl program in as400

1 Answers  

What is primary file? How many primary file can be declared in a RPG program?

3 Answers   IBM, Valtech,

Define a Batch Job?

1 Answers