Century Support Products for CA-IDMS
Statement Sequence Listing
Century Support Products for CA-IDMS
Statement Sequence Listing
RECORD: HSLW1300-02 EXPANDED PIC
--------------------------------------------------------------------------- -------------------------------- ----------------------
00001 01 HSLW1300-02. 9(2)_9(2)_9(2)_9(2)_9(2)_9(2)_9( SUPERIOR TO FLAGGED EL
00002 05 HSLE1300-02-CURRENT-DATE. 9(2)_9(2)_9(2)_9(2) FLAGGED BASED ON NAME
00003 10 HSLE1300-02-CD-YY-1-2 PIC 9(2). 9(2) FLAGGED BASED ON NAME
00004 10 HSLE1300-02-CD-YY-3-4 PIC 9(2). 9(2) FLAGGED BASED ON NAME
00005 10 HSLE1300-02-CD-MM PIC 9(2). 9(2) FLAGGED BASED ON NAME
00006 10 HSLE1300-02-CD-DD PIC 9(2). 9(2) FLAGGED BASED ON NAME
00007 05 HSLE1300-02-FUP-DATE. 9(2)_9(2)_9(2)_9(2) FLAGGED BASED ON NAME
00008 10 HSLE1300-02-FUP-YY-1-2 PIC 9(2). 9(2) FLAGGED BASED ON NAME
00009 10 HSLE1300-02-FUP-YY-3-4 PIC 9(2). 9(2) FLAGGED BASED ON NAME
00010 10 HSLE1300-02-FUP-MM PIC 9(2). 9(2) FLAGGED BASED ON NAME
00011 10 HSLE1300-02-FUP-DD PIC 9(2). 9(2) FLAGGED BASED ON NAME
00012 05 HSLE1300-02-HOLD-YY PIC 9(2). 9(2) FLAGGED BASED ON NAME
COUNTS FOR RECORD - RECORD ELEMENTS: 12 HITS: 12
-----------------------------------------------------------------------------------------------------------------------------------
MAP: HSLM1300 SUB ROW COL EXTERNAL PIC IN EDIT OUT EDIT EXPANDED PIC
-------------------------------------- --- --- --- -------------------- -------- -------- --------------------------------
00001 HSLE0000-01-DATE 1 1 9(2)_X_9(2)_X_9(2)
00026 HSLE1300-01-DATE 1 4 7 9(2)_X_9(2)_X_9(2)
00027 HSLE1300-01-DATE 2 5 7 9(2)_X_9(2)_X_9(2)
00028 HSLE1300-01-DATE 3 6 7 9(2)_X_9(2)_X_9(2)
00029 HSLE1300-01-DATE 4 7 7 9(2)_X_9(2)_X_9(2)
00030 HSLE1300-01-DATE 5 8 7 9(2)_X_9(2)_X_9(2)
00031 HSLE1300-01-DATE 6 9 7 9(2)_X_9(2)_X_9(2)
00032 HSLE1300-01-DATE 7 10 7 9(2)_X_9(2)_X_9(2)
00033 HSLE1300-01-DATE 8 11 7 9(2)_X_9(2)_X_9(2)
00034 HSLE1300-01-DATE 9 12 7 9(2)_X_9(2)_X_9(2)
00035 HSLE1300-01-DATE 10 13 7 9(2)_X_9(2)_X_9(2)
00036 HSLE1300-01-DATE 11 14 7 9(2)_X_9(2)_X_9(2)
00037 HSLE1300-01-DATE 12 15 7 9(2)_X_9(2)_X_9(2)
00038 HSLE1300-01-DATE 13 16 7 9(2)_X_9(2)_X_9(2)
00039 HSLE1300-01-DATE 14 17 7 9(2)_X_9(2)_X_9(2)
00040 HSLE1300-01-DATE 15 18 7 9(2)_X_9(2)_X_9(2)
00041 HSLE1300-01-DATE 16 19 7 9(2)_X_9(2)_X_9(2)
00042 HSLE1300-01-DATE 17 20 7 9(2)_X_9(2)_X_9(2)
00043 HSLE1300-01-DATE 18 21 7 9(2)_X_9(2)_X_9(2)
00044 HSLE1300-01-DATE 19 22 7 9(2)_X_9(2)_X_9(2)
00045 HSLE1300-01-DATE 20 23 7 9(2)_X_9(2)_X_9(2)
COUNTS FOR MAP - MAP FIELDS: 105 HITS: 21
-----------------------------------------------------------------------------------------------------------------------------------
MODULE: HSLP1300 REF EXPANDED PIC HOW USED
------------------------------------------------------------------------------ --- -------------------- ---------------------------
--------
00028 IF NOT SET SET-0120-0340 MEMBER OR -1- 9(2)_9(2)_9(2)_9(2) USED IN COMPARE GT OR LT
00029 ((HSLE1300-02-FUP-DATE GT HSLE1300-02-CURRENT-DATE) AND -2- 9(2)_9(2)_9(2)_9(2) USED IN COMPARE GT OR LT
---------1---------- -----------2------------
00030 (HSLE0000-01-CALLING-PROGRAM EQ 'HSLD0010'))
--------
00044 WHILE (DB-STATUS-OK AND -1- 9(2)_9(2)_9(2)_9(2) USED IN COMPARE GT OR LT
00045 (HSLE0000-03-SS1 LT 21)) AND -2- 9(2)_9(2)_9(2)_9(2) USED IN COMPARE GT OR LT
00046 (((HSLE1300-02-FUP-DATE LE HSLE1300-02-CURRENT-DATE) AND
---------1---------- -----------2------------
00047 (HSLE0000-01-CALLING-PROGRAM EQ 'HSLD0010')) OR
00048 (HSLE0000-01-CALLING-PROGRAM NE 'HSLD0010'))
--------
00060 MOVE '/' TO HSLE1300-01-SLASH-1 (HSLE0000-03-SS1). -1- X TARGET OF MOVE
---------1---------
--------
00061 MOVE '/' TO HSLE1300-01-SLASH-2 (HSLE0000-03-SS1). -1- X TARGET OF MOVE
---------1---------
--------
00062 MOVE HSL-0340-FUP-YY HSLE1300-01-YY (HSLE0000-03-SS1). -1- 9(2) SOURCE OF MOVE
-------1------- ------2------- -2- 9(2) TARGET OF MOVE
--------
00063 MOVE HSL-0340-FUP-MM HSLE1300-01-MM (HSLE0000-03-SS1). -1- 9(2) SOURCE OF MOVE
-------1------- ------2------- -2- 9(2) TARGET OF MOVE
--------
00064 MOVE HSL-0340-FUP-DD HSLE1300-01-DD (HSLE0000-03-SS1). -1- 9(2) SOURCE OF MOVE
-------1------- ------2------- -2- 9(2) TARGET OF MOVE
--------
00075 COMPUTE HSLE1300-01-PAGES (HSLE0000-03-SS1) -1- ARITHMETIC OPERAND
00076 TRUNCATED = (HSL-0360-SEQ + 19) / 20. -2- ARITHMETIC OPERAND
Back to HSL.
Hybrid Systems Ltd., Inc.
200 University Park Drive
Edwardsville, IL 62025
US 1-800-779-2802
Outside US 1-618-692-4757
E-mail: HSL