//*************************************************************
//* *
//* ASMDEBUG -- SAMPLE PROCEDURE FOR ASSEMBLING HIGH LEVEL *
//* ASSEMBLER PROGRAMS AND DO THE XTRACT STEP *
//* FOR DOING THE SYMBOLIC ASSEMBLER DEBUG. *
//* *
//* Licensed Materials - Property of IBM *
//* 5724-B67 *
//* (C) Copyright IBM Corp. 2003 *
//* *
//* WebSphere Studio Enterprise Developer Options for z/OS *
//* *
//*************************************************************
//* *
//* CUSTOMIZE THIS PROCEDURE AS PER YOUR SITE REQUIREMENTS *
//* *
//* THIS PROCEDURE WILL BE USED BY WSED TO ASSEMBLE HIGH *
//* LEVEL ASSEMBLER PROGRAMS. *
//* *
//* CUSTOMIZATION TASKS: *
//* *
//* 1) MODIFY THE LNGPRFX VALUE AS PER YOUR SITE *
//* REQUIREMENTS. DEFAULT VALUE IS 'SYS1' *
//* *
//* ADDITIONAL COMMENTS: *
//* *
//* SYSIN, SYSLIN AND SYSLIB DD CARDS WILL BE PROVIDED *
//* BY THE GENERATION CODE. *
//* *
//*************************************************************
//ASMDEBUG PROC LNGPRFX='SYS1'
//ASM EXEC PGM=ASMA90,REGION=2048K,
// PARM=('TEST',
// 'ADATA',
// 'LIST')
//STEPLIB DD DSN=&LNGPRFX..LINKLIB,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSLIN DD DUMMY
//SYSUT1 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))
//SYSUT2 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))
//SYSUT3 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))
//SYSUT4 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))
//SYSUT5 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))
//SYSUT6 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))
//SYSUT7 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))
//*
//SYSTERM DD SYSOUT=*
//SYSADATA DD DSNAME=&ADATADS(&MEM),DISP=SHR
//XTRACT EXEC PGM=EQALANGX,REGION=32M,
// PARM='&MEM (ASM ERROR OFT IDILANGX FAULT'
//SYSADATA DD DSNAME=&ADATADS(&MEM),DISP=SHR
//IDILANGX DD DSNAME=&LANGXDX(&MEM),DISP=SHR
//*
| Option d'assemblage | Valeur |
|---|---|
| Nom de procédure | ASMDEBUG |
| Nom d'étape de procédure d'assemblage | ASM |
| Fichier de paquet de cartes objet | HLQ.ASMOBJS.OBJ |
| Bibliothèques de macro | SYS1.MACLIB CEEV2R1M0.SCEEMAC |
| Nom de la variable | Valeur de la variable |
|---|---|
| LANGXDS | HLQ.EQALANGX |
| ADATADS | HLQ.ASM.ADATA |
Pendant le processus de construction, lorsque le JCL est généré pour la construction, une instruction SET est créée en début du travail pour les variables spécifiées sur la page Substitution JCL du groupe de propriétés.
TESTDBG CEEENTRY PPA=MAINPPA,AUTO=WORKSIZE
USING WORKAREA,R13
*
LA R02,STRT_MSG
LA R03,DEST
LA R04,FBCODE
STM R02,R04,PLIST
LA R01,PLIST
L R15,MOUT
BALR R14,R15
*
PACK PCKA,ZNA
PACK PCKB,ZNB
PACK PCKC,ZNC
ZAP PCKSUM,PCKA
AP PCKSUM,PCKB
AP PCKSUM,PCKC
MVC OUTSUM,SUMMSK
ED OUTSUM,PCKSUM
MVC SUMMSG+1(8),OUTSUM
MVC LINE_ST,SUMMSG
*
LA R02,LINE_MSG
LA R03,DEST
LA R04,FBCODE
STM R02,R04,PLIST
LA R01,PLIST
L R15,MOUT
BALR R14,R15
*
LA R02,DONE_MSG
LA R03,DEST
LA R04,FBCODE
STM R02,R04,PLIST
LA R01,PLIST
L R15,MOUT
BALR R14,R15
*
CEETERM RC=0
* ==============================================================
* Constantes et variables
* ==============================================================
ZLEN EQU 5
PLEN EQU ZLEN/2+1
*
SUMMSG DC C'(xxxxxxxx) -- The sum '
SUMMSK DC X'4020202020202120'
ZNA DC ZL5'100'
ZNB DC ZL5'150'
ZNC DC ZL5'50'
*
PCKA DS PL(PLEN)
PCKB DS PL(PLEN)
PCKC DS PL(PLEN)
PCKSUM DS PL(PLEN+1)
OUTSUM DS CL(L'SUMMSK)
*
MOUT DC V(CEEMOUT) Service de message CEL
*
LINE_MSG DS 0F
DC AL2(LINE_END-LINE_ST)
LINE_ST DS CL25
LINE_END EQU *
*
STRT_MSG DS 0F
DC AL2(STRT_END-STRT_ST)
STRT_ST DC C'Starting the program.'
STRT_END EQU *
*
DONE_MSG DS 0F
DC AL2(DONE_END-DONE_ST)
DONE_ST DC C'Terminating the program.'
DONE_END EQU *
*
DEST DC F'2' La destination est le fichier MSGFILE
*
MAINPPA CEEPPA
* ===================================================================
* Espace de travail et DSA
* ===================================================================
WORKAREA DSECT
ORG *+CEEDSASZ
PLIST DS 0D
PARM1 DS A
PARM2 DS A
PARM3 DS A
PARM4 DS A
PARM5 DS A
*
FBCODE DS 3F
*
DS 0D
WORKSIZE EQU *-WORKAREA
CEEDSA Mappage de la zone d'enregistrement dynamique
CEECAA Mappage de la zone d'ancrage commune
*
R00 EQU 0
R01 EQU 1
R02 EQU 2
R03 EQU 3
R04 EQU 4
R05 EQU 5
R06 EQU 6
R07 EQU 7
R08 EQU 8
R09 EQU 9
R10 EQU 10
R11 EQU 11
R12 EQU 12
R13 EQU 13
R14 EQU 14
R15 EQU 15
END TESTDBG