Count Application/Table field

INIT:	
	DIM Y.FSAVE(C$SYSDIM) , Y.NSAVE(C$SYSDIM) , Y.TSAVE(C$SYSDIM)
	Y.FILE.VAR = ''	
	CALL OPF(Y.FILE,Y.FILE.VAR)
	Y.CHECK.FILE = FIELD(Y.FILE,'.',2,99)
RETURN

GET.APP.FIELD.COUNT:
* SAVE THE CURRENT F , N & T PARAMETERS   , ONLY AS PRECAUTION
      MAT Y.FSAVE = MAT F ; MAT Y.NSAVE = MAT N ; MAT Y.TSAVE = MAT T ; YSAVE.V = V
      Y.FUNCTION = V$FUNCTION ; V$FUNCTION = 'RG.OBTAIN.OVERRIDE'
*
* CALL THE ROUTINE BY LENGTH OF FUNCTION > 1 , JUST TO GET THE V*
      CALL @Y.CHECK.FILE
      V.VAL = V                          ; * V VAL IS OBTAINED
*
* RESTORE THE F N & T PARAMETERS*
      MAT F = MAT Y.FSAVE ; MAT N = MAT Y.NSAVE ; MAT T = MAT Y.TSAVE ; V = YSAVE.V
      V$FUNCTION = Y.FUNCTION	
	RETURN

GET.APP.FIELD.DATA:
	CALL F.READ (Y.FILE,Y.KEY,Y.REC,Y.FILE.VAR,ER)
	IF ER THEN
	  Y.FILE = Y.FILE:'$HIS'	  
	  CALL F.READ.HISTORY(Y.FILE, Y.KEY, Y.REC, Y.FILE.VAR, ER )
	END

	Y.OVERIDE  = Y.REC<V.VAL-9>
	Y.REC.STAT = Y.REC<V.VAL-8>
	Y.CUR.NO   = Y.REC<V.VAL-7>

CALL EB.EXECUTE.APPLICATION(app_name)

PROGRAM GET.APPLICATION.MAXFIELD.LENGTH.TEST
* SUBROUTINE GET.APPLICATION.MAXFIELD.LENGTH (Y.APP,Y.ERR)
    $INSERT ../T24_BP I_COMMON
    $INSERT ../T24_BP I_EQUATE
    $INSERT ../T24_BP I_F.STANDARD.SELECTION
	******************************
    CALL LOAD.COMPANY('BNK')
	INPUT Y.APP
*******************************
    GOSUB INIT
    GOSUB GET.APP.FIELD.COUNT
    GOSUB GET.APP.FIELD.COUNT2
    GOSUB GET.APP.FIELD.COUNT3
	RETURN
INIT:
    DIM Y.FSAVE(C$SYSDIM) , Y.NSAVE(C$SYSDIM) , Y.TSAVE(C$SYSDIM)
	MAT Y.FSAVE = '' ; MAT Y.NSAVE = '' ; MAT Y.TSAVE = ''
    Y.APPLICATION = FIELD(Y.APP,'.',2,99)
RETURN

GET.APP.FIELD.COUNT:
* SAVE THE CURRENT F , N & T PARAMETERS   , ONLY AS PRECAUTION
      MAT Y.FSAVE = MAT F ; MAT Y.NSAVE = MAT N ; MAT Y.TSAVE = MAT T ; YSAVE.V = V
      Y.FUNCTION = V$FUNCTION ;
      V$FUNCTION = Y.APPLICATION
* CALL THE ROUTINE BY LENGTH OF FUNCTION > 1 , JUST TO GET THE V*
      * CALL @Y.APPLICATION
	  CALL EB.EXECUTE.APPLICATION(Y.APPLICATION)
      V.VAL = V                          ; * V VAL IS OBTAINED
* RESTORE THE F N & T PARAMETERS*
      MAT F = MAT Y.FSAVE ; MAT N = MAT Y.NSAVE ; MAT T = MAT Y.TSAVE ; V = YSAVE.V
      V$FUNCTION = Y.FUNCTION      
	  CRT V.VAL
	  CRT ''
    RETURN

GET.APP.FIELD.COUNT2:
	SS.FIELDS = ''
	CALL GET.STANDARD.SELECTION.DETS(Y.APPLICATION, SS.FIELDS)
	CRT DCOUNT(SS.FIELDS,@FM)
	CRT DCOUNT(SS.FIELDS,@VM)
	CRT DCOUNT(SS.FIELDS,@SM)
	CRT ''
RETURN
GET.APP.FIELD.COUNT3:	

	R.STAND.SEL = ''  
	FN.STANDARD.SELECTION = 'F.STANDARD.SELECTION'  
	F.STANDARD.SELECTION = ''   

	CALL F.READ(FN.STANDARD.SELECTION, Y.APPLICATION, R.STAND.SEL, F.STANDARD.SELECTION, READ.ERR)  ;* Try read from the disk
	CRT DCOUNT(R.STAND.SEL<SSL.SYS.FIELD.NO>,VM)

RETURN
END

    OPEN "DICT", "F.ACCOUNT" TO F.DICT.FILE THEN
        READ RECORD FROM F.DICT.FILE,"CO.CODE" THEN		
		CRT EREPLACE(RECORD,@FM,"-")
		CRT "INDEX " : RECORD<2>
		END		
    END ELSE
        YERR = "CANNOT OPEN DICTIONARY FOR &":FM:APPL.ID
    END

OPEN "DICT", "F.ACCOUNT" TO F.DICT.FILE THEN
        READ RECORD FROM F.DICT.FILE,"AUDIT.DATE.TIME" THEN		
		CRT EREPLACE(RECORD,@FM,"-")
		CRT "INDEX " : RECORD<2>
		END		
    END ELSE
        YERR = "CANNOT OPEN DICTIONARY FOR &":FM:APPL.ID
    END