RPG

Empty Date Type Variable

  What does a *ISO Date type variable contain if it is not populated? It is not *Zero or *Null???  

RPG ILE Day of Week

Are there alternate ways to determine the day of the week. I have the following formula - DayOfWeek = %Subst(('Sunday ' 'Monday ' 'Tuesday ' 'Wednesday' 'Thursday ' 'Friday ' 'Saturday ' ):(((%Rem(%Diff(%Date():%Date('1941-12-07'):*D):7)+1)*9))-8:9);

Date Formatting in RPG

I have a date in a DATE type field in *ISO format (ccyy-mm-dd) However, I want to extract the YY portion. Using %SUBDT(field: *Y) returns CCYY. Is there a nice way of doing this without using a data structure?

PGM described update file

Hi, I'm trying to update a program described file. I have tried setting the F specs up to allow processing by key by placing the following information in the noted locations: 07-14: file name 15: "U" 16: "F" 19: "F" 26-27: File length (32) 30: The length of the key (8) 31: "A" 32: "I" 38: The...

RPG IV Date Formatting

What is the best and cleanest way to convert a character date dd / mm / yy to *ISO format?

HELP -- RPG 400 LOCAL DATA (LDA)

Can i usr tow lda (local data area) in one CL program that calls an RPG program? if so please help with code illustations thanx

RPG/400 - Reduce Manual Intervention

Currently when we run EOD we have to wait for the other system's file. If the file did not arrive after some time, I will prompt message for operator to reply the message when the file is ready. How do I split my job so that we can use control M to submit the job and reduce operator intervention....

SQL in CLP

Hi, I have to create a command that permits a user to copy records from one file to another and then remove those records from the first file. We've been doing it all manually using CPYF and INCREL and then deleting the records using an SQL Delete statement. I got the idea to create a command and...

Remove hard coding AS/400 RPG

Hi, I have a program that will be used in different countries. Each country have different selection criteria. How do I design my program such that I do not hard code the selection criteria? Note: Selection criteria could be more than 1 fields or from more than 1 file.

Settin on LR indicator not closing files

I have a service program that ends with *INLR but it does not close the files after its procedure is called. It is compiled with ACTGRP(*CALLER) the program that uses it is also compiled with ACTGRP(*CALLER). However, if I use the CLOSE op code, the file closes. Is this natural or should this be...

Default value of a Indicator data type

Hi, can you please temme, what is the default value of a Indicator data type (N) which is declared with 'INZ'?

RPG ILE ending program properly on an error

Hello, Could someone please help me with this? 1. I have an ever running job that calls a particular ILE program (PGM A) to do some XML parsing and composing. 2. PGM A calles another program PGM B (which in turn has modules MOD B, MOD C and a NOMAIN module MOD D binded to it). 3. PGM A parses the...

How to programming with national language in RPG?

Hello experts, I would like to write a program in RPG to print out Vietnamese characters with accents, for example ắ, ấ, ỏ, ọ, ... But I don't know the way AS/400 can support. In SBCS, just some of characters are support. I really appreciate if you guys advice me a solution. Thanks. Tuan...

email from rpg

I want to be able to email from a RPG/CL several .csv files from the IFS

Is SQL Commitment level extended to non SQL programs called

I have an SQLRPGLE program that calls an RPG program. I know that the SQLRPGLE program has an internal commitment control engine activated, but will it extend onto the RPG program I call from here?

CPF5149 on Delete using SHARE(*YES)

I am receiving a CPF5149 error when trying to perform a delete of a record in a file that is defined as update/add in the F spec. Unfortuneately, the software package my company uses requires SHARE(*YES) on all database files. I am fairly sure that the problem is caused by the file being opened at...

Help to get good course to learn RPGLE!

Hi all. I am a beginer in RPG and i really want to have a full course step by step to learn and understand RPG programming . Can any one lead me to any good free accessed Books or materials that can help me , are their any book's servers for IBM other than that IBM info center ?? Thanks in...

Free websites to access AS/400

hi,Any one can tell the free sites to acess as/400 where we can do the actual RPG coding.

Incorporating physical file change in dependent program

Hi, is it possible to incorporate physical file changes (using the new level check identifier) without recompiling the rpg? (Say we have the physical file to be changed, but we do not have the source for the rpg, only the object)

How to define password field in display file.

Hi, In my project i need to create a display file with username and password. But while typing password the text should not visible to user. So any one can tell how to define the password field in AS/400.