- DGINP ;ALB/JDS - INPUT SYNTAX CHECKS ; 25 SEP 84 14:20
- ;;5.3;Registration;;Aug 13, 1993
- ;
- ; *****************************************************************
- ; *
- ; * Note Well: This routine is in the process of being removed.
- ; * As of MAS 5.3, the old DGINP was renamed to DGRPDD1. This
- ; * was done to eliminate non-init routines from the DGI name-
- ; * space. Programmers should change any references to DGINP
- ; * to DGRPDD1. This routine is scheduled to be removed 18
- ; * months following the release of MAS 5.3.
- ; *
- ; *****************************************************************
- ;
- SSN G SSN^DGRPDD1
- SSNQ G SSNQ^DGRPDD1
- C G C^DGRPDD1
- PSEU G PSEU^DGRPDD1
- COL G COL^DGRPDD1
- CON G CON^DGRPDD1
- CAT G CAT^DGRPDD1
- CATQ G CATQ^DGRPDD1
- VIET G VIET^DGRPDD1
- POS G POS^DGRPDD1
- POSQ G POSQ^DGRPDD1
- PS G PS^DGRPDD1
- PS2 G PS2^DGRPDD1
- PS3 G PS3^DGRPDD1
- PSQ G PSQ^DGRPDD1
- CAT1 G CAT1^DGRPDD1
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDGINP 954 printed Feb 19, 2025@00:10 Page 2
- DGINP ;ALB/JDS - INPUT SYNTAX CHECKS ; 25 SEP 84 14:20
- +1 ;;5.3;Registration;;Aug 13, 1993
- +2 ;
- +3 ; *****************************************************************
- +4 ; *
- +5 ; * Note Well: This routine is in the process of being removed.
- +6 ; * As of MAS 5.3, the old DGINP was renamed to DGRPDD1. This
- +7 ; * was done to eliminate non-init routines from the DGI name-
- +8 ; * space. Programmers should change any references to DGINP
- +9 ; * to DGRPDD1. This routine is scheduled to be removed 18
- +10 ; * months following the release of MAS 5.3.
- +11 ; *
- +12 ; *****************************************************************
- +13 ;
- SSN GOTO SSN^DGRPDD1
- SSNQ GOTO SSNQ^DGRPDD1
- C GOTO C^DGRPDD1
- PSEU GOTO PSEU^DGRPDD1
- COL GOTO COL^DGRPDD1
- CON GOTO CON^DGRPDD1
- CAT GOTO CAT^DGRPDD1
- CATQ GOTO CATQ^DGRPDD1
- VIET GOTO VIET^DGRPDD1
- POS GOTO POS^DGRPDD1
- POSQ GOTO POSQ^DGRPDD1
- PS GOTO PS^DGRPDD1
- PS2 GOTO PS2^DGRPDD1
- PS3 GOTO PS3^DGRPDD1
- PSQ GOTO PSQ^DGRPDD1
- CAT1 GOTO CAT1^DGRPDD1