1.3. Exemplos

Programa

>---------------------------------------------------------
identification division.
>---------------------------------------------------------
program-id. scp0802.
author. paulo andre dias.
installation. Empresa XXX.
date-written. 13/01/93.
*>--------------------------------------------------------
*> 
*> REFERENCIAS : SISTEMA : S - SEGURIDADE *
*> SUBSISTEMA : SC - CONTRIBUICAO *
*> MODULO : 08 - PAGAMENTO DE RESERVA *
*> 
*> NOME : GERA ORDEM DE PAGAMENTO *
*> 
*> OBJETIVO : ATUALIZAR BASE DE DADOS A PARTIR DA INTERFACE DE ORDEM DE PAGAMENTOS
*> 
*> ARQUIVOS : 
*> 
*> NOME E/S DESCRICAO 
*> ------- --- --------------------------------------- 
*> SC05V S RESERVA LIBERADAS 
*> SX06V I/O CADASTRO DE PROCESSOS 
*> SX07V E ANDAMENTOS 
*> SH01V E CADASTRO DE PARTICIPANTES 
*> SCA0801 E MOVIMENTO DE LIBERACAO DE RESERVA 
*> 
*> ALTERACOES : 
*> 
*> AUTOR DATA COMENTARIOS 
*> ----- --/--/-- --------------------------------------- 
*> 
>--------------------------------------------------------

Subprograma

>=============================================================================
identification division.
>-----------------------------------------------------------------------------
program-id. ua10a is initial.
installation. Empresa XXX.
date-written. 15/12/94.
remarks.
>-----------------------------------------------------------------------------
*> SISTEMA : 04 - SUPORTE TECNICO
*> SUBSISTEMA : 01 - CONTROLE DE ACESSO
*> MODULO : 01 - MANUTENCAO
*>
*> CODIFICACAO : 10 SET 92
*>
*> ANALISE : PAULO ANDRE DIAS
*> PROGRAMACAO : PAULO ANDRE DIAS
*>
*> OBJETIVO : PERMITIR AO USUARIO INCLUIR, ALTERAR OU EX-
*> CLUIR REGISTROS NO CADASTRO DE USUARIOS UTI-
*> LIZADO PELO MODULO DE CONTROLE DE ACESSO
*> (MENU DE USUARIOS FINAIS)
>-----------------------------------------------------------------------------

Função

identification division.
function-id. FATORIAL.

Anterior

Conteúdo

Próximo