Code400 -The Support Alternative

Code400 -The Support Alternative http://www.code400.com/forum/ Code400 is an open source experiment in RPG400, RPGLE, SQLRPGLE, CLLE for the IBM Iseries (system I - Iseries - AS400). The site host an iseries forum and tools to upload source samples directly to dynamic web pages. A search function to locate source samples by keyword(s). Iseries. The site host a forum and tools to upload source samples directly to dynamic web pages. A search function to locate source samples by keyword(s) en Fri, 10 Sep 2010 03:48:41 GMT vBulletin 60 http://www.code400.com/forum/images/misc/rss.png Code400 -The Support Alternative http://www.code400.com/forum/ Happy Birthday http://www.code400.com/forum/showthread.php/9652-Happy-Birthday?goto=newpost Thu, 09 Sep 2010 11:13:15 GMT Hey Bryce Have great birthday! Hey Bryce

Have great birthday! ]]> Whatever (not programming related) kitvb1 http://www.code400.com/forum/showthread.php/9652-Happy-Birthday Help Needed--RCVJRNE http://www.code400.com/forum/showthread.php/9651-Help-Needed-RCVJRNE?goto=newpost Thu, 09 Sep 2010 10:10:49 GMT Hi Folks, Hope you all are doing great :) I had a small query. I am using RCVJRNE command to retrieve the information from Journal Entries and put in a file. I am getting the entries too. But when i compile the file and then use RCVJRNE , i get the records present in file after... Hi Folks,

Hope you all are doing great :)

I had a small query.
I am using RCVJRNE command to retrieve the information from Journal Entries and put in a file.
I am getting the entries too.
But when i compile the file and then use RCVJRNE , i get the records present in file after compilation Only.

Can i anyhow get records present in the file before compilation from the Journal?

Sorry if i sound too stupid:o ]]> CLP/CLLE kidoman http://www.code400.com/forum/showthread.php/9651-Help-Needed-RCVJRNE Close printer file from another program http://www.code400.com/forum/showthread.php/9650-Close-printer-file-from-another-program?goto=newpost Wed, 08 Sep 2010 20:14:13 GMT Hello bearded guys, i need your enlightenment with something. I have a program (let´s call it A), that basically reads some data from files, and outputs it to a printer file (with O specs). I want a second program (let´s call it B) to call program A lots of times, but when printing with each... Hello bearded guys, i need your enlightenment with something.

I have a program (let´s call it A), that basically reads some data from files, and outputs it to a printer file (with O specs).

I want a second program (let´s call it B) to call program A lots of times, but when printing with each call, i want all the output to be stored in just one printer in my spool and increment the page numbers as intended. So what i did in program A is to not set on last record (LR) and it works fine, instead of getting 100 files in my spool i just get one with all the printing done to it.

But the problem with this solution is that after program B finishes calling A 100 times and exits, the printer is still opened, even if i have declared the printer in program B with USROPN and open it before the first call to program A and close it just before exiting program

To recap, in program A i have:

PHP Code:


FPRT198    O    F  198        PRINTER OFLIND(*INOF)

In program B (that calls A) i have:

PHP Code:


FPRT198    O    F  198        PRINTER OFLIND(*INOF)

F                                     USROPN

I have tried lots of combinations but haven't worked. Can this be solved? ]]> RPG/RPGLE fjleon http://www.code400.com/forum/showthread.php/9650-Close-printer-file-from-another-program SQL Update Null Value http://www.code400.com/forum/showthread.php/9649-SQL-Update-Null-Value?goto=newpost Wed, 08 Sep 2010 19:45:58 GMT Can someone explain this to me?

PHP Code:


Update TOFILE A                      
 Set ( iGRP3, iGRP4 )                
   = ( Select coalesce( iGRP3, ' ' ),
              coalesce( iGRP4, ' ' ) 
         from FROMFILE B             
        Where A.iACTV  = B.iACTV     
          and A.iSTOR  = B.iSTOR     
          and A.iITEM  = B.iITEM  )

Gives me the message:

Null values not allowed in column or variable IGRP3.

I'm forcing the value to be either the actual value or *blank...

What gives??

:duh ]]> SQL FaStOnE http://www.code400.com/forum/showthread.php/9649-SQL-Update-Null-Value Doubt in *CALLER activation group http://www.code400.com/forum/showthread.php/9648-Doubt-in-*CALLER-activation-group?goto=newpost Wed, 08 Sep 2010 19:31:32 GMT as per defination of ILE activation group

*CALLER
When this program is called, it is activated into the caller's activation group.

Soppose i have a single program object A ,.which is compiled with activation group *CALLER. So when i called the program A then in which activation group that program will run? ]]> RPG/RPGLE ris_skma http://www.code400.com/forum/showthread.php/9648-Doubt-in-*CALLER-activation-group <![CDATA[my lastest and greatest "Stupid SQL Tricks"]]> http://www.code400.com/forum/showthread.php/9647-my-lastest-and-greatest-quot-Stupid-SQL-Tricks-quot?goto=newpost Wed, 08 Sep 2010 17:22:43 GMT is it not possible to use with in an insert?

Code:

Insert Into QTemp/FinTotals (                                      

  With t1 As (                                                     

  Select Cast(' ' As Char(1)) As Reg,                              

  Cast(' ' as Char(7)) As CustNo,Cast(' ' As Char(30)) As          

  CustName,Cast(Sum( Invoiced ) As Dec(15,2)) As Invoiced,         

  Cast(Sum( PayOff ) As Dec(15,2)) As PayOff, Cast(Sum(Payment) As 

   Dec(15,2)) As Payment,Cast(Sum(Balance ) As Dec(15,2)) As       

  Balance                                                          

  From RO1050XL_1)                                                 

  Select a.Reg,a.CustNo,a.CustName,a.Invoiced,a.PayOff,a.Payment,  

  Case When (a.Payment <> 0 And a.PayOff <> 0) Then                

  Cast((((a.Payment / a.PayOff) * 100))                            

   As Dec(15,2))                                                   

  Else 0 End As Percent,a.Balance From t1 a                        

);

if not...then why the hell not???? please save me...it's dark in here:duh ]]> SQL tomholden http://www.code400.com/forum/showthread.php/9647-my-lastest-and-greatest-quot-Stupid-SQL-Tricks-quot JDE Report headings http://www.code400.com/forum/showthread.php/9646-JDE-Report-headings?goto=newpost Wed, 08 Sep 2010 14:19:38 GMT Hi, Using SVR, option 10, I setup a new report layout consisting of a headings and detail record. When I run the DW version, I do not get the report title, which is described on the Version Identification line for the version title of the DW. Why is this happening? Hi,
Using SVR, option 10, I setup a new report layout consisting of a headings and detail record.
When I run the DW version, I do not get the report title, which is described on the Version Identification line for the version title of the DW.

Why is this happening? ]]> JDE redvan http://www.code400.com/forum/showthread.php/9646-JDE-Report-headings <![CDATA["I" specification Equivalent translation in "D" Specification of RPGLE]]> http://www.code400.com/forum/showthread.php/9645-quot-I-quot-specification-Equivalent-translation-in-quot-D-quot-Specification-of-RPGLE?goto=newpost Wed, 08 Sep 2010 14:15:58 GMT Hi Friends,

I am in the process of converting RPG program to RPGLE program. In this process, It necessiates an conversion of " I " specs to equivalent "D" specs equivalent.

I specs - I FileRecordformat(Record name) 11 (record Id).
(The record ID will be set ON, if we hit the record within the file which has the record format name matching here)

Kindly let me know the equivalent syntax in D specs, if any.

Thanks in advance,

Regards,
Prem ]]> RPG/RPGLE prem http://www.code400.com/forum/showthread.php/9645-quot-I-quot-specification-Equivalent-translation-in-quot-D-quot-Specification-of-RPGLE reorg tools for iseries http://www.code400.com/forum/showthread.php/9644-reorg-tools-for-iseries?goto=newpost Wed, 08 Sep 2010 13:13:10 GMT Hi

I've been searching for some tools for file reorg. From net i got some tools. Can someone tell me which one
is the best among the following. Is there any other tools available?

1: ITERA -Reorganize While Active V3R2
2: Vision's Reorg While Active
3: OS Solutions: Reorg While Active in OS Director
4: KSTSOFTWARE
5: S4isystems-reorg while active
6: DCS Software : ARCTOOLS/400™ Version 6.1
7: Softlanding systems

Thanks!:) ]]> Iseries Tools logtosp http://www.code400.com/forum/showthread.php/9644-reorg-tools-for-iseries Query Manager - Summery only http://www.code400.com/forum/showthread.php/9643-Query-Manager-Summery-only?goto=newpost Wed, 08 Sep 2010 06:42:26 GMT Hey is it possible to use query manager to create a report as summery only? If yes, how? Regards Dennis Hey

is it possible to use query manager to create a report as summery only?
If yes, how?

Regards
Dennis ]]> RPG/RPGLE SinCityLegend http://www.code400.com/forum/showthread.php/9643-Query-Manager-Summery-only Blanks in the Display INFDS http://www.code400.com/forum/showthread.php/9642-Blanks-in-the-Display-INFDS?goto=newpost Wed, 08 Sep 2010 01:28:36 GMT I have a subfile which allows an F7 key prompt to open a selection window. This is all good. I get back the item selected and fill my subfile field and update the subfile. It's when I'm trying to position that curson back to the place it was originally befor I pressed the F7.

Code:

 

A RTNCSRLOC(&C1RCDN &C1FELD)

A CSRLOC(C1CSZE C1CSSP)

A SFLCSRRRN(&C1RSNR)

A SFLMODE(&C1MODE)

A C1RSF 4S 0H SFLRCDNBR(CURSOR)

A C1RSNR 5S 0H TEXT('Current Cursor Record

A C1MODE 1A H

A C1RCDN 10A H

A C1FELD 10A H

A C1CSZE 3S 0H TEXT('Row for positioning')

A C1CSSP 3S 0H TEXT('Column for positionin

Code:

 

FTSD002S CF E WORKSTN INFDS(DSPFBK)

 

DDSPFBK DS

DRowInfDS 370 370

DColInfDS 371 371

*

D DS

D RowNum 1 2B 0

D ColNum 3 4B 0

D RowBin 2 2

D ColBin 4 4

 

C eval C1RSF = C1RSNR

C eval RowBin = RowInfDS

C eval ColBin = ColInfDS

My problem is rowinfds and colinfds consist of blanks, and I can not understand why. Did everything (I thought) by the book... What's up????

gollnick ]]> RPG/RPGLE pgollnic http://www.code400.com/forum/showthread.php/9642-Blanks-in-the-Display-INFDS When Making Paperless Decisions: Why Choose i? http://www.code400.com/forum/showthread.php/9641-When-Making-Paperless-Decisions-Why-Choose-i?goto=newpost Tue, 07 Sep 2010 21:43:23 GMT A question some companies should ask themselves—particularly companies with a strong existing IBM System i environment—is: "Why not run document imaging and management solutions on our primary platforms?"

Read the newest article from Ryan Rhodes (contributing writer to IBM Systems Magazine) www.s4isystems.com/whyi.php
]]> Whatever (not programming related) Jenniefer http://www.code400.com/forum/showthread.php/9641-When-Making-Paperless-Decisions-Why-Choose-i Happy Birthday kausix777! http://www.code400.com/forum/showthread.php/9640-Happy-Birthday-kausix777!?goto=newpost Tue, 07 Sep 2010 13:02:27 GMT Hope you have a great day! Hope you have a great day! ]]> Whatever (not programming related) FaStOnE http://www.code400.com/forum/showthread.php/9640-Happy-Birthday-kausix777! Reg : SNDDST http://www.code400.com/forum/showthread.php/9639-Reg-SNDDST?goto=newpost Tue, 07 Sep 2010 11:19:15 GMT Hi Is it possible to use group id in SNDDST command. Any one help me in this regards Thanx in Advance Magesh Hi

Is it possible to use group id in SNDDST command. Any one help me in this regards

Thanx in Advance
Magesh ]]> CLP/CLLE kmkmagesh http://www.code400.com/forum/showthread.php/9639-Reg-SNDDST How to create service on As400 http://www.code400.com/forum/showthread.php/9638-How-to-create-service-on-As400?goto=newpost Tue, 07 Sep 2010 09:10:30 GMT Like windows, how you can create a service program on as400 box. I know ADDAJE command interface is there, but does any one have the steps to do this? Like windows, how you can create a service program on as400 box. I know ADDAJE command interface is there, but does any one have the steps to do this? ]]> Tips for the Iseries/AS400 testas400 http://www.code400.com/forum/showthread.php/9638-How-to-create-service-on-As400