XUXTADSSE ;ESL/JAC/CM - Service/Section Edit ; JUN 26, 2020@9:30
Source file <XUXTADSSE.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SHOWOPT(AXUXTADOPTION) | ||
| SHOWGOAL(XUXTADRTN) | ||
| CONTINUE(AXUXTADLF,AXUXTADTYPE) | ||
| ASKYESNO(AYESNOPROMPT,AXUXTADDEF) | ||
| FMDIC | ||
| SMDDS | ||
| GOAL | ;; Display the goal of this routine.
|
|
| ENTER | ; Allow the ADPAC to update CHIEF of the SERVICE/SECTION file (#49)
|
|
| PROMPT | ; Begin & loopback entry point
|
|
| START | ; Call the FM ScreenMan SERVICE/SECTION EDIT form
|
|
| EXIT | ; Exit option
|
|
| ASKGOAL | ;Prompt to determine if user want to see purpose/goal of option
|
|
| DDSERR | ; Display FM ScreenMan error(s)
|
|
| EDIT(XUXTADXUFILE,XUXTADXUDA) | ; Edit SERVICE/SECTION ScreenMan form
|
|
| GETSVC(XUXTADXUFILE) | ; Ask/prompt for SERVICE/SECTION using DIC utility call
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
