The following record layout, mapped by COBOL member APCCMMSG, describes the Batch Interface output message record layout.
****************** < DESCRIPTION BEGIN > ********************
* *
* NAME : APCCMMSG *
* Product : PANAPT *
* Type : Cobol Copybook *
* *
* Descript. : PANAPT batch interface output records *020A*SYW
* *
* *
* Notices : This module is part of distributed source *020A*SYW
* code for PANAPT batch interface. *020A*SYW
* *
* Copyright (C) 1994, 1996 Computer Associates *030A*BAD
* International Inc. All rights reserved. *
* *
* This software is proprietary information and its *
* use by unauthorized persons is prohibited. *
* *
****************** < Description End > ********************
SKIP1
****************** < Documentation Begin > ********************
* *
* Function : To provide a common record description for the *
* PANAPT batch output message, list records. *020A*SYW
* *
* *
* Comments : This commom area is the output msg rec to almost *
* all batch modules. Any change to this layout may cause *
* the recompilation of most of the PANAPT batch modules. *
* *
* (Put most recent change at front of list) *020A*SYW
* *
* Date PTF/Vers Programmer Description *020A*SYW
* -------- -------- ----------- -------------------------------- *020A*SYW
* 04/11/96 030A*BAD DeFrang -Increased output record length *030A*BAD
* from halfword to fullword. *030A*BAD
* 07/10/94 APT2.0A S. Wang delete libcode list and inv list *020A*SYW
* records *020A*SYW
* *020A*SYW
* 05/12/94 APT2.0A S. Wang created *020A*SYW
****************** < Documentation End > ********************
SKIP1
01 APTB-MOVREQ-LST-REC. 020A*SYW
05 APTBMR-REC-LEN PIC 9(05) COMP. 030A*BAD
05 APTBMR-REC-TYPE PIC X(02). 020A*SYW
* A value of '09' indicates this record type. 030A*BAD
05 APTBMR-KEY PIC X(29). 020A*SYW
05 APTBMR-MOVE-TYPE PIC X(01). 020A*SYW
05 APTBMR-STATUS PIC X(06). 020A*SYW
05 APTBMR-FINAL-DATE PIC X(08). 020A*SYW
05 APTBMR-ORIGINATOR PIC X(08). 020A*SYW
05 APTBMR-DESCRIPTION PIC X(55). 020A*SYW
SKIP2
01 APTB-MSL-REC. 020A*SYW
05 APTBMSL-REC-LEN PIC 9(05) COMP. 030A*BAD
05 APTBMSL-REC-TYPE PIC X(02). 020A*SYW
* A value of '10' indicates this record type. 030A*BAD
05 APTBMSL-FROM-NAME PIC X(10). 020A*SYW
05 APTBMSL-FROM-DATA PIC X(08). 020A*SYW
05 APTBMSL-TO-NAME PIC X(10). 020A*SYW
05 APTBMSL-TO-DATA PIC X(08). 020A*SYW
05 APTBMSL-LIBSUB PIC X(07). 020A*SYW
SKIP2 020A*SYW
01 APT-MESSAGE-REC.
05 APTMSG-REC-LEN PIC 9(05) COMP. 030A*BAD
05 APTMSG-REC-TYPE PIC X(02).
* A value of '07' indicates this record type. 030A*BAD
05 APTMSG-MSGS-AREA PIC X(80).
SKIP2
|
Copyright © 2004 CA.
All rights reserved.
|
|