Usa callp ceedywk Aqui va la descripcion y un ejemplo... Saludos =========
CEEDYWK-calculate day of week from Lilian date CEEDYWK calculates the day of the week on which a Lilian date falls. The day of the week is returned to the calling routine as a number between 1 and 7. The number returned by CEEDYWK is useful for end-of-week calculations. CALL CEEDYWK syntax <http://publib.boulder.ibm.com/infocenter/comphelp/v7v91/topic/com.ibm.aix.cbl.doc/rpsrv15.htm#skipsyn-73> >>-CALL--"CEEDYWK"--USING--input_Lilian_date,--output_day_no,---> >--fc.--------------------------------------------------------->< input_Lilian_date (input) A 32-bit binary integer representing the Lilian date, the number of days since 14 October 1582. For example, 16 May 1988 is day number 148138. The valid range of input_Lilian_date is between 1 and 3,074,324 (15 October 1582 and 31 December 9999). output_day_no (output) A 32-bit binary integer representing input_Lilian_date's day-of-week: 1 equals Sunday, 2 equals Monday, . . ., 7 equals Saturday. If input_Lilian_date is invalid, output_day_no is set to 0 and CEEDYWK terminates with a non-CEE000 symbolic feedback code. fc (output) A 12-byte feedback code (optional) that indicates the result of this service. The following symbolic conditions can result from this service: Table 78. CEEDYWK symbolic conditions Symbolic feedback code Severity Message number Message text CEE000 0 - The service completed successfully. CEE2EG 3 2512 The Lilian date value passed in a call to CEEDATE or CEEDYWK was not within the supported range. Example CBL LIB ************************************************ ** ** ** Function: Call CEEDYWK to calculate the ** ** day of the week from Lilian date ** ** ** ** In this example, a call is made to CEEDYWK ** ** to return the day of the week on which a ** ** Lilian date falls. (A Lilian date is the ** ** number of days since 14 October 1582) ** ** ** ************************************************ IDENTIFICATION DIVISION. PROGRAM-ID. CBLDYWK. DATA DIVISION. WORKING-STORAGE SECTION. 01 LILIAN PIC S9(9) BINARY. 01 DAYNUM PIC S9(9) BINARY. 01 IN-DATE. 02 Vstring-length PIC S9(4) BINARY. 02 Vstring-text. 03 Vstring-char PIC X, OCCURS 0 TO 256 TIMES DEPENDING ON Vstring-length of IN-DATE. 01 PICSTR. 02 Vstring-length PIC S9(4) BINARY. 02 Vstring-text. 03 Vstring-char PIC X, OCCURS 0 TO 256 TIMES DEPENDING ON Vstring-length of PICSTR. 01 FC. 02 Condition-Token-Value. COPY CEEIGZCT. 03 Case-1-Condition-ID. 04 Severity PIC S9(4) COMP. 04 Msg-No PIC S9(4) COMP. 03 Case-2-Condition-ID REDEFINES Case-1-Condition-ID. 04 Class-Code PIC S9(4) COMP. 04 Cause-Code PIC S9(4) COMP. 03 Case-Sev-Ctl PIC X. 03 Facility-ID PIC XXX. 02 I-S-Info PIC S9(9) COMP. PROCEDURE DIVISION. PARA-CBLDAYS. ** Call CEEDAYS to convert date of 6/2/88 to ** Lilian representation MOVE 6 TO Vstring-length of IN-DATE. MOVE '6/2/88' TO Vstring-text of IN-DATE(1:6). MOVE 8 TO Vstring-length of PICSTR. MOVE 'MM/DD/YY' TO Vstring-text of PICSTR(1:8). CALL 'CEEDAYS' USING IN-DATE, PICSTR, LILIAN, FC. ** If CEEDAYS runs successfully, display result. IF CEE000 of FC THEN DISPLAY Vstring-text of IN-DATE ' is Lilian day: ' LILIAN ELSE DISPLAY 'CEEDAYS failed with msg ' Msg-No of FC UPON CONSOLE STOP RUN END-IF. PARA-CBLDYWK. ** Call CEEDYWK to return the day of the week on ** which the Lilian date falls CALL 'CEEDYWK' USING LILIAN , DAYNUM , FC. ** If CEEDYWK runs successfully, print results IF CEE000 of FC THEN DISPLAY 'Lilian day ' LILIAN ' falls on day ' DAYNUM ' of the week, which is a:' ** Select DAYNUM to display the name of the day ** of the week. EVALUATE DAYNUM WHEN 1 DISPLAY 'Sunday.' WHEN 2 DISPLAY 'Monday.' WHEN 3 DISPLAY 'Tuesday' WHEN 4 DISPLAY 'Wednesday.' WHEN 5 DISPLAY 'Thursday.' WHEN 6 DISPLAY 'Friday.' WHEN 7 DISPLAY 'Saturday.' END-EVALUATE ELSE DISPLAY 'CEEDYWK failed with msg ' Msg-No of FC UPON CONSOLE STOP RUN END-IF. GOBACK. ________________________________ De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] En nombre de [EMAIL PROTECTED] Enviado el: Jueves, 02 de Agosto de 2007 13:22 Para: forum.help400 Asunto: Re: API que devuelva el dia de la semana Hola Salvador: Una API no lo se, pero con SQL dentro del RPG: EXEC SQL Set :DISEM = DAYOFWEEK_ISO(:FECHAPROCES); DAYOFWEEK, devuelve 1 = Domingo .... 7 = Sábado. DAYOFWEEK_ISO, devuelve 1=Lunes .... 7=Domingo. Espero te sirva. Toni Tort Sistemes d'Informació. Vives Vidal, Vivesa, S.A "SALVADOR SANCHEZ COSTA" <[EMAIL PROTECTED]> Sent by: [EMAIL PROTECTED] 02/08/2007 18:34 Please respond to "forum.help400" <[email protected]> To <[email protected]> cc Subject API que devuelva el dia de la semana Hola, hay alguna API que enviandole una fecha devuelva que dia de la semana es(lunes, martes, etc) ???? [IMAGE] Salvador Sánchez Costa [IMAGE] Departamento Desarrollo [EMAIL PROTECTED] <mailto:[EMAIL PROTECTED]> * T 968 350 011 Página web de Grupo Inforges <http://www.inforges.es/> Cláusula de Confidencialidad <http://www.inforges.es/clausula/clausula.htm> [IMAGE] __________________________________________________ Forum.HELP400 es un servicio m&#225;s de NEWS/400. &#169; Publicaciones Help400, S.L. - Todos los derechos reservados http://www.help400.es _____________________________________________________ Para darte de baja visita la siguente URL: http://listas.combios.es/mailman/listinfo/forum.help400 ----------------------------------------------------------------- Notice of Confidentiality: The information transmitted is intended only for the sender and person or entity to which it is addressed and may contain confidential and/or privileged material. Any review, e-transmission, dissemination or other use of, or taking of any action in reliance upon, this information by persons or entities other than the intended recipient is prohibited. If you received this in error, please contact the sender immediately by return electronic transmission and then immediately delete this transmission, including all attachments, without copying, distributing or disclosing same. ------------------------------------------------------------------ Aviso de Confidencialidad: Este correo electrónico y/o el material adjunto es para uso exclusivo del emisor y la persona o entidad a la que expresamente se le ha enviado, y puede contener información confidencial o material privilegiado. Si usted no es el destinatario legítimo del mismo, por favor repórtelo inmediatamente al remitente del correo y bórrelo. Cualquier revisión, retransmisión, difusión o cualquier otro uso de este correo, por personas o entidades distintas a las del destinatario legítimo, queda expresamente prohibido. Este correo electrónico no pretende ni debe ser considerado como constitutivo de ninguna relación legal, contractual o de otra índole similar. ------------------------------------------------------------------
<<c.gif>>
__________________________________________________ Forum.HELP400 es un servicio m&#225;s de NEWS/400. &#169; Publicaciones Help400, S.L. - Todos los derechos reservados http://www.help400.es _____________________________________________________ Para darte de baja visita la siguente URL: http://listas.combios.es/mailman/listinfo/forum.help400
