- ECX3P8PT ;ALB/JAP - PATCH ECX*3*8 Post-Install ; July 14, 1998
- ;;3.0;DSS EXTRACTS;**8**;Dec 22, 1997
- ;
- POST ;Entry point
- ;update records in file #727.1
- D MOD7271^ECX3P8P3
- ;add records to file #727.2
- D ADD7272^ECX3P8P1
- ;add records to file #729
- D ADD729^ECX3P8P1
- ;modify records in file #730
- D MOD730^ECX3P8P2
- ;add new records to file #730
- D ADD730^ECX3P8P2
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HECX3P8PT 387 printed Apr 23, 2025@18:05:16 Page 2
- ECX3P8PT ;ALB/JAP - PATCH ECX*3*8 Post-Install ; July 14, 1998
- +1 ;;3.0;DSS EXTRACTS;**8**;Dec 22, 1997
- +2 ;
- POST ;Entry point
- +1 ;update records in file #727.1
- +2 DO MOD7271^ECX3P8P3
- +3 ;add records to file #727.2
- +4 DO ADD7272^ECX3P8P1
- +5 ;add records to file #729
- +6 DO ADD729^ECX3P8P1
- +7 ;modify records in file #730
- +8 DO MOD730^ECX3P8P2
- +9 ;add new records to file #730
- +10 DO ADD730^ECX3P8P2
- +11 QUIT
