cobol
Instrukcja INSPECT
Szukaj…
Uwagi
Instrukcja INSPECT
to czasownik skanowania i zastępowania w języku COBOL.
Gdzie tallying-phrase
to:
replacing-phrase
to:
missing image
before-after-phrase
to:
PRZEGLĄDAJ formatowanie linii daty
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.
Dający:
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
Licencjonowany na podstawie CC BY-SA 3.0
Nie związany z Stack Overflow