פיתוח – דגל פג תוקף

אני מפתח קוד לצורך סימון Y בשדה קיים רכיב פג תוקף.

זה מסך פק"עות ןמסך בן רשימת זווד

איך אפשר לשלב בקוד שכן יסמן Y אם יש רכיב פג תוקף.
<p style="text-align: right;">תוד רבה</p>
<p style="text-align: center;">LINK GENERALLOAD TO :$.GL;
ERRMSG 1 WHERE :RETVAL <= 0;
LINK STACK4 TO :$.ST4;
ERRMSG 1 WHERE :RETVAL <= 0;
/****Inserting to Generalload data for interface****/
DECLARE SERIAL1 CURSOR FOR
SELECT DISTINCT SERIAL.SERIAL
FROM SERIAL, KITITEMS
WHERE SERIAL.SERIAL = KITITEMS.SERIAL
AND SERIAL.CLOSEDATE = 0
AND SERIAL.RIO_SERIESNUM <> "
AND SERIAL.PSDATE >= 15/12/2022
ORDER BY SERIAL;
:$.LINE = 0;
OPEN SERIAL1;
LABEL 1 ;
FETCH SERIAL1 INTO :SERIAL;
GOTO 2 WHERE :RETVAL = 0 ;
/*****Insert Header *****/
INSERT INTO GENERALLOAD (RECORDTYPE, LINE, TEXT1, CHAR1)
SELECT DISTINCT '1', SQL.LINE + :$.LINE, SERIALNAME, RIO_EXPIRDAYS
FROM SERIAL
WHERE SERIAL.SERIAL = :SERIAL;
/*****Insert Lines *****/
INSERT INTO GENERALLOAD (RECORDTYPE, LINE, INT1, TEXT2, INT3)
SELECT
'2'
, SQL.LINE + :$.LINE + 1
, KITI
, PA1.PARTNAME
, PARTPARAM.EXPIRYMONTH
FROM SERIAL, PART, PART PA1, KITITEMS, PARTPARAM
WHERE SERIAL.SERIAL = :SERIAL
AND SERIAL.PART = PART.PART
AND SERIAL.SERIAL = KITITEMS.SERIAL
AND KITITEMS.PART = PA1.PART
AND PARTPARAM.PART = PA1.PART
AND PARTPARAM.EXPIRYMONTH > 0
AND ((PARTPARAM.EXPIRYMONTH * 30) * 1440) + SERIAL.PSDATE < SQL.DATE
AND PA1.TYPE = 'R';
SELECT MAX(LINE) INTO :$.LINE
FROM GENERALLOAD;
LOOP 1;
LABEL 2;
UPDATE SERIAL
SET RIO_EXPIRDAYS = 'Y'
WHERE SERIAL = :SERIAL;
CLOSE SERIAL1;</p>