lnlyssg
/ EXITS.REXX
Created
June 14, 2017 19:21
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| /*REXX*/ | |
| numeric digits 20 | |
| /* Get info from storage, most of this section is a straight lift */ | |
| /* from IPLINFO! */ | |
| CVT = C2d(Storage(10,4)) /* point to CVT */ | |
| CVTVERID = Storage(D2x(CVT - 24),16) /* "user" software vers.*/ | |
| PRODNAME = Storage(D2x(CVT - 40),7) /* point to mvs version */ | |
| CVTRAC = C2d(Storage(D2x(CVT + 992),4)) /* point to RACF CVT */ | |
| RCVT = CVTRAC /* use RCVT name */ | |
| RCVx = C2D(STORAGE(D2X(CVT+X2D('3E0')),4)) /* ugly mess for bits */ |
lnlyssg
/ LIST2.rexx
Created
April 21, 2017 13:13
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| /* REXX */ | |
| /* Developed by S. Tresadern */ | |
| cvt = c2x(Storage(10,4)) | |
| asvt = mvsaddr(cvt 22C 4) | |
| asvtmaxu = x2d(mvsaddr(asvt 204 4)) | |
| do i = 0 to asvtmaxu - 1 | |
| offset = d2x(x2d(210) + (i * 4)) | |
| ascb = mvsaddr(asvt offset 4) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| /* Rexx - Print a list of address spaces */ | |
| /* Author Doug Nadel na...@us.ibm.com */ | |
| /* This code is not guaranteed in any way. */ | |
| Numeric digits 10 | |
| Parse Upper Arg specific_names . | |
| initiators=0 | |
| names.="" | |
| names.0=0 | |
| Call get_list_of_names | |
| Call sort |
lnlyssg
/ PWGEN.rexx
Last active
December 9, 2022 23:00
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| /* rexx ***************************************************************/ | |
| /* */ | |
| /* Purpose : Generate a random password. */ | |
| /* Author : Andrew Cameron-Heffer */ | |
| /* */ | |
| /* The REXX can be passed 2 values. */ | |
| /* (1) the number of passwords requested (default = 1) */ | |
| /* (2) length of each password (default = 8) */ | |
| /* */ | |
| /* Or, use PWGEN ? to get brief help. */ |