Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

this is my MFS compile output, I need help to debug it.

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> IMS DB/DC
View previous topic :: :: View next topic  
Author Message
DST

New User


Joined: 31 May 2007
Posts: 38
Location: America

PostPosted: Wed Sep 19, 2007 7:36 am    Post subject: this is my MFS compile output, I need help to debug it.
Reply with quote

This is a long list, I got a return code 4. Can someone help me find out what went wrong?

[code:1:0af8d77dd3]1 J E S 2 J O B L O G -- S Y S T E M 2 0 6 4 -- N O D E T S T M V S 0 1
0
13.08.22 JOB00777 ---- MONDAY, 17 SEP 2007 ----
13.08.22 JOB00777 IRR010I USERID IBMUSER IS ASSIGNED TO THIS JOB.
13.08.22 JOB00777 ICH70001I IBMUSER LAST ACCESS AT 16:21:42 ON SUNDAY, SEPTEMBER 16, 2007
13.08.22 JOB00777 $HASP373 MFSGEN STARTED - INIT 1 - CLASS A - SYS 2064
13.08.22 JOB00777 IEF403I MFSGEN - STARTED - TIME=13.08.22
13.08.24 JOB00777 - --TIMINGS (MINS.)-- ----PAGING COUNTS---
13.08.24 JOB00777 -JOBNAME STEPNAME PROCSTEP RC EXCP CPU SRB CLOCK SERV PG PAGE SWAP VIO SWAPS
13.08.24 JOB00777 -MFSGEN STEP1 S1 04 431 .0 .0 .0 15189 0 0 0 0 0
13.08.26 JOB00777 -MFSGEN STEP1 S2 04 1290 .0 .0 .0 15142 0 0 0 0 0
13.08.26 JOB00777 IEF404I MFSGEN - ENDED - TIME=13.08.26
13.08.26 JOB00777 -MFSGEN ENDED. NAME- TOTAL CPU TIME= .0 TOTAL ELAPSED TIME= .0
13.08.26 JOB00777 $HASP395 MFSGEN ENDED
0------ JES2 JOB STATISTICS ------
- 17 SEP 2007 JOB EXECUTION DATE
- 10 CARDS READ
- 6,614 SYSOUT PRINT RECORDS
- 0 SYSOUT PUNCH RECORDS
- 350 SYSOUT SPOOL KBYTES
- 0.06 MINUTES EXECUTION TIME
1 //MFSGEN JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1), JOB00777
// NOTIFY=&SYSUID 00020014
//* G AN - CHANGD S1.SYSIN TO CORRECT LIBRARY 00021014
//***************************************************************** 00030012
//* THIS JOB CREATES THE MFS FORMATS FOR THE HOTEL RESERVATION DEMO 00040010
//***************************************************************** 00420010
IEFC653I SUBSTITUTION JCL - CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),NOTIFY=IBMUSER
2 //IMSPROC JCLLIB ORDER=(IMS.V6R1M0.PROCLIB) 00430012
//* 00440011
3 //STEP1 EXEC PROC=MFSUTL,SOUT=A 00450011
4 XX PROC RGN=0K,SOUT=A,SYS2=, 00000010
XX SNODE='IMS.V6R1M0', 00000020
XX SOR=NOLIB,MBR=NOMBR,PXREF=NOXREF, 00000030
XX PCOMP=NOCOMP,PSUBS=NOSUBS,PDIAG=NODIAG, 00000040
XX COMPR=NOCOMPRESS,COMPR2=COMPRESS, 00000050
XX LN=55,SN=8,DEVCHAR=0,COMPR3=NOCOMPREND, 00000060
XX DIRUPDT=UPDATE 00000070
5 XXS1 EXEC PGM=DFSUPAA0,REGION=&RGN, 00000080
XX PARM=(&PXREF,&PCOMP,&PSUBS,&PDIAG, 00000090
XX &COMPR,'LINECNT=&LN,STOPRC=&SN', 00000100
XX 'DEVCHAR=&DEVCHAR') 00000110
IEFC653I SUBSTITUTION JCL - PGM=DFSUPAA0,REGION=0K,PARM=(NOXREF,NOCOMP,NOSUBS,NODIAG,NOCOMPRESS,'LINECNT=55,
STOPRC=8','DEVCHAR=0')
6 XXSTEPLIB DD DSN=IMS.V6R1M0.&SYS2.RESLIB,DISP=SHR 00000120
XX*SYSLIB - USER OPTION 00000130
IEFC653I SUBSTITUTION JCL - DSN=IMS.V6R1M0.RESLIB,DISP=SHR
7 //S1.SYSIN DD DISP=SHR,DSN=IMS.HOTELDEM.SOURCE(MFSSRCS2) 00460014
X/SYSIN DD DISP=SHR, 00000140
X/ DSN=&SNODE..&SOR.(&MBR) 00000150
IEFC653I SUBSTITUTION JCL - DISP=SHR,DSN=IMS.V6R1M0.NOLIB(NOMBR)
8 XXREFIN DD DSN=IMS.V6R1M0.&SYS2.REFERAL,DISP=OLD 00000160
IEFC653I SUBSTITUTION JCL - DSN=IMS.V6R1M0.REFERAL,DISP=OLD
9 XXREFOUT DD DSN=IMS.V6R1M0.&SYS2.REFERAL,DISP=OLD 00000170
IEFC653I SUBSTITUTION JCL - DSN=IMS.V6R1M0.REFERAL,DISP=OLD
10 XXREFRD DD DSN=IMS.V6R1M0.&SYS2.REFERAL,DISP=OLD 00000180
IEFC653I SUBSTITUTION JCL - DSN=IMS.V6R1M0.REFERAL,DISP=OLD
11 XXSYSTEXT DD DSN=&&TXTPASS,UNIT=SYSDA, 00000190
XX SPACE=(CYL,(1,1)),DCB=BLKSIZE=800 00000200
12 XXSYSUT3 DD UNIT=SYSDA,SPACE=(CYL,(1,1)) 00000210
13 XXSYSUT4 DD UNIT=SYSDA,SPACE=(CYL,(1,1)) 00000220
14 XXDUMMY DD DISP=SHR, 00000230
XX DSN=IMS.V6R1M0.&SYS2.PROCLIB(REFCPY) 00000240
IEFC653I SUBSTITUTION JCL - DISP=SHR,DSN=IMS.V6R1M0.PROCLIB(REFCPY)
15 XXUTPRINT DD SYSOUT=&SOUT 00000250
IEFC653I SUBSTITUTION JCL - SYSOUT=A
16 XXSYSPRINT DD SYSOUT=&SOUT, 00000260
XX DCB=(RECFM=FBA,LRECL=133,BLKSIZE=1330) 00000270
IEFC653I SUBSTITUTION JCL - SYSOUT=A,DCB=(RECFM=FBA,LRECL=133,BLKSIZE=1330)
17 XXSYSUDUMP DD SYSOUT=&SOUT 00000280
IEFC653I SUBSTITUTION JCL - SYSOUT=A
18 XXSEQBLKS DD DSN=&&BLKS,DISP=(NEW,PASS), 00000290
XX UNIT=SYSDA,SPACE=(CYL,(1,1)) 00000300
19 XXS2 EXEC PGM=DFSUNUB0,REGION=&RGN, 00000310
XX PARM=(&COMPR2,&COMPR3,&DIRUPDT, 00000320
XX 'DEVCHAR=&DEVCHAR'),COND=(8,LT,S1) 00000330
IEFC653I SUBSTITUTION JCL - PGM=DFSUNUB0,REGION=0K,PARM=(COMPRESS,NOCOMPREND,UPDATE,'DEVCHAR=0'),COND=(8,LT,S1
)
20 XXSTEPLIB DD DSN=IMS.V6R1M0.&SYS2.RESLIB,DISP=SHR 00000340
IEFC653I SUBSTITUTION JCL - DSN=IMS.V6R1M0.RESLIB,DISP=SHR
21 XXSEQBLKS DD DSN=&&BLKS,DISP=(OLD,DELETE) 00000350
22 XXUTPRINT DD SYSOUT=&SOUT, 00000360
XX DCB=(RECFM=FBA,LRECL=133,BLKSIZE=1330) 00000370
IEFC653I SUBSTITUTION JCL - SYSOUT=A,DCB=(RECFM=FBA,LRECL=133,BLKSIZE=1330)
23 XXSYSUDUMP DD SYSOUT=&SOUT 00000380
IEFC653I SUBSTITUTION JCL - SYSOUT=A
24 XXFORMAT DD DSN=IMS.V6R1M0.&SYS2.FORMAT,DISP=SHR 00000390
IEFC653I SUBSTITUTION JCL - DSN=IMS.V6R1M0.FORMAT,DISP=SHR
25 XXDUMMY DD DISP=SHR, 00000400
XX DSN=IMS.V6R1M0.&SYS2.PROCLIB(FMTCPY) 00000410
IEFC653I SUBSTITUTION JCL - DISP=SHR,DSN=IMS.V6R1M0.PROCLIB(FMTCPY)
26 XXSYSPRINT DD SYSOUT=&SOUT 00000420
IEFC653I SUBSTITUTION JCL - SYSOUT=A
27 XXSYSUT3 DD UNIT=SYSDA,SPACE=(CYL,(1,1)) 00000430
28 XXSYSUT4 DD UNIT=SYSDA,SPACE=(CYL,(1,1)) 00000440
STMT NO. MESSAGE
3 IEFC001I PROCEDURE MFSUTL WAS EXPANDED USING PRIVATE LIBRARY IMS.V6R1M0.PROCLIB
ICH70001I IBMUSER LAST ACCESS AT 16:21:42 ON SUNDAY, SEPTEMBER 16, 2007
IEF236I ALLOC. FOR MFSGEN S1 STEP1
IGD103I SMS ALLOCATED TO DDNAME STEPLIB
IGD103I SMS ALLOCATED TO DDNAME SYSIN
IGD103I SMS ALLOCATED TO DDNAME REFIN
IGD103I SMS ALLOCATED TO DDNAME REFOUT
IGD103I SMS ALLOCATED TO DDNAME REFRD
IGD101I SMS ALLOCATED TO DDNAME (SYSTEXT )
DSN (SYS07260.T130822.RA000.MFSGEN.TXTPASS.H01 )
STORCLAS (OSBASE) MGMTCLAS ( ) DATACLAS ( )
VOL SER NOS= DMTOS2
IGD101I SMS ALLOCATED TO DDNAME (SYSUT3 )
DSN (SYS07260.T130822.RA000.MFSGEN.R0100157 )
STORCLAS (OSBASE) MGMTCLAS ( ) DATACLAS ( )
VOL SER NOS= DMTOS3
IGD101I SMS ALLOCATED TO DDNAME (SYSUT4 )
DSN (SYS07260.T130822.RA000.MFSGEN.R0100158 )
STORCLAS (OSBASE) MGMTCLAS ( ) DATACLAS ( )
VOL SER NOS= DMTOS3
IGD103I SMS ALLOCATED TO DDNAME DUMMY
IEF237I JES2 ALLOCATED TO UTPRINT
IEF237I JES2 ALLOCATED TO SYSPRINT
IEF237I JES2 ALLOCATED TO SYSUDUMP
IGD101I SMS ALLOCATED TO DDNAME (SEQBLKS )
DSN (SYS07260.T130822.RA000.MFSGEN.BLKS.H01 )
STORCLAS (OSBASE) MGMTCLAS ( ) DATACLAS ( )
VOL SER NOS= DMTOS1
IEF142I MFSGEN S1 STEP1 - STEP WAS EXECUTED - COND CODE 0004
IGD104I IMS.V6R1M0.RESLIB RETAINED, DDNAME=STEPLIB
IGD104I IMS.HOTELDEM.SOURCE RETAINED, DDNAME=SYSIN
IGD104I IMS.V6R1M0.REFERAL RETAINED, DDNAME=REFIN
IGD104I IMS.V6R1M0.REFERAL RETAINED, DDNAME=REFOUT
IGD104I IMS.V6R1M0.REFERAL RETAINED, DDNAME=REFRD
IGD105I SYS07260.T130822.RA000.MFSGEN.TXTPASS.H01 DELETED, DDNAME=SYSTEXT
IGD105I SYS07260.T130822.RA000.MFSGEN.R0100157 DELETED, DDNAME=SYSUT3
IGD105I SYS07260.T130822.RA000.MFSGEN.R0100158 DELETED, DDNAME=SYSUT4
IGD104I IMS.V6R1M0.PROCLIB RETAINED, DDNAME=DUMMY
IEF285I IBMUSER.MFSGEN.JOB00777.D0000101.? SYSOUT
IEF285I IBMUSER.MFSGEN.JOB00777.D0000102.? SYSOUT
IEF285I IBMUSER.MFSGEN.JOB00777.D0000103.? SYSOUT
IGD106I SYS07260.T130822.RA000.MFSGEN.BLKS.H01 PASSED, DDNAME=SEQBLKS
IEF373I STEP/S1 /START 2007260.1308
IEF374I STEP/S1 /STOP 2007260.1308 CPU 0MIN 01.54SEC SRB 0MIN 00.06SEC VIRT 260K SYS 348K EXT 4K SYS 8968K
IEF236I ALLOC. FOR MFSGEN S2 STEP1
IGD103I SMS ALLOCATED TO DDNAME STEPLIB
IGD103I SMS ALLOCATED TO DDNAME SEQBLKS
IEF237I JES2 ALLOCATED TO UTPRINT
IEF237I JES2 ALLOCATED TO SYSUDUMP
IGD103I SMS ALLOCATED TO DDNAME FORMAT
IGD103I SMS ALLOCATED TO DDNAME DUMMY
IEF237I JES2 ALLOCATED TO SYSPRINT
IGD101I SMS ALLOCATED TO DDNAME (SYSUT3 )
DSN (SYS07260.T130822.RA000.MFSGEN.R0100159 )
STORCLAS (OSBASE) MGMTCLAS ( ) DATACLAS ( )
VOL SER NOS= DMTOS3
IGD101I SMS ALLOCATED TO DDNAME (SYSUT4 )
DSN (SYS07260.T130822.RA000.MFSGEN.R0100160 )
STORCLAS (OSBASE) MGMTCLAS ( ) DATACLAS ( )
VOL SER NOS= DMTOS2
IEF142I MFSGEN S2 STEP1 - STEP WAS EXECUTED - COND CODE 0004
IGD104I IMS.V6R1M0.RESLIB RETAINED, DDNAME=STEPLIB
IGD105I SYS07260.T130822.RA000.MFSGEN.BLKS.H01 DELETED, DDNAME=SEQBLKS
IEF285I IBMUSER.MFSGEN.JOB00777.D0000104.? SYSOUT
IEF285I IBMUSER.MFSGEN.JOB00777.D0000105.? SYSOUT
IGD104I IMS.V6R1M0.FORMAT RETAINED, DDNAME=FORMAT
IGD104I IMS.V6R1M0.PROCLIB RETAINED, DDNAME=DUMMY
IEF285I IBMUSER.MFSGEN.JOB00777.D0000106.? SYSOUT
IGD105I SYS07260.T130822.RA000.MFSGEN.R0100159 DELETED, DDNAME=SYSUT3
IGD105I SYS07260.T130822.RA000.MFSGEN.R0100160 DELETED, DDNAME=SYSUT4
IEF373I STEP/S2 /START 2007260.1308
IEF374I STEP/S2 /STOP 2007260.1308 CPU 0MIN 00.75SEC SRB 0MIN 00.32SEC VIRT 1252K SYS 352K EXT 4K SYS 8992K
IEF375I JOB/MFSGEN /START 2007260.1308
IEF376I JOB/MFSGEN /STOP 2007260.1308 CPU 0MIN 02.29SEC SRB 0MIN 00.38SEC
1MESSAGE/FORMAT SERVICE PREPROCESSOR 0001
-
ITB OBJECT CODE / ERRORS STMNT SOURCE STATEMENT COPY/STK

+PARM='NOXREF,NOCOMP,NOSUBS,NODIAG,NOCOMPRESS,LINECNT=55,STOPRC=8,DEVCHAR=0'
1MESSAGE/FORMAT SERVICE PREPROCESSOR 07.260 PAGE 0002
-
ITB OBJECT CODE / ERRORS STMNT SOURCE STATEMENT COPY/STK

1 * IMSCS/2 MCU - Mon Mar 22 1993 VERSION ( 0 ) *EMYDTH*
2 ALPHA '\' *EMYALP*
3 ALPHA 'abcdefghijklmnopqrstuvwxyz' *EMYALP*
4 * *EMYMFM*
5 $CONDOF$ MSG TYPE=OUTPUT, +
SOR=(CONDOF,IGNORE),OPT=1,PAGE=NO,FILL=NULL
000000 - $CONDOF$
00241100 5BC3D6D5 C4D6C65B EC000000
20000000 003FC3D6 D5C4D6C6 40404040
40404040
6 LPAGE SOR=$FAULT
000024 - LPG00006
00441200 D3D7C7F0 F0F0F0F6 90000000
00000000 00000000 003C0001 40404040
40404040 40404040 40404040 00000000
40404040 40404040 00000000 5BC6C1E4
D3E34040
7 SEG
000068 - SEG00007
00181301 E2C5C7F0 F0F0F0F7 80000000
80000000 00000000
8 MFLD ($EMYMLIT,'\2')
000080 - MFL00008
00361400 D4C6D3F0 F0F0F0F8 54000000
40000000 00000002 40005BC5 D4E8D4D3
C9E34040 40404040 40400034 00020000
00000000 E0F2
9 MSGEND
10 $QUEDF2$ MSG TYPE=OUTPUT, +
SOR=(QUEDF2,IGNORE),OPT=1,PAGE=NO,FILL=NULL
000000 - $QUEDF2$
00241100 5BD8E4C5 C4C6F25B EC000000
20000000 003FD8E4 C5C4C6F2 40404040
40404040
11 LPAGE SOR=$FAULT
000024 - LPG00011
00441200 D3D7C7F0 F0F0F1F1 90000000
00000000 00000000 003C0001 40404040
40404040 40404040 40404040 00000000
40404040 40404040 00000000 5BC6C1E4
D3E34040
12 SEG
000068 - SEG00012
00181301 E2C5C7F0 F0F0F1F2 80000000
80000000 00000000
13 MFLD ($EMYMLIT,'\2')
000080 - MFL00013
00361400 D4C6D3F0 F0F0F1F3 54000000
40000000 00000002 40005BC5 D4E8D4D3
1MESSAGE/FORMAT SERVICE PREPROCESSOR 07.260 PAGE 0003
-
ITB OBJECT CODE / ERRORS STMNT SOURCE STATEMENT COPY/STK

C9E34040 40404040 40400034 00020000
00000000 E0F2
14 MSGEND
15 $QUEDOF$ MSG TYPE=OUTPUT, +
SOR=(QUEDOF,IGNORE),OPT=1,PAGE=NO,FILL=NULL
000000 - $QUEDOF$
00241100 5BD8E4C5 C4D6C65B EC000000
20000000 003FD8E4 C5C4D6C6 40404040
40404040
16 LPAGE SOR=$FAULT
000024 - LPG00016
00441200 D3D7C7F0 F0F0F1F6 90000000
00000000 00000000 003C0001 40404040
40404040 40404040 40404040 00000000
40404040 40404040 00000000 5BC6C1E4
D3E34040
17 SEG
000068 - SEG00017
00181301 E2C5C7F0 F0F0F1F7 80000000
80000000 00000000
18 MFLD ($EMYMLIT,'\2')
000080 - MFL00018
00361400 D4C6D3F0 F0F0F1F8 54000000
40000000 00000002 40005BC5 D4E8D4D3
C9E34040 40404040 40400034 00020000
00000000 E0F2
19 MSGEND
20 $RESDF2$ MSG TYPE=OUTPUT, +
SOR=(RESDF2,IGNORE),OPT=1,PAGE=NO,FILL=NULL
000000 - $RESDF2$
00241100 5BD9C5E2 C4C6F25B EC000000
20000000 003FD9C5 E2C4C6F2 40404040
40404040
21 LPAGE SOR=$FAULT
000024 - LPG00021
00441200 D3D7C7F0 F0F0F2F1 90000000
00000000 00000000 003C0001 40404040
40404040 40404040 40404040 00000000
40404040 40404040 00000000 5BC6C1E4
D3E34040
22 SEG
000068 - SEG00022
00181301 E2C5C7F0 F0F0F2F2 80000000
80000000 00000000
23 MFLD ($EMYMLIT,'\2')
000080 - MFL00023
00361400 D4C6D3F0 F0F0F2F3 54000000
40000000 00000002 40005BC5 D4E8D4D3
C9E34040 40404040 40400034 00020000
1MESSAGE/FORMAT SERVICE PREPROCESSOR 07.260 PAGE 0004
-
ITB OBJECT CODE / ERRORS STMNT SOURCE STATEMENT COPY/STK

00000000 E0F2
24 MSGEND
25 $RESDOF$ MSG TYPE=OUTPUT, +
SOR=(RESDOF,IGNORE),OPT=1,PAGE=NO,FILL=NULL
000000 - $RESDOF$
00241100 5BD9C5E2 C4D6C65B EC000000
20000000 003FD9C5 E2C4D6C6 40404040
40404040
26 LPAGE SOR=$FAULT
000024 - LPG00026
00441200 D3D7C7F0 F0F0F2F6 90000000
00000000 00000000 003C0001 40404040
40404040 40404040 40404040 00000000
40404040 40404040 00000000 5BC6C1E4
D3E34040
27 SEG
000068 - SEG00027
00181301 E2C5C7F0 F0F0F2F7 80000000
80000000 00000000
28 MFLD ($EMYMLIT,'\2')
000080 - MFL00028
00361400 D4C6D3F0 F0F0F2F8 54000000
40000000 00000002 40005BC5 D4E8D4D3
C9E34040 40404040 40400034 00020000
00000000 E0F2
29 MSGEND
30 * *EMYMFM*
31 * APPLICATION: HOTEL RESERVATION
32 * AUTHOR: Q T AND WALLY
33 * DEFAULT TRAN: XXX PROCESS RESERVATION REQUESTS
34 * YYY CREATE RESERVATION SEGMENT
35 * ZZZ QUERY/UPDATE RESERVATION
36 * MODNAME(S): REVERVE (INPUT FORMAT TO APPL PROG)
37 * CONMOD1 (OUTPUT FORMAT FROM APPL PROG)
38 * CONMOD2 (OUTPUT FORMAT FROM APPL PROG)
39 * QUERY (INPUT FORMAT TO APPL PROG)
40 * QUEMOD1 (OUTPUT FORMAT FROM APPL PROG)
41 * DEVICE: 3277 MOD 2
42 * DATABASE: HOTEL RESERVATION DATABASE
43 * SYSTEM: NONCONVERSATIONAL
44 * PARALLEL SCHEDULING
45 * SINGLE SEGMENT/SINGLE TRANSMISSION INPUT
46 * SINGLE SEGMENT OUTPUT
47 * RESPONSE MODE/RECOVERABLE
48 * * * * * * * * * *
49 RESERVE MSG TYPE=OUTPUT,SOR=(RESDOF,IGNORE),NXT=RESMID
000000 - RESERVE
00241100 D9C5E2C5 D9E5C540 F8000000
20000000 0040D9C5 E2C4D6C6 D9C5E2D4
1MESSAGE/FORMAT SERVICE PREPROCESSOR 07.260 PAGE 0005
-
ITB OBJECT CODE / ERRORS STMNT SOURCE STATEMENT COPY/STK

C9C44040
50 LPAGE SOR=RESDP1
000024 - LPG00050
00441200 D3D7C7F0 F0F0F5F0 90000000
00000000 00000000 003C0001 D9C5E2D4
C9C44040 40404040 40404040 00000000
40404040 40404040 00000000 D9C5E2C4
D7F14040
51 SEG
000068 - SEG00051
00181301 E2C5C7F0 F0F0F5F1 80000000
80000000 00000000
52 MFLD INPUT,LTH=69
000080 - MFL00052
00341400 D4C6D3F0 F0F0F5F2 50000000
40000000 00000045 4000C9D5 D7E4E340
40404040 40404040 40400000 00000000
00000000
53 MFLD RESI1,LTH=22
0000B4 - MFL00053
00341400 D4C6D3F0 F0F0F5F3 50000000
40000000 00000016 4000D9C5 E2C9F140
40404040 40404040 40400000 00000000
00000000
54 MFLD RESI2,LTH=8
0000E8 - MFL00054
00341400 D4C6D3F0 F0F0F5F4 50000000
40000000 00000008 4000D9C5 E2C9F240
40404040 40404040 40400000 00000000
00000000
55 MFLD RESI3,LTH=8
00011C - MFL00055
00341400 D4C6D3F0 F0F0F5F5 50000000
40000000 00000008 4000D9C5 E2C9F340
40404040 40404040 40400000 00000000
00000000
56 MFLD RESI4,LTH=5
000150 - MFL00056
00341400 D4C6D3F0 F0F0F5F6 50000000
40000000 00000005 4000D9C5 E2C9F440
40404040 40404040 40400000 00000000
00000000
57 MFLD RESI5,LTH=5
000184 - MFL00057
00341400 D4C6D3F0 F0F0F5F7 50000000
40000000 00000005 4000D9C5 E2C9F540
40404040 40404040 40400000 00000000
00000000
58 MFLD RESI6,LTH=4
1MESSAGE/FORMAT SERVICE PREPROCESSOR 07.260 PAGE 0006
-
ITB OBJECT CODE / ERRORS STMNT SOURCE STATEMENT COPY/STK

0001B8 - MFL00058
00341400 D4C6D3F0 F0F0F5F8 50000000
40000000 00000004 4000D9C5 E2C9F640
40404040 40404040 40400000 00000000
00000000
59 MFLD ($EMYMLIT,'\2') *EMYLPL*
0001EC - MFL00059
00361400 D4C6D3F0 F0F0F5F9 54000000
40000000 00000002 40005BC5 D4E8D4D3
C9E34040 40404040 40400034 00020000
00000000 E0F2
60 MSGEND
61 RESDOF FMT
000000 - RESDOF
00140100 D9C5E2C4 D6C64040 80000000
00000000
62 DEV TYPE=(3270,2),FEAT=IGNORE
000014 - DEV00062
00700200 C4C5E5F0 F0F0F6F2 F8000400
00000000 F3F2F7F0 40F24040 00180050
80000000 40404040 40404040 40404040
40404040 40404040 40404040 40404040
40404040 00000000 00000000 00004040
00000000 00000000 00000000 00000000
00000000 00000000 40404040 40404040
63 DIV TYPE=INOUT
000084 - DIV00063
00460300 C4C9E5F0 F0F0F6F3 80000000
C0000000 00000000 00000000 40404040
40404040 00000000 40404040 40404040
00000000 40404040 40404040 40404040
40404040 0000
64 RESDP1 DPAGE CURSOR=((6,12))
0000CA - RESDP1
00520400 D9C5E2C4 D7F14040 A1080000
00000000 D9C5E2C4 D7F14040 00000001
00440000 00000000 00000000 00050000
00000040 40404040 40404040 40404040
40404000 00010006 000C4040 40404040
4040
65 DFLD 'SPIFFY HOTEL RESERVATION SYSTEM',LTH=31,ATTR=(HI), X
POS=(2,25)
00011C - DFL00065
005E0500 C4C6D3F0 F0F0F6F5 F6000000
00000000 00010002 0019D02C 40404040
40404040 001F003F 001F0000 00004040
40404040 40400019 00000000 00FF00E2
D7C9C6C6 E840C8D6 E3C5D340 D9C5E2C5
D9E5C1E3 C9D6D540 E2E8E2E3 C5D4
1MESSAGE/FORMAT SERVICE PREPROCESSOR 07.260 PAGE 0007
-
ITB OBJECT CODE / ERRORS STMNT SOURCE STATEMENT COPY/STK

66 * PUT1 DFLD POS=(2,23),LTH=10 TRAN CODE
67 DFLD 'STATUS : ',POS=(4,3),LTH=9,ATTR=(HI)
00017A - DFL00067
00480500 C4C6D3F0 F0F0F6F7 F6000000
00000000 00010004 0003D02C 40404040
40404040 0009003F 00090000 00004040
40404040 40400003 00000000 00FF00E2
E3C1E3E4 E2407A40
68 INPUT DFLD POS=(4,13),LTH=67,ATTR=(MOD,HI) DATA
0001C2 - INPUT
003F0500 C9D5D7E4 E3404040 FC000000
00000000 00010004 000D18E4 C9D5D7E4
E3404040 00430000 00000000 00004040
40404040 4040000D 00000000 00FF00
69 * DFLD 'TRANSACTION CODE : ',POS=(2,3),LTH=19
70 * NCDE DFLD POS=(2,23),LTH=10 TRAN CODE
71 * DFLD 'DATA : ',POS=(4,3),LTH=7
72 *NPUT DFLD POS=(4,11),LTH=69,ATTR=(MOD) DATA
73 DFLD 'HOTEL : ',POS=(6,3),LTH=8
000201 - DFL00073
00470500 C4C6D3F0 F0F0F7F3 E6000000
00000000 00010006 0003C03C 40404040
40404040 0008003F 00080000 00004040
40404040 40400003 00000000 00FF00C8
D6E3C5D3 407A40
74 RESI1 DFLD POS=(6,12),LTH=22,ATTR=(MOD) HOTEL
000248 - RESI1
003F0500 D9C5E2C9 F1404040 FC000000
00000000 00010006 000C08F4 D9C5E2C9
F1404040 00160000 00000000 00004040
40404040 4040000C 00000000 00FF00
75 DFLD 'ARRIVAL DATE : ',POS=(8,3),LTH=15
000287 - DFL00075
004E0500 C4C6D3F0 F0F0F7F5 E6000000
00000000 00010008 0003C03C 40404040
40404040 000F003F 000F0000 00004040
40404040 40400003 00000000 00FF00C1
D9D9C9E5 C1D340C4 C1E3C540 7A40
76 RESI2 DFLD POS=(8,19),LTH=8,ATTR=(MOD) ARRIVAL DATE
0002D5 - RESI2
003F0500 D9C5E2C9 F2404040 FC000000
00000000 00010008 001308F4 D9C5E2C9
F2404040 00080000 00000000 00004040
40404040 40400013 00000000 00FF00
77 DFLD 'DEPARTURE DATE : ',POS=(8,30),LTH=17
000314 - DFL00077
00500500 C4C6D3F0 F0F0F7F7 E6000000
00000000 00010008 001EC03C 40404040
40404040 0011003F 00110000 00004040
1MESSAGE/FORMAT SERVICE PREPROCESSOR 07.260 PAGE 0008
-
ITB OBJECT CODE / ERRORS STMNT SOURCE STATEMENT COPY/STK

40404040 4040001E 00000000 00FF00C4
C5D7C1D9 E3E4D9C5 40C4C1E3 C5407A40
78 RESI3 DFLD POS=(8,48),LTH=8,ATTR=(MOD) DEPARTURE DATE
000364 - RESI3
003F0500 D9C5E2C9 F3404040 FC000000
00000000 00010008 003008F4 D9C5E2C9
F3404040 00080000 00000000 00004040
40404040 40400030 00000000 00FF00
79 DFLD 'ROOM TYPE : ',POS=(10,3),LTH=12
0003A3 - DFL00079
004B0500 C4C6D3F0 F0F0F7F9 E6000000
00000000 0001000A 0003C03C 40404040
40404040 000C003F 000C0000 00004040
40404040 40400003 00000000 00FF00D9
D6D6D440 E3E8D7C5 407A40
80 RESI4 DFLD POS=(10,16),LTH=5,ATTR=(MOD) ROOM TYPE
0003EE - RESI4
003F0500 D9C5E2C9 F4404040 FC000000
00000000 0001000A 001008F4 D9C5E2C9
F4404040 00050000 00000000 00004040
40404040 40400010 00000000 00FF00
81 DFLD 'BED TYPE : ',POS=(10,25),LTH=11
00042D - DFL00081
004A0500 C4C6D3F0 F0F0F8F1 E6000000
00000000 0001000A 0019C03C 40404040
40404040 000B003F 000B0000 00004040
40404040 40400019 00000000 00FF00C2
C5C440E3 E8D7C540 7A40
82 RESI5 DFLD POS=(10,37),LTH=5,ATTR=(MOD) BED TYPE
000477 - RESI5
003F0500 D9C5E2C9 F5404040 FC000000
00000000 0001000A 002508F4 D9C5E2C9
F5404040 00050000 00000000 00004040
40404040 40400025 00000000 00FF00
83 DFLD 'PERSONS : ',POS=(10,45),LTH=10
0004B6 - DFL00083
00490500 C4C6D3F0 F0F0F8F3 E6000000
00000000 0001000A 002DC03C 40404040
40404040 000A003F 000A0000 00004040
40404040 4040002D 00000000 00FF00D7
C5D9E2D6 D5E2407A 40
84 RESI6 DFLD POS=(10,56),LTH=4,ATTR=(MOD) PERSONS
0004FF - RESI6
003F0500 D9C5E2C9 F6404040 FC000000
00000000 0001000A 003808F4 D9C5E2C9
F6404040 00040000 00000000 00004040
40404040 40400038 00000000 00FF00
85 DFLD '\RESDOF0HY00', +*EMYDPL*
POS=(24,66,1),ATTR=(NUM,PROT,NORM) *EMYDPL*
1MESSAGE/FORMAT SERVICE PREPROCESSOR 07.260 PAGE 0009
-
ITB OBJECT CODE / ERRORS STMNT SOURCE STATEMENT COPY/STK

00053E - DFL00085
004B0500 C4C6D3F0 F0F0F8F5 F6000000
00000000 00010018 0042C03C 40404040
40404040 000C003F 000C0000 00004040
40404040 40400042 00000000 00FF00E0
D9C5E2C4 D6C6F0C8 E8F0F0
86 $EMYMLIT DFLD LTH=2,POS=(24,79,1),ATTR=(NUM,NOPROT,NORM) *EMYDPL*
000589 - $EMYMLIT
003F0500 5BC5D4E8 D4D3C9E3 FC000000
00000000 00010018 004F807C 5BC5D4E8
D4D3C9E3 00020000 00000000 00004040
40404040 4040004F 00000000 00FF00
87 *C:\IMSCS2\IMS1\RESDOF0.THY *EMYMFD*
88 *
89 $FAULT DPAGE FILL=NULL
0005C8 - $FAULT
00440400 5BC6C1E4 D3E34040 80080000
00000000 5BC6C1E4 D3E34040 00000000
00000000 00000000 00000000 003F0000
00000040 40404040 40404040 40404040
40404000
90 DFLD 'IMS CS/2 MAP FAULT',POS=(1,2,1)
00060C - DFL00090
00510500 C4C6D3F0 F0F0F9F0 E6000000
00000000 00010001 0002C03C 40404040
40404040 0012003F 00120000 00004040
40404040 40400002 00000000 00FF00C9
D4E240C3 E261F240 D4C1D740 C6C1E4D3
E3
91 DFLD '\$FAULT0HY00', +
POS=(1,21,1),ATTR=(PROT,NORM)
00065D - DFL00091
004B0500 C4C6D3F0 F0F0F9F1 F6000000
00000000 00010001 0015C03C 40404040
40404040 000C003F 000C0000 00004040
40404040 40400015 00000000 00FF00E0
5BC6C1E4 D3E3F0C8 E8F0F0
92 $EMYMLIT DFLD POS=(1,34,1),LTH=2,ATTR=(NOPROT,NORM)
0006A8 - $EMYMLIT
003F0500 5BC5D4E8 D4D3C9E3 FC000000
00000000 00010001 002200FC 5BC5D4E8
D4D3C9E3 00020000 00000000 00004040
40404040 40400022 00000000 00FF00
93 DFLD 'RESDOF0.THY ',POS=(1,37,1)
0006E7 - DFL00093
004B0500 C4C6D3F0 F0F0F9F3 E6000000
00000000 00010001 0025C03C 40404040
40404040 000C003F 000C0000 00004040
40404040 40400025 00000000 00FF00D9
1MESSAGE/FORMAT SERVICE PREPROCESSOR 07.260 PAGE 0010
-
ITB OBJECT CODE / ERRORS STMNT SOURCE STATEMENT COPY/STK

C5E2C4D6 C6F04BE3 C8E840
94 DFLD '01',POS=(1,50,1)
000732 - DFL00094
00410500 C4C6D3F0 F0F0F9F4 E6000000
00000000 00010001 0032C03C 40404040
40404040 0002003F 00020000 00004040
40404040 40400032 00000000 00FF00F0
F1
95 DFLD '.IH.3 7BIHl . G3IH2DJ4 k.6NBJjiU3BVmJUmm Ult tn Ul+
q upl uo BjiJUBVImUm.mUl ttn Ul qup luo Q 2 +
i 64 . 56. M E 2. 1EC1AJ3.GJ w+
zw . . . 1E1C3JCI3JG . . . . 31+
CJE.l3 zz.D . . 5 . sC',POS=(1,53,1)
000773 - DFL00095
013F0500 C4C6D3F0 F0F0F9F5 E6000000
00000000 00010001 0035C03C 40404040
40404040 0100003F 01000000 00004040
40404040 40400035 00000000 00FF004B
C9C84BF3 40F7C2C9 C893404B 40404040
40C7F3C9 C8F2C4D1 F440924B F6D5C2D1
9189E4F3 C2E594D1 E4949440 E493A340
A3954040 E4939840 A4979340 A4964040
C29189D1 E4C2E5C9 94E4944B 94E49340
A3A39540 40E49340 98A49740 93A49640
40D840F2 40404040 40404040 40404040
40404040 40404040 40404040 40404040
40404040 408940F6 F4404B40 4040F5F6
4B40D440 40C540F2 4B40F1C5 C3F1C1D1
F34BC7D1 40A6A9A6 40404B40 404B4040
40404040 40404040 4B40F1C5 F1C3F3D1
C3C9F3D1 C740404B 40404040 4B404B40
40404040 40404040 404B4040 F3F1C3D1
C54B93F3 40404040 A9A94BC4 404B4040
4B404040 40F54040 40404B40 40A2C3
96 DFLD 'I3MIJEE 31CEJ.m . ykz. 1. . 6 . tC3JMIBJH5 31C+
EJ.n . xkz. 1. . 7 . uC3JMIBJH5EJ 1CIG3HJ3I 3vz+
D . . . GIIK0 .7BHJl G3HJ2D4J G3IH2EJl +
kk kkk kkl k6ENG3JH2DJ4k6FNkk. Q 2 p02F U5.+
M EE 24IYAIIkmk mp c T. YA6 ',POS=(4,70,1)
0008B2 - DFL00096
013F0500 C4C6D3F0 F0F0F9F6 E6000000
00000000 00010004 0046C03C 40404040
40404040 0100003F 01000000 00004040
40404040 40400046 00000000 00FF00C9
F3D4C9D1 C5C540F3 F1C3C5D1 4B94404B
4040A892 A94B40F1 4B404B40 40404040
F6404040 404B4040 A3C3F3D1 D4C9C2D1
C8F540F3 F1C3C5D1 4B95404B 4040A792
A94B40F1 4B404B40 40404040 F7404040
1MESSAGE/FORMAT SERVICE PREPROCESSOR 07.260 PAGE 0011
-
ITB OBJECT CODE / ERRORS STMNT SOURCE STATEMENT COPY/STK

404B4040 A4C3F3D1 D4C9C2D1 C8F5C5D1
40F1C3C9 C7F3C8D1 F3C940F3 A5A940C4
404B4040 4B404040 40404040 40404B40
40C7C9C9 D2F0404B F7C2C8D1 93404040
40404040 C7F3C8D1 F2C4F4D1 40C7F3C9
C8F2C5D1 93404040 40929240 92929240
92929340 4092F6C5 D5C7F3D1 C8F2C4D1
F492F6C6 D592924B 40D840F2 40404040
40404040 4097F0F2 C64040E4 F54B4040
D440C5C5 40F2F4C9 E8C1C9C9 92949240
94974040 8340E34B 40E8C1F6 404040
97 DFLD ' s 0 N 2E4YAFIko.kkn m A7 YUA +
s 2 1 247JCEJJI . wk 1 2WA 0 7 +
2 B 24IYAIIkqk kn G.60 YA6 k 4 1+
2E4G3JH7l3 P.6K WUA . 4 A 24+
Y3AIk3skk n m 0D YA 0 k ',POS=(8,7,1)
0009F1 - DFL00097
013F0500 C4C6D3F0 F0F0F9F7 E6000000
00000000 00010008 0007C03C 40404040
40404040 0100003F 01000000 00004040
40404040 40400007 00000000 00FF0040
40404040 4040A240 40404040 4040F040
40D54040 4040F2C5 F4E8C1C6 C992964B
92929540 409440C1 F740E8E4 C1404040
40404040 40404040 A2404040 40404040
F240F140 40404040 F2F4F7D1 C3C5D1D1
C940404B 4040A692 40F140F2 E6C140F0
40404040 40404040 40F74040 40404040
40F24040 C2404040 40F2F4C9 E8C1C9C9
92989240 92954040 C74BF6F0 40E8C1F6
40404040 40404040 40409240 40404040
4040F440 40F14040 4040F2C5 F4C7F3D1
C8F793F3 40404040 40D74BF6 D240E6E4
C1404040 40404040 40404040 4B404040
40404040 F440C140 40404040 F2F4E8F3
C1C992F3 A2929240 95409440 F0C44040
E8C140F0 40404040 40404040 409240
98 DFLD ' 6 1 24IG3HJ7m . 006. WA6 . +
6 H 2E4YAFIks.knk B02F YUA k 6 S +
24GJ3H7Jn TE06 WA 0 . 6 k 24IYA+
IIlkk kn G0A1 YA6 k 8 1 2E4G3JH7o3 +
T0A3 WUA . 8 E',POS=(11,24,1)
000B30 - DFL00098
013F0500 C4C6D3F0 F0F0F9F8 E6000000
00000000 0001000B 0018C03C 40404040
40404040 0100003F 01000000 00004040
40404040 40400018 00000000 00FF0040
40404040 40F64040 F1404040 40F2F4C9
C7F3C8D1 F794404B 40404040 F0F0F64B
1MESSAGE/FORMAT SERVICE PREPROCESSOR 07.260 PAGE 0012
-
ITB OBJECT CODE / ERRORS STMNT SOURCE STATEMENT COPY/STK

40E6C1F6 40404040 40404040 40404B40
40404040 4040F640 40C84040 4040F2C5
F4E8C1C6 C992A24B 92959240 40C2F0F2
C640E8E4 C1404040 40404040 40404040
92404040 40404040 F640E240 40404040
F2F4C7D1 F3C8F7D1 95404040 4040E3C5
F0F64040 E6C140F0 40404040 40404040
404B4040 40404040 40F64040 92404040
40F2F4C9 E8C1C9C9 93929240 92954040
C7F0C1F1 40E8C1F6 40404040 40404040
40409240 40404040 4040F840 40F14040
4040F2C5 F4C7F3D1 C8F796F3 40404040
40E3F0C1 F340E6E4 C1404040 40404040
40404040 4B404040 40404040 F840C5
99 DFLD ' 24Y3AIl3kkm p ck09 YA 0 k 8 N 2+
4IG3HJ7p . o031 WA6 . 8 Z 2E4YAFIl+
k.kop w0A8 YUA k 8 h 24GJ3H7Jq +
5 12 WA 0 . 8 s 24IY3BIN2AJ7I 3l5A. a+
A6 k M 0 2 2E4Y3',POS=(14,41,1)
000C6F - DFL00099
013F0500 C4C6D3F0 F0F0F9F9 E6000000
00000000 0001000E 0029C03C 40404040
40404040 0100003F 01000000 00004040
40404040 40400029 00000000 00FF0040
40404040 F2F4E8F3 C1C993F3 92929440
97408392 F0F94040 E8C140F0 40404040
40404040 40924040 40404040 40F84040
D5404040 40F2F4C9 C7F3C8D1 F797404B
40404040 96F0F3F1 40E6C1F6 40404040
40404040 40404B40 40404040 4040F840
40E94040 4040F2C5 F4E8C1C6 C993924B
92969740 40A6F0C1 F840E8E4 C1404040
40404040 40404040 92404040 40404040
F8408840 40404040 F2F4C7D1 F3C8F7D1
98404040 4040F540 F1F24040 E6C140F0
40404040 40404040 404B4040 40404040
40F84040 A2404040 40F2F4C9 E8F3C2C9
D5F2C1D1 F7C940F3 93F5C14B 4081C1F6
40404040 40404040 40409240 40404040
4040D440 40F040F2 4040F2C5 F4E8F3
100 DFLD 'FBNBJA7IJ y520 bUA E M DE % +
+
+
+
',POS=(17,58,1)
000DAE - DFL00100
013F0500 C4C6D3F0 F0F1F0F0 E6000000
00000000 00010011 003AC03C 40404040
40404040 0100003F 01000000 00004040
1MESSAGE/FORMAT SERVICE PREPROCESSOR 07.260 PAGE 0013
-
ITB OBJECT CODE / ERRORS STMNT SOURCE STATEMENT COPY/STK

40404040 4040003A 00000000 00FF00C6
C2D5C2D1 C1F7C9D1 40A8F5F2 F04082E4
C1404040 40404040 40404040 C5404040
40404040 D440C4C5 40404040 6C404040
40404040 40404040 40404040 40404040
40404040 40404040 40404040 40404040
40404040 40404040 40404040 40404040
40404040 40404040 40404040 40404040
40404040 40404040 40404040 40404040
40404040 40404040 40404040 40404040
40404040 40404040 40404040 40404040
40404040 40404040 40404040 40404040
40404040 40404040 40404040 40404040
40404040 40404040 40404040 40404040
40404040 40404040 40404040 40404040
40404040 40404040 40404040 40404040
40404040 40404040 40404040 404040
101 $EMYSMSG DFLD POS=(24,2,1),LTH=79,ATTR=(PROT)
000EED - $EMYSMSG
003F0500 5BC5D4E8 E2D4E2C7 FC000000
00000000 00010018 000240BC 5BC5D4E8
E2D4E2C7 004F0000 00000000 00004040
40404040 40400002 00000000 00FF00
102 *
103 * *EMYMFD*
104 FMTEND
105 RESMID MSG TYPE=INPUT,SOR=(RESDOF,IGNORE),NXT=CONMOD1
000000 - RESMID
00241100 D9C5E2D4 C9C44040 B8000000
A0000000 0040D9C5 E2C4D6C6 C3D6D5D4
D6C4F140
106 LPAGE SOR=RESDP1
000024 - LPG00106
00441200 D3D7C7F0 F0F1F0F6 90000000
00000000 00000000 003C0001 C3D6D5D4
D6C4F140 40404040 40404040 00000000
40404040 40404040 00000000 D9C5E2C4
D7F14040
107 SEG
000068 - SEG00107
00181301 E2C5C7F0 F0F1F0F7 80000000
80000000 00000000
108 MFLD (INPUT1,'HRD1 '),LTH=10 DEFAULT TRAN CODE
000080 - MFL00108
003E1400 D4C6D3F0 F0F1F0F8 54000000
40000000 0000000A 4000C9D5 D7E4E3F1
40404040 40404040 40400034 000A0000
00000000 C8D9C4F1 40404040 4040
109 MFLD INPUT,LTH=69,FILL=C' ' DATA
1MESSAGE/FORMAT SERVICE PREPROCESSOR 07.260 PAGE 0014
-
ITB OBJECT CODE / ERRORS STMNT SOURCE STATEMENT COPY/STK

0000BE - MFL00109
00341400 D4C6D3F0 F0F1F0F9 70000000
40000000 00000045 4000C9D5 D7E4E340
40404040 40404040 40400000 00000000
00000000
110 MFLD RESI1,LTH=22,FILL=C' ' HOTEL
0000F2 - MFL00110
00341400 D4C6D3F0 F0F1F1F0 70000000
40000000 00000016 4000D9C5 E2C9F140
40404040 40404040 40400000 00000000
00000000
111 MFLD RESI2,LTH=8,FILL=C' ' ARRIVAL DATE
000126 - MFL00111
00341400 D4C6D3F0 F0F1F1F1 70000000
40000000 00000008 4000D9C5 E2C9F240
40404040 40404040 40400000 00000000
00000000
112 MFLD RESI3,LTH=8,FILL=C' ' DEPARTURE DATE
00015A - MFL00112
00341400 D4C6D3F0 F0F1F1F2 70000000
40000000 00000008 4000D9C5 E2C9F340
40404040 40404040 40400000 00000000
00000000
113 MFLD RESI4,LTH=5,FILL=C' ' ROOM TYPE
00018E - MFL00113
00341400 D4C6D3F0 F0F1F1F3 70000000
40000000 00000005 4000D9C5 E2C9F440
40404040 40404040 40400000 00000000
00000000
114 MFLD RESI5,LTH=5,FILL=C' ' BED TYPE
0001C2 - MFL00114
00341400 D4C6D3F0 F0F1F1F4 70000000
40000000 00000005 4000D9C5 E2C9F540
40404040 40404040 40400000 00000000
00000000
115 MFLD RESI6,LTH=4,FILL=C' ',JUST=R PERSONS
0001F6 - MFL00115
00341400 D4C6D3F0 F0F1F1F5 70800000
00000000 00000004 4000D9C5 E2C9F640
40404040 40404040 40400000 00000000
00000000
116 * *EMYMFL*
117 LPAGE SOR=$FAULT
00022A - LPG00117
00441200 D3D7C7F0 F0F1F1F7 90000000
00000000 00000000 003C0001 C3D6D5D4
D6C4F140 40404040 40404040 00000000
40404040 40404040 00000000 5BC6C1E4
D3E34040
1MESSAGE/FORMAT SERVICE PREPROCESSOR 07.260 PAGE 0015
-
ITB OBJECT CODE / ERRORS STMNT SOURCE STATEMENT COPY/STK

118 SEG
00026E - SEG00118
00181301 E2C5C7F0 F0F1F1F8 80000000
80000000 00000000
119 MFLD ' '
000286 - MFL00119
00351400 D4C6D3F0 F0F1F1F9 44000000
40000000 00000001 40004040 40404040
40404040 40404040 40400034 00010000
00000000 40
120 * *EMYMFL*
121 MSGEND
122 CONMOD1 MSG TYPE=OUTPUT,SOR=(RESDF2,IGNORE),NXT=CONMID
000000 - CONMOD1
00241100 C3D6D5D4 D6C4F140 F8000000
20000000 0040D9C5 E2C4C6F2 C3D6D5D4
C9C44040
123 LPAGE SOR=CONDP1
000024 - LPG00123
00441200 D3D7C7F0 F0F1F2F3 90000000
00000000 00000000 003C0001 C3D6D5D4
C9C44040 40404040 40404040 00000000
40404040 40404040 00000000 C3D6D5C4
D7F14040
124 SEG
000068 - SEG00124
00181301 E2C5C7F0 F0F1F2F4 80000000
80000000 00000000
125 MFLD ROOMNO,LTH=4 ROOM NUM
000080 - MFL00125
00341400 D4C6D3F0 F0F1F2F5 50000000
40000000 00000004 4000D9D6 D6D4D5D6
40404040 40404040 40400000 00000000
00000000
126 MFLD OUT2,LTH=22 HOTEL
0000B4 - MFL00126
00341400 D4C6D3F0 F0F1F2F6 50000000
40000000 00000016 4000D6E4 E3F24040
40404040 40404040 40400000 00000000
00000000
127 MFLD OUT3,LTH=8 ARRIVAL DATE
0000E8 - MFL00127
00341400 D4C6D3F0 F0F1F2F7 50000000
40000000 00000008 4000D6E4 E3F34040
40404040 40404040 40400000 00000000
00000000
128 MFLD OUT4,LTH=8 DEPARTURE DATE
00011C - MFL00128
00341400 D4C6D3F0 F0F1F2F8 50000000
1MESSAGE/FORMAT SERVICE PREPROCESSOR 07.260 PAGE 0016
-
ITB OBJECT CODE / ERRORS STMNT SOURCE STATEMENT COPY/STK

40000000 00000008 4000D6E4 E3F44040
40404040 40404040 40400000 00000000
00000000
129 MFLD OUT5,LTH=5 ROOM TYPE
000150 - MFL00129
00341400 D4C6D3F0 F0F1F2F9 50000000
40000000 00000005 4000D6E4 E3F54040
40404040 40404040 40400000 00000000
00000000
130 MFLD OUT6,LTH=5 BED TYPE
000184 - MFL00130
00341400 D4C6D3F0 F0F1F3F0 50000000
40000000 00000005 4000D6E4 E3F64040
40404040 40404040 40400000 00000000
00000000
131 MFLD OUT7,LTH=4 PERSONS
0001B8 - MFL00131
00341400 D4C6D3F0 F0F1F3F1 50000000
40000000 00000004 4000D6E4 E3F74040
40404040 40404040 40400000 00000000
00000000
132 MFLD OUT8,LTH=5 RATE
0001EC - MFL00132
00341400 D4C6D3F0 F0F1F3F2 50000000
40000000 00000005 4000D6E4 E3F84040
40404040 40404040 40400000 00000000
00000000
133 MFLD ($EMYMLIT,'\2') *EMYLPL*
000220 - MFL00133
00361400 D4C6D3F0 F0F1F3F3 54000000
40000000 00000002 40005BC5 D4E8D4D3
C9E34040 40404040 40400034 00020000
00000000 E0F2
134 MSGEND
135 RESDF2 FMT
000000 - RESDF2
00140100 D9C5E2C4 C6F24040 80000000
00000000
136 DEV TYPE=(3270,2),FEAT=IGNORE
000014 - DEV00136
00700200 C4C5E5F0 F0F1F3F6 F8000400
00000000 F3F2F7F0 40F24040 00180050
80000000 40404040 40404040 40404040
40404040 40404040 40404040 40404040
40404040 00000000 00000000 00004040
00000000 00000000 00000000 00000000
00000000 00000000 40404040 40404040
137 DIV TYPE=INOUT
000084 - DIV00137
1MESSAGE/FORMAT SERVICE PREPROCESSOR 07.260 PAGE 0017
-
ITB OBJECT CODE / ERRORS STMNT SOURCE STATEMENT COPY/STK

00460300 C4C9E5F0 F0F1F3F7 80000000
C0000000 00000000 00000000 40404040
40404040 00000000 40404040 40404040
00000000 40404040 40404040 40404040
40404040 0000
138 CONDP1 DPAGE CURSOR=((14,11))
0000CA - CONDP1
00520400 C3D6D5C4 D7F14040 A1080000
00000000 C3D6D5C4 D7F14040 00000001
00440000 00000000 00000000 00050000
00000040 40404040 40404040 40404040
40404000 0001000E 000B4040 40404040
4040
139 DFLD 'SPIFFY HOTEL RESERVATION SYSTEM',LTH=31,ATTR=(HI), X
POS=(2,25)
00011C - DFL00139
005E0500 C4C6D3F0 F0F1F3F9 F6000000
00000000 00010002 0019D02C 40404040
40404040 001F003F 001F0000 00004040
40404040 40400019 00000000 00FF00E2
D7C9C6C6 E840C8D6 E3C5D340 D9C5E2C5
D9E5C1E3 C9D6D540 E2E8E2E3 C5D4
140 ROOMNO DFLD POS=(2,70),LTH=4,ATTR=(NODISP,PROT,MOD) ROOM NUM
00017A - ROOMNO
003F0500 D9D6D6D4 D5D64040 FC000000
00000000 00010002 004649A4 D9D6D6D4
D5D64040 00040000 00000000 00004040
40404040 40400046 00000000 00FF00
141 * PUT1 DFLD POS=(2,23),LTH=10 TRAN CODE
142 DFLD 'STATUS : ',POS=(4,3),LTH=9,ATTR=(HI)
0001B9 - DFL00142
00480500 C4C6D3F0 F0F1F4F2 F6000000
00000000 00010004 0003D02C 40404040
40404040 0009003F 00090000 00004040
40404040 40400003 00000000 00FF00E2
E3C1E3E4 E2407A40
143 OUT1 DFLD POS=(4,13),LTH=67,ATTR=(MOD,HI) DATA
000201 - OUT1
003F0500 D6E4E3F1 40404040 FC000000
00000000 00010004 000D18E4 D6E4E3F1
40404040 00430000 00000000 00004040
40404040 4040000D 00000000 00FF00
144 DFLD 'HOTEL : ',POS=(6,3),LTH=8
000240 - DFL00144
00470500 C4C6D3F0 F0F1F4F4 E6000000
00000000 00010006 0003C03C 40404040
40404040 0008003F 00080000 00004040
40404040 40400003 00000000 00FF00C8
D6E3C5D3 407A40
1MESSAGE/FORMAT SERVICE PREPROCESSOR 07.260 PAGE 0018
-
ITB OBJECT CODE / ERRORS STMNT SOURCE STATEMENT COPY/STK

145 OUT2 DFLD POS=(6,12),LTH=22,ATTR=(PROT,MOD) HOTEL
000287 - OUT2
003F0500 D6E4E3F2 40404040 FC000000
00000000 00010006 000C48B4 D6E4E3F2
40404040 00160000 00000000 00004040
40404040 4040000C 00000000 00FF00
146 DFLD 'ARRIVAL DATE : ',POS=(8,3),LTH=15
0002C6 - DFL00146
004E0500 C4C6D3F0 F0F1F4F6 E6000000
00000000 00010008 0003C03C 40404040
40404040 000F003F 000F0000 00004040
40404040 40400003 00000000 00FF00C1
D9D9C9E5 C1D340C4 C1E3C540 7A40
147 OUT3 DFLD POS=(8,19),LTH=8,ATTR=(PROT,MOD) ARRIVAL DATE
000314 - OUT3
003F0500 D6E4E3F3 40404040 FC000000
00000000 00010008 001348B4 D6E4E3F3
40404040 00080000 00000000 00004040
40404040 40400013 00000000 00FF00
148 DFLD 'DEPARTURE DATE : ',POS=(8,30),LTH=17
000353 - DFL00148
00500500 C4C6D3F0 F0F1F4F8 E6000000
00000000 00010008 001EC03C 40404040
40404040 0011003F 00110000 00004040
40404040 4040001E 00000000 00FF00C4
C5D7C1D9 E3E4D9C5 40C4C1E3 C5407A40
149 OUT4 DFLD POS=(8,48),LTH=8,ATTR=(PROT,MOD) DEPARTURE DATE
0003A3 - OUT4
003F0500 D6E4E3F4 40404040 FC000000
00000000 00010008 003048B4 D6E4E3F4
40404040 00080000 00000000 00004040
40404040 40400030 00000000 00FF00
150 DFLD 'ROOM TYPE : ',POS=(10,3),LTH=12
0003E2 - DFL00150
004B0500 C4C6D3F0 F0F1F5F0 E6000000
00000000 0001000A 0003C03C 40404040
40404040 000C003F 000C0000 00004040
40404040 40400003 00000000 00FF00D9
D6D6D440 E3E8D7C5 407A40
151 OUT5 DFLD POS=(10,16),LTH=5,ATTR=(PROT,MOD) ROOM TYPE
00042D - OUT5
003F0500 D6E4E3F5 40404040 FC000000
00000000 0001000A 001048B4 D6E4E3F5
40404040 00050000 00000000 00004040
40404040 40400010 00000000 00FF00
152 DFLD 'BED TYPE : ',POS=(10,25),LTH=11
00046C - DFL00152
004A0500 C4C6D3F0 F0F1F5F2 E6000000
00000000 0001000A 0019C03C 40404040
1MESSAGE/FORMAT SERVICE PREPROCESSOR 07.260 PAGE 0019
-
ITB OBJECT CODE / ERRORS STMNT SOURCE STATEMENT COPY/STK

40404040 000B003F 000B0000 00004040
40404040 40400019 00000000 00FF00C2
C5C440E3 E8D7C540 7A40
153 OUT6 DFLD POS=(10,37),LTH=5,ATTR=(PROT,MOD) BED TYPE
0004B6 - OUT6
003F0500 D6E4E3F6 40404040 FC000000
00000000 0001000A 002548B4 D6E4E3F6
40404040 00050000 00000000 00004040
40404040 40400025 00000000 00FF00
154 DFLD 'PERSONS : ',POS=(10,45),LTH=10
0004F5 - DFL00154
00490500 C4C6D3F0 F0F1F5F4 E6000000
00000000 0001000A 002DC03C 40404040
40404040 000A003F 000A0000 00004040
40404040 4040002D 00000000 00FF00D7
C5D9E2D6 D5E2407A 40
155 OUT7 DFLD POS=(10,56),LTH=4,ATTR=(PROT,MOD) PERSONS
00053E - OUT7
003F0500 D6E4E3F7 40404040 FC000000
00000000 0001000A 003848B4 D6E4E3F7
40404040 00040000 00000000 00004040
40404040 40400038 00000000 00FF00
156 DFLD 'RATE : ',POS=(12,3),LTH=7
00057D - DFL00156
00460500 C4C6D3F0 F0F1F5F6 E6000000
00000000 0001000C 0003C03C 40404040
40404040 0007003F 00070000 00004040
40404040 40400003 00000000 00FF00D9
C1E3C540 7A40
157 OUT8 DFLD POS=(12,11),LTH=5,ATTR=(PROT,MOD) RATE
0005C3 - OUT8
003F0500 D6E4E3F8 40404040 FC000000
00000000 0001000C 000B48B4 D6E4E3F8
40404040 00050000 00000000 00004040
40404040 4040000B 00000000 00FF00
158 DFLD 'NAME : ',POS=(14,3),LTH=7
000602 - DFL00158
00460500 C4C6D3F0 F0F1F5F8 E6000000
00000000 0001000E 0003C03C 40404040
40404040 0007003F 00070000 00004040
40404040 40400003 00000000 00FF00D5
C1D4C540 7A40
159 OUT9 DFLD POS=(14,11),LTH=33 NAME
000648 - OUT9
003F0500 D6E4E3F9 40404040 EC000000
00000000 0001000E 000B00FC D6E4E3F9
40404040 00210000 00000000 00004040
40404040 4040000B 00000000 00FF00
160 DFLD 'ADDRESS : ',POS=(16,3),LTH=10
1MESSAGE/FORMAT SERVICE PREPROCESSOR 07.260 PAGE 0020
-
ITB OBJECT CODE / ERRORS STMNT SOURCE STATEMENT COPY/STK

000687 - DFL00160
00490500 C4C6D3F0 F0F1F6F0 E6000000
00000000 00010010 0003C03C 40404040
40404040 000A003F 000A0000 00004040
40404040 40400003 00000000 00FF00C1
C4C4D9C5 E2E2407A 40
161 OUT10 DFLD POS=(16,14),LTH=30 ADDRESS
0006D0 - OUT10
003F0500 D6E4E3F1 F0404040 EC000000
00000000 00010010 000E00FC D6E4E3F1
F0404040 001E0000 00000000 00004040
40404040 4040000E 00000000 00FF00
162 DFLD 'CITY : ',POS=(18,3),LTH=7
00070F - DFL00162
00460500 C4C6D3F0 F0F1F6F2 E6000000
00000000 00010012 0003C03C 40404040
40404040 0007003F 00070000 00004040
40404040 40400003 00000000 00FF00C3
C9E3E840 7A40
163 OUT11 DFLD POS=(18,11),LTH=17 CITY
000755 - OUT11
003F0500 D6E4E3F1 F1404040 EC000000
00000000 00010012 000B00FC D6E4E3F1
F1404040 00110000 00000000 00004040
40404040 4040000B 00000000 00FF00
164 DFLD 'STATE : ',POS=(18,35),LTH=8
000794 - DFL00164
00470500 C4C6D3F0 F0F1F6F4 E6000000
00000000 00010012 0023C03C 40404040
40404040 0008003F 00080000 00004040
40404040 40400023 00000000 00FF00E2
E3C1E3C5 407A40
165 OUT12 DFLD POS=(18,44),LTH=6 STATE
0007DB - OUT12
003F0500 D6E4E3F1 F2404040 EC000000
00000000 00010012 002C00FC D6E4E3F1
F2404040 00060000 00000000 00004040
40404040 4040002C 00000000 00FF00
166 DFLD 'COMPANY : ',POS=(20,3),LTH=10
00081A - DFL00166
00490500 C4C6D3F0 F0F1F6F6 E6000000
00000000 00010014 0003C03C 40404040
40404040 000A003F 000A0000 00004040
40404040 40400003 00000000 00FF00C3
D6D4D7C1 D5E8407A 40
167 OUT13 DFLD POS=(20,14),LTH=14 COMPANY
000863 - OUT13
003F0500 D6E4E3F1 F3404040 EC000000
00000000 00010014 000E00FC D6E4E3F1
1MESSAGE/FORMAT SERVICE PREPROCESSOR 07.260 PAGE 0021
-
ITB OBJECT CODE / ERRORS STMNT SOURCE STATEMENT COPY/STK

F3404040 000E0000 00000000 00004040
40404040 4040000E 00000000 00FF00
168 DFLD 'METHOD OF PAYMENT : ',POS=(22,3),LTH=20
0008A2 - DFL00168
00530500 C4C6D3F0 F0F1F6F8 E6000000
00000000 00010016 0003C03C 40404040
40404040 0014003F 00140000 00004040
40404040 40400003 00000000 00FF00D4
C5E3C8D6 C440D6C6 40D7C1E8 D4C5D5E3
407A40
169 OUT14 DFLD POS=(22,24),LTH=4 METHOD OF PAYMENT
0008F5 - OUT14
003F0500 D6E4E3F1 F4404040 EC000000
00000000 00010016 001800FC D6E4E3F1
F4404040 00040000 00000000 00004040
40404040 40400018 00000000 00FF00
170 DFLD 'CANCEL : ',POS=(24,3),LTH=9
000934 - DFL00170
00480500 C4C6D3F0 F0F1F7F0 E6000000
00000000 00010018 0003C03C 40404040
40404040 0009003F 00090000 00004040
40404040 40400003 00000000 00FF00C3
C1D5C3C5 D3407A40
171 OUT15 DFLD POS=(24,13),LTH=4 CANCEL
00097C - OUT15
003F0500 D6E4E3F1 F5404040 EC000000
00000000 00010018 000D00FC D6E4E3F1
F5404040 00040000 00000000 00004040
40404040 4040000D 00000000 00FF00
172 DFLD '\RESDF20HY00', +*EMYDPL*
POS=(24,66,1),ATTR=(NUM,PROT,NORM) *EMYDPL*
0009BB - DFL00172
004B0500 C4C6D3F0 F0F1F7F2 F6000000
00000000 00010018 0042C03C 40404040
40404040 000C003F 000C0000 00004040
40404040 40400042 00000000 00FF00E0
D9C5E2C4 C6F2F0C8 E8F0F0
173 $EMYMLIT DFLD LTH=2,POS=(24,79,1),ATTR=(NUM,NOPROT,NORM) *EMYDPL*
000A06 - $EMYMLIT
003F0500 5BC5D4E8 D4D3C9E3 FC000000
00000000 00010018 004F807C 5BC5D4E8
D4D3C9E3 00020000 00000000 00004040
40404040 4040004F 00000000 00FF00
174 *C:\IMSCS2\IMS1\RESDF20.THY *EMYMFD*
175 *
176 $FAULT DPAGE FILL=NULL
000A45 - $FAULT
00440400 5BC6C1E4 D3E34040 80080000
00000000 5BC6C1E4 D3E34040 00000000
1MESSAGE/FORMAT SERVICE PREPROCESSOR 07.260 PAGE 0022
-
ITB OBJECT CODE / ERRORS STMNT SOURCE STATEMENT COPY/STK

00000000 00000000 00000000 003F0000
00000040 40404040 40404040 40404040
40404000
177 DFLD 'IMS CS/2 MAP FAULT',POS=(1,2,1)
000A89 - DFL00177
00510500 C4C6D3F0 F0F1F7F7 E6000000
00000000 00010001 0002C03C 40404040
40404040 0012003F 00120000 00004040
40404040 40400002 00000000 00FF00C9
D4E240C3 E261F240 D4C1D740 C6C1E4D3
E3
178 DFLD '\$FAULT0HY00', +
POS=(1,21,1),ATTR=(PROT,NORM)
000ADA - DFL00178
004B0500 C4C6D3F0 F0F1F7F8 F6000000
00000000 00010001 0015C03C 40404040
40404040 000C003F 000C0000 00004040
40404040 40400015 00000000 00FF00E0
5BC6C1E4 D3E3F0C8 E8F0F0
179 $EMYMLIT DFLD POS=(1,34,1),LTH=2,ATTR=(NOPROT,NORM)
000B25 - $EMYMLIT
003F0500 5BC5D4E8 D4D3C9E3 FC000000
00000000 0001
Back to top
View user's profile Send private message

Devzee

Active Member


Joined: 20 Jan 2007
Posts: 684
Location: Hollywood

PostPosted: Wed Sep 19, 2007 10:48 am    Post subject:
Reply with quote

Quote:
I got a return code 4


This means there shouldn't be any errors.

Have you tried /dis format modname ? check and see whether the screen is displayed.
Back to top
View user's profile Send private message
Sandy Zimmer

Active Member


Joined: 13 Jun 2007
Posts: 826
Location: Wilmington, DE

PostPosted: Thu Sep 20, 2007 1:51 am    Post subject:
Reply with quote

The MFS compiler will tell you EXACTLY where your error occured - if you had an error - it will flag the field with an error message. A status code of 04 is not indicative of any error in most compilers. If you got thru what you sent you do not have any field that indicates an error. Do not hit the panic button - just send along your error message with the field in error.
What you sent takes up space and basically indicates that you have done nothing wrong.
Back to top
View user's profile Send private message
Bitneuker

CICS Moderator


Joined: 07 Nov 2005
Posts: 1105
Location: The Netherlands at Hole 19

PostPosted: Thu Sep 20, 2007 1:59 am    Post subject:
Reply with quote

Normally a return code 04 is just a warning and the gen should be successfull. Did TS check if the member was generated after all? And why would the precompiler report this?

Quote:
ITB OBJECT CODE / ERRORS STMNT SOURCE STATEMENT COPY/STK
Back to top
View user's profile Send private message
Bitneuker

CICS Moderator


Joined: 07 Nov 2005
Posts: 1105
Location: The Netherlands at Hole 19

PostPosted: Thu Sep 20, 2007 2:02 am    Post subject:
Reply with quote

Sandy you got PM
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> IMS DB/DC All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Read two inputs and write into output... murali.andaluri DFSORT/ICETOOL 5 Wed Jul 26, 2017 7:35 pm
No new posts How to add header with Date(YYMMDD) i... Rajan Moorthy DFSORT/ICETOOL 2 Thu Jul 06, 2017 11:44 pm
No new posts JES2 doesn't honor the priority of th... Aron Lendvai JCL & VSAM 7 Thu Jun 29, 2017 1:41 pm
No new posts Dynamic output file creation in cobol... smileheal COBOL Programming 7 Thu Jun 15, 2017 10:53 pm
No new posts getting three output files out of JOI... migusd SYNCSORT 7 Mon Jun 05, 2017 11:30 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us