O
OctavioOlguin
Guest
Greetings. Can some one help to transalate this: DEFINE INPUT PARAMETER RUTA AS CHAR NO-UNDO. DEFINE OUTPUT PARAMETER NOMARCH AS CHAR NO-UNDO. DEFINE OUTPUT PARAMETER EXTARCH AS CHAR NO-UNDO. DEFINE VAR I AS INTEGER NO-UNDO. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-PREPROCESSOR-BLOCK /* ******************** Preprocessor Definitions ******************** */ &Scoped-define PROCEDURE-TYPE Procedure &Scoped-define DB-AWARE no /* _UIB-PREPROCESSOR-BLOCK-END */ &ANALYZE-RESUME /* *********************** Procedure Settings ************************ */ &ANALYZE-SUSPEND _PROCEDURE-SETTINGS /* Settings for THIS-PROCEDURE Type: Procedure Allow: Frames: 0 Add Fields to: Neither Other Settings: CODE-ONLY COMPILE */ &ANALYZE-RESUME _END-PROCEDURE-SETTINGS /* ************************* Create Window ************************** */ &ANALYZE-SUSPEND _CREATE-WINDOW /* DESIGN Window definition (used by the UIB) CREATE WINDOW Procedure ASSIGN HEIGHT = 3.67 WIDTH = 63.4. /* END WINDOW DEFINITION */ */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _MAIN-BLOCK Procedure /* *************************** Main Block *************************** */ /* First: strip disc if present */ I = INDEX(RUTA, ":"). IF I > 0 THEN RUTA = SUBSTRING(RUTA, I + 1). /* get filename, if there is extension...*/ I = INDEX(RUTA, "."). IF I > 0 THEN DO: EXTARCH = SUBSTRING(RUTA, I + 1). RUTA = SUBSTRING(RUTA, 1, I - 1). END. ASSIGN I = R-INDEX(RUTA, "\"). IF I = 0 THEN DO: ASSIGN I = R-INDEX(RUTA, "/"). END. IF I > 0 THEN NOMARCH = SUBSTRING(RUTA, I + 1). ELSE NOMARCH = RUTA. RETURN. into some method of system.IO, if available? the object of procedure is to get just filename of a FQFN. On other procedure I have same kind of logic to get just the extensión.. TIA Jorge Octavio
Continue reading...
Continue reading...