Interested to Buy Any Domain ? << Click Here >> for more details...
How to write a password mask program in as400?
like the password which i type should be displayed
as '*****' r ###### which the user wishes to dispaly
if u could help me with url r the solution in written code
this will help me
- 21 Answers
- 35560 Views
- Accenture, SNS, I also Faced
- E-Mail Answers
Answers were Sorted based on User's Feedback
Answer / devesh
Abhishek,
Please send the code to deveshneelam@gmail.com
Thanks
| Is This Answer Correct ? | 0 Yes | 0 No |
Answer / jeevan
Hello Abhishek,
Please forward the code to me as well. Thanks!!
| Is This Answer Correct ? | 0 Yes | 0 No |
Answer / joy
Hi Abhishek,
Please send the code to joycm_0304@yahoo.com
Thanks
| Is This Answer Correct ? | 0 Yes | 0 No |
Answer / harsha
hai friends please send me code chshvardhan@gmail.com
| Is This Answer Correct ? | 0 Yes | 0 No |
Answer / sravan
Hi ffriends any one can send the code to sravang8090@gmail.com
| Is This Answer Correct ? | 0 Yes | 0 No |
Answer / abhishek bajpai
Hi All,
Quite hectic to snd t code to evry1 so copying it below.You
can add to the below code to verify the pwd etc. based on
ur requirement.
DSPF:
A DSPSIZ(24 80 *DS3)
A R REC1
A FLD1 10A O 7 3
A FLD001 1 B 5 3CHECK(ER) DSPATR(ND)
PGM:
fTest15 cf e workstn
/free
dow %Len(%Trim(fld1)) < 10;
Exfmt rec1;
If fld001 <> *Blanks;
fld1 = %Trim(fld1) + '*';
endif;
enddo;
*Inlr = *on;
/end-free
Thnx
| Is This Answer Correct ? | 0 Yes | 0 No |
Answer / dinesh
Please send me the code also to dineshas400@gmail.com
Thanks in advance
| Is This Answer Correct ? | 0 Yes | 0 No |
Answer / vijay
Abhishek,
Please send it to
vchandra236.vc@gmail.com.
Thank you in advance.
| Is This Answer Correct ? | 0 Yes | 0 No |
Answer / swetha p
'*' + Enter before the field you want as password and
select Editing keywords 'Y' there you can Choose EDTMSK key
word as '*' this will mask the values entered with *
| Is This Answer Correct ? | 3 Yes | 8 No |
what are the different methods to access seu?
DIFFERENCE BETWEEN BINDING LANG AND BIND DIR WHEN USING IN SERVICE PGM...when using binding directory service pgm is necessary?
What is the difference between Interactive & Batch Job?
define the rcvf command?
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.
How do you put jobs in batch mode?
When will DUMP and DEBUG opcodes be ignored?
List and explain the different type of data structures?
What is the difference between a Physical File & a Logical?
28 Answers Accenture, ACS, IBM,
how can I give more performance to some selected pages?
function of DSPPGMREF?
How to read data from *LDA (Local Data Area) in RPGLE program without using IN opcode?
RPG400 
