IBMi (AS400) fans only * HOW TO GET CURRENT TIME FROM CL (CONTROL LANGUAGE)

By -

#IBMiSample

This example gets current time in format HHMMSS.


             PGM                                     
             DCL        VAR(&TIME) TYPE(*CHAR) LEN(6)
             RTVSYSVAL  SYSVAL(QTIME) RTNVAR(&TIME)  
             SNDPGMMSG MSG(&TIME)                    
             ENDPGM                                  

Comments

Post a Comment

Popular posts from this blog

Using a Parameterized Cursor in SQLRPGLE

By -
Image
Using a Parameterized Cursor in SQLRPGLE – A Simple and Clean Example When working with embedded SQL on IBM i, using a cursor with parameters is a great way to selectively retrieve data from a file based on runtime input. In this post, I’ll walk you through a simple SQLRPGLE program that demonstrates this concept. This free-format RPG example shows how to: Accept an input parameter Open a cursor based on that parameter Fetch records from the CLANA00F file Display basic customer information Properly handle SQL errors What Is CLANA00F? The file CLANA00F contains customer master data. Here's a simplified layout of its most relevant fields: Field Type Description CLCCL0 S(7) Customer numeric ID CLNOM0 A(50) Customer name CLCIB0 A(3) International code Our goal is to retrieve only those customers whose CLCIB0 matches a parameter passed when the program is called. Program Highlights ctl-opt dftactgrp(*no) actgrp(*caller); dcl-s CLCCL0...
Read more

Dynamic SQL in RPG

By -
Image
Simple Example of Using Dynamic SQL in RPG Dynamic SQL is a powerful technique on IBM i that allows you to build SQL statements at runtime instead of hardcoding them. This flexibility is essential when your SQL needs to adapt based on user input, configuration, or variable conditions. In this post, I’ll walk you through a simple RPG example that uses a parameterized dynamic SQL statement to retrieve data from a file. The Program **FREE // ************************************************************* // * Author.......: ALDO SUCCI                                 * // * Description..: Simple example of using dynamic SQL in RPG * // *************************************************************   // Declare variable to hold the customer type (3 characters) dcl-s wCLCIB0 CHAR(3);   // Declare variable to hold the customer name retrieved from the database dcl-s wCLNOM...
Read more

DB2 System Versioning on IBM i – Automatic History Tracking Without Triggers

By -
Image
In this post I'll show you how to implement DB2 System Versioning on IBM i — a built-in mechanism that automatically keeps a full history of every INSERT, UPDATE, and DELETE on a table, without writing a single line of trigger code. This is a practical, working example I built and tested step by step. I'll show you the real errors I ran into and exactly how I fixed them. What You'll Learn How to create a Journal and Journal Receiver with a CL program How to design a main table with temporal columns Why CREATE TABLE ... LIKE doesn't work for history tables (and what to do instead) The correct sequence: create → journal → activate versioning How to verify the history with SELECT queries The Setup: Two Source Members, One CL Program Everything runs from a single CL program ( HISTORY010.CLP ) that orchestrates two SQL script members stored in SQLTBLSRC . The execution sequence is critical and must follow this exact order: Create j...
Read more