Hi, there. Usually code change or compilation of certain C file will be done by developer or CNC engineer.
Below are the required steps in order to apply code change on X091103 soruce.
There are 2 ways to compile an RPG in World software.
1. Make use of SVR, inquire on the object and take option 14
2. Make use of as400 STRPDM and take option 14.
The issue can be reproduced at will with the following steps:
1. Apply code changes for SARS 8334363 for program X091103, 8953247 for programs
A/P Functional Server (XT0411Z1)
A/R Functional Server (XT0311Z1)
Journal Entry Tax Server (X091103)
Fastpath to SVR, inquire on the object X091103 and then use option 14 to compile
http://docs.oracle.com/cd/E26228_01/doc.93/e21952/ch_ww_software_ver_rep.htm#WEAAS752
The basic steps are the following:
1. From SVR, inquire on the program that needed to be amended by entering I for Action Code and Member Name as X091103
2. Take option 14 against the row that shows the correct source, object library
Change the source and object library as necessary
For the source of a cum e.g. A73PC00016, they should be updated in the source library for the World environment.
If you have latest source x091103 Let's say in d:\XT0311Z1
If you want to upload this to your AS400 system, you will need to do the following:
1. Download XT0311Z1 to a directory say d:\XT0311Z1
2. Issue the following commands
ftp <machine_name>
asc
cd A73PC00016
put
Local ffile d:\XT0311Z1
Remote file JDESRC.XT0311Z1
bye
However, all compilations should be against the actual source that is being upgraded to A73 cum 16 and not just A73PC00016. This is because some source may be missing in the A73PC00016.
So, there are 2 main points here:
1. Make sure that you are using SVR to do compilations
2. Make sure that the correct source and object libraries are being used and not just A73PC00016.
It is best to contact the previous programmer who have been maintaining the system on the libraries being used.
check the object's detail by issuing this command Eg
DSPOBJD OBJ(JDFOBJ73/X091103) OBJTYPE(*PGM) DETAIL(*SERVICE) ASPDEV(*)
To check the source file date/time, the programmer can issue the STRPDM command and work with the member X091103 for the source file JDESRC in the source library JDFSRC73
Look for the member X091103 and take option 9 to display the source date and time and determine if it matches the object source and time or the latest modification ?
X091103 - Journal Entry Tax Server
5761WDS V6R1M0 080215 IBM RPG/400 JDFOBJ73/X091103 06/07/15 12:32:38 Page 1
Compiler . . . . . . . . . . . . . : IBM RPG/400
Command Options:
Program . . . . . . . . . . . . : JDFOBJ73/X091103
Source file . . . . . . . . . . : JDFSRC73/JDESRC
Source member . . . . . . . . . : X091103
Source listing options . . . . . : *SOURCE *XREF *GEN *NODUMP *NOSECLVL *NOSRCDBG *NOLSTDBG
Generation options . . . . . . . : *NOLIST *NOXREF *NOATR *NODUMP *NOOPTIMIZE
Source listing indentation . . . : *NONE
Type conversion options . . . . : *NONE
Sort sequence . . . . . . . . . : *HEX
Language identifier . . . . . . : *JOBRUN
SAA flagging . . . . . . . . . . : *NOFLAG
Generation severity level . . . : 9
Print file . . . . . . . . . . . : *LIBL/QSYSPRT
Replace program . . . . . . . . : *NO
Target release . . . . . . . . . : *CURRENT
User profile . . . . . . . . . . : *USER
Authority . . . . . . . . . . . : *LIBCRTAUT
Text . . . . . . . . . . . . . . : *SRCMBRTXT
Phase trace . . . . . . . . . . : *NO
Intermediate text dump . . . . . : *NONE
Snap dump . . . . . . . . . . . : *NONE
Codelist . . . . . . . . . . . . : *NONE
Ignore decimal data error . . . : *NO
Allow null values . . . . . . . : *NO
Actual Program Source:
Member . . . . . . . . . . . . . : X091103
File . . . . . . . . . . . . . . : JDESRC
Library . . . . . . . . . . . . : JDFSRC73
Last Change . . . . . . . . . . : 06/07/15 12:29:18
Description . . . . . . . . . . : Journal Entry Tax Server
Compile stopped. Severity level 40 errors found in file.
* * * * * E N D O F C O M P I L A T I O N * *
Below are the required steps in order to apply code change on X091103 soruce.
There are 2 ways to compile an RPG in World software.
1. Make use of SVR, inquire on the object and take option 14
2. Make use of as400 STRPDM and take option 14.
The issue can be reproduced at will with the following steps:
1. Apply code changes for SARS 8334363 for program X091103, 8953247 for programs
A/P Functional Server (XT0411Z1)
A/R Functional Server (XT0311Z1)
Journal Entry Tax Server (X091103)
Fastpath to SVR, inquire on the object X091103 and then use option 14 to compile
http://docs.oracle.com/cd/E26228_01/doc.93/e21952/ch_ww_software_ver_rep.htm#WEAAS752
The basic steps are the following:
1. From SVR, inquire on the program that needed to be amended by entering I for Action Code and Member Name as X091103
2. Take option 14 against the row that shows the correct source, object library
Change the source and object library as necessary
For the source of a cum e.g. A73PC00016, they should be updated in the source library for the World environment.
If you have latest source x091103 Let's say in d:\XT0311Z1
If you want to upload this to your AS400 system, you will need to do the following:
1. Download XT0311Z1 to a directory say d:\XT0311Z1
2. Issue the following commands
ftp <machine_name>
asc
cd A73PC00016
put
Local ffile d:\XT0311Z1
Remote file JDESRC.XT0311Z1
bye
However, all compilations should be against the actual source that is being upgraded to A73 cum 16 and not just A73PC00016. This is because some source may be missing in the A73PC00016.
So, there are 2 main points here:
1. Make sure that you are using SVR to do compilations
2. Make sure that the correct source and object libraries are being used and not just A73PC00016.
It is best to contact the previous programmer who have been maintaining the system on the libraries being used.
check the object's detail by issuing this command Eg
DSPOBJD OBJ(JDFOBJ73/X091103) OBJTYPE(*PGM) DETAIL(*SERVICE) ASPDEV(*)
To check the source file date/time, the programmer can issue the STRPDM command and work with the member X091103 for the source file JDESRC in the source library JDFSRC73
Look for the member X091103 and take option 9 to display the source date and time and determine if it matches the object source and time or the latest modification ?
X091103 - Journal Entry Tax Server
5761WDS V6R1M0 080215 IBM RPG/400 JDFOBJ73/X091103 06/07/15 12:32:38 Page 1
Compiler . . . . . . . . . . . . . : IBM RPG/400
Command Options:
Program . . . . . . . . . . . . : JDFOBJ73/X091103
Source file . . . . . . . . . . : JDFSRC73/JDESRC
Source member . . . . . . . . . : X091103
Source listing options . . . . . : *SOURCE *XREF *GEN *NODUMP *NOSECLVL *NOSRCDBG *NOLSTDBG
Generation options . . . . . . . : *NOLIST *NOXREF *NOATR *NODUMP *NOOPTIMIZE
Source listing indentation . . . : *NONE
Type conversion options . . . . : *NONE
Sort sequence . . . . . . . . . : *HEX
Language identifier . . . . . . : *JOBRUN
SAA flagging . . . . . . . . . . : *NOFLAG
Generation severity level . . . : 9
Print file . . . . . . . . . . . : *LIBL/QSYSPRT
Replace program . . . . . . . . : *NO
Target release . . . . . . . . . : *CURRENT
User profile . . . . . . . . . . : *USER
Authority . . . . . . . . . . . : *LIBCRTAUT
Text . . . . . . . . . . . . . . : *SRCMBRTXT
Phase trace . . . . . . . . . . : *NO
Intermediate text dump . . . . . : *NONE
Snap dump . . . . . . . . . . . : *NONE
Codelist . . . . . . . . . . . . : *NONE
Ignore decimal data error . . . : *NO
Allow null values . . . . . . . : *NO
Actual Program Source:
Member . . . . . . . . . . . . . : X091103
File . . . . . . . . . . . . . . : JDESRC
Library . . . . . . . . . . . . : JDFSRC73
Last Change . . . . . . . . . . : 06/07/15 12:29:18
Description . . . . . . . . . . : Journal Entry Tax Server
Compile stopped. Severity level 40 errors found in file.
* * * * * E N D O F C O M P I L A T I O N * *
No comments:
Post a Comment