|
midrange.com
Hi Steve,
We used this procedure to generate "QRPLOBJ" (eg: Q0291B05E4 ) type names
for another function, do you think that will be enough for the auditors ?
Narayanan R Pillai
Senior Technical Architect
American Medical & Life Insurance
<code>
******************************************************************
**** Project name : Create "QRPLOBJ" File name ****
**** Program name : GETFILNAM ****
**** Program description : Creates a file name like those in ****
**** QRPLOBJ. ****
**** Author : Pillai ****
**** Date created : August 2000 ****
******************************************************************
D Time S 12 0
D InString S 25
D OutString S 50
D HexDigits C Const('0123456789ABCDEF')
* Define all Procedures used in the Program
D CnvrtHex PR
D 25
D 50
D Ds
D Binary 9B 0
D Character 4 OverLay(Binary)
C *entry Plist
C parm FileName 10
C Time Time
C Move Time Binary
C MoveL Character Instring
C CallP CnvrtHex(Instring:OutString)
C Eval FileName = 'Q'+ %Subst(OutString:1:9)
C Eval *inLR = *On
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* Procedures Section *
* ---------- ------- *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
/Eject
/Title CnvrtHex : Obtain Hexa Conversions
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* CnvrtHex *
* -------- *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
P CnvrtHex B
D CnvrtHex PI
D InString 25
D OutString 50
D IntDS Ds
D IntNum 5I 0 Inz(0)
D IntChr 1 OverLay(IntNum:2)
D HexDS Ds
D HexC1 1
D HexC2 1
D Cntr S 2 0 Inz(1)
D Pos S 2 0 Inz(1)
D HexChr S 1
C Do 25 Pos
C Eval HexChr = %Subst(InString:Pos:1)
C If (HexChr < X'20')
C Eval %Subst(Instring:Pos:1) = X'AA'
C EndIf
C Eval IntChr = HexChr
C IntNum Div 16 X1 5 0
C Mvr X2 5 0
C Eval HexC1 = %Subst(HexDigits:X1+1:1)
C Eval HexC2 = %Subst(HexDigits:X2+1:1)
C Eval %SubSt(OutString:Cntr:2) = HexDS
C Eval Cntr = Cntr + 2
C EndDo
P CnvrtHex E
</code>
----- Original Message -----
From: "McKay, Steve" <Steve.McKay@SouthTrust.com>
To: <midrange-l@midrange.com>
Sent: Wednesday, October 23, 2002 2:07 PM
Subject: Need to generate passwords
List -
Does anyone have a CL/RPG/COBOL solution to generate "random" passwords?
Auditing has a problem with me "assigning" an initial password (even if it
is set to "*EXPIRED") and wants to programatically generate a password for
each new user.
Thanks,
Steve
_______________________________________________
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/midrange-l
or email: MIDRANGE-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2025 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.
