702 lines
26 KiB
XML
702 lines
26 KiB
XML
<?xml version="1.0" encoding="utf-8"?>
|
|
<root>
|
|
<!--
|
|
Microsoft ResX Schema
|
|
|
|
Version 2.0
|
|
|
|
The primary goals of this format is to allow a simple XML format
|
|
that is mostly human readable. The generation and parsing of the
|
|
various data types are done through the TypeConverter classes
|
|
associated with the data types.
|
|
|
|
Example:
|
|
|
|
... ado.net/XML headers & schema ...
|
|
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
|
<resheader name="version">2.0</resheader>
|
|
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
|
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
|
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
|
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
|
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
|
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
|
</data>
|
|
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
|
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
|
<comment>This is a comment</comment>
|
|
</data>
|
|
|
|
There are any number of "resheader" rows that contain simple
|
|
name/value pairs.
|
|
|
|
Each data row contains a name, and value. The row also contains a
|
|
type or mimetype. Type corresponds to a .NET class that support
|
|
text/value conversion through the TypeConverter architecture.
|
|
Classes that don't support this are serialized and stored with the
|
|
mimetype set.
|
|
|
|
The mimetype is used for serialized objects, and tells the
|
|
ResXResourceReader how to depersist the object. This is currently not
|
|
extensible. For a given mimetype the value must be set accordingly:
|
|
|
|
Note - application/x-microsoft.net.object.binary.base64 is the format
|
|
that the ResXResourceWriter will generate, however the reader can
|
|
read any of the formats listed below.
|
|
|
|
mimetype: application/x-microsoft.net.object.binary.base64
|
|
value : The object must be serialized with
|
|
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
|
: and then encoded with base64 encoding.
|
|
|
|
mimetype: application/x-microsoft.net.object.soap.base64
|
|
value : The object must be serialized with
|
|
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
|
: and then encoded with base64 encoding.
|
|
|
|
mimetype: application/x-microsoft.net.object.bytearray.base64
|
|
value : The object must be serialized into a byte array
|
|
: using a System.ComponentModel.TypeConverter
|
|
: and then encoded with base64 encoding.
|
|
-->
|
|
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
|
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
|
<xsd:element name="root" msdata:IsDataSet="true">
|
|
<xsd:complexType>
|
|
<xsd:choice maxOccurs="unbounded">
|
|
<xsd:element name="metadata">
|
|
<xsd:complexType>
|
|
<xsd:sequence>
|
|
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
|
</xsd:sequence>
|
|
<xsd:attribute name="name" use="required" type="xsd:string" />
|
|
<xsd:attribute name="type" type="xsd:string" />
|
|
<xsd:attribute name="mimetype" type="xsd:string" />
|
|
<xsd:attribute ref="xml:space" />
|
|
</xsd:complexType>
|
|
</xsd:element>
|
|
<xsd:element name="assembly">
|
|
<xsd:complexType>
|
|
<xsd:attribute name="alias" type="xsd:string" />
|
|
<xsd:attribute name="name" type="xsd:string" />
|
|
</xsd:complexType>
|
|
</xsd:element>
|
|
<xsd:element name="data">
|
|
<xsd:complexType>
|
|
<xsd:sequence>
|
|
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
|
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
|
</xsd:sequence>
|
|
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
|
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
|
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
|
<xsd:attribute ref="xml:space" />
|
|
</xsd:complexType>
|
|
</xsd:element>
|
|
<xsd:element name="resheader">
|
|
<xsd:complexType>
|
|
<xsd:sequence>
|
|
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
|
</xsd:sequence>
|
|
<xsd:attribute name="name" type="xsd:string" use="required" />
|
|
</xsd:complexType>
|
|
</xsd:element>
|
|
</xsd:choice>
|
|
</xsd:complexType>
|
|
</xsd:element>
|
|
</xsd:schema>
|
|
<resheader name="resmimetype">
|
|
<value>text/microsoft-resx</value>
|
|
</resheader>
|
|
<resheader name="version">
|
|
<value>2.0</value>
|
|
</resheader>
|
|
<resheader name="reader">
|
|
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
|
</resheader>
|
|
<resheader name="writer">
|
|
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
|
</resheader>
|
|
<data name="CobMallLasFil" xml:space="preserve">
|
|
<value> *----------------------------------------------------------------*
|
|
* *
|
|
* SYSTEM GENOMKÖRNING AV FILER *
|
|
* *
|
|
* PROGRAM-ID YYYYYYY *
|
|
* *
|
|
* AUTHOR Peter Quick / omarbetad av Tommy Öman *
|
|
* *
|
|
* DATUM September 2015 *
|
|
* *
|
|
* genereras genom *
|
|
* pqfix <FILNAMN> ex OBFIL *
|
|
* *
|
|
* Loggfil under /tmp ex. PQOBFIL0150.txt *
|
|
* OK, FIL TOM, FIL SAKNAS eller ERR XX *
|
|
* Loggfilen |ppnas EXTEND *
|
|
* *
|
|
*$$ *
|
|
*----------------------------------------------------------------*
|
|
*$DATUM SIGN [NDRING *
|
|
* ------ ---- ------------------------------------------------ *
|
|
*----------------------------------------------------------------*
|
|
IDENTIFICATION DIVISION.
|
|
PROGRAM-ID. TOXXXXX.
|
|
|
|
ENVIRONMENT DIVISION.
|
|
CONFIGURATION SECTION.
|
|
SPECIAL-NAMES.
|
|
CONSOLE IS CRT.
|
|
|
|
/----------------------------------------------------------------*
|
|
INPUT-OUTPUT SECTION.
|
|
FILE-CONTROL.
|
|
*----------------------------------------------------------------*
|
|
|
|
COPY COPFCXXXXX.
|
|
|
|
SELECT LOGG ASSIGN W-FILNAMN
|
|
ORGANIZATION LINE SEQUENTIAL
|
|
STATUS F-STATUS.
|
|
|
|
/----------------------------------------------------------------*
|
|
DATA DIVISION.
|
|
FILE SECTION.
|
|
*----------------------------------------------------------------*
|
|
|
|
COPY COPFDXXXXX.
|
|
|
|
FD LOGG.
|
|
01 LOGGRAD.
|
|
03 LOGG-FIL PIC X(05).
|
|
03 LOGG-SEMI PIC X(02).
|
|
03 LOGG-TEXT PIC X(73).
|
|
|
|
*----------------------------------------------------------------*
|
|
WORKING-STORAGE SECTION.
|
|
*----------------------------------------------------------------*
|
|
77 W-IX PIC 9(02) VALUE 0.
|
|
77 W-SUBSTATUS PIC 9(04) VALUE 0.
|
|
77 W-LAES-VIDARE PIC X VALUE SPACE.
|
|
88 LAES-VIDARE VALUE SPACE FALSE "X".
|
|
|
|
77 W-NUM10 PIC 9(10).
|
|
77 W-NUM9 PIC 9(09).
|
|
77 W-NUM8 PIC 9(08).
|
|
77 W-NUM7 PIC 9(07).
|
|
77 W-NUM6 PIC 9(06).
|
|
77 W-NUM5 PIC 9(05).
|
|
77 W-NUM4 PIC 9(04).
|
|
77 W-NUM3 PIC 9(03).
|
|
77 W-NUM2 PIC 9(02).
|
|
77 W-NUM1 PIC 9(01).
|
|
77 W-NUM92 PIC 9(09)V99-.
|
|
|
|
77 W-THRUFIL PIC X(05).
|
|
|
|
01 W-FILNAMN.
|
|
02 FILLER PIC X(05) VALUE "/tmp/".
|
|
02 FILLER PIC X($FNL) VALUE "YYYYYYY".
|
|
02 W-FILFORNR PIC 9(04).
|
|
02 FILLER PIC X(04) VALUE ".txt".
|
|
|
|
01 W-STATUS-KEY PIC 9(1).
|
|
|
|
COPY COPTXTKSY990.
|
|
COPY COPWSSTD.
|
|
COPY COPWSDATUM.
|
|
COPY COPLSLOKAL.
|
|
|
|
*----------------------------------------------------------------*
|
|
LINKAGE SECTION.
|
|
*----------------------------------------------------------------*
|
|
|
|
COPY COPLSMENY.
|
|
COPY COPLSGLOBAL.
|
|
COPY COPLSSYSTEM.
|
|
|
|
*----------------------------------------------------------------*
|
|
PROCEDURE DIVISION USING MENY-AREA, GLOB-AREA, SYST-AREA.
|
|
*----------------------------------------------------------------*
|
|
A-100-START SECTION.
|
|
|
|
COPY COPPDINITSS.
|
|
|
|
MOVE "XXXXX" TO W-THRUFIL
|
|
PERFORM X-DRIVE-THRU.
|
|
IF F-STATUS NOT = "00"
|
|
PERFORM X-SKRIV-LOG
|
|
END-IF.
|
|
|
|
A-900-SLUT.
|
|
|
|
EXIT PROGRAM.
|
|
|
|
X-DRIVE-THRU SECTION.
|
|
X-DRIVE-1000-START.
|
|
|
|
MOVE "00" TO F-STATUS.
|
|
|
|
MOVE SPACE TO LOGGRAD.
|
|
|
|
MOVE MENY-FORNR TO W-FILFORNR.
|
|
OPEN OUTPUT LOGG.
|
|
CLOSE LOGG.
|
|
|
|
MOVE MENY-FORNR TO FIL-FORNR.
|
|
MOVE W-THRUFIL TO FIL-NAMN.
|
|
OPEN INPUT XXXXX.
|
|
IF ACCESSFEL
|
|
IF FIL-SAKNAS
|
|
MOVE "FIL SAKNAS" TO LOGG-TEXT
|
|
ELSE
|
|
PERFORM X-FORMAT-FATAL
|
|
END-IF
|
|
EXIT SECTION
|
|
END-IF.
|
|
|
|
INITIALIZE XXXXX-NYC.
|
|
START XXXXX KEY NOT < XXXXX-NYC.
|
|
IF ACCESSFEL
|
|
IF POST-SAKNAS
|
|
MOVE "FIL TOM" TO LOGG-TEXT
|
|
ELSE
|
|
PERFORM X-FORMAT-FATAL
|
|
END-IF
|
|
ELSE
|
|
SET LAES-VIDARE TO TRUE
|
|
PERFORM UNTIL NOT LAES-VIDARE
|
|
PERFORM X-DRIVE-READ
|
|
END-PERFORM
|
|
END-IF.
|
|
|
|
CLOSE XXXXX.
|
|
|
|
MOVE W-THRUFIL TO LOGG-FIL.
|
|
MOVE ":" TO LOGG-SEMI.
|
|
|
|
X-DRIVE-1999-END.
|
|
EXIT.
|
|
|
|
X-DRIVE-READ SECTION.
|
|
|
|
READ XXXXX NEXT
|
|
IF FILSLUT
|
|
MOVE "OK" TO LOGG-TEXT
|
|
SET LAES-VIDARE TO FALSE
|
|
EXIT SECTION
|
|
END-IF
|
|
IF ACCESSFEL AND NOT POST-LOCKED
|
|
IF POST-SAKNAS
|
|
MOVE "FIL TOM" TO LOGG-TEXT
|
|
ELSE
|
|
PERFORM X-FORMAT-FATAL
|
|
END-IF
|
|
SET LAES-VIDARE TO FALSE
|
|
EXIT SECTION
|
|
END-IF
|
|
|
|
* Exempel som loggar en parameter hos alla kunder.
|
|
* Levereras med en upddata och g}r i nattk|rningen.
|
|
* H{mtas hem med pqget tv} dagar senare.
|
|
* IF GRUND-AVD = 0 AND GRUND-SYSTEM = SPACE AND
|
|
* GRUND-POSTTYP = "GEMEN"
|
|
* MOVE MENY-FORNR TO LOGGRAD
|
|
* MOVE GRUND-AFFOREDOV TO LOGGRAD(6:1)
|
|
* IF GRUND-AFFOREDOV = 1
|
|
* MOVE "OBS!" TO LOGGRAD(8:4)
|
|
* END-IF
|
|
* PERFORM X-SKRIV-LOG
|
|
* END-IF.
|
|
|
|
* IF OBFIL-VAKOD = "EVR"
|
|
* MOVE MENY-FORNR TO LOGGRAD
|
|
* MOVE OBFIL-FAKTNR TO W-NUM8
|
|
* MOVE W-NUM8 TO LOGGRAD(6:8)
|
|
* MOVE OBFIL-VAKOD TO LOGGRAD(15:3)
|
|
* PERFORM X-SKRIV-LOG
|
|
* END-IF.
|
|
|
|
* Observera filen {r |ppnad med INPUT
|
|
******* L{gg in vad programmet ska g|ra h{r ******************
|
|
|
|
|
|
|
|
******* *********************************** ******************
|
|
.
|
|
X-DRIVE-READ-EX.
|
|
EXIT.
|
|
|
|
X-SKRIV-LOG SECTION.
|
|
X-SKRIV-10000-START.
|
|
|
|
MOVE MENY-FORNR TO W-FILFORNR.
|
|
OPEN EXTEND LOGG.
|
|
WRITE LOGGRAD BEFORE 1.
|
|
CLOSE LOGG.
|
|
|
|
X-SKRIV-10900-SLUT.
|
|
EXIT.
|
|
|
|
X-FORMAT-FATAL SECTION.
|
|
X-SKRIV-11000-START.
|
|
|
|
MOVE "FEL" TO LOGG-TEXT(1:3)
|
|
MOVE F-STATUS TO LOGG-TEXT(5:2)
|
|
IF F-STATUS1 = 9
|
|
MOVE LOW-VALUES TO F-STATUS1
|
|
MOVE F-STATUS-BIN TO W-SUBSTATUS
|
|
MOVE W-SUBSTATUS TO LOGG-TEXT(8:3)
|
|
MOVE FATAL-TABTEXT(W-SUBSTATUS) TO LOGG-TEXT(12:68)
|
|
EXIT SECTION
|
|
END-IF
|
|
|
|
EVALUATE F-STATUS
|
|
WHEN "10" MOVE 10 TO W-SUBSTATUS
|
|
WHEN "22" MOVE 66 TO W-SUBSTATUS
|
|
WHEN "23" MOVE 73 TO W-SUBSTATUS
|
|
WHEN "39" MOVE 139 TO W-SUBSTATUS
|
|
WHEN "41" MOVE 12 TO W-SUBSTATUS
|
|
WHEN "46" MOVE 146 TO W-SUBSTATUS
|
|
WHEN "47" MOVE 147 TO W-SUBSTATUS
|
|
WHEN "48" MOVE 148 TO W-SUBSTATUS
|
|
WHEN "49" MOVE 149 TO W-SUBSTATUS
|
|
END-EVALUATE
|
|
|
|
IF W-SUBSTATUS NOT < 1 AND NOT > 254
|
|
MOVE FATAL-TABTEXT(W-SUBSTATUS) TO LOGG-TEXT(12:68)
|
|
END-IF
|
|
.
|
|
|
|
X-SKRIV-11900-SLUT.
|
|
EXIT.</value>
|
|
<comment>Normalt genomläsningsprogram för idx-fil</comment>
|
|
</data>
|
|
<data name="CobMallXML" xml:space="preserve">
|
|
<value> $set p(prexml) (htmlpp) endp
|
|
*=================================================================
|
|
copy "cblproto".
|
|
*-----------------------------------------------------------------
|
|
*
|
|
* FUNKTION PROGRAM MALL XML
|
|
* SYSTEM $SYSTEM
|
|
* PROGRAM-ID YYYYYYY
|
|
* AUTHOR TOMMY ÖMAN, FordonsData AB
|
|
* DATUM 150908
|
|
* $BESKRIVNING
|
|
*
|
|
*
|
|
*$$
|
|
*----------------------------------------------------------------
|
|
*$DATUM SIGN ÄNDRING
|
|
* ------ ---- -------------------------------------------------
|
|
*$ÄNDRINGAR
|
|
* 150908 TO Nytt program
|
|
*$$
|
|
*----------------------------------------------------------------
|
|
|
|
/-----------------------------------------------------------------
|
|
identification division.
|
|
*-----------------------------------------------------------------
|
|
program-id. YYYYYYY.
|
|
|
|
/-----------------------------------------------------------------
|
|
input-output section.
|
|
*-----------------------------------------------------------------
|
|
file-control.
|
|
select loggfil assign to logg-id
|
|
organization line sequential
|
|
status f-status.
|
|
|
|
select xml-stream
|
|
assign w-url
|
|
organization xml
|
|
document-type omitted
|
|
file status stream-status.
|
|
|
|
/-----------------------------------------------------------------
|
|
data division.
|
|
*-----------------------------------------------------------------
|
|
file section.
|
|
|
|
fd loggfil.
|
|
01 logg-post pic x(5000).
|
|
|
|
xd xml-stream.
|
|
copy "$copyxmlxd".
|
|
|
|
|
|
*-----------------------------------------------------------------
|
|
working-storage section.
|
|
*-----------------------------------------------------------------
|
|
|
|
78 WINMACH value "COMPUTERNAME".
|
|
78 UNIXMACH value "HOSTNAME".
|
|
78 NoName value "No Name".
|
|
78 ENVTVARVALUELEN VALUE 200.
|
|
78 KOBRALIB VALUE "KOBRADIR".
|
|
*-----------------------------------------------------------------
|
|
77 tx-program pic x($FNL) value "YYYYYYY".
|
|
77 w-kobradir pic x(50) value space.
|
|
77 urltrace-dyn pic x(50) value space.
|
|
77 procinstr-value pic x(200) value space.
|
|
01 int-felkod pic s9(9) comp-5 value 0.
|
|
|
|
******************************************************************
|
|
*
|
|
* STATUSAR
|
|
*
|
|
******************************************************************
|
|
|
|
*xml file status
|
|
01 STREAM-STATUS PIC S9(9).
|
|
01 config-found-x pic x(01) value space.
|
|
88 config-default value space.
|
|
88 config-found value "X".
|
|
01 W-CBL-RETURN-CODE PIC X(02) COMP-5 VALUE 0.
|
|
|
|
01 CGOI_parameter-block cblt-os-info-params.
|
|
01 processId cblt-x4-comp5.
|
|
01 processIdNum pic 9(8).
|
|
01 separator pic x.
|
|
88 separatorWindows value "\".
|
|
88 separatorUnix value "/".
|
|
01 LSSEQterminator pic xx value x"0D0A".
|
|
88 LSSEQterminatorWindows value x"0D0A".
|
|
88 LSSEQterminatorUnix value x"0A".
|
|
01 LSSEQterminatorLen pic 9 value 2.
|
|
01 status-code cblt-x4-comp5.
|
|
01 machine-name pic x(10) value space.
|
|
*----------- LOGGING ----------------------------------------
|
|
01 ws-logg-open pic 9 value 0.
|
|
88 loggopen value 1.
|
|
88 loggclosed value 0.
|
|
|
|
01 logdata.
|
|
03 logdatetime.
|
|
05 filler pic x value "<".
|
|
05 log-aar pic 9(04).
|
|
05 filler pic x value "-".
|
|
05 log-man pic 9(02).
|
|
05 filler pic x value "-".
|
|
05 log-dag pic 9(02).
|
|
05 filler pic x value "_".
|
|
05 logtid.
|
|
07 MSK-TIMME pic 9(02).
|
|
07 filler pic x value ":".
|
|
07 MSK-MINUT pic 9(02).
|
|
07 filler pic x value ":".
|
|
07 MSK-SEKUND pic 9(02).
|
|
07 filler pic x value ",".
|
|
07 MSK-HUNDRADEL pic 9(02).
|
|
05 filler pic x value ">".
|
|
03 lograder pic 9 .
|
|
03 kx-rad pic 9 .
|
|
03 kx-ptr cblt-sx4-comp5 value 0.
|
|
03 loginfo.
|
|
05 logstr occurs 5 pic x(200).
|
|
05 logradut pic x(230).
|
|
|
|
01 logg-post-save pic x(5000).
|
|
*----------- LOGGING ----------------------------------------
|
|
01 ENVTVARNAME PIC X(20) VALUE KOBRALIB.
|
|
01 ENVTVARVALUE PIC X( ENVTVARVALUELEN )
|
|
VALUE SPACES.
|
|
01 w-url pic x(100).
|
|
|
|
*-----------------------------------------------------------------
|
|
copy copwsstd.
|
|
|
|
*-----------------------------------------------------------------
|
|
linkage section.
|
|
copy coplsmeny.
|
|
copy coplsglobal.
|
|
copy coplssystem.
|
|
|
|
/----------------------------------------------------------------
|
|
procedure division using meny-area glob-area syst-area.
|
|
*-----------------------------------------------------------------
|
|
program-styr section.
|
|
perform get-os-info
|
|
perform initdatum
|
|
|
|
move "Nu startar vi programmet" to logstr (1)
|
|
move 1 to lograder
|
|
perform display-log
|
|
|
|
move "$xmlfilnamn" to w-url
|
|
open input xml-stream
|
|
|
|
perform laes-xmldata
|
|
|
|
close xml-stream
|
|
perform end-program.
|
|
program-styr-ex.
|
|
exit.
|
|
|
|
laes-xmldata section.
|
|
move "Start av xml-läsning" to logstr (1)
|
|
move 1 to lograder
|
|
perform display-log
|
|
|
|
copy "$copyxmlrun"
|
|
|
|
move "Avslutar xml-läsning" to logstr (1)
|
|
move 1 to lograder
|
|
perform display-log
|
|
.
|
|
laes-xmldata-ex.
|
|
exit.
|
|
|
|
*-----------------------------------------------------------------
|
|
display-log section.
|
|
perform log-date-time
|
|
if loggclosed
|
|
perform openlogfile
|
|
end-if
|
|
if lograder > 0
|
|
perform varying kx-rad from 1 by 1
|
|
until kx-rad > lograder
|
|
move space to logradut
|
|
move 1 to kx-ptr
|
|
string logdatetime delimited by size
|
|
" (" delimited by size
|
|
kx-rad
|
|
") "
|
|
logstr (kx-rad) delimited by " "
|
|
into logradut
|
|
with pointer kx-ptr
|
|
end-string
|
|
move logradut (1:kx-ptr) to logg-post
|
|
write logg-post
|
|
move space to logg-post
|
|
initialize loginfo
|
|
end-perform
|
|
else
|
|
write logg-post
|
|
move space to logg-post
|
|
initialize loginfo
|
|
end-if
|
|
.
|
|
display-log-ex.
|
|
exit.
|
|
|
|
OpenLogFile SECTION.
|
|
|
|
string
|
|
w-env-kobradir delimited by space
|
|
separator
|
|
"log"
|
|
separator
|
|
"YYYYYYYWS.log"
|
|
into logg-id
|
|
end-string
|
|
open extend loggfil
|
|
set loggopen to true.
|
|
|
|
move logg-post to logg-post-save
|
|
initialize logg-post
|
|
|
|
string
|
|
logdatetime
|
|
" företag: "
|
|
meny-fornr
|
|
" avdelning: "
|
|
syst-avdnrhem
|
|
" --------------------------------------------"
|
|
into logg-post
|
|
end-string
|
|
write logg-post
|
|
move logg-post-save to logg-post
|
|
.
|
|
OpenLogFile-EX.
|
|
EXIT.
|
|
|
|
log-date-time section.
|
|
move mskss-ar to log-aar
|
|
move mskss-man to log-man
|
|
move mskss-dag to log-dag
|
|
accept maskintid from time
|
|
move corr maskintid-r to logtid
|
|
.
|
|
log-date-time-ex.
|
|
exit.
|
|
|
|
GET-OS-INFO SECTION.
|
|
move length of CGOI_parameter-block
|
|
to cblte-osi-length of CGOI_parameter-block
|
|
call CBL-GET-OS-INFO using CGOI_parameter-block
|
|
returning status-code
|
|
evaluate cblte-osi-os-type of CGOI_parameter-block
|
|
when 131
|
|
perform FetchWinProcessId
|
|
when 128
|
|
perform FetchUnixProcessId
|
|
when other
|
|
move 999999 to processIdNum *> abnormal to go here!
|
|
end-evaluate
|
|
move processId to processIdNum
|
|
.
|
|
GET-OS-INFO-EX.
|
|
EXIT.
|
|
|
|
FetchWinProcessId section.
|
|
call "_getpid" returning processId
|
|
set separatorWindows to true
|
|
set LSSEQterminatorWindows to true
|
|
move 2 to LSSEQterminatorLen
|
|
|
|
move WINMACH TO EnvtVarName
|
|
perform FetchEnvironmentVar
|
|
if EnvtVarValue = space
|
|
move NoName to machine-name
|
|
else
|
|
move EnvtVarValue to machine-name
|
|
end-if
|
|
.
|
|
FetchWinProcessId-ex.
|
|
exit.
|
|
*=================================================================
|
|
FetchUnixProcessId section.
|
|
call "getpid" returning processId
|
|
set separatorUnix to true
|
|
set LSSEQterminatorUnix to true
|
|
move 1 to LSSEQterminatorLen
|
|
|
|
* perform fixHostName
|
|
.
|
|
FetchUnixProcessId-ex.
|
|
exit.
|
|
|
|
*===== G E T E N V T V A R ======================================
|
|
FetchEnvironmentVar section.
|
|
*--> read the value of environment variable
|
|
display EnvtVarName upon environment-name
|
|
move space to EnvtVarValue
|
|
accept EnvtVarValue from environment-value.
|
|
.
|
|
FetchEnvironmentVar-ex.
|
|
exit.
|
|
|
|
*===== S E T E N V T V A R =======================================
|
|
UpdateEnvironmentVar section.
|
|
display EnvtVarName upon environment-name
|
|
display EnvtVarValue upon environment-value
|
|
.
|
|
UpdateEnvironmentVar-ex.
|
|
exit.
|
|
|
|
*-----------------------------------------------------------------
|
|
*> Avsluta programmet
|
|
end-program section.
|
|
close LOGGFIL
|
|
stop run
|
|
.
|
|
end-program-ex.
|
|
exit.
|
|
|
|
|
|
COPY COPPDINITSS.</value>
|
|
<comment>mall för läsning xml</comment>
|
|
</data>
|
|
</root> |