cobol
ISPEZIONARE la dichiarazione

.NET Framework C Language C# Language C++ Java Language GNU/Linux Python Language Ruby Language SQL Microsoft SQL Server
Ricerca…


Osservazioni

L'istruzione INSPECT è un verbo di scansione e sostituzione in COBOL.

Diagramma syntac dell'istruzione INSPECT

Dove è la tallying-phrase :

contando Frasi

replacing-phrase è: 

missing image

before-after-phrase è:

prima-dopo-frase

ISPEZIONARE la riformattazione di una data line

GCobol identification division.
       program-id. inspecting.

       data division.
       working-storage section.
       01  ORIGINAL            pic XXXX/XX/XXBXX/XX/XXXXXXX/XX.
       01  DATEREC             pic XXXX/XX/XXBXX/XX/XXXXXXX/XX.

       procedure division.

       move function when-compiled to DATEREC ORIGINAL

       INSPECT DATEREC REPLACING ALL "/" BY ":" AFTER INITIAL SPACE

       display "Formatted function WHEN-COMPILED " ORIGINAL
       display " after INSPECT REPLACING         " DATEREC

       goback.
       end program inspecting.

Dando: 

Formatted function WHEN-COMPILED 2010/03/25 23/05/0900-04/00
 after INSPECT REPLACING         2010/03/25 23:05:0900-04:00


Modified text is an extract of the original Stack Overflow Documentation
Autorizzato sotto CC BY-SA 3.0
Non affiliato con Stack Overflow