PRESENTACION DE PROYECTO TERMINAL I1


Save this PDF as:
 WORD  PNG  TXT  JPG

Tamaño: px
Comenzar la demostración a partir de la página:

Download "PRESENTACION DE PROYECTO TERMINAL I1"

Transcripción

1 PRESENTACON DE PROYECTO TERMNAL 1 L i m a de Creditos Comerciales y Cobranzas / Modulo Cobranzas Enviadas ) Realizado por : ba Graciela í Ó p ~ - 1

2 CONTEN DO,- 11,- 111,- U,- u,- NTRODUCC ON MODULOS DE LC NFRAESTRUCTURA DESARROLLO DE LAS APLCASONES PROGRCMC S TABLAS

3 WA DEL MANUAL : El primer punto que es la introduccion explica cuales son los pasos a seguir para la eiaboracion de programas de aplicaciones asi como la estructura de estos. Los Modulos de la infraestructura nos muestran como estan disenados cada uno de los programas asi como las tablas que son accesadas por estos ya sea de entrada y/o salida. El punto 111 nos describe todas las caracteristicas tecnicas del programa. Servers. En el cuarto punto se encuentran los Requesters y por los Servers. En punto V se encuntran las tablas que son accesadas

4 NGENERfi DE SSTEMhS PfiRh EMPRESClS Y RED NTERNhCONfiL.R,,N ES EL AREA ENCARGADA DE DESARROLLAR LOS SSTEMAS DE COiiPUO REQUERDOS PARA LAS NEGOCAClONES DE DATOS QUE TENEN QUE UER CON BANAHEX Y EL EXTRANJERO. COW#4S WWS Y ECBMS: CON EL FN DE AUOiiATZAR LOS SERUCOS QUE OFRECE BANBMEX EN EL AREA NERNACONAL FUE DSENADO EL iiodulo S233 COEMMLS; EL CUAL CONSlSE EN UARlOS HODULOS QUE PUEDEN SER DFERENCADOS POR SUS PRliiERAS LETRAS 1) COWD : EL CUAL SE REFERE A COBRANZAS ENUADBS 2) COBRR : SE REFERE A COBRANZAS RECBDAS 3) COlR : QUE HACE NTERFSCE CON LAS DOS ANERORES CADA UNO DE ESTOS SUBHODULOS ESTA DESARROLLADO EN UN EQUPO 1tüiüa Y LENGUBJES DE PROGRAMACON : COWUS 11.- S m COWL PARA REQUESTER' 111,- LL (TANDEH APLCAOH LANGUAGE)' lrequister - ES DONL Si XEALA EL DSENO Di LAS?ANTALLASY S DLClR QUE Ti?O Di CAH?OS> UCASON DE LAS?ANTALLAS# COHUNCASONCON LAS OTRAS?ANTALLAS Y LA No#HACON CONTNDA in ESTA. UNA VEZ lealzado TODO EL?ROCESO> SN ERRORESi?ASA TODOS LOS CAH?OS VALDOS AL SRVER. ZTAL - LEN6UAJE UATlVO DE TAUDEU.

5 NFRflESTRUCTURA DE DESARROLLO PARC APL C AC ONES PATHUAY

6 NFRllESTRUCTURll Son una serie de prograilas (software) que facilitan el dessarrollo de aplicasiones en linea ThNDEM (PhTHUAY 1 Pemite trabajar en foma standar interuiniendo solo en aquellos puntos donde se necite desarrollar operaciones propias del negocio, haciendo que el efuerzo sea MiniMo y el trabajo Mas productiuo,

7 NFRflESTRUCTURA DE DESARROLLO PBRB APLCBCONES PBTHUY Control ador de la SESON SEGURDAD de acceso. HENUS por NAUEGACON NTER. de puesto pon tal 1 as COHNMDOS APLCASONES.l a en linea. J c.

8 CONTROLADOR DE LA SESON Este Modulo controal los MoviMientos dentro del ambiente PCTHWAY, es decir, es el que coordina el funcionamiento de cada uno de los requester que confoman la aplicacion, a traves de un registro llamado Bica, Caracter isticas : - Manda a e ecutar la peticion siguiente, provenien i e del server y/o requester ejecutado, Despliege de Menu Despliege de pantalla de infomacion CoMunicacion con server de apl icsaion - Pemite la propa acion de los datos propios de la sesion des i e una pantalla de servicio general o de aplicacion a otra, - Pemite el diseno de transacciones de Mas de una pantalla, ELEMENTOS - RCONTROL - SSCTY

9 SEGURDCD DE CCCESO Este programa (requester) verifica la identifiacceso de los usuarios, a los diferentes Menus i e la aplicasion, C ARCCTER ST C A S - Solicita (SSCTY la identificasion y el acceso de cada usuario, - Solicita infomacion del sitena, pantalla inicial fecha contable ELEMENTOS - RCONTROL - SSCTY - RLOGON

10 MENUS DE FUNCONAMENTO POR PUESTO Este Modulo diri e al usuario en su labor cotidiana por ~e! io de la nauegacion por el arbol de Menus asignados a cada puesto, CARACTERSTCAS: - Detemina los Menus a los cuales tiene acceso el usuario, - Genera el Menu correspondiente a la peticion hecha, - Verifica las funciones validas para cada Menu ELEMENTOS - RCONTROL - ñmenu - SMENU = SPClRSER

11 NCUEGCCON ENTRE PCNTALLCS Caracteris t icas Facilita la nave acion entre antallas SCLUCNDO EL CONTEXTO DE LA PNLLA NEROR, para poder regresar con todos los datos teclados intactos, Cuenta con funciones de uso comun asignadas a teclas de funcion; admas de dar la facilidad de integrar nuevas funciones de uso especifico,

12 NTERPRETE DE COMANDOS Caracteri st icas, -Pemite el USO DE LNEA DE COMANDOS, a fin de implementar accesos directos a una pantalla sin navegar por el arbol de Menus, con la opcion de paso de parawtros en el conando,

13 APLCMONES EN LNEA, Caracteris t icas, =Se disenan usando un ESQUELETO DE APLCACON EN LNEB, el cual considera de los demas Modulos y ademas tiene actualwente interconstruidas funciones de servicio general tales COMO: a) hprecion de pantallas, b) Redespliegue de pantallas para los casos de perdida de potencia, 8 c) LlaMadas al interprete de coiiandos, d) LiaMades al Modulo de seguridad de acceso e) Salidas al Menu principal, f) Salidas a la pantalla inicial de acceso, g) Estandares de presentacion de pantallas (titu- los, hora, fecha, etc, 1 =El programa interviene en puntos especif icos del esqueleto, codificando solo las funciones propias del negocio (altas, bajas, cmbios o consultas),

14 NAUEGACON EN UNA SESON DE TRCBAJO r 1) nicio de Sesion Y llanado al RLOGON 2) -Despliega LOGON -acepta identificasion de usuario -Valida acceso -Obtiene nombre de pantalla inicial e infornacion adicional.

15 PflSOS A SEGUR 1,- Creacion de la pantalla 2,- nclusion y adecuasion en el requester 3,- CoMpilacion del requester 4,- fldecuasion del Server 5,- CoMpilacion del Server 6,- ncluir la pantalla en el archivo de Screens 7,- ncluir la pantalla en el archivo de Menus 8,- Dar de alta un usuario 9,- Dar de alta el server, archivos y teminales (si se requiere) en los archivos correspondientes para el ambiente Pathway le,- Prueba

16 COMPLACON SCREEN COBOL COBOLX /N archivo fuente/ libreria objeta; SYMBOLS; NOLST

17 COMPLACON COBOL 85 COBOL85 /N archivo fuente/ archivo objeto; SYMBOLS NSPECT; SAUEABEND; NOLMAP; NOLST

18 -.-,-*- FUNCONES Fl ENTEWADD F2 DELETE F3 UPDATE F4 CONSULTASPLAY F5 NEXT RECORD F6 F7 F8 F9 NEXT PAGE Roll Down FlB First Page Roll Up Fll CURSOR RGHT Fl2 CURSOR DOWN F13 HELP-FELD LEUEL F14 PRNT SCREEN Fl5 RECOVER SCREEN F16 RESET SCREEN SFl SF2 SF3 SF4 SF5 SF6 SF7 SF8 SF9 PREUOS PAGE SFlB LAST PAGE SFll CURSOR LEFT SF12 CURSOR UP SF13 HELP-SCREEN LEUEL SF14 EXT TO LOGON SCREEN SFl5 EXT TO MAN MENU SF16 EXT TO PREVOUS SCREEN

19 'ETVOS DEL SSTEMA CONTAR CON UN MEDO AUTOMATZADO PARA EL MANEJO DE LAS OPERACONES DE COBRANZAS RECBDAS. i

20 XRPCON GENERAL DEL SSTEMA :CRPCON (PROCESO ON LNE) 1 FUNCONES DEL SSTEMA SE PUEDEN DVDR EN ONCE. LPERTURA Y ENTRADAS RECBDAS LESTON. JQUDACON,PERTURAS Y ENTRADAS ENVADAS ieston. JQUDACON NFRAESTRUCTURA GENERAL.DMNTRACON,UXLAR CONTABLE iontrol DE CAMBOS 'ROGRAMAS PRUEBAS.

21 B A S E D E D A T O S < > COBB045 < > COBRBOOS < > COBRB

22 ... CRPCON GRAL DEL SSTEMA JPCON (PROCESO BATCH) Se genera un reporte que puede ser desde una carta hasta varios procesos de contabilidad.

23 OBRSOOl OBRS029 OBRS O 1 O OBRS020 OBRS014 OBRS O 1 O OBS053 OBESO70 OBESO71 OBESO73 OBS003 OBRSlOO OBS013 SSO25-3RS059 OBS065 OBS032 OBS030 OBRS 10 1 COBRS O 27 COBRS O 17 COBRSO19 COBRS 05 O COBRSOO2 COBRSO21 COBRS O 15 COBRSO 11 COBRS023 COBRSO16 COBRS O 37 COBS055 COBRS038 COBRSO6 3 COBRS O 2 8 COBRS018 COBRSO24 COBRS039 COBRS O 6 2 COBES08 2 COBES08 4 COBES 08 6 COBES 07 2 COBES07 4 COBES09 O COBS004 COBS008 COBS O 5 6 COBS O 4 3 COBS066 COBESO9 O COBES O9 4 COBES142 COBS O 07 COBS O O9 COBRSO69 COBRSO4 4 COBS O 67 COBS 05 2 COBS054 COBRSO6O COBRSO64 COBRSO51 COBS033 COBS O 3 4 COBS070 COBS035 COBS036 COBS049 COBS068 $ R E C E 1 V E V B A S E D E D A T O S

24 ucepto TPO DE PEROCDAD EQUPO LENGUAJE S.PROGRAMA1 PROCESO 2BES082 L D T C )BESO84... L D T C-85 >BESO86 L D T C-85 = Aplicacion el = Diaria = Tandem -85 = Cobol 85 Linea

25 ETVO: CONTAR CON UNA AGENDA A TRAVES DE LA CUAL EL SSTEMA NDCA CUAL ES..EL TRABAJO PENDENTE DE CADA UNO DE LOS ANALSTAS.

26 ... ULO DAGRAMA: NOMBRE DEL PROCESO: PROGRAMA QUE EJECUTA:.ENV.POR CED.NA.1 COBES084 S233CQOB.COBES084 GRAMA: 233DATA. ( 2OCENV (<-> 233DATA. ( 34RESA (<-> V VDEO JETVO : CONTAR CON UNA MEDO A TRAVES DEL CUAL CONTROL DE OPERACONES MONTOREE LOS DFERENTES DOCUMENTOS ENVADOS POR EL CEDENTE.

27 233DATA. ( m9obanco (<-- 233DATA. ( 92PLAZA (<-- 233DATA. ( 93MON (<-- 233DATA. ( 97CTESV (<-- BJETVO : CONTAR CON UN MEDO A TRAVES DEL CUAL, COBRANZAS SE CHEQUE LA AUTORZACON DEL CEDENTE PARA LBERAR UNA SOLCTUD DE LBERACON.

28 i233data. ( 32OCENV (<-> i233data. ( J29EPEND (<-> i233data. ( 133AUTN (<-> ;233DATA.( )gobanco (< COBES i233data. ( V 91PAS (--> VDEO DATA. ( i93mon (--> 233DATA. ( 495CLTE (--> DATA.(,34RESA (--> ETVO: CONTAR CON UN MEDO A TRAVES DEL CUAL, COBRANZAS PUEDA ENVAR UNA RESPUESTA AL BANCO CORRESPONSAL.

29 DATA. ( 97CTES (--> DATA. ( 03CMET (--> DATA. ( 29EPEND (<-> DATA. (.RESA (<-- _ DATA.( 38DEVL (< DATA. ( OCENV (--> COBES DATA. ( V 34BCOPL (--> VDEO !33DATA. ( BOBANCO (< !33DATA. ( MON (<-> !33DATA.( SCLTE (-->

30 ETVO : CONTAR CON UN MEDO A TRAVES DEL CUAL, CONTROL DE OPERACONES LE NDQUE P COBRANZAS QUE RECBO UNA COBRANZA DEWELTA.

31 233DATA. ( ZOCENV (--> BCO. ( 94BCPL (--> BCO. ( 40CPBC (--> VDEO *-VO : CONTAR CON UN MEDO DE CONTROL DE TODOS LOS PAGOS REALZADOS POR EL BANCO CEDDO.

32 V VDEO ETVO: PODER REGSTRAR LA COMPRA DE DVSAS EN EL SSTEMA 233.

33 QCRPCON DE ARCHVO

34 L X nograma C O B E S O 8 2 C O B E S O 8 4 C O B E S O 8 6 C O B E S O 9 O C O B E S ~ C O B S O 7 O

35 A-50-8 Zabla de sal nombre de i'a tabla BOiCMET iaformacion que contiene: comentarios relativos a la cobranza.?fijo para referencia cruzadas - C -,Am BO1 NUM-MF, BO3-FEC-COMENT, BOL-CVE-FUNC B03NUM-COMENT Bol-NUM-MF PC 9(9). BO3 FEC COMENT PC 9(6). B03HRACOMENT PC 9(4). BO2 WE-FUNC PC 9(2). BOiNUM-COMENT PC 9(2). B03-TXT-COMENT PC X(65).

36 tabla de sql nombre tabla B04TAB '*Qformacion que contiene: DESCRPCON Y ACCESO A TABLAS DEL SSTEMA.,refijo para referencia cruzadas - D - LLAVE BO4-CVE-TABLA B04-CVE-TABLA B04-CVE-BAJA B04-DES-TABLA PC X(08). PC X(O1). PC X(65).

37 L L tabla de sql nombre tabla B34RESA 'nformacion me contiene: RESUMEN DE OPERACONES PENDENTES POR ANALSTA +refijo para-referencia cruzadas - Y - LLAVE BO1-CVE-USUARO BO1-CVE-USUARO PC X(08). B34-CNT-CARGA-TRAB PC 9(04). B34-CNT-LBERA PC 9(03). B34-CNT-TELEF PC 9(03). B34-CNT-ACUSE-RECB PC 9(03). B34-CNT-DEVL PC 9103). B34-CNT-NF-RECB PC 9103). B34-CNT-AUT-DEVL PC 9103). B34-CNT-NF-CORRESP PC 9103). B34-CNT-SOL-NF-CORRESP PC 9103). B34-CNT-AUT-ENT-LBRE PC 9103). B3 4 -CNT-2DO-CORREO PC 9103). B34-CNT-PAGO-COMS-BElMX PC 9103). B34-CNT-PAGO-COMS-BNX-CORR PC 9(03)* B34-CNT-PAGO-LETRA-AVAL PC 9(03). B34-CNT-PAGO-SERV-DHL PC 9103).

38 tabla de s 1 nombre tabya B29EZ 'END informacion que con ~ tiene: TRABAJO PENDENTE DE COBRANZA ENVADA. -irefho para refere_ncia cruzadas - G JLAVE BO1 - WE - USUARO, BO7 - CVE - TRAB - PEND, Bol-NUM-REF 1 B20 CVE USUARO PC X(08). 2 B29-CVeTRAB PEND PC 9 (03). CVE DE TRABAJO PENDENTE 1 i'captura N 2 "NSTR.CDTE instrucciones al cedente capturadas en la liqeraciqn 3 "instr.bc0. nstrucciones al corresp. capturadas en la liberacion Trabajo pendiente del analista durante gestion 4 LBERACON" Liberacfon 5 ANALSA NF" Se analiqa el informe, se decide si es interno o se debe enviar al cedente. 6 ) PAG. COM. CO1l Solicitud de pago de comis f oqes al correspoqsal 7 rrtelf.devl.ll Telefoneqa,al cedente, solicitando su autorizacion gara solicitar al corresponsal la devolucion de Cobzas 8 "TELF.AVALARt1 elefonema al cedente de la letra avalada 9 #TELF. ACEPTA" Telefoqema al cedente, ace tacion de cobraqza. 10 lltelef.anal1n Se envia un telefonema der Q vado del analisis de informe 11 "TLF.ENT.LB" Telefonema al cedente solicitando entrega libre de 12 'TLF 2 CORRE" g%onema,pqra Solicitar uq 2do correo 13 "LB.SOL.DEV" Libera solicitud,de devolucion al corresponsal 14 ) NS.CORR.BM" nstrucciones o informacion al corresponsal roporcionados por BANAMEX. 15 "LB.SOL.NF &bera solicitud de informacion al cedente Nal 16 "LB.ENT.LB" Libera mensale de entrega libre de pago al Bco'Corresp. 17 "LB.2.CORRE11 Libera mensaje de 200 correo PAW AVALAR" Verificar el pago,de cobrqnza con letra avalada 20 "SOL NF COB" BANAMEX solicita informacion. 1 "ACPT ACUSE Se acepta acuse de recibo Documentos enviados del Cedente a BANAUEX durante Gestion 26- Autordzacfon de dgvolucion r parte del Cedente. 27- Solicita informacion el ce P ente 28- Respuesta,del cedente una solicitud del banco corresp. 29- Autorizacion de entre a de documentos libres de pago 30- Recepcqon de un sewn 3 o correo 31- Recepcion de una quia de dhl 32 Documentos enviados de BANAMEX al Cedente durante gestion. 38 "NF. AVALAR" nforme al cedente de letra avalada 39 "NF. ACEPTA" nforme al cedente de ace tacion 40 tlnfor.anal1t Se envsa mensa e al ceden!e,derivado de un informe 41 1NF.ENT.LBV1 nforme al ce d ente de solicitud de entrega de documentos libres (3e pago 42 "MSG.DEVOL. Mensaje de devo'ucion a los 30/40 dias por falta de acqse de recibo MSG.DVL.9011 MensaJe de,devolucion a los 90/100 dias por falta de aceptacion/ a o de Ja cobranza 44 "NF 2 CORRE11 nforme al cednfe solicitud 2do correo 45 tlnf.sol.dev1l nforme,al cedente solicitud de devolucion 46 "DEVOLUCON Devolucion de cobranza

39 47 ACUSE RECB" Acuse de recibo 48 llnform.cdtegl Se informa al cedente que se esta solicitando infomacion al corresponsal. 49 "ACUSE 200 ) Acuse de recibo, por 2do correo Jcumentos enviados del Banco Corresponsal a BANAMEX durante Gestion ACUSE RECBO " RCB ACEPTA" ) RCB. AVALAR" NFORME "SOL. ENT. LB" "SOL 2 CORRE" DEVOL COBZA" t SOL. NSTRUC" ) SOL. PAG. COM" Acuse de recibo Recibo,de ace tacion Rece cion de 4 etra avalada nfohe recibido, del corresp. Soijcjtud de ent ega de documentos libres de pago Solicitud de env!i o de 2do correo Devolucion de cobranqa, r el banco corresponsal Solicitud de nuevas inst ie cciones Solicitud de pago de comisiones Mensajes y documentos enviados de BANAMEX al Banco Corresponsal en Gestion Acus :es de recibos de dhi, VAROS 83 Q4 "CARTA REME" "ER ACUSE U 112W ACUSE ler NFORM" 1t2D0 NFORM" "DEVL COBZA" "ENV.ENT.LBr "ENV 2 CORRE" "SOL NFORME" "RESP. NSTRU" "ACUSE DHL "DEPTO AVALA Carta,remesa al Banco Corres Mensale al Banco Corres gonsarn?e: aviso, solicitud acuse de recibo de co ranza. - a lqs 10 di s, Mensaje al Banco Corres 2do aviso - solicitud acuse de recibo de co gonsa1 raqza. a los 30 dias - Solicitud,de informe, 30 dias despues de,fecha acuse recqbo sin recibir informe en esos 30 dias Solicitud de informe,, 60 dias des ues de fecha acuse recjbo sin recibir Anforme en ui e imos 30 dias Sol'cihd de devolucion cobza al banco corrrespnsal Envio de mensaye al banco corresponsal para en rega de documentos libres de pago. Envfo.de un segundo correo Solicitud de inforqe,a peticion del #Cedente Respuesta a un peticion de instrucciones Acuse de recibo pqoporcionado por DHL, entrega Cobza nforme de recepcion de letra avalada a depto BANAMEX ragos efectuados por el cedente nacional Cargo Cargo Cargo Cargo Cargo Cargo Cargo Cargo por servicio DHL en por servicio de DHL comisiones BANAMEX, comfsqones CEDDO comisiones BANME&, comisiones CEDlW, por otros conce tos de comisiones B Jlrr AM Pagos efectuados por el CEDDO 104 Pago de mensa es 105 ) Pago de la co 2 ranza Zompra / venta de divisa a CE.CA. Liquidadon de la cobranza al CEDENTE apertura en un segundo cor^ -eo por entrega 14bre por entrega,libre por devoluc'on de por devolucion de al cedido EX y del CEDDO de pago de cobpdza cobranza 1 B20 MUM REF! B2 9-FECTRAB PEND B29-HRA-TRAB-PEND FECFN TRAB PC 9(09) PC 9(06). PC 9(04) PC 9(06).

40 7 829 HRA FN TRAB 3 B2 9-CVE-USuARO TRAB PC 9(04). PC X(08). DEVOL. t 92 "SO.COMPRA." 9 3 COMPRA. D N. 94 "PAW CDTE ' 95 "COMS BNMX ' 96 "COMS CORRE" Solicita liquidacion,pc?r devolucion de cobranza Solicita coq qa de divisa Compra de d' f: 'sa ComDra de divisa Ce-Zente paga comisiones BANAMEX Cedente paga comisiones BANAMEX y del corresponsal

41 tabla de s 1 nombre de?a tabla B4OCPBC inforqacion referente,a COMSONES PAGADAS POR BANCO CEDDO prefi o ara referencia cniaadas - - E20 - NUM - REF, FEC - PAW, HRA - PAW DATOS DE APERTURA 2 B20 NUM REF? O 2 i CONCLACON 2 - GRO 3 - CONVENO B40 NUM DN PAW B4O-FE-ALOR PAGO B4O-cVeAGENCTA B40-NOcBCO - - PAW LE PC 9(9). PC 9 (6). PC 9(4). PC 9(6 PC 9(i 5 jv99. PC 9(15)V99. PC 9 (15)V99. PC 9 (15)V99. PC 9(15)V99. PC 9(15)V99. PC 9(11)V(6). PC X(15). PC 9(01). PC 9(08) PC 9(08) PC X(O1). PC X(65).

42 tabla de s 1 nombre t&fa B29EPEND infoqmacion que contiene: TRABAJO PENDENTE DE COBRANZA ENVADA..*ref1 o para referencia cruzadas - G - LAV? BO1 - CVE - USUARO, BO7 - CVE - TRAB - PEND, BO1 - NUM - REF! B20 CVE USUARO? 82 9rCVcTRAB-PEND CVE DE TRABAJO PENDENTE PC X(08) PC g(o.3) 1 "CAPTURA 2 "NSTR.CDTE" instruccjones al cedente capturadas en la 1iQeracion 3 "NSTR. BCO. nstrucciones al corresp. capturadas en la liberation Trabajo pendiente del analista durante gestion ) LBERACON" #'ANAL SA NF PAG. COM. CO" "TELF. DEVL. ' "TLF 2 CORRE" LB. SOL. DEV" NS. CORR.BU" LB. SOL. NF" LB. ENT. LB" ) LB. 2. CORRE" Liberacjon Se analisa el informe, se decide si es interno o 1 se debe enviar al cedente. Solicitud de pago de comisjoqes al correspoqsal Telefonema,al cedente, solicitando su autorizaci solicitar al corresponsal la devolucion de Cobzas elefonema al cedente de la letra avalada Telefoqema al cedente, acegtacion de cobqaqza. Se envia un telefonema derivado del analisis de Telefonema al cedente solicitando entrega libre a o.!e!efonema,para Solicitar uq 2do correo Libera solicitud,de devolucion al correspon nstrucciones o informacion al corresponsal roporcionados por BANAMEX. fjbera solicjtud de informacion al cedente Libera mensaje de entrega libre de pago al Libera mensaje de 200 correo "PAW AVALAR" Verificar e4 gago,de cobranza con letra avalada?o "SOL NF COB BANAMEX solicita informacion.? "ACPT ACUSE ( Se acepta acuse de recibo :sal informe de Nal. Bco Corresp. Documentos enviados del Cedente a BANAMEX durante Gestion 26- "AUT. DEVL. C" Autorfzacjon de devolucion r parte del Cedente. 27- "SOL NF CDT" Solicita informacion el ce %o ente 28- "NF.CORRES" Respuqsta,del cedente a una solicitud dgl banco corresp. 29- llaut.ent.lb1l 30- "200 CORREO Autorizacion RecepcAon de de un entre sewn 3 a o de correo documentos libres de pago ) GUA DHL Recepcion de una quia de dhl 32 Documentos enviados de BANAMEX al Cedente durante gestion "NF. AVALAR## nforme al cedente de letra ayalada "NF. ACEP!i'A" nforme al cedente de ace tacioq llnfor.anal1l Se envia mensa e al cedenfe derivado de un informe "NF.ENT.LB1' nforme al ce d ente de solicitud de entrega de documentos libres de pago "MSG. DEVOL. Mensale de devolucion a los 30/40 dias por falta de acqse de recibo. "MSG. DVL.90" Mensale de,devolucion a los 90/100 dias por falta de aceptacion/ o de Ja,cobranza "NF 2 CORRE" en e solicitud 2do correo nforme al ce djae 45 llnf.sol.dev1l nforme,al cedente solicitud de devolucion 46 "DEVOLUCON ( Devolucion de cobranza

43 47 "ACUSE RECB" Acuse de recibo 48 "NF0RM.CDTEf Se informa al cedente que se esta solicitando informacion al corresponsal. 49 ttacuse 200 Acuse de recibo, por 280 correo cumentos enviados del Banco Corresponsal a BANAMEX durante Gestion Acuse de recibo Recibo,de ace tacion Recepcion dg fietra avalada nforme recibido, del corresp. Solfc4tud de entqega de documentos 11 bres de pago Solicitud de envio de 2do correo Devqlycion de cobranqa, por el banco corresponsal Sol'citud de nuevas instqcciones Solicitud de pago de comisiones Mensajes y documentos enviados de BANAMEX al Banco Corresponsal en Gestion 69 "CARTA REME" Carta,remesa al Banco Corres 70 "ER ACUSE ) Mensale al Banca Corresgonsarn?g: aviso, solicitud acuse de recibo de co ranza. a lgs 10 digs - 71 "200 ACUSE n Mensaje al Banco Corres, 2do aviso, solicitud acuse de recibo de co gonsa1 raqza. - a los 20 dias - 72 "ER NFORM" Solicitud de informe, 30 dias despues de,fecha acuse recqbo sin recibir informe en esos 30 dias 73 "200 NFORM Solqci ud,de informe, 60 dias des ues de fecha acuse rec?bo sin recibir jnforme en u1 e imos 30 dias 74 "DEVL COBZAtl Sol'citud de devolucion cobza al banco corrres 75 "ENV.ENT.LB" Envio de menqaje al banco corresponsal para en eonsa1 rega de documentos libres de pago. 76 "ENV 2 CORREn1 Enqo de un segundo correo 77 SOL NFORMEtt Solicitud de informe,a peticion del,cedente 78 "RESP. NSTRU" Respuesta a un peticion de instrucciones Acuses de recibos de dhl, VAROS 83 ACUSE DHL Acuse de recibo pqoporcionado por DHL, entrega Cobza Q4 tldepto AVALA" nforme de recepcion de letra avalada a depto BANAMEX,agos efectuados por el cedente nacional Pagos efectuados por el CEDDO :O4 ' 105 :ompra / venta de divisa Cargo por servgcgo DHL en apertura Cargo por servicio de DHL en un segundo,correo Cargo comisiones BANAUEX, por entrega Qbre de pago Cargo comfsiones CEDDO por entrega libre de pago Cargo comás'ones BANAMEk, por devolucion de cobranza Cargo comisiones CEDDO, por devolucion de cobranza Cargo por otros conce tos al cedido Cargo de comisiones BGAMEX y del CEDDO Pago de mensa es Pago de la co b ranza a CE.CA. ;iquidacion de la cobranza al CEDENTE ' 820 NUM REF! 829-FEffRAB PEND 829-HRATRAB-PEND ; B29-FEtFFN TRAB PC 9109). PC 9(06). PC 9(04). PC 9(06).

44 - - 7.B29 HRA FN TRAB j B2 9-CVeUSlRWO-TRAB PC 9(04). PC X(08). 91 Lf. Dh'V0L. Solicita liquidacion,mr devolucion de cobranza 92 (S0.COMPRA.) Solicita coq qa de divisa 93 llcoupra.dn.tt Compra de dq pv qsa 94 "PAW CDTE U Corn ra de divisa 95 "COMS BNMX 11 Cednte paga comisiones BANAMEX 96 "COMS CORRE' Cedente paga comisiones BANAMEX y del corresponsal

45 TABLA DE SQL NOMBRE DE LA TABLA B94BCOPL NFORMACON REFERENTE A BANCO POR PLAZA TEFJO PARA REFERENCA CRUZADAS - -,EFJO PARA REFERENCA CRUZADAS DE CARTAS Y SWFT -(- LLAVE B94-CVE-SWFT-BCOPL L B92-CVE-PLAZA 2 B9O-CVE-BCO 3 B94-DOM-BCOPL B94-DOM B9 4-CVE:PLAZA-CONCEN BCOPL-2 > c 3 B94-CVE-BANCO CONCEN 7 B94-CVE-TELEX- 3 B94-CVE-SWFT-BCOPL PC 9(06). PC 9(06). PC X(30). PC X(30). PC 9(06) PC 9(06). PC X(20). PC X(l1). c

46 TABLA SQL KPMBRE DE LA TABLA B92PLAZA FORMACON REFERENTE A PLAZAS EFJO PARA REFERENCA CRUZADAS - & - (REFJO PARA REFERENCA CRUZADAS DE CARTAS Y SWFT -[- LLAVE B9 2-CVE-PLAZA B92-CVE-PLAZA B92-NOM-PLAZA-1 B92 NOM-PLAZA-2 B9 11CVE-PAS PC 9(06) o PC X(30). PC X(30). PC 9(03).

47 ***** PASES ***** TABLA SQL NOMBRE DE LA TABLA B91PAS * NFORMACON REFERENTE A PASES PREFJO PARA REFERENCA = PREFJO PARA REFERENCA * LLAVE B91-CVE-PAS * #O1 B9 1-CVE-PAS ~9 ~ NOM~PAS B91 CVE SWFT PAS #o2 #O3 #O4 #O5 #O6 #O7 * * #OS * * #O9 * CRUZADAS - # - CRUZADAS DE CARTAS Y SWFT -}- PC 9(03). PC X(30). PC X(02). ~9 ~~NUM~DASFEC-VAL PC 9(02). B91-CVENORTE-AMERCA PC 9(01). B91 NUM HORA-LMTE PC 9(04). B~~~CVE~VA-CONVENO PC 9(01). 1 - CONVENO 2 - AGENCA DE NEW YORK B9 1-CVE-LENG - NGLES E - ESPAEOL B91-CVE-ZONA-COMUNCA PC X(O1). PC X(O1). 1 - A AMERCA (EXCEPTO GUATEMALA Y CANADA) $ DLS 2 - GUATEMALA, CANADA Y EUROPA $ DLS 3 - AFRCA, ASA Y OCEANA $ DLS

48 TABLA SQL NOMBRE DE LA TABLA B93MON JNFORMACON REFERENTE A DVSAS QEFJO PARA REFERENCA CRUZADAS - $ -, AVE B93-CVE-DVSA 1 B93 CVE-DVSA PC 9(3). 2 B9 3NOM-DVSA PC X(20). 3 B93-CVE-SWFT-DVSA PC X (3). 4 B93-CNT-FACTOR-BALANCE PC 9(6)V9(6) 5 B9 1-CVE-PAS PC 9(3). 6 B93-COD-CTVOS PC 9(1). O - NO TENE CENTAVOS 1 - MANEJA CENTAVOS

49 ** CLENTES ***** TABLA SQL NOMBRE DE LA TABLA B95CLTE fnfof MACON REFERENTE A GENERAL CLENTES tefjo PARA REFERENCA CRUZADAS - * - PREFJO PARA REFERENCA CRUZADAS DE CARTAS Y SWFT -;- LLAVE B95-CVE-CLTE-RFC B95-CVE CLTE-RFC B95-CVECLTE-RFC- GPO B95-NUM-BANAMEX B95-CVE-RNE B95NOM-CORTO B95NOM~COMPL 1 B9 5NOM-COMPL12 B95 NOM COMPL 3 B9 S~NOM-COMPL~4 B95-DOM-CALLE-NUM B95_DOM=COLONA B98-CVE-EDO B99-CVE-LOC B95-CVE-COD POST B9 5-CVE-SEC- B95-CVE-FSCA-MORAL PC X(18). PC X(18). PC 9(8). PC X(10). PC X(20). PC X(30). PC X(30). PC X(30). PC X(30). PC X(30). PC X(30). PC 9(2). PC 9(3). PC 9(5). PC 9(2). PC 9(1)

50 *** CLENTE-SERVCO ********** TABLA SQL NOMBRE DE LA TABLA B97CTESV TFORMACON REFERENTE A CLENTE-SERVCO AFJO PARA REFERENCA CRUZADAS PREFJO PARA REFERENCA CRUZADAS DE CARTAS Y SWFT -3- LLAVE B95_CVECLTERFC, B96-CVESERV B95-n ' E-CLTE RFC B96-m ' B97NO 1!!-CONTACTO B97NO 1!!-PUESTO B97-Nü!!TEL B97-Nü!!-Em-1 B97-m!!-EXT-2 B97-Nü %-LADA B97-Nü n B97CVE-TELEX B9 7-CVE1RESP B97-"M-TEL2 B97-NUM-TEL3 E-SERF PC X(18). PC X(6). PC X(30). PC X(20). PC 9(7). PC 9(4). PC 9(4). PC 9(5). PC 9(7). PC X(20). PC X(8). PC 9(7). ' PC 9(7).

51 tabla de sql nombre tabla B33AüTN informacion que contiene: RELACON DE BANCO QUE TENEN AUTENTCADOR prefijo para referencia cruzadas - X - LLAVE B94_CVF,-SWFT_BCOPL 1 B94-CVE-SWFT-BCOPL PC X(l1).

52 tabla de sql nombre de la tabla B38DEVL information referente a DOCUMENTOS DEWELTOS --refijo para referencia cruzadas - Z - AVE B2O-NUM-REF B20 NUM REF B2 ONUM-OLETR B20 NUM-CLETR B2 ONUM-OBL B2 O-NUM-CBL B20 NUM-OFAC B2 OZNUM-CFAC B2 O-NUM-OCO B20 NUM-CCO B2 O-NUM-OLE B2 O-NUM-CLE B2 ONUM-OCA B2 O-NUM-CCA B2O-NUM-OSEG B2 O-NUM-CSEG B20 NUM-OOTRO B2 ONUMCOTRO PC 9(9). PC 9(2). PC 9(2). PC 9(2). PC 9(2). PC 9(2). PC 9(2). PC 9(2). PC 9(2). PC 9(2). PC 9(2). PC 9(2). PC 9(2). PC 9(2). PC 9(2). PC 9(2). PC 9(2).

53 ** BANCO ***** TABLA SQL NOMBRE DE LA TABLA B90BANCO TNFORMACON REFERENTE A GENERAL BANCOS =FJO PARA REFERENCA CRUZADAS - PREFJO PARA REFERENCA CRUZADAS DE CARTAS Y SWFT -*- LLAVE B9 O-CVE-BCO B9O-CVE-BCO B90 CVE-SWFT BCO ~9 O~NOM-BCO-- B90-NOM-BCO-2 PC 9(06). PC X(04). PC X(30). PC X(30).

54 tabla de sql nombre de la tabla B2OCENV information referente a COBRANZA ENVADA Tefijo para referencia cruzadas - A - AVE B2O-NUM-REF DATOS DE APERTURA B2 O-NUM-REF PC NUMERO DE REFERENCA aa ad aaoaa O o $66aáaaaaaaáá O SdaaaaaBaBaaaaaaBBa $aaáaabbaaaaaaaáaaaabaa B2O-NUM SüREF B94 CVESWFT BCOPL B93CVEzDVSA B2O-MTO COBZA B95 CVECLTE-RFC B2ONOMzGDO B20 DOMGDO 1 B2 OZDOM-GDO-2 B20 DOM-GDO-3 B2 O-DO&-GDO-4 B2 ONUM~LAD~ BLO-NUM TELEF 1 B2O NUM-EXT 1- B2 O-NUM-EXT-2 B2ONUM-TEGF 2 B2 O-NUM-TELEF-3 B2 O-NUM-TELEFe B2 O-CVE-TELEX B2O-NOM-CONTACTO B2ONOM-PUESTO B2 O-FECTERM B2O-FEC-VENC B2O-FEC REMESA B20 FEC-CAPTURA B2 ONUM-OLETR B20 "M-CLETR B2 ONUM-OBL B2 O-NUM-CBL B2 O-NUM-OFAC B2 O-NUM-CFAC B2 O-NUM-OCO B2 O-NUM-CCO B2 O-NUM-OLE B2 O-NUM-CLE B2 0-"4-OCA B2 O-NUM-CCA B2O-NUM-OSEG B20 NUM-CSEG B2 OZNOM-OTRO B20 "4-OOTRO B2 ONUMCOTRO B2O-FEC-RECEP B20 FEC ULT NFORME B2 O-NUM-REFZCDTE - - PC PC PC PC PC PC PC PC PC PC PC PC PC PC PC PC PC 9(9) consecutivo cve de servicio identificador C.F.. X(16). X(l1). 9(3) 9 ( 15) V99. X(18). X(60). X(36). X(36). X(36). X(36). 9(05). 9(07). 9(05). 9(05). 9(07). 9(07). 9(07). PC X(l1). PC X(36). PC x(36j. PC 9(6). PC X(6). PC 9(6). PC 9(6). PC 9(2). PC 9(2). PC 9(21. PC ~(zj. PC 9(2). PC 9(2). PC q2j. PC 9(2). PC 9(2). PC 9(2). PC 9(2). PC 9(21. PC +j. PC 9(2). PC X(20). PC 9(2). PC 9(2). PC 9(6). PC 9(06). PC X(10)

55 A-504 B2O-CVE-USUARO B20-CVE-USUARO-NC ESTATUS DE LA OPERACON PC X(08) PC X(08) B20-CVE-STATUS PC 9(2). STATUS DE LA OPERACON - B2O-LA-CVE-STATUS - O - CAPTURADA 1 - LBERADA 2 - ACEPTADA 3 - VENCDA ACEFTACON 4 - VENCDA PAGO 5 - DEVUELTA 6 - PAGADA 9 - LQUDADA CONTROL DE RESPONSABLE DE LA COBRANZA B20 CVE STATUS CDTE B2 O-m-STATUS-GRDO B20-CVE-mF PA& BNX B20~CVE~SWh-3EE-BANCO BZONOM-AVALADO POR B2 O-FEC-ACEP-AV%AFt B2 O-FEC-EN"-LBRE-PAGO B20-FEC-2DO-CORREO B20FEC-ACUSE-REC B2O-FEC-ACPT B20 FEC DEVL B2 ONUM-REF-AVAL B2O-CVE-DHL-CDTE B20 NUM-DAS PLAZO B2 O~CVE~PLAZO B20 FEC REF PLAZO B2 OCVE-REEMB AGENCA 82 O-CVEREEMB'CONVENO 820 CVE-REEMB-CR CTA B2 O~CVE-REEMB~3E~-BCO B2O-NOM REEMB 3ER BCO B2 O DOM-REEMB-3ER-BCO B2 ONOMREEMB-ATN- B2 O-CVE-COMSZCARGO B2O-CVE-COMS-DEDUCE B20 CVE COMS CHQ B2 O-CVE-COMSEFECTVO B2 OCVEGUA B2O-CVE 2DO-CORREO-CDTE B20 CW-2DO-CORREO-BNMX B2 OzREeB-PAS-PLZA PC 9(02) PC 9(02) PC X(16). PC X(11). PC X(36). PC 9(06). PC 9(06). PC 9(06). PC 9(06) PC 9(06). PC 9(06). PC X(16). PC 9(09). PC 9(03).. PC X(02). PC 9 (06). PC X(O1) l. PC X(O1). PC X(O1). PC X(O1). PC X(65). PC X(36). PC X(36) 1. PC X(O1) PC X(O1) PC X(O1) PC X(O1) PC X(03) PC 9(09) PC 9(09) PC X(36).

56 ATE VEW $LOGS. S2 33 DATA. V94BCPL B9ONOM-BCO-1? B90NOM-BCO-2 92 NOM PLAZA 1 92NOMZPLAZA12 B91NOM-PAS B91-CVE-SWFT-PAS, B9 4,CVE-S W FT-BCOPL ) SELECT B90.B90NOM-BCO-l B90.B90 NOM BCO 2 B92. B92~NOM~PA~A-1 B NOM PLAZA-2 ~91. BSNOM~PAS B9l.B9l-CVF,-SWM-PAS, B94.B94_CVF,-SWM_BCOPL FROM =B94BCOPL B94, =B92PLAZA B92, =B91PAS B91, =B9OBANCO B90 WHERE B94.B92-CVE-PLAZA = 892.B92 CVE PLAZA AND B94.B90_CVE BCO = B90. BSO-CVE-EEO AND ~ 9. 2 B~~-CVEZPAS = BSLBS~~CW~PAS ALOG $LOGS.S233CATA ;

57 F4 - CONSULTA LBERACON TELEFONEMAS ACUSE DE RECBO COBRANZA DEWELTA NF. RECBDO CORRESP AUTORZA DEVOLUCON NFORMACON CORRESP SOL. NFORME CORRESP. AUT. ENTREGA LB. PAGO SEGUNDO CORREO

58 t - 3 c ' 6 7 o 9 O 1 Y02 Y03 Y04 Y05 Y06 Y07 Y08 - YO9 Y10 - Y L BERACON TELEFONEMAS ACUSE DE RECBO COBRANZA DEVUELTA NF. RECBDO CORRESP AUTORZA DEVOLUCON NFORMACON CORRESP SOL. NFORME CORRESP. AUT. ENTREGA LB. PAGO SEGUNDO CORREO ws12 WS13 WS14 WS15 WS16 WS17 WS18 ws19 ws20 ws21 ws22 TPO DE CAMPO 1 OBLGATORO OPCONAL,'-) DE SALDA OBJETVO : -_ CONTAR CON UNA AGENDA A TRAVES DE LA CUAL EL SSTEMA NDCA CUAL ES EL TRABAJO PENDENTE DE CADA UNO DE LOS ANALSTAS.

59 , SULTA: SE ACCESA TABLA B04TAB D USUARO === > DO1 --- > DO3 ACCESA TABLA B34RESA D USUARO ===> YO1 í SE SELECCONA -Y-- -Y02- -Y03- -Y04- -Y05- -Y06- -Y07- -Y08- -YO9- -Y10- -Y11- SE LGA CON PROCESO COBER07 1 COBER092 COBERO91 COBER094 COBER095 COBER08 6 COBER090 COBER089 COBER087 COBER088

60 - DHL -FE -ESTAFETA - COURER - OTROS P'7HA DE REVSON: 19 FEB, 92 WE SOLCTARON LOS SGUENTES CAMBOS: SE ELMNA LA OPCON DE DEVOLUCON AUTOMATCA A LOS 40 DAS SE GENERA UN TRABAJO PENDENTE A LOS 25 DAS CUANDO NO SE RECBA ANTES ACUSE DE RECBO EL CUAL CONSSTE EN: UN TELEFONEMA CON OPCON A NTRODUCR COMENTAROS Y OPCON PARA GENERAR MENSAJE AL CORRESPONSAL, EL CUAL SE LE CARGA DE NMEDATO AL CEDENTE EN SSTEMA Y SE COBRA HASTA LA LQUDACON. SE GENERA UN TRABAJO PENDENTE A LOS 45 DAS S NO RECBE ANTES EL ACUSE DE RECBO. DEM OPCON A LOS 50 DAS SN RECBR ACrJSE DE RECBO, TRABAJO PENDENTE TELEFONEMA PARA RED. A LOS 60 DAS SN RECBR ACUSE DE RECBO, TRABAJO PENDENTE TELEFONEMA AL CEDENTE. DEM OPCON A LOS 90 DAS A PARTR DE LA FECHA DE CAPTURA CUANDO ES A LA VSTA, O A LOS 90 DAS DESPUES DE LA FECHA DE ACEPTACON O VENCMENTO, SE GENERA UN TRABAJO PENDENTE, EL CUAL CONSSTE EN UN TELEFONEMA PARA SOLCTAR NSTRUCCONES AL CEDENTE PARA PROCEDER A LA DEVOWTCON.

61 7. 30 DAS DESPUES DE LA OPCON ANTERO SE EFECTUA DEVOLUCON AUTOMATCA, CON COBRO DE COMSONES. 8. SE ADCONARA UNA CLAUSULA ALUSVA AL PUNTO 7, EN LA CARTA ACUSE DE RECBO AL CEDENTE NACONAL.

62 AUTORZACON DEVOLUCON - NSTRUCONES O NFORMACON AL CORRESPONSAL 1 - SOLCTUD DE NFORMES - - AUTORZACON ENTREGA LBRE DE PAGO! - SEGUNDO CORREO 1 - GUA - DHL -FE -ESTAFETA - COURER - OTROS i >?

63 TPO DE CAMPO 1 OBLGATORO OPCONAL (-) DE SALDA OBJETVO : CONTAR CON UNA MEDO A TRAVES DEL CUAL CONTROL DE OPERACONES MONTOREE LOS DFERENTES DOCUMENTO6 ENVADOS POR EL CEDENTE.

64 ESPECFCACONES 3. SULTA : SE ARMA CURSOR PARA TABLA B29EPEND GO2 > 25 Y GO2 < 32 === > -G02- -A > -G03- S NO SE ENCUENTRA NNGUNO ENVAR MENSAJE NO EXSTE NFORMACON A CONSULTAR ' EN CASO CONTRARO, SE OBTENE -G02-, -G03-, -G04-, -G G > -ws1- -G > -ws2- S = 26 MOVER "X" A -WS3- S -G02- = 27 MOVER "X" A -WS4- S -G02- = 28 MOVER "X" A -WS5- S -G02- = 29 MOVER "X" A -WS6- S = 30 MOVER "X" A -WS7- S -G02- = 31 MOVER "X" A -WS8- CON -G03- SE ACCESA TABLA B20CENV, -A01- S -A79- = "DHL" MOVER l'x" A -WS9- S -A79- = "FE MOVER llx1l A -W10- S -A79- = "EST" MOVER 1X" A -W11- S -A79- = llcou" MOVER 'tx" A -W12- S -A79- = "OTR" MOVER "X" A -W13-

65 SGUENTE: -_ SS ARMA CURSOR PARA TABLA B29EPEND GO2 > 25 Y GO2 < 31 ==> -G02- -A > -G03- -G04- >= -G04- POR LOGCA SE ELMNA EL DE -G04- (PANTALLA) = -G04-, -G05- (PANTALLA) = -COS-, SE LEE EL SGUENTE S EN NO SE ENCUENTRA NNGUNO ENVAR MENSAJE ' NO EXSTE UN SGUENTE CASO CONTRARO -DEM CONSULTA- Y REGSTRO

66 ALTA: ES OBLGATORO DGTAR "*t EN UNO Y SOLO UNO DE -WS3- A -WS8- EXCEPTO -WS7- Y -WS8- EN CASO CONTRARO ENVAR MENSAJE SOLO ES VALDA DGTAR UNA OPCON" CUANDO SE DGTA -WS8- ES OBLGATORO DGTAR UNO Y SOLO UNO DE -WS9- A -W13- EN CASO CONTRARO ENVAR MENSAE DATE ==> TME ==> WS1 WS2 SE ACCESA TABLA B2OCENV -A01 PANTALLA- = -A01- SE OBTENE -A54- ES OBLGATORO DGTAR UN MEDO" CON -A54- SE ACCESA TABLA B34RESA, -YO1-

67 SUMA 1 A -Y07- ACTUALZA TABLA B34RESA GRABA LNEA EN TABLA B29EPEND CON: D USUARO ===> -Gol-, -G > -G02- -A > DATE ---> -G04-, -G06- TME ---> -G05-, GRABA LNEA EN TABLA B29EPEND CON: -A > -Gol > A > -G03- DATE ---> TME --- > -G05- CEROS === > -G06-, -G07- ESPACOS ===> -G08- FN-S SUMA 1 A -Y08- ACTUALZA TABLA B34RESA GRABA LNEA EN TABLA B29EPEND CON: D USUARO ===> -Gol-, -G > -G02- -A > -G03- DATE ---> -G04-, -G06- TME --- > -G05-, GRABA LNEA EN TABLA B29EPEND CON: -A > -Gol > -G02- -A > DATE --- > -G04- TME ---> -G05- CEROS === > -G06-, -G07- ESPACOS => -G08- FN-S

68 SUMA 1 A -Y08- ACTUALZA TABLA B34RESA GRABA LNEA EN TABLA B29EPEND CON: D USUARO ===> -Gol-, -G > -G02- -A01- > DATE ---> -6040, -G06- TME ---> -G05-, GRABA LNEA EN TABLA B29EPEND CON: -A > -Gol > -G02- -A > -GO30 DATE ---> TME ---> -G05- CEROS ===> -G06-, -G07- ESPACOS === > -G08- FN-S SUMA 1 A -Y10- ACTUALZA TABLA B34RESA GRABA LNEA EN TABLA B29EPEND CON: D USUARO ===> -Gol-, > -G02- -A > -G03- DATE ---> -G04-, -G06- TME ---> -G05-, -G07- GRABA LNEA EN TABLA B29EPEND CON: -A > -Gol > A01- > -G03- DATE --- > -G04- TME ---> +OS- CEROS ===> -G06-, -G07- ESPACOS ===> -G08- FN-S

69 FN-S SUMA 1 A -Y11- ACTUALZA TABLA B34RESA GRABA LNEA EN TABLA B29EPEND CON: D USUARO ===> -Gol-, > A > -G03- DATE ---> -G04-, TME ---> -G05-, GRABA LNEA EN TABLA B29EPEND CON: -A > -Gol > A > DATE ---> TME ---> CEROS ===> -G06-, ESPACOS ===> -G08- ACTUALZA TABLA B2OCENV DATE = A63 SUMA 1 A -Y11- ACTUALZA TABLA B34RESA GRABA LNEA EN TABLA B29EPEND CON: D USUARO ===> -Gol-, > A > -G03- DATE ---> -604~~ TME ---> -GO5-, -G07- GRABA LNEA EN TABLA B29EPEND CON: -A > -Gol > A > DATE ---> TME > CEROS ===> -G06-, ESPACOS ==> S SE DGTO ALGO EN -WS9- MOVER "DHL" A -A79- S SE DGTO ALGO EN -WlO- MOVER "FE ' A -A79- S SE DGTO ALGO EN -W11- MOVER "EST" A -A79-

70 S SE DGTO ALGO EN -W12- MOVER "COU" A -A79- S SE DGTO ALGO EN -W13- MOVER "OTR'' A -A79- ACTUALZA TABLA BZOCENV DATE = A64 FN-S

71 O FECHA DE REVSON: 19 FEB, 92 NO SE SOLCTARON CAMBOS NOTA. EN ESTE MOMENTO SE COBRAN COMSONES BANAMEX, SE EMTE UN MENSAJE AL CEDENTE EN EL CUAL SE NDCA QUE ESTAN PENDENTES LAS COMSONES DEL CORRESPONSAL Y EN CUANTO SE RECBA LA DOCUMENTACON SE LE CARGARAN. 1. A LOS 30 DAS SN RECBR LA DOCUMENTACON DEL CORRESPONSAL SE GENERA UN TRAB PEND TELEFONEMA PARA SOLCTAR NSTRUCCONES AL CEDENTE CON OPCON A GENERAR MENSAJE AL CORRESPONSAL. FECHA DE VSTO BUENO:

72 - ATENDDO

73 1 2 xxxxxxxx "yxxxxxxx CREDTOS COMERCALES Y COBRANZAS LBERA SOLCTUD DE DEVOLUCON SSTEMA: S23 DD/MMM/AAAA HH:W L NUESTRA REF: REF CEDENTE: BCO CORRESP: NOMBRE : PAS : PLAZA: MONEDA: A04 CEDENTE NAL: NOMBRE : DRECCON : CONTACTO : TELEF: F3 - LBERA APERTURA FECHA: (--A25-) F4 - CONSULTA F5 - SG. LBERACON WS1 ATENDDO 5 TPO DE CAMPOS -3 OBLGATOROS - OPCONAL (-) PROPORCONA EL SSTEMA 3JETVO : CONTAR CON UN MEDO A TRAVES DEL CUAL, COBRANZAS SE CHEQUE LA AUTORZACON DEL CEDENTE PARA LBERAR UNA SOLCTUD DE LBERACON.

74 SE ACCESA TABLA B29EPEND D USUARO = -Gol- 13 = -G02- -A01- = -GÓ3- ESPACOS = -G08- S NO SE ENCUENTRA SE ENVA MENSAJE Y SE DETENE PROCESO "NO EXSTE EL NUMERO DE REFERENCA SOLCTADO" CON -G03- SE ACCESA TABLA B20CENV, -A01- SE OBTENE -A01-, -A03-, -A04, -A05-, -A06-, -A25-, -A50- EN CASO CONTRARO MANDAR MENSAJE DE ERROR Y DETENER PROCESO OBTENCON DE LOS DATOS DEL BANCO CEDENTE -A03- SE LGA CON TABLA B94BCOPL CON SE LGA CON TABLA B90BANCO SE OBTENE Y CON SE LGA CON TABLA B92PLAZA -&01- SE OBTENE -&02- Y -&03- CON SE LGA A B91PAS -#Ol- SE OBTENE -#02- OBTENCON DE LOS DATOS DE MONEDA -A04- SE LGA CON TABLA B93MON -sol- SE OBTENE -$02- Y -$03- OBTENCON DE LOS DATOS DEL CEDENTE NACONAL -A06- SE LGA CON TABLA B95CLTE SE OBTENE -*06-, -*07-, -*lo- Y -*11- CON -A06- Y "COBR" SE LGA A TABLA B97CTESV SE OBTENE -+03-, -+04-, -+05-, -+06-, -+07-, -+08-, GUENTE : SE ARMA CURSOR PARA TABLA B29EPEND D USUARO = -Gol- 13 = A01- > -G03- ESPACOS = -G08- S NO SE ENCUENTRA SE ENVA MENSAJE Y SE DETENE PROCESO "NO EXSTE NUMERO DE REFERENCA MAYOR AL SOLCTADO" DEM -CONSULTA-

75 :BERACON: a ES VALDO DESPUES DE UNA SE S ACCESA TABLA B29EPEND D USUARO = -Gol- 13 = -G02- -A01- = -G03- ESPACOS = -G08- NO SE ENCUENTRA CONSULTA O SGUENTE

76 z SEL NUM TEXTO SWFT *** F1-ALTA F2-BAJA F3-MODFCA F4-CONSULTA F5-SG.RESP Fó-SG. PANTALLA CMD: FECHA DE REVSON: 21 FEB, 92 YclBO SOLCTADO. 1. SE ADCONA OPCON DE COBRO CEDENTE CORRESPONSAL

77 O d O TPO DE CAMPOS -3 OBLGATOROS - OPCONAL (-) PROPORCONA EL SSTEMA BJETVO: _ CONTAR CON UN MEDO A TRAVES AL BANCO CORRESPONSAL. DEL CUAL, COBRANZAS PUEDA ENVAR UNA RESWESTA

78 SE ACCESA TABLA B29EPEND D USUARO = -Gol- 15 j A01- = -G03- ESPACOS = -G08- S NO SE ENCUENTRA SE ENVA MENSAJE Y SE DETENE PROCESO 'N0 EXSTE EL NUMERO DE REFERENCA SOLCTADO*' CON -G03- SE ACCESA TABLA BZOCENV, -A01- SE OBTENE -A01-, -A03-, -A04, -A05-, -AO6-, -A50- EN CASO CONTRARO MANDAR MENSAJE DE ERROR Y DETENER PROCESO CON -A03- SE ACCESA TABLA B33AUTN, -YO1- S SE ENCUENTRA MOVER "SWFT" A -WS1- CASO CONTRARO MOVER "TELEX" A -WSl- OBTENCON DE LOS DATOS DEL BANCO CEDENTE -A03- SE LGA CON TABLA B94BCOPL -%OS- CON SE LGA CON TABLA B90BANCO SE OBTENE Y CON SE LGA CON TABLA B92PLAZA -&01- SE OBTENE -&04- CON -&04- SE LGA A B91PAS -#Ol- SE OBTENE -#08- S -#08- = "E" MOVER "ESPANOL" A -WS2- CASO CONTRARO MOVER "NGLES ' A -WS2- OBTENCON DE LOS DATOS DE MONEDA -A04- SE LGA CON TABLA B93MON -Sol- SE OBTENE -$03- OBTENCON DE LOS DATOS DEL CEDENTE NACONAL -A06- SE LGA CON TABLA B95CLTE SE OBTENE -*06-, -*07- SE ARMA CURSOR PARA TABLA B03CMET -G03- = -Col = G05- = -C03-15 = -C04- SE OBTENE -CO5-, -C06- (HASTA LLENAR PANTALLA O ULTMA OCURRENCA)

79 ig. PANTALLA: i ARMA CURSOR PARA TABLA B03CMET -G03- = -Col- -G04- = -C02- -G05- = -C03-15 = -C04- -COS PANT- < -COS- SE OBTENE -C05-, 406- (HASTA LLENAR PANTALLA O ULTMA OCURRENCA) G. RESPUESTA: SE ARMA CURSOR PARA TABLA B29EPEND D USUARO = -Gol- 15 = -G02- -A01- > -G03- ESPACOS -G08- S NO SE ENCUENTRA SE ENVA MENSAJE Y SE DETENE PROCESO "NO EXSTE NUMERO DE REFERENCA MAYOR AL SOLCTADO" DEM -CONSULTA- LTA : CE DAN DE ALTA LAS LNEAS DE NSTRUCCONES CON t'*'l EN CAMPO SEL ES OBLGATORO DGTAR UN NUM Y ALGO EN NSTRUCCON SE NSERTA EN TABLA BO3CMET -G03- = -Col- -G04- = -C02- -G05- = -C03-15 = -C04- C05 = -C05- C06 = -C06-3D F CACON : SOLO ES VALDA DESPUES DE UNA CONSULTA SE ACTUALZAN LAS LNEAS DE NSTRUCCONES CON '*'' EN CAMPO SEL ES OBLGATORO TENER UN NUM Y ALGO EN NSTRUCCON SE ACTUALZA TABLA B03CMET -G03- = -Col = G05- = -C03-15 = -C04- C05 = -C05- C06 = -C06-

80 :BERACON: F A ES VALDO DESPUES DE UNA CONSULTA O SGUENTE SE DEBE DGTAR ALGO EN CAMPO DE LBERACON Y OPRMR TECLA F1 SE ACCESA TABLA B29EPEND D USUARO = -Gol- 15 = -G02- -A01- = -G03- ESPACOS = -G08- S NO SE ENCUENTRA SE ENVA MENSAJE Y SE DETENE PROCESO "NO EXSTE EL NUMERO DE REFERENCA SOLCTADO" SE ACTUALZA TABLA B29EPEND UATE = -G06- TME = -G07- D USUARO = -G08- SE ARMA CURSOR PARA TABLA B03CMET -G03- = -Col = -C02- -G05- = -C03-15 = -C04- SE OBTENE -Col-, -CO2-, -C03-, -C04-, -C05-, -C06- POR CADA LNEA QUE SE OBTENE SE NSERTA OTRA EN B29EPEND col = -col- DATE = -C02- TME = -C03-78 = -C04- C05 = -C05- C06 = SE BORRAN ELEMENTO DE TABLA B03CMET -G03- = -Col- -G04- = -C02- -G05- = -C03-15 = -C04- SE NSERTA LNEA D USUARO = 78 = -A01- - DATE = TME = O - ESPACOS = EN TABLA B29EPEND -Gol- -G02- -G03- -G04- -G05- -G06-, -G07- -G08-

81 SE ACTUALZA EL REGSTRO SUMARO DE TRABAJO PENDENTE POR ANALSTA SP-ACCESA TABLA B34RESA, -YOl-.-,TA 1 A -YO9- ACTUALZA TABLA B34RESA

82 9 O 1 F3 - LBERA F4 - CONSULTA F5 - SGUENTE FECHA DE REVSON 21 FEBRERO, 92 * DFCACONES SOLCTADAS. --. SE ADCONAN CUADROS CON DOCUMENTACON ENVADA Y RECBDA 2. EN FORMA OPCONAL CUANDO EXSTE DFERENCA EN DOCUMENTACON ENVADA Y RECBDA SE PUEDE GENERAR UN MENSAJE AL CORRESPONSAL DERVADO DE LAS NSTRUCCONES DEL CEDENTE. MODFCACONES PROPUESTAS 1. SE NCLUYEN DATOS PARA EFECTUAR TELEFONEMA 2. SE GENERA CARTA CONFRMACON Y ENTREGA DE DOCUMENTOS AL CEDENTE

83 REF 1 W3 NUESTRA REF: --A APERTURA FECHA: (--A25-) CEDENTE: --A DOCTO: COBRANZA DEWELTA MSG CORRESP FECHA:(-WSl--) REFER:(--WS DOCUMENTOS ENVADOS 1 LETRAS B / L FACTURA CERTF. LSTA CERTF. POLZA OTRO 1 OR-COP. 0R.COP. 0R.COP. ORGEN EMPAQ. ANALS. SEGURO -A A26 A27 A28 A29 A30 A31 A32 A33 A34 A35 A36 A37 A38 A39 A41 A42 DOCUMENTOS RECBDOS j Z ZO TPO DE CAMPOS - -3 OBLGATOROS OPCONAL (-) PROPORCONA EL SSTEMA LiETVO: CONTAR CON UN MEDO A TRAVES DEL CUAL, CONTROL DE OPERACONES LE NDQUE A COBRANZAS QUE RECBO UNA COBRANZA DEVUELTA.

84 ;PECFCACON : SE ACCESA TABLA B29EPEND D USUARO = -Gol- 91 = -G02- -A ESPACOS -G08- S NO SE ENCUENTRA SE ENVA MENSAJE Y SE DETENE PROCESO *'NO EXSTE EL NUMERO DE REFERENCA SOLCTADO'' CO WKS-CONCEPTO PC X(33) FLLER PC X(02) WKS-FCH PC 9(06) FLLER PC X(02) WKS-REFER PC X(16) MOVER WKS-FCH MOVER WKS-REFER A -WS1- A -WS2- CON -G03- SE ACCESA TABLA B2OCENV, -A01- SE OBTENE -A01-, -A03-, -A04, -A05-, -A06-, -A25-, -A49-, -A26-, -A27-, -A28-, -A29-, -A30-, -A31-, -A32-, -A33-, -A34-, -A35-, -A36-, -A37-, -A38-, -A39-, -A40-, -A41-, -A42- EN CASO CONTRARO MANDAR MENSAJE DE ERROR Y DETENER PROCESO OBTENCON DE LOS DATOS DEL BANCO CEDENTE -A03- SE LGA CON TABLA B94BCOPL CON SE LGA CON TABLA B90BANCO SE OBTENE Y OBTENCON DE LOS DATOS DE MONEDA -A04- SE LGA CON TABLA B93MON ~$01- SE OBTENE -$02- Y -$03- OBTENCON DE LOS DATOS DEL CEDENTE NACONAL -A06- SE LGA CON TABLA B95CLTE SE OBTENE -*06-, -*07- CON -A06- Y "COBR" SE LGA A TABLA B97CTESV SE OBTENE -+03-, -+04-, -+05-, -+06-, -+07-, -+O8-, , ~ENTE : SE ARMA CURSOR PARA TABLA B29EPEND D USUARO = -Gol-

85 SE ARMA CURSOR PARA TABLA B29EPEND D USUARO = -Gol- 91 = -G02- -A01- > -G03- ESPACOS = -G08- S NO SE ENCUENTRA SE ENVA MENSAJE Y SE DETENE PROCESO "NO EXSTE NUMERO DE REFERENCA MAYOR AL SOLCTADO" DEM -CONSULTA-

86 BERA x) ES VALDO DESPUES DE UNA CONSULTA O SGUENTE SE ACCESA TABLA B29EPEND D USUARO = -Gol- 91 = A01- = -G03- ESPACOS = S NO SE ENCUENTRA SE ENVA MENSAJE Y SE DETENE PROCESO NO EXSTE EL NUMERO DE REFERENCA SOLCTADO ACTUALZA TABLA B29EPEND DATE = -G06- TME = -G07- D USUARO = -G08- SE NSERTA LNEA EN TABLA B29EPEND D USUARO = -Gol- 46 = A01- = DATE = -G04- TME = -G05- O = -G06-, -G07- ESPACOS = -G08- Sm-ACTUALZA EL REGSTRO SUMARO DE TRABAJO PENDENTE POR ANALSTA 4 N -G03-, SE ACCESA TABLA B34RESA, -YOl- RESTA 1 A -Y06- ACTUALZA TABLA B34RESA CON -A01-, SE NSERTA EN TABLA B38DEVL, = = = = = = = = zo9 = = -z = = = = = = S -W3- NOT = ESPACOS CON -Gol-, SE ACCESA TABLA B34RESA, -YOl- SE ADCONA 1 A -Y10- SE ACTUALZA TABLA B34RESA SE NSERTA TRABAJO PENDENTE B29EPEND D USUARO = -Gol- 15 = -602-

87 -A01- = -G03- DATE = -G04- TME = -G05- O = -G06-, -G07- ESPACOS = -G08-

88 F1 - ALTA F4 - CONSULTA

89 O A O 1 NUESTRA REFER: SE - F1 --A RECBO A TRAVES DE: CONCLACON - GRO - CONVENO NUMERO: BANCO: - AGENCA DE NEW YORK - ALTA F4 - CONSULTA TPO DE CAMPOS [-1 OBLGATOROS - OPCONAL (-) PROPORCONA EL SSTEMA CONTAR CON UN MEDO POR POR EL BANCO CEDDO. EL CUAL SE LLEVE UN CONTRO DE LOS PAWS

90 ZONSULTA $H?- ACCESA TABLA B2 OCENV WKS-NUM-REF = A01 CON 894-WE-SWFT-BCOPL SE ACCESA V94BCPL CON 893-WE-DVSA SE ACCESA B93MON S NO EXSTE SE MANDA MENSAJE DE ERROR Y SE DETENE PROCESO 11 NO EXSTE NUMERO DE REFERENCA A CONSULTAR" UTA SE ACCESA BQOCPBC A01 = 820-NUM-REF LLENA FECHAS. DE B4OCPBC

91 -! O MON MPORTE FOLO/AUTOR.CECA TPO DE CAMBO MPORTE M.N.

92 COBR070 ~XXXXXXX CREDTOS COMERCALES Y COBRANZAS COMPRA DE DVSAS SSTEMA: S23 DD/MMM/AAAA HH:M MON MPORTE FOLO/AUTOR.CECA TPO DE CAMBO MPORTE M.N. F3 - COMPRA F4 - CONSULTA F5 - SGUENTE CMD:

93 ;JETVO PODER REGSTRAR LA COMPRA DE DVSAS EN EL SSTEMA 233. NSULTA SE ACCESA TABLA B29EPEND 93 = GO3 = = S NO EXSTE, SE MANDA MENSAJE DE ERROR Y SE DETENE PROCESO "NO EXSTE NUMERO DE REFERENCA A CONSULTAR" CASO CONTRARO SE OBTENE -604-, CON -603-, SE ACCESA TABLA BiOCPAGO, -F = -F01- SE OBTENE -F02-, -F03-, -F06-, SE ACCESA TABLA B93MON -F02- = -$01- SE OBTENE -$03-. SE ACCESA TABLA BO4TAB = -Dol- SE OBTENE -D03- MOVER DATE A -WS1- MOVER TME A -WS2- :GUENTE SE ARMA CURSOR PARA TABLA B29EPEND 93 = -602-?úPRA GO3 < * w = S NO EXSTE, SE MANDA MENSAJE DE ERROR Y SE DETENE PROCESO "NO EXSTE NUMERO DE REFERENCA MAYOR AL SOLCTADO" CASO CONTRARO SE OBTENE -604-, -GO5-. DEM CONSULTA SE DEBE EFECTUAR PRMERO LA CONSULTA ES OBLGATORO DGTAR EL NUMERO DE FOLO DE CE.CA. CON FOLO DE CE.CA. SE LEE ARCHVO OMES DEM PROGRAMA ORGNAL E ACCESA B29EPEND 93 = GO3 = ) V = SE ACTUALZA REGSTRO LEDO

94 DATE = -G06- TME = D USUARO = -G08- \,E ACCESA TABALA BZOCENV GO3 = -A01- SE OBTENE -A54- SE NSERTA -A54-94 GO3 DATE TME O O 1 B29EPEND = -Gol- = -G02- = -G03- = -G04- = -G05- = -G06- = -G07- = -G08-

95 t*yr********************** DENTFCATON DVSON.... wa?am-d. COBER082. 4UTHOR. ELBA GRACELA LOPEZ ROMA%A.... BTACORA DE MODFCACONES FECHA: NCALES : DESCRPCON: EGLR xxxxxxxxxxxxxxxxxxxxxxxxxxx MODFCO : ELBA GRACELA LOPEZ ROMAtA. 10/03/92 SE SUSTTUYE LA TABLA BOSELEM POR LA B34RESA Y SE LGA CON EL PROCESO CORRESPONDENTE ENVRONMENT DVSON.... CONFGURATON SECTON. SOURCE-COMPUTER. TANDEM-16. OBJECT-COMPUTER. TANDEM-16 TERMNAL S T SPECAL-NAMES. COPY SP-NAMES N "S233SLB.SPNAMES". NPUT-OUTPUT SECTON. SCREEN-CONTROL. ERROR-ENHANCEMENT S REVERSE N ALL WTH AUDBLE ALARM. A************ DATA DVSON. :************** WORKNG-STORAGE SECTON e**************************** kdefncon DE CAMPOS COMUNES... COPY WKS-VARABLES-COMUNES... rpfncon DE CAMPOS PROPOS O1 WKS-NUM-SEL O1 WKS-NUM-MOD O1 WKS-NOM-SERVER O1 WKS-NOM-PROG O1 WKS-DES-BCA-SCRN O1 WKS-DES-BCA O1 WKS-NUM-D-USUARO. 05 WKS-NUM-CF 05 WKS-NUM-CONSECUTVOS WKS-NUM-D-REDEF REDEFNES 05 WKS-"M-D-USU OF **S233CCPY.WKREQUES". PC 9(02) VALUE ZEROES. PC 9(01) VALUE ZEROES. prc ~ (081 VALUE WCOBESO~Z~~. PC X(O9) VALUE SPACES. PC X(40) VALUE SPACES. PC X(40) VALUE SPACES. PC 9(02). PC 9(04). WKS-"M-D-USUARO; PC X(06). *y****************************************** 3EFNCON DE MENSAJES DE LA NFRAESTRUCTURA e*******************************************

96 \. COPY SMSG-MSG N 1'S233SMSG.SMSGMSG''. COPY SMSG-HDR N "S233SMSG. SMSGHDR".... EFNCON DE CAMPOS PROPOS DE LA PANTALLA... COPY SMSG-COBER082 N 'S233SMSG. COBER082". LNKAGE SECTON. ****************... DEFNCON DEL MENSAJE COMUN DE COMUNCACON p******************************************* COPY BCA N "S233SMSG.BCA". SCREEN SECTON. ***************... DEFNCON DEL ENCABEZADO COMUN... COPY SC-ENCABEZADO-PANTALLA OF "S233CCPY.SCCOMUN".... DEFNCON DEL CUERPO DE LA PANTALLA PROPA... C,'^'Y SC-AREA-TRABAJO OF "S233CCPY.COBER082".. :DEFNCON DEL PE DE PAGNA COMUN... COPY SC-PEPAGNA-PANTALLA OF "S233CCPY. SCCOMUN".... PROCEDURE DVSON USNG BCA.... DECLARATVES. e************* COPY REESTABLECE-PANT r' END DECLARATVES. :***************** OF "S233CCPY. PRREQUES" RAZ.,************* PERFORM NCO. PERFORM PROCESO UNTL WKS-"M-FN = 1. PERFORM FN. CWY NCO OF "S233CCPY. PRREQUES". rpy PROCESO 'y****************************************** NCO DE PARRAFOS SUSCEPTBLES DE MODFCAR... OF "S CCPY. PRREQUES". 1.--*--- "' "'

97 p PERFORM VALDA-DATOS-GEST VARYNG WKS-NUM-ND FROM 1 BY 1 UNTL WKS-NUM-ND > 10 OR WKS-NUM-bATOS-OK = 1 OR WKS-NUM-ERROR = 1. PERFORM VALDA-DATOS-LQ VARYNG WKS-NUM-ND FROM 1 BY 1 UNTL WKS-NUM-ND > 10 OR WKS-NüM-DATOS-OK = 1 OR WKS-NUM-ERROR = 1. F WKS-NUM-ERROR = O F WKS-NUM-DATOS-OK = 1 PERFORM LMPA-DATOS-E-S VARYNG WKS-NUM-ND FROM 1 BY 1 UNTL WKS-NUM-ND > 10 F WKS-NUM-MOD = 1 PERFORM ELGE-NOM-PROG-GEST PERFORM CALL-NOM-PROG PERFORM ELGE-NOM-PROG-LQ PERFORM CALL-NOM-PROG * PERFORM LMPA-DATOS-E-S VARYNG WKS-NUM-ND FROM 1 BY 1 UNTL WKS-NUM-ND > 10 PERFORM LMPA-DATOS-S PERFORM ENVA-HEADER NEXT SENTENCE ELGE-NOM-PROG-GEST.... F WKS-NUM-SEL = 1 MOVE ' LBERACON COBRANZA ENVADA" TO WKS-DES-BCA-SCRN MOVE "COBERO71" TO WKS-NOM-PROG MOVE " TRABAJO PENDENTE DE COBRANZA ENVADA" TO WKS-DES-BCA F WKS-NUM-SEL = 2 MOVE '' TELEFONEMAS" TO WKS-DES-BCA-SCRN (* MOVE "COBERO92" TO WKS-NOM-PROG MOVE ' TRABAJO PENDENTE DE COBRANZA ENVADA" TO WKS-DES-BCA F WKS-NUM-SEL = 3 MOVE '' ACUSE DE RECBO" TO WKS-DES-BCA-SCRN MOVE "COBERO91" TO WKS-NOM-PROG MOVE " TRABAJO PENDENTE DE COBRANZA ENVADA" TO WKS-DES-BCA F WKS-NUM-SEL = 4 MOVE ' COBRANZA DEWELTA" TO WKS-DES-BCA-SCRN MOVE "COBERO94" TO WKS-NOM-PROG MOVE " TRABAJO PENDENTE DE COBRANZA ENVADA" TO WKC-DES-BCA F WKS-NUM-SEL = 5 MOVE ' NF. RECBDO CORRESP" TO WKS-DES-BCA-SCRN MOVE "COBERO95" TO WKS-NOM-PROG MOVE " TRABAJO PENDENTE DE COBRANZA ENVADA" TO WKS-DES-BCA F WKS-NUM-SEL = 6 MOVE '' AUTORZA DEVOLUCON" TO WKS-DES-BCA-SCRN MOVE "COBERO86" TO WKS-NOM-PROG MOVE " TRABAJO PENDENTE DE COBRANZA ENVADA" TO WKS-DES-BCA F WKS-NUM-SEL = 7 MOVE '' NFORMACON CORRESP" TO WKS-DES-BCA-SCRN