CALL KZINIT
CALL KZFILE(LUN)
LUN |
Logical unit number assigned to tthe file |
CALL KZEND(LUN)
LUN |
Logical unit number assigned to tthe file |
CALL KZBCR0(CNAME,IERR)
CNAME |
Name of a new bank with < 33 characters. |
IERR |
Error flag. |
CALL KZBCR1(CNAME,LMAST,CFORMM, NSEGM,LSEGM,CFORMS,IERR)
CNAME |
Name of the new bank with < 33 characters. |
LMAST |
Length of its master segment. |
CFORMM |
Format of the master segment in ZEBRA format. |
NSEMG |
Number of data segments. |
LSEGM |
Length of data segments. |
CFORMS |
Format of data segments in ZEBRA format. |
IERR |
Error flag. |
CALL KZBCR2(CNAME,LMAST,CFORMM, NSEGM,LSEGM,CFORMS,IERR)
CNAME |
Name of the new bank with < 33 characters. |
LMAST |
Length of its master segment. |
CFORMM |
Format of the master segment in ZEBRA format. |
NSEMG |
Number of data segments. |
LSEGM |
Length of data segments. |
CFORMS |
Format of data segments in ZEBRA format. |
IERR |
Error flag. |
CALL KZBDEL(CNAME)
CNAME |
A name of a bank to be deleted. |
CALL KZBTYP(CNAME,ITYPE)
CNAME |
A name of a bank to be deleted. |
ITYPE |
A type of the bank |
CALL KZADD0(CNAME,ISEGM,CFORM,NDATA,IDATA)
CNAME |
Name of the bank |
ISEGM |
Segment number |
CFORM |
Format of the data in a character |
NDATA |
Length of the data to be added |
IDATA | Data words |
CALL KZREP1(CNAME,ISEGM,NDATA,IDATA)
CNAME |
Name of the bank |
ISEGM |
Segment number |
NDATA |
Length of the data to be added |
IDATA | Data words |
CALL KZREP2(CNAME,ISEGM,ISSEG,NDATA,IDATA)
CNAME |
Name of the bank |
ISEGM |
Segment number |
ISSEGM |
Sub-segment number |
NDATA |
Length of the data to be added |
IDATA | Data words |
CALL KZPUT0(CNAME,ISEGM,NWOFF,CFORM,NDATA,IDATA)
CNAME |
Name of the bank |
ISEGM |
Segment number |
NWOFF |
Number of offset words from the beginning of the segment |
CFORM |
Format of the data word in a character |
NDATA |
Length of the data to be added |
IDATA | Data words |
CALL KZPUT1(CNAME,ISEGM,NWOFF,NDATA,IDATA)
CNAME |
Name of the bank |
ISEGM |
Segment number |
NWOFF |
Number of offset words from the beginning of the segment |
NDATA |
Length of the data to be added |
IDATA | Data words |
CALL KZPUT2(CNAME,ISEGM,ISSEG,NWOFF,NDATA,IDATA)
CNAME |
Name of the bank |
ISEGM |
Segment number |
ISSEGM |
Sub-segment number |
NWOFF |
Number of offset words from the beginning of the segment |
NDATA |
Length of the data to be added |
IDATA | Data words |
CALL KZGET0(CNAME,ISEGM,NDATA,IDATA)
CNAME |
Name of the bank |
ISEGM |
Segment number |
NDATA |
Length of the data to be added |
IDATA | Data words |
CALL KZGET1(CNAME,ISEGM,NDATA,IDATA)
CNAME |
Name of the bank |
ISEGM |
Segment number |
NDATA |
Length of the data to be added |
IDATA | Data words |
CALL KZGET2(CNAME,ISEGM,ISSEG,NDATA,IDATA)
CNAME |
Name of the bank |
ISEGM |
Segment number |
ISSEGM |
Sub-segment number |
NDATA |
Length of the data to be added |
IDATA | Data words |
CALL KZNSEG(CNAME,NSEGM)
CNAME |
Name of the bank |
NSEGM | Number of segments |
CALL KZLSEG(CNAME,ISEGM,LSEGM)
CNAME |
Name of the bank |
ISEGM | Segment number |
LSEGM | Length of the segment |
CALL KZNSSG(CNAME,ISEGM,NSSEGM)
CNAME |
Name of the bank |
ISEGM | Segment number |
NSSEGM | Number of sub-segments |
CALL KZREAD(LUN,IERR)
LUN |
Logica unit number of the input file | |
IERR |
Error flag | |
= 0 |
Normal return | |
= 1 |
Find EOF while reading event |
CALL KZWRIT(LUN)
LUN |
Logical unit number of the output file |
CALL KZECLR
CALL KZPUTH(IDATA)
CALL KZGETH(IDATA)
CALL KZENEW
CALL KZEDEL
CALL KZEFST
CALL KZELST
CALL KZENXT(ICOND)
ICOND |
Return code | |
= 0 |
Normal return | |
= 1 |
The event is the last event in the event buffer. There is no next event more. |
CALL KZEPRV(ICOND)
ICOND |
Return code | |
= 0 |
Normal return | |
= 1 |
The event is the first event in the event buffer. There is no previous event more. |
CALL KZEJMP(NEVJMP,ICOND)
NEVJMP |
Number of events to be skipped | |
ICOND |
Return code | |
= 0 |
Normal return | |
= 1 |
If the skip of events exceeds the event buffer. |
CALL KZENUM(NEVENT,IEVENT)
NEVENT |
Total number of events in the event buffer. |
IEVENT |
Event number of the current event in the event buffer |
CALL KZECUR(IEVENT,ICOND)
IEVENT |
Event number of the event in the event buffer which is to be marked at "current". | |
ICOND |
Return code | |
= 0 |
Normal return | |
= 1 |
Target event is not included in the event buffer. |
CALL KZEMRK
CALL KZEMRG
CALL KZMDEL
CALL KZMFST
CALL KZMLST
CALL KZMNXT(ICOND)
ICOND |
Return code | |
= 0 |
Normal return | |
= 1 |
The sub-event is the last sub-event in the event. There is no next sub-event more. |
CALL KZMPRV(ICOND)
ICOND |
Return code | |
= 0 |
Normal return | |
= 1 |
The sub-event is the first sub-event in the event. There is no previous sub-event more. |
CALL KZMJMP(NEVJMP,ICOND)
NEVJMP |
Number of sub-events to be skipped | |
ICOND |
Return code | |
= 0 |
Normal return | |
= 1 |
If the skip of sub-events exceeds the event. |
CALL KZMNUM(NSBEVT,ISBEVT)
NSBEVT |
Total number of sub-events in the event. |
ISBEVT |
Sub-event number of the current sub-event in the event |
CALL KZMCUR(ISBEVT,ICOND)
ISBEVT |
Sub-event number of the sub-event in the event which is to be marked at "current". | |
ICOND |
Return code | |
= 0 |
Normal return | |
= 1 |
Target sub-event is not included in the event. |