- DVBCLMHD ;ALB/CMM HEADER FILE ;16FEB93
- ;;2.7;AMIE;;Apr 10, 1995
- EN ;
- ; perform initializations for pkg wide vars
- ;
- ;
- S VWLINE=1,VALMBG=1
- ;
- ; where to place the results array
- S RSLTAR="^TMP(""DVBC"","_$J_")"
- ;
- ; set initial query number 0, so 1st domain build becomes 1
- S @RSLTAR@(0)=0
- ;
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDVBCLMHD 321 printed Mar 13, 2025@20:49:22 Page 2
- DVBCLMHD ;ALB/CMM HEADER FILE ;16FEB93
- +1 ;;2.7;AMIE;;Apr 10, 1995
- EN ;
- +1 ; perform initializations for pkg wide vars
- +2 ;
- +3 ;
- +4 SET VWLINE=1
- SET VALMBG=1
- +5 ;
- +6 ; where to place the results array
- +7 SET RSLTAR="^TMP(""DVBC"","_$JOB_")"
- +8 ;
- +9 ; set initial query number 0, so 1st domain build becomes 1
- +10 SET @RSLTAR@(0)=0
- +11 ;
- +12 QUIT