AUT98P13 ;IHS/SET/AEF - AUT 98.1 PATCH 13 ; [ 10/16/2003 1:57 PM ]
Source file <AUT98P13.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
PRE | ;EP - From KIDS.
|
|
INTROE | ; Intro text during KIDS Environment check.
|
|
UNIQUEP | ;----- POPULATE THE UNIQUE RPMS DB ID FIELD
|
|
AUDR | ; Restore the file data audit values to their original values.
|
|
SINGLE(K) | ; Get holders of a single key K.
|
|
RSLT(%) | ||
UNIQUEA(IEN,UNIQUE) | ||
INTROI | ; Intro text during KIDS Install.
|
|
GREET | ;;To add to mail message.
|
|
UNIQUE1(IEN) | ||
SORRY(X) | ;
|
|
;
|
||
POST | ;EP - From KIDS.
|
|
VCHK(AUTPRE,AUTVER,AUTQUIT) | ; Check versions needed.
; |
|
UNIQUEL | ;----- LOOP THRU LOCATION FILE AND POPULATE UNIQUE RPMS DB ID FIELD
|
|
UNIQUED | ;----- DELETE SCRATCH LOCATION FILE
|
|
AUDS | ; Save current settings, and SET dd auditing 'on'.
|
Name | Field # of Occurrence |
---|---|
HOME^%ZIS | AUT98P13+5 |
ENDR^%ZISS | AUT98P13+19 |
IX^DIC | AUT98P13+27 |
$$GET1^DID | AUDR+6 |
^DIE | UNIQUEA+8 |
EN^DIU2 | UNIQUED+6 |
$$DIR^XBDIR | AUT98P13+39 |
HELP^XBHELP | AUT98P13+38, AUT98P13+41 |
$$FMADD^XLFDT | AUDS+3 |
$$CJ^XLFSTR | AUT98P13+14, AUT98P13+15, AUT98P13+22, AUT98P13+29, AUT98P13+30, AUT98P13+34, AUT98P13+36, SORRY+3, VCHK+4 |
$$LJ^XLFSTR | AUDS+8, AUDR+6 |
$$RJ^XLFSTR | AUDS+8, AUDR+6 |
^XMD | MAIL+10 |
$$NEWCP^XPDUTL | PRE+3, POST+5, POST+8 |
$$PATCH^XPDUTL | UNIQUEL+2 |
$$VERSION^XPDUTL | AUT98P13+21, VCHK+3 |
BMES^XPDUTL | MAIL+1, UNIQUEP+4 |
MES^XPDUTL | MAIL+12, AUDS+1, AUDS+2, AUDS+8, AUDS+11, AUDR+1, AUDR+6, AUDR+9 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^DIC(9.4 - [#9.4] | Classic Fileman Calls |
^AUTTLOC - [#9999999.06] | Classic Fileman Calls |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^AUTT999(8008699.06 | UNIQUE1+12, UNIQUE1+14 |
^AUTTLOC - [#9999999.06] | UNIQUEP+7 |
^AUTTLOC("F" | UNIQUE1+20 |
^DD( | AUDS+7, AUDS+9*, AUDR+5*, AUDR+6 |
^DD(9999999.06 | UNIQUE1+7 |
^DIC(4 - [#4] | UNIQUE1+5 |
^DIC(9.4 - [#9.4] | AUT98P13+28 |
^TMP("AUT98P13" | MAIL+3!, MAIL+11!, RSLT |
^VA(200 - [#200] | AUT98P13+13 |
^XTMP("AUT98P13" | AUDS+3*, AUDS+7*, AUDS+8, AUDR+4, AUDR+5, AUDR+8! |
^XTMP("XPDI" | MAIL+7, AUDS+6, AUDS+8 |
^XUSEC( | SINGLE+3, SINGLE+4 |
Name | Line Occurrences |
---|---|
RSLT | MAIL+4, MAIL+5, MAIL+7 |
SINGLE | MAIL+9 |
SORRY | AUT98P13+7, AUT98P13+9, AUT98P13+11, AUT98P13+23, AUT98P13+31, AUT98P13+39, VCHK+5 |
UNIQUE1 | UNIQUEP+7 |
UNIQUEA | UNIQUE1+21 |
UNIQUED | UNIQUEL+3 |
UNIQUEL | POST+2 |
UNIQUEP | UNIQUEL+2 |
Name | Field # of Occurrence |
---|---|
^( | MAIL+7, RSLT* |
^(0 | RSLT* |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
% | MAIL+5*, MAIL+6*, MAIL+7*, MAIL+9*, RSLT~ |
ASUFAC | UNIQUE1+3~, UNIQUE1+10*, UNIQUE1+12, UNIQUE1+17 |
AUT | AUDS+4~, AUDS+5*, AUDS+6*, AUDS+7, AUDS+8, AUDS+9, AUDR+2~, AUDR+3*, AUDR+4*, AUDR+5 , AUDR+6 |
AUTPRE | VCHK~, VCHK+3, VCHK+4 |
AUTQUIT | VCHK~, VCHK+5 |
AUTV | VCHK+2~, VCHK+3*, VCHK+4, VCHK+5 |
AUTVER | VCHK~, VCHK+4, VCHK+5 |
>> D | AUT98P13+26* |
D0 | UNIQUE1+3~, UNIQUE1+6* |
DA | AUT98P13+25~, UNIQUEA+3~, UNIQUEA+6* |
DATA | UNIQUE1+3~, UNIQUE1+14*, UNIQUE1+15, UNIQUE1+17, UNIQUE1+18 |
DIC | AUT98P13+25~, AUT98P13+26* |
DIC(0 | AUT98P13+26* |
DIE | UNIQUEA+3~, UNIQUEA+5* |
DIFQ | SORRY+1! |
DIFROM | MAIL+2~ |
DIU | UNIQUED+2~, UNIQUED+4* |
DIU(0 | UNIQUED+5* |
DR | UNIQUEA+3~, UNIQUEA+7* |
DT | AUDS+3 |
DUZ | AUT98P13+7, AUT98P13+13, MAIL+8 |
DUZ(0 | AUT98P13+9, AUT98P13+11 |
IEN | UNIQUEP+2~, UNIQUEP+6*, UNIQUEP+7*, UNIQUE1~, UNIQUE1+5, UNIQUE1+6, UNIQUE1+21, UNIQUEA~, UNIQUEA+6 |
IEN2 | UNIQUE1+3~, UNIQUE1+11*, UNIQUE1+12*, UNIQUE1+13, UNIQUE1+14 |
IOM | AUT98P13+5, AUT98P13+14, AUT98P13+15, AUT98P13+22, AUT98P13+29, AUT98P13+30, AUT98P13+34, AUT98P13+36, SORRY+3, VCHK+4 |
IORVOFF | AUT98P13+17~, AUT98P13+30, AUT98P13+34 |
IORVON | AUT98P13+17~, AUT98P13+30, AUT98P13+34 |
K | SINGLE~, SINGLE+3, SINGLE+4 |
NAME | UNIQUE1+3~, UNIQUE1+5* |
U | AUT98P13+13, UNIQUE1+5, UNIQUE1+7, UNIQUE1+17, UNIQUE1+18 |
UNIQUE | UNIQUE1+3~, UNIQUE1+18*, UNIQUE1+19, UNIQUE1+20, UNIQUE1+21, UNIQUEA~ |
X | AUT98P13+13*, AUT98P13+14, AUT98P13+18*, AUT98P13+21*, AUT98P13+22, AUT98P13+23, AUT98P13+26*, SORRY~, SORRY+2, UNIQUED+2~ , UNIQUE1+3~, UNIQUE1+8, UNIQUE1+9, UNIQUE1+10, UNIQUEA+3~ |
XMDUZ | MAIL+2~, MAIL+8* |
XMSUB | MAIL+2~, MAIL+8* |
XMTEXT | MAIL+2~, MAIL+8* |
XMY | MAIL+2~ |
XMY( | MAIL+8*, SINGLE+4* |
XMY(1 | MAIL+8* |
>> XPDA | MAIL+7, AUDS+6, AUDS+8 |
>> XPDBLD | MAIL+7 |
>> XPDDIQ("XPZ1" | AUT98P13+41* |
>> XPDDIQ("XPZ2" | AUT98P13+41* |
>> XPDENV | AUT98P13+41 |
>> XPDQUIT | AUT98P13+34, SORRY+2* |
Y | AUT98P13+28, SINGLE+1~, SINGLE+2*, SINGLE+4*, UNIQUED+2~, UNIQUE1+3~, UNIQUEA+3~ |
>> ZTQUEUED | AUT98P13+11 |
Name | Field # of Occurrence |
---|---|
$T( | AUT98P13+15, MAIL+8, AUDS+3 |
$T(GREET+% | MAIL+5 |
$T(GREET+%+1 | MAIL+5 |