APC Header as Assembler DSECT
-----------------------------

*-------------------------------------------------------------*
*........APC HEADER...........................................*
*-------------------------------------------------------------*
APCDUMMY DSECT
APCREQID DS CL4 REQEST ID:
* SAP-CONNECT: CONN
* SAP-FREE: FREE
* SAP-APPC-COMMUNICATION: APPC
APCTYPE DS CL4 TYPE OF PROCESSING:
* BATCH INPUT: BTCI
* PRESENTATION ON IWS: DYNP
* REMOTE DIALOG CALL: RDIA
* FREE PROTOCOL: BLANK
APCMODNR DS CL1 MODE NUMBER
APCSTYPE DS CL1 START NEW TYPE (X)
APCERRCD DS CL1 ERROR-/ABEND-CODE
APCCHSET DS CL1 X'C5' = EBCDIC otherwise ASCII
APCVDATA EQU * PARAMETERS
SPACE 1
*........ERROR-MESSAGE (APCERRCD = E).................................*
ORG APCVDATA
APCEMSGN DS CL5 MESSAGE-NUMBER
APCEMSGT DS CL80 MESSAGE-TEXT
APCEMSGL EQU *-APCDUMMY MESSAGE-LENGTH
SPACE 1
*........REQUEST-ID CONN..............................................*
ORG APCVDATA
APCMANDT DS CL3 CLIENT
APCBNAME DS CL12 BATCH-INPUT GROUPNAME (TYPE=BTCI)
* OR USERNAME
APCPASSW DS CL8 PASSWORD
APCLANGU DS CL1 LANGUAGE
APCKORRV DS CL1 CORRECTION RESPONSIBILITY (TYPE=BTCI)
* R = RECEIVER
* S = SENDER
APCCMSGL EQU *-APCDUMMY MESSAGE-LENGTH
SPACE 1
*........REQUEST-ID CONN..............................................*
*........FREIES PROTOKOLL.............................................*
APCPGMNM DS CL8 ABAP PROGRAM NAME
APCMODNM DS CL30 ABAP MODULE NAME


*........REQUEST-ID APPC..............................................*
*........BATCH INPUT PROCESSING (TYPE = BTCI).........................*
ORG APCVDATA HOST INPUT.........................*
APCBSYNC DS CL1 SYNCPOINT INFORMATION
APCBSYNS EQU C'S' START TRANSACTION
APCBSYNM EQU C'M' BDC MESSAGE
APCBSTAT DS CL1 STATE OF PROCESSING

APCBSTAS EQU C'S' SYNCHRONOUS VB
APCBTCOD DS CL4 TRANSACTION
APCBPGMN DS CL8 PROGRAMM NAME
APCBDYNR DS CL4 DYNPRO NUMBER
APCBSEPR DS CL1 SEPERATOR
APCBCURF DS CL30 CURSOR-POSITION ON FIELD
APCBMSGL EQU *-APCDUMMY BTCI-HEADER LENGTH
DS CL1
APCBDATA EQU * START OF BDC DATA
SPACE 1
ORG APCVDATA RETURN INFORMATION.................*
APCRSTAT DS CL1 STATE
APCRSTAS EQU C'S' START TRANSACTION
APCRSTAF EQU C'F' TRANSACTION FINISHED
APCRSTAE EQU C'E' TRANSACTION IN ERROR
APCRSTAN EQU C'N' GET NEXT MESSAGE
APCRSTAA EQU C'A' ABEND APC-PROCESSING

*
APCRCODE DS CL4 ABENDCODE
APCRPGMN DS CL8 PROGRAMM NAME
APCRDYNR DS CL4 DYNPRO NUMBER
APCRMSGN DS CL5 MESSAGE-NUMBER
APCRMSGT DS CL80 MESSAGE-TEXT
APCRMSGL EQU *-APCDUMMY MESSAGE-LENGTH
SPACE 1
*........REQUEST-ID APPC..............................................*
*........DIALOG WITH WORKSTATION (TYPE = DYNP)........................*
ORG APCVDATA
APCDSTAT DS CL1 STATE OF PROCESSING
APCDSTAD EQU C'D' SEND DYNPRO (INITIAL OUTPUT)
APCDSTAM EQU C'M' SEND MESSAGE (DIALOGUE)
APCDTCOD DS CL4 TRANSAKTION / REPORT RJE03605
APCDDATA EQU * DATA (DYNPRO OR DIALOGUE MESSAGE)
SPACE 1
*........REQUEST-ID APPC..............................................*
*........REMOTE DIALOGCALL (TYPE = RDIA)..............................*
ORG APCVDATA
APCRPROG DS CL8 PROGRAMM NAME
APCRDYNP DS CL4 DYNPRO NUMBER
APCRDATA EQU * PARAMETER

APQ-Header als Assembler DSECT
------------------------------

*-------------------------------------------------------------*
*--- I-RECORD FOR OPEN GROUP (MAPPE) -------------------------*
*-------------------------------------------------------------*
$SBG3 DS 0C
APQI$BGIN DS 0CL1

***************************************************************
* S E G M E N T - H E A D E R *
***************************************************************
APQILENG DC XL2'176' MAXIMUM SEGMENT LENGTH
APQIRCRES DC XL2'0'
***************************************************************
* K E Y *
***************************************************************
APQIRTYP DC CL1' ' RECORD TYPE ID FOR APPC DATA RECORDS
APQIQNAM DS 0CL(61)
APQIDEST DC CL8' ' SAP TARGET SYSTEM NAME
APQIAPPL DC CL8' ' APPLIKATIONSNAME
APQIDTYP DC CL4' ' DATA TYPE OF TRANSFERRED DATA UNIT
APQIMAND DC CL3' ' CLIENT IN SAP TARGET SYSTEM
APQIPROG DC CL8' ' SAP PROGRAM IN TARGET SYSTEM
APQIMODP DC CL30' '
APQITRAN DC XL4'0' APPC INTEGER
APQIRECO DC XL4'0' APPC INTEGER
APQIFIXP DS 0CL(44)
APQITREI DC CL8' ' APPC PROGRAM NAME
APQISTRT DC CL1' ' APPC STATUS
APQICORR DC CL1' ' APPC STATUS
APQICRDA DC CL8' '
APQICRTI DC CL6' '
APQIUSER DC CL12' '
APQIPASS DC CL8' ' APPC PASSWORD FOR BTCI DATA TRANSFER
APQIOUAC DC CL1' ' APPC STATUS
APQIOUSY DC CL8' ' APPC PROGRAM NAME
APQIOUAP DC CL8' ' APPC PROGRAM NAME
APQIOUID DC XL4'0' APPC INTEGER
APQIOUTR DC XL4'0' APPC INTEGER
APQIOURE DC XL4'0' APPC INTEGER
APQIOUDA DC CL8' '
APQIOUTI DC CL6' '
APQIOUEN DC CL5' ' APPC MESSAGE NUMBER
APQIOUEM DC CL80' '
APQIINAC DC CL1' ' APPC STATUS
APQIINSY DC CL8' ' APPC PROGRAM NAME
APQIINAP DC CL8' ' APPC PROGRAM NAME
APQIINID DC XL4'0' APPC INTEGER
APQIINTR DC XL4'0' APPC INTEGER
APQIINRE DC XL4'0' APPC INTEGER
APQIINDA DC CL8' '
APQIINTI DC CL6' '
APQIINEN DC CL5' ' APPC MESSAGE NUMBER
APQIINEM DC CL80' '
APQIEND EQU *