Load All Subfile - Full Free Format RPGLE

Load All Subfile in Full Free Format RPGLE

Earlier in my post I shared a simple Load All Subfile in RPGLE. Click Here for this post and for more details on Subfile.

In this post, we will use the same Example using Full Free Format RPGLE.

Refer this link for the Sample Physical file and Display File used in this Article.

Below is the Sample RPGLE code for Load All Subfile.

**Free
  // Define Physical File
  Dcl-F TESTFILE ;
  // Define Subfile
  Dcl-F TESTSUBFIL WORKSTN SFILE(SFDTAR:SFRRN) ;

  // Define Required Variables

  // Main Process
  ExSr Sub_Init ;
  ExSr Sub_Main ;
  ExSr Sub_Exit ;

  // Sub_Init - First time initialization routine
  BegSr Sub_Init ;
    SFPGMNAM = 'TESTLODALL'
    // Clear Subfile
    *In25 = *Off ;
    *In26 = *Off ;
    *In28 = *On ;
    Write SFCTLR ;
    *In28 = *Off ;
    *In25 = *On ;
    *In26 = *On ;
   EndSr ;

   // Sub_Main - Main Processing Routine
   BegSr Sub_Main ;

     ExSr Sub_Load ;

     Dow *In03 = *Off ;
       // If You Need Cursor to be Pointed on Specific Record,
       // You can move corresponding RRN to CSRRR field. In this
       // example I am placing Cursor on 3rd Page.
       CSRRRN = 17 ;
       If SFRRN = 0 ;
         *In25 = *Off ;
       EndIf ;
       Write SFFTRR ;
       Exfmt SFCTLR ;
     EndDo ;

   EndSr ;

   // Sub_Load - Load Subfile
   BegSr Sub_Load ;

     SFRRN = 0 ;
     CSRRRN = 1 ;
     Read TESTFILE ;
     Dow Not %Eof(TESTFILE) And SFRRN < 9999 ;
       SFRRN = SFRRN + 1 ;
       SFTSFLD1 = TSFLD1 ;
       SFTSFLD2 = TSFLD2 ;
       SFTSFLD3 = TSFLD3 ;
       SFTSFLD4 = TSFLD4 ;
       Write SFDTAR ;
       Read TESTFILE ;
     EndDo ;
     *In40 = *On ;

   EndSr ;

   // Sub_Exit - Finalization Routine
   BegSr Sub_Exit ;

     *InLr = *On ;

   EndSr ; 

Comments

  1. Sandeep FogaatJune 14, 2022 at 8:34 PM

    Hi PR, your code is showing last page of the subfile. How i can display first page of subfile.

    ReplyDelete
    Replies
    1. Pradeep PangaJune 17, 2022 at 6:00 PM

      Hi Sandeep, Yes it does point to the last page as we are setting the CSRRRN to 17. See the below code and change CSRRRN to 1 to point to the first record.

      // If You Need Cursor to be Pointed on Specific Record,
      // You can move corresponding RRN to CSRRR field. In this
      // example I am placing Cursor on 3rd Page.
      CSRRRN = 17 ;

      Delete
  2. durgaAugust 4, 2023 at 2:05 PM

    Hi Can you please help for selection option
    suppose if i select any record by select option 1 it will go to next screen
    can you please help me

    ReplyDelete
    Replies
    1. Pradeep PangaAugust 4, 2023 at 2:50 PM

      Hi Durga,

      You could take a look at the below post (example for expandable sub file) which also has a piece of sample code for options processing as well. In brief you would be reading subfile record format using READC which would fetch the changed record, you would then need to check for the option and do the required operation.

      https://www.codewithpr.com/2020/08/expandable-subfile-example-program.html

      Please see if this is of any help, If not, you could consider sharing more specific details on what you are looking at, so that I would be able to advise you. You could either reply to this comment or reach out using the contact form.

      Thanks.

      Delete
  3. durgaAugust 4, 2023 at 5:40 PM

    Hi Pradeep
    Iam doing load all subfile in that iam having selection option
    when selection I on one particular record it will go to the next screen
    that logic i want

    ReplyDelete
    Replies
    1. Pradeep PangaAugust 4, 2023 at 5:52 PM

      Hi Durga,

      I understand, logic for processing the option selection should be similar to the example link I have shared in the previous comment. I'm pasting the subroutine for your quick reference.

      // ------------------------------------------------------------------------
      // Process Subfile Options
      // ------------------------------------------------------------------------
      BegSr SrProcessOptions ;
      ReadC PPSFL01 ;
      Dow Not %Eof(TESTSUBFIL) ;
      If SOpt = '1' ;
      EXFMT ;
      EndIf ;
      ReadC PPSFL01 ;
      EndDo ;
      EndSr;

      This is a sample, you can try something similar, You can also try using SrValidateOptions which is intended for validating options before processing.

      Let me know if it doesn't help you.

      Thanks.

      Delete

Post a Comment

Popular posts from this blog

What is the importance of User Open (USROPN) in RPGLE - IBM i

User Open (USROPN) USROPN (User Open) in RPGLE provides the flexibility for the programmer to open a file at a specific point in the program execution. In this post, let's explore what is the use of a USROPN and what is the importance of USROPN and how to use it with a simple example. What is the use of USROPN? By default, any file in the RPGLE (defined in F-Spec) opens as soon as the program execution is started and file is closed at the end of the program (by setting LR indicator ON). A simple RPGLE program looks something like this on a high level with out the use of a USROPN.  1 2 3 4 5 6 7 8 9 10 11 **Free                                  Dcl-F TestFile;                            ...
Read more

What is Deep Learning? Beyond the Basics of AI

What is Deep Learning? Beyond the Basics of AI AI’s everywhere—unlocking your phone, suggesting playlists, even driving cars. But how does it get *so* smart? Enter deep learning—a game-changer in artificial intelligence. Welcome to Decoding Complexities , where we unravel tech’s toughest puzzles. If you read “What Are Neural Networks?” you’ve brushed against this. Now, we’re going deeper. In this post, we’ll decode what deep learning is, how it powers AI’s wildest feats, and why it’s more than just buzz. From self-driving Teslas to ChatGPT, it’s the engine behind the magic. Let’s break it down—ready? Deep Learning: The Basics Deep learning (DL) is a subset of machine learning—itself a chunk of AI. Remember neural networks from my last post? DL cranks them up—think neural networks on steroids. It’s all about *deep* neural networks—piles of layers that dig into data to find patterns no human could spot. Here’s the gist: More Layers: Regula...
Read more

What is Artificial Intelligence?

Artificial Intelligence Artificial Intelligence (In short, AI) is a highly sought-after skill in the Tech Industry today. In this post, let's try to understand " What is Artificial Intelligence? ". Before we dive in, let's first understand "What is Intelligence?" As humans, we think and act. This involves understanding our environment, predicting outcomes, and behaving accordingly. Similarly, AI focuses on building machines that can understand, predict, and act/respond effectively and safely. AI isn't exclusive to any specific industry. Its applications spread across different industries, including playing chess, proving mathematical theorems, driving cars, writing poetry, composing music, generating videos, diagnosing diseases, and much more. The field is continually evolving. Initially, AI was often defined in relation to matching ' Human performance '. However, AI has surpassed human capabilities in several areas and ...
Read more