Report Giri
#SYSTEM.RAGSOC
#SYSTEM.DATE
#PAGE
CODTAB[1,5]
CODTAB[1,5]
"REPORT GIRI AGENTE - "
MESSAGE COPY,50
MESSAGE ISAMREAD,122,CODAGE=#10,RAGSOC
MESSAGE APPEND,50
CODTAB[6,6]
CODTAB[6,6]
#DAY
CODTAB[6,6]
I0
CODTAB[7,12]
20.RAGSOC
20.INDCF
20.CAPCF
20.TEL
20.COMCF
20.LOCALITACF
MESSAGE COPY,110
MESSAGE ISAMREAD,13,STATO=''!COM=20.COMCF,DENCOM
MESSAGE APPEND,110
USE HAHGI SELECT ((CODTAB[1,5]=#CODAG)||(#CODAG=''))((CODTAB[6,6]=#DAY)||(#DAY=0))
BY CODTAB[1,6] I0
JOIN 20 INTO TIPOCF="C" CODCF==CODTAB[7,12]