Table of Contents

Search

  1. Preface
  2. PowerExchange Navigator Introduction
  3. Data Maps
  4. Data Maps for Specific Data Sources
  5. Copybooks
  6. Registration Groups and Capture Registrations
  7. Extraction Groups and Extraction Maps
  8. Personal Metadata
  9. Database Row Test
  10. PowerExchange Navigator Examples
  11. Appendix A: PowerExchange Functions for User-Defined Fields
  12. Appendix B: User Access Method Programs
  13. Appendix C: Application Groups and Applications
  14. Appendix D: Data Map Properties
  15. Appendix E: Record, Field, and Table Properties
  16. Appendix F: DTL__CAPXTIMESTAMP Time Stamps
  17. Appendix G: Trace for Creating a Memory Map When Importing a COBOL Copybook

Navigator User Guide

Navigator User Guide

Assembler Program Linkage - Example

Assembler Program Linkage - Example

The following code shows an example of Assembler program linkage:
L R3,0(R1) get address of argument 1 L R4,0(R3) get NumberFields value C R4,=F'2' Required value of 2 ? BNE BADARGS *---------------------------------------------------------------------- * Get arguments *---------------------------------------------------------------------- NBRARGOK DS 0H L R3,4(R1) get address of argument 2 ST R3,AMSGBFF = address of message buffer L R3,8(R1) get address of argument 3 ST R3,AMSGBFSZ = size of message buffer L R3,12(R1) get address of argument 4 ST R3,ATEXT = address of text argument L R3,16(R1) get address of argument 5 ST R3,ATEXTLEN = length of text argument (15) L R3,20(R1) get address of argument 6 ST R3,ANUMBER = address of number L R3,24(R1) get address of argument 7 ST R3,ANUMBLEN = length of number (always 4) ... AMSGBFF DS F AMSGBFSZ DS F ATEXT DS F ATEXTLEN DS F ANUMBER DS F ANUMBLEN DS F
In the example program, two fields are passed to the Assembler program. The first field is called TEXT. Data can be moved to it and from it using the fourth address in the list - the address in 12(R1). If it is not a fixed-length CHAR field, then use the data length to determine the actual length the address in 16(R1).

0 COMMENTS

We’d like to hear from you!