*---------------------------------------------------------------------**00000100
* **00000200
* PROGRAMA : ETST182 **00000300
* **00000400
* ANALISTA : CARDEAL **00000600
* ESCRITO EM : 99/99/9999 **00000700
* **00000800
* OBJETIVO : SELECIONA CLIENTES POR PARA EMISSAO RELATORIO **00000900
* **00001000
*---------------------------------------------------------------------**00001100
* **00001200
* MANUTENCOES **00001300
* **00001400
* SEQ MATRIC. NOME DATA DESCRICAO **00001500
* **00001600
*---------------------------------------------------------------------**00001700
*00001800
* 00001900
FILE TSTD001E 00002000
001E-NIP 001 005 P 00002100
* 00002200
FILE TSTD002E 00002300
002E-NIP 010 005 P 00002400
* 00002500
FILE TSTD001S FB (250 0) 00002600
* 00002700
JOB INPUT (TSTD001E KEY (001E-NIP) + 00002800
TSTD002E KEY (002E-NIP)) 00002900
* 00003000
* 00003100
IF MATCHED 00003200
PUT TSTD001S FROM TSTD002E 00003300
END-IF 00003400
END 00003500
* 00003600
Nenhum comentário:
Postar um comentário