XOBWPWD ;ALB/MJK - HWSC :: Private Password APIs ; 09/13/10 4:00pm
Source file <XOBWPWD.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EDIT | ; -- edit PASSWORD from DD
|
|
| CLR | ; -- clear to continue
|
|
| SET(XOBH,XOBTALK) | ; -- set password in entry
|
|
| DEL | ; -- make sure delete is desired
|
|
| DIRUT | ; -- set abort flag
|
|
| ASK() | ; -- setup to ask user for password
|
|
| REASK(XOBH) | ; -- reask user for password
|
|
| GET() | ; -- get user input and process for '^' and ''
|
|
| ACCEPT(TO) | ; -- read user input character a time; force exit on '^'; echo '*' back
|
|
| ENCRYP(XOBX) | ; -- Kernel encode
|
|
| DECRYP(XOBH) | ; -- Kernel decode
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^%ZOSF("EOFF" | ASK+2, REASK+10 |
| ^%ZOSF("EON" | EDIT+23, DEL+1 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| A | ACCEPT+1~, ACCEPT+3*, ACCEPT+5*, ACCEPT+6, ACCEPT+7*, ACCEPT+8*, ACCEPT+10 |
| C | ACCEPT+1~, ACCEPT+5*, ACCEPT+6, ACCEPT+7, ACCEPT+8 |
| >> DA | SET+5 |
| >> DDS | CLR+1 |
| >> DDSHBX | CLR+3 |
| DIR | EDIT+1~, EDIT+24! |
| DIR("A" | DEL+3* |
| DIR(0 | DEL+3* |
| DIR0 | EDIT+1~ |
| DIRUT | EDIT+9, EDIT+12, EDIT+22, EDIT+24!, DIRUT+1*, ASK+6, REASK+15 |
| DUOUT | EDIT+21!, EDIT+22*, ACCEPT+2!, ACCEPT+5* |
| DX | CLR+2~, CLR+3* |
| DY | CLR+2~, CLR+3* |
| E | ACCEPT+1~, ACCEPT+3*, ACCEPT+4, ACCEPT+6* |
| FDA | SET+2~ |
| FDA( | SET+5* |
| >> IOXY | CLR+3 |
| TO | ACCEPT~, ACCEPT+3*, ACCEPT+5 |
| X | EDIT+5*, EDIT+6!, EDIT+24*, ASK+1~, GET+1*, GET+2, GET+3, GET+4 |
| XOBDONE | REASK+1~, REASK+2*, REASK+11, REASK+15*, REASK+21* |
| XOBERR | SET+2~, SET+7 |
| XOBH | EDIT+1~, EDIT+11*, EDIT+13, EDIT+18, SET~, SET+1, SET+3*, SET+5, ASK+1~, REASK~ , REASK+6, REASK+17, DECRYP~, DECRYP+1 |
| XOBI | REASK+1~, REASK+11* |
| XOBMATCH | EDIT+1~, EDIT+2*, EDIT+9, EDIT+13*, EDIT+16, REASK+1~, REASK+3*, REASK+6, REASK+8*, REASK+22* , REASK+23 |
| XOBTALK | SET~, SET+1 |
| XOBX | ASK+1~, ASK+5*, ASK+7, ASK+12, REASK+1~, REASK+13*, REASK+17, ENCRYP~, ENCRYP+1 |
| >> Y | DEL+5, ASK+9 |