|
Code:
- 5722WDS V5R4M0 060210 RN IBM ILE RPG PROJ1398/ARQ900 CROW 09/21/09 12:49:27 Page 1
- Command . . . . . . . . . . . . : CRTBNDRPG
- Issued by . . . . . . . . . . : AJERRY
- Program . . . . . . . . . . . . : ARQ900
- Library . . . . . . . . . . . : PROJ1398
- Text 'description' . . . . . . . : *SRCMBRTXT
- Source Member . . . . . . . . . : ARQ900
- Source File . . . . . . . . . . : QSQLTEMP1
- Library . . . . . . . . . . . : QTEMP
- CCSID . . . . . . . . . . . . : 37
- Text 'description' . . . . . . . : Customer Master Maintenance Log Inquiry
- Last Change . . . . . . . . . . : 09/21/09 12:49:27
- Generation severity level . . . : 10
- Default activation group . . . . : *YES
- Compiler options . . . . . . . . : *XREF *GEN *NOSECLVL *SHOWCPY
- *EXPDDS *EXT *NOSHOWSKP *NOSRCSTMT
- *DEBUGIO *NOEVENTF
- Debugging views . . . . . . . . : *ALL
- Output . . . . . . . . . . . . . : *PRINT
- Optimization level . . . . . . . : *NONE
- Source listing indentation . . . : *NONE
- Type conversion options . . . . : *NONE
- Sort sequence . . . . . . . . . : *JOB
- Language identifier . . . . . . : *JOB
- Replace program . . . . . . . . : *NO
- User profile . . . . . . . . . . : *OWNER
- Authority . . . . . . . . . . . : *LIBCRTAUT
- Truncate numeric . . . . . . . . : *YES
- Fix numeric . . . . . . . . . . : *NONE
- Target release . . . . . . . . . : V5R4M0
- Allow null values . . . . . . . : *NO
- Define condition names . . . . . : *NONE
- Enable performance collection . : *PEP
- Profiling data . . . . . . . . . : *NOCOL
- Licensed Internal Code options . :
- Generate program interface . . . : *NO
- Include directory . . . . . . . :
- Preprocessor options . . . . . . : *NONE
- 5722WDS V5R4M0 060210 RN IBM ILE RPG PROJ1398/ARQ900 CROW 09/21/09 12:49:27 Page 2
- Line <---------------------- Source Specifications ----------------------------><---- Comments ----> Do Page Change Src Seq
- Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line Date Id Number
- S o u r c e L i s t i n g
- 1 H COPYRIGHT('B&W Wholesale, Inc. 2009') 081201 000100
- 2 H/copy $header 051111 000200
- *--------------------------------------------------------------------------------------------*
- * RPG member name . . . . . : $HEADER * 1
- * External name . . . . . . : BNWPRINT/QRPGLESRC($HEADER) * 1
- * Last change . . . . . . . : 09/08/08 13:38:22 * 1
- * Text 'description' . . . . : Default H-spec options * 1
- *--------------------------------------------------------------------------------------------*
- 3+H DEBUG(*Yes) 080430 1000100
- 4+H DFTACTGRP(*NO) 041217 1000200
- 5+H ACTGRP('BWWHOLE') 080908 1000300
- 6+H DATFMT(*ISO) 041217 1000400
- 7+H DATEDIT(*YMD) 041217 1000500
- 8+H OPTION(*SRCSTMT:*NODEBUGIO) 080908 1000600
- 000300 //******************************************************************************* 050609 000300
- 000400 // Written By : Jerry C. Adams ** 050609 000400
- 000500 // Date Written: 18 September 2009 ** 090918 000500
- 000600 // Project No : 01398 ** 090918 000600
- 000700 // Program Name: ARQ900 ** 090918 000700
- 000800 // Program Desc: Provides the means by which one may inquire into the log of ** 090918 000800
- 000900 // changes to the customer master table. ** 090918 000900
- 001000 //******************************************************************************* 050609 001000
- 001100 // Revised By : __________ Revised Date : ___-__-__ ** 050609 001100
- 001200 // Project No : ____ ** 050609 001200
- 001300 // Reason : ** 050609 001300
- 001400 //******************************************************************************* 050609 001400
- 001500 031028 001500
- 001600 //******************** 050609 001600
- 001700 // FILE DEFINITIONS ** 050609 001700
- 001800 //******************** 050609 001800
- 001900 031028 001900
- *--------------------------------------------------------------------*
- * Compiler Options in Effect: *
- *--------------------------------------------------------------------*
- * Text 'description' . . . . . . . : *
- * Customer Master Maintenance Log Inquiry *
- * Generation severity level . . . : 10 *
- * Default activation group . . . . : *NO *
- * Compiler options . . . . . . . . : *XREF *GEN *
- * *NOSECLVL *SHOWCPY *
- * *EXPDDS *EXT *
- * *NOSHOWSKP *SRCSTMT *
- * *NODEBUGIO *NOEVENTF *
- * Optimization level . . . . . . . : *NONE *
- * Source listing indentation . . . : *NONE *
- * Type conversion options . . . . : *NONE *
- * Sort sequence . . . . . . . . . : *JOB *
- * Language identifier . . . . . . : *JOB *
- * User profile . . . . . . . . . . : *OWNER *
- * Authority . . . . . . . . . . . : *LIBCRTAUT *
- * Truncate numeric . . . . . . . . : *YES *
- * Fix numeric . . . . . . . . . . : *NONE *
- 5722WDS V5R4M0 060210 RN IBM ILE RPG PROJ1398/ARQ900 CROW 09/21/09 12:49:27 Page 3
- Line <---------------------- Source Specifications ----------------------------><---- Comments ----> Do Page Change Src Seq
- Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line Date Id Number
- * Allow null values . . . . . . . : *NO *
- * Binding directory from Command . : *NONE *
- * Binding directory from Source . : *NONE *
- * Activation group . . . . . . . . : BWWHOLE *
- * Enable performance collection . : *PEP *
- * Profiling data . . . . . . . . . : *NOCOL *
- *--------------------------------------------------------------------*
- 002000 FARQ900D CF E WORKSTN SFile(ARQ900B:rrnb) 090918 002000
- 002100 031028 002100
- 002200 //******************* 050609 002200
- 002300 // DATA STRUCTURES ** 050609 002300
- 002400 //******************* 050609 002400
- 002500 031028 002500
- 002600 // Named Indicators 060824 002600
- 002700 060824 002700
- *--------------------------------------------------------------------------------------------*
- * RPG name External name *
- * File name. . . . . . . . . : ARQ900D ADSOE200/ARQ900D *
- * Record format(s) . . . . . : ARQ900A ARQ900A *
- * ARQ900B ARQ900B *
- * ARQ900BCTL ARQ900BCTL *
- * ARQ900BFK ARQ900BFK *
- * ARQ900C ARQ900C *
- * MSGSFLA MSGSFLA *
- * MSGSFLB MSGSFLB *
- *--------------------------------------------------------------------------------------------*
- 002800 D P_Indicators S * INZ(%Addr(*IN)) 060824 002800
- 002900 D Indicators DS Based(P_Indicators) 060824 002900
- 003000 D SF_Display LIKE(*IN) Overlay(Indicators:33) 060824 003000
- 003100 D SF_Clear LIKE(*IN) Overlay(Indicators:31) 060824 003100
- 003200 D SF_End LIKE(*IN) Overlay(Indicators:90) 060824 003200
- 003300 D Help LIKE(*IN) Overlay(Indicators:130) F1 080924 003300
- 003400 D EOJ LIKE(*IN) Overlay(Indicators:132) F3 080924 003400
- 003500 D Cancel LIKE(*IN) Overlay(Indicators:141) F12 080610 003500
- 003600 040601 003600
- 003700 D/Define MsgD 060524 003700
- 003800 D*Copy $Msg 060524 003800
- 000100 /if defined(MsgD) 040120 000100
- 000200 ***************************************************************** 031219 000200
- 000300 * Written By : Jerry C. Adams ** 031219 000300
- 000400 * Date Written: 15 January 2004 ** 040115 000400
- 000500 * Project No : 00012 ** 040115 000500
- 000600 * Program Name: $MSG ** 040120 000600
- 000700 * Program Desc: The code here is used to build, display and ** 040120 000700
- 000800 * clear subfile messages. It assumes that the ** 040120 000800
- 000900 * Message Subfile records are named MSGSFLA and ** 040120 000900
- 001000 * MSGSFLB. ** 040120 001000
- 001100 * It uses the subroutines $CMSG (Clear Messages) ** 040120 001100
- 001200 * $SMSG (Send Messages), and $MINIT (Initialize ** 040120 001200
- 001300 * message API data). ** 040120 001300
- 001400 * ** 040121 001400
- 001500 * In order to work (to see the message) the OVERLAY keyword ** 040121 001500
- 5722WDS V5R4M0 060210 RN IBM ILE RPG PROJ1398/ARQ900 CROW 09/21/09 12:49:27 Page 4
- Line <---------------------- Source Specifications ----------------------------><---- Comments ----> Do Page Change Src Seq
- Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line Date Id Number
- 001600 * must be defined on the formats the are outputted after the ** 040121 001600
- 001700 * Message Subfile. ** 040121 001700
- 001800 ***************************************************************** 031219 001800
- 001900 * Revised By : __________ Revised Date : ___-__-__ ** 031219 001900
- 002000 * Project No : ____ ** 031219 002000
- 002100 * Reason : ** 031219 002100
- 002200 ***************************************************************** 031219 002200
- 002300 040115 002300
- 002400 D DS INZ 040115 002400
- 002500 D @stk 1 4B 0 040115 002500
- 002600 D @len 5 8B 0 040115 002600
- 002700 D @err 9 12B 0 040115 002700
- 002800 /undefine msgd 040120 002800
- 002900 /endif 040120 002900
- 003000 /if defined(MsgC) 040120 003000
- LINES EXCLUDED: 180
- 010100 /endif 040120 010100
- 003900 060524 003900
- 004000 //******************* 050609 004000
- 004100 // FIELD NAMES ** 050609 004100
- 004200 //******************* 050609 004200
- 004300 031028 004300
- 004400 D sqlString S 256a 090918 004400
- 004500 D InvalidOption C 'GEN9901' 090918 004500
- 004600 D CustomerNF C 'GEN0003' 090918 004600
- 004700 D #Error S N 090918 004700
- 004800 D BasicSlt S 71a INZ('SELECT ARDATE, ARTIME, JOB, CUS+ 090918 004800
- 004900 D TOMER, BARNAME, AARNAME, FROM ARMAIN+ 090918 004900
- 005000 D TLOG') 090918 005000
- 005100 D #Limit S Like(rrnb) 090921 005100
- 005200 D #Key S Like(rrnb) 090921 005200
- 005300 051111 005300
- 005400 //************* 051111 005400
- 005500 // ProtoTypes * 051111 005500
- 005600 //************* 051111 005600
- 005700 051111 005700
- 005800 D $BuildList PR 090918 005800
- 005900 D $PutList PR 090918 005900
- 006000 D $StartList PR 090918 006000
- 006100 D $ProcessList PR 090918 006100
- 006200 D $ShowCustomer PR 090918 006200
- 006300 080924 006300
- 006400 //***************** 050609 006400
- 006500 // ---CONTROL--- ** 050609 006500
- 006600 //***************** 050609 006600
- 006700 031028 006700
- 006800 /FREE 090921 006800
- 006900 090921 006900
- 007000 //****QL 090921 007000
- 007100 //****Option 090921 007100
- 007200 //****ming = *Sys, 090921 007200
- 007300 //****tFmt = *ISO, 090921 007300
- 007400 //****mmit = *None, 090921 007400
- 007500 //****rPrf = *Owner; 090921 007500
- 007600 090918 007600
- 5722WDS V5R4M0 060210 RN IBM ILE RPG PROJ1398/ARQ900 CROW 09/21/09 12:49:27 Page 5
- Line <---------------------- Source Specifications ----------------------------><---- Comments ----> Do Page Change Src Seq
- Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line Date Id Number
- 000001=IARQ900A 2000001
- *--------------------------------------------------------------------------------------------* 2
- * RPG record format . . . . : ARQ900A * 2
- * External format . . . . . : ARQ900A : ADSOE200/ARQ900D * 2
- *--------------------------------------------------------------------------------------------* 2
- 000002=I A 1 1 @LIST 2000002
- 000003=I S 2 6 0@CUST# 2000003
- 000001=IARQ900B 3000001
- *--------------------------------------------------------------------------------------------* 3
- * RPG record format . . . . : ARQ900B * 3
- * External format . . . . . : ARQ900B : ADSOE200/ARQ900D * 3
- *--------------------------------------------------------------------------------------------* 3
- 000002=I A 1 1 @OPTION 3000002
- 000003=I S 2 6 0CUST# 3000003
- 000004=I A 7 36 NAMEBEFORE 3000004
- 000005=I A 37 66 NAMEAFTER 3000005
- 000006=I S 67 74 0DATE 3000006
- 000007=I *ISO.T 75 82 TIME 3000007
- 000008=I A 83 92 JOB@ 3000008
- 000001=IARQ900BCTL 4000001
- *--------------------------------------------------------------------------------------------* 4
- * RPG record format . . . . : ARQ900BCTL * 4
- * External format . . . . . : ARQ900BCTL : ADSOE200/ARQ900D * 4
- *--------------------------------------------------------------------------------------------* 4
- 000002=I S 1 4 0RRNB 4000002
- 000001=IARQ900BFK 5000001
- *--------------------------------------------------------------------------------------------* 5
- * RPG record format . . . . : ARQ900BFK * 5
- * External format . . . . . : ARQ900BFK : ADSOE200/ARQ900D * 5
- *--------------------------------------------------------------------------------------------* 5
- 000001=IARQ900C 6000001
- *--------------------------------------------------------------------------------------------* 6
- * RPG record format . . . . : ARQ900C * 6
- * External format . . . . . : ARQ900C : ADSOE200/ARQ900D * 6
- *--------------------------------------------------------------------------------------------* 6
- 000001=IMSGSFLA 7000001
- *--------------------------------------------------------------------------------------------* 7
- * RPG record format . . . . : MSGSFLA * 7
- * External format . . . . . : MSGSFLA : ADSOE200/ARQ900D * 7
- * Format text . . . . . . . : Error message subfile * 7
- *--------------------------------------------------------------------------------------------* 7
- 000002=I A 1 4 @KEY 7000002
- 000003=I A 5 14 @PGMQ 7000003
- 000001=IMSGSFLB 8000001
- *--------------------------------------------------------------------------------------------* 8
- * RPG record format . . . . : MSGSFLB * 8
- * External format . . . . . : MSGSFLB : ADSOE200/ARQ900D * 8
- * Format text . . . . . . . : Error message control file * 8
- *--------------------------------------------------------------------------------------------* 8
- 000002=I A 1 10 @PGMQ 8000002
- 007700 EXSR $INIT; 050609 007700
- 007800 EXSR $MAIN; 050609 007800
- 007900 EXSR $EOJ; 050609 007900
- 008000 031028 008000
- 5722WDS V5R4M0 060210 RN IBM ILE RPG PROJ1398/ARQ900 CROW 09/21/09 12:49:27 Page 6
- Line <---------------------- Source Specifications ----------------------------><---- Comments ----> Do Page Change Src Seq
- Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line Date Id Number
- 008100 //**************************************************************** 050609 008100
- 008200 // SUBROUTINE - $INIT ** 050609 008200
- 008300 // PURPOSE - Program Initialization ** 050609 008300
- 008400 //**************************************************************** 050609 008400
- 008500 031028 008500
- 008600 BEGSR $INIT; 050609 008600
- 008700 050304 008700
- 008800 EXSR $MINIT; 060524 008800
- 008900 050304 008900
- 009000 ENDSR; 050609 009000
- 009100 031028 009100
- 009200 //**************************************************************** 050609 009200
- 009300 // SUBROUTINE - $MAIN ** 050609 009300
- 009400 // PURPOSE - Main Program Logic ** 050609 009400
- 009500 //**************************************************************** 050609 009500
- 009600 031028 009600
- 009700 BEGSR $MAIN; 050609 009700
- 009800 050331 009800
- 009900 DOW not eoj; B01 090918 009900
- 010000 090918 010000
- 010100 WRITE MSGSFLB; 01 090918 010100
- 010200 @List = *Blanks; 01 090918 010200
- 010300 @cust# = *Zeros; 01 090918 010300
- 010400 EXFMT ARQ900A; 01 090918 010400
- 010500 EXSR $CMsg; 01 090918 010500
- 010600 090918 010600
- 010700 IF not eoj; B02 090918 010700
- 010800 EXSR $EditA; 02 090918 010800
- 010900 IF #error; B03 090918 010900
- 011000 ITER; 03 090918 011000
- 011100 ENDIF; E03 090918 011100
- 011200 090918 011200
- 011300 SELECT; B03 090918 011300
- 011400 090918 011400
- 011500 WHEN @List = 'A'; X03 090918 011500
- 011600 sqlString = basicslt + 03 090921 011600
- 011700 ' ORDER BY customer for Read Only'; 03 090918 011700
- 011800 WHEN @List = 'B'; X03 090918 011800
- 011900 sqlString = basicslt + 03 090918 011900
- 012000 ' ORDER BY aarname, customer for Read Only'; 03 090918 012000
- 012100 OTHER; X03 090918 012100
- 012200 sqlString = basicslt + 03 090921 012200
- 012300 ' WHERE customer = :@cust#'; 03 090918 012300
- 012400 090918 012400
- 012500 ENDSL; E03 090918 012500
- 012600 090918 012600
- 012700 $StartList(); 02 090918 012700
- 012800 $BuildList(); 02 090918 012800
- 012900 $PutList(); 02 090918 012900
- 013000 DOW not cancel B03 090921 013000
- 013100 AND not eoj; B03 090921 013100
- 013200 $ProcessList(); 03 090921 013200
- 013300 ENDDO; E03 090921 013300
- 013400 ENDIF; E02 090918 013400
- 013500 090918 013500
- 013600 ENDDO; E01 090918 013600
- 5722WDS V5R4M0 060210 RN IBM ILE RPG PROJ1398/ARQ900 CROW 09/21/09 12:49:27 Page 7
- Line <---------------------- Source Specifications ----------------------------><---- Comments ----> Do Page Change Src Seq
- Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line Date Id Number
- 013700 090918 013700
- 013800 ENDSR; 050609 013800
- 013900 031028 013900
- 014000 //**************************************************************** 050609 014000
- 014100 // SUBROUTINE - $EditA ** 090918 014100
- 014200 // PURPOSE - Validate Panel 'A' options. ** 090918 014200
- 014300 //**************************************************************** 050609 014300
- 014400 031028 014400
- 014500 BEGSR $EditA; 090918 014500
- 014600 050331 014600
- 014700 #error = *Off; 090918 014700
- 014800 090918 014800
- 014900 IF @list <> 'A' B01 090918 014900
- 015000 AND @list <> 'B' B01 090918 015000
- 015100 AND @list <> *Blanks B01 090918 015100
- 015200 AND @cust# = *Zeros; B01 090918 015200
- 015300 @msgId = InvalidOption; 01 090918 015300
- 015400 #error = *On; 01 090918 015400
- 015500 EXSR $SMsg; 01 090918 015500
- 015600 ENDIF; E01 090918 015600
- 015700 050331 015700
- 015800 ENDSR; 050609 015800
- 015900 090921 015900
- 016000 //**************************************************************** 090921 016000
- 016100 // SUBROUTINE - $EOJ ** 090921 016100
- 016200 // PURPOSE - End of Program ** 090921 016200
- 016300 //**************************************************************** 090921 016300
- 016400 090921 016400
- 016500 BEGSR $EOJ; 090921 016500
- 016600 090921 016600
- 016700 *INLR = *On; 090921 016700
- 016800 RETURN; 090921 016800
- 016900 090921 016900
- 017000 ENDSR; 090921 017000
- 017100 031028 017100
- 017200 /end-free 090918 017200
- 017300 090918 017300
- 017400 C/Define MsgC 090921 017400
- 017500 C*copy $Msg 090921 017500
- 000100 /if defined(MsgD) 040120 000100
- LINES EXCLUDED: 27
- 002900 /endif 040120 002900
- 003000 /if defined(MsgC) 040120 003000
- 003100 031028 003100
- 003200 ****************************************************************** 031023 003200
- 003300 ** SUBROUTINE - $MINIT ** 040120 003300
- 003400 ** ** 031023 003400
- 003500 ** PURPOSE - Program Initialization ** 031023 003500
- 003600 ** This routine must be called before the first ** 040120 003600
- 003700 ** message API is invoked. Preferably in *INZSR ** 040120 003700
- 003800 ** or other first cycle routine. ** 040120 003800
- 003900 ****************************************************************** 031023 003900
- 004000 031028 004000
- 004100 C $MINIT BEGSR 040120 004100
- 004200 C MOVEL '*' @pgmq 040115 004200
- 004300 C MOVEL '*DIAG' @type 040115 004300
- 5722WDS V5R4M0 060210 RN IBM ILE RPG PROJ1398/ARQ900 CROW 09/21/09 12:49:27 Page 8
- Line <---------------------- Source Specifications ----------------------------><---- Comments ----> Do Page Change Src Seq
- Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line Date Id Number
- 004400 C MOVEL 'BNWPRINT' @lib 10 040115 004400
- 004500 C MOVE @lib @msgf 20 040115 004500
- 004600 C MOVEL 'BANDWMSGS' @msgf 040115 004600
- 004700 C MOVEL '*ALL' @rmv 10 040115 004700
- 004800 C MOVE ' ' @key 4 040115 004800
- 004900 C @Parm1 PLIST 040115 004900
- 005000 C PARM @pgmq 040115 005000
- 005100 C PARM @stk 040115 005100
- 005200 C PARM @key 040115 005200
- 005300 C PARM @rmv 040115 005300
- 005400 C PARM @err 040115 005400
- 005500 C 040115 005500
- 005600 C @Parm2 PLIST 040115 005600
- 005700 C PARM @msgid 7 040115 005700
- 005800 C PARM @msgf 040115 005800
- 005900 C PARM @dta 80 040115 005900
- 006000 C PARM @len 040115 006000
- 006100 C PARM @type 10 040115 006100
- 006200 C PARM @pgmq 040115 006200
- 006300 C PARM @stk 040115 006300
- 006400 C PARM @key 040115 006400
- 006500 C PARM @err 040115 006500
- 006600 C ENDSR 031023 006600
- 006700 * * * * * * * * E n d O f S u b r o u t i n e * * * * * * * * 031023 006700
- 006800 031028 006800
- 006900 ****************************************************************** 040115 006900
- 007000 ** SUBROUTINE - $SMSG ** 040115 007000
- 007100 ** ** 040115 007100
- 007200 ** PURPOSE - Send Subfile Messages ** 040115 007200
- 007300 ** ** 040115 007300
- 007400 ****************************************************************** 040115 007400
- 007500 C $SMSG BEGSR 040115 007500
- 007600 040120 007600
- 007700 C CALL 'QMHSNDPM' @Parm2 040115 007700
- 007800 040120 007800
- 007900 C CLEAR @DTA 040115 007900
- 008000 040120 008000
- 008100 C ENDSR 040115 008100
- 008200 * * * * * * * * E n d O f S u b r o u t i n e * * * * * * * * 040115 008200
- 008300 * 040115 008300
- 008400 ****************************************************************** 040115 008400
- 008500 ** SUBROUTINE - $CMSG ** 040115 008500
- 008600 ** ** 040115 008600
- 008700 ** PURPOSE - Clear Subfile Messages ** 040115 008700
- 008800 ** ** 040115 008800
- 008900 ****************************************************************** 040115 008900
- 009000 C $CMSG BEGSR 040115 009000
- 009100 040120 009100
- 009200 C CALL 'QMHRMVPM' 040115 009200
- 009300 C PARM '*' @pgmq 040115 009300
- 009400 C PARM @stk 040115 009400
- 009500 C PARM ' ' @key 4 040115 009500
- 009600 C PARM '*ALL' @rmv 040115 009600
- 009700 C PARM @err 040115 009700
- 009800 040120 009800
- 009900 C ENDSR 040115 009900
- 5722WDS V5R4M0 060210 RN IBM ILE RPG PROJ1398/ARQ900 CROW 09/21/09 12:49:27 Page 9
- Line <---------------------- Source Specifications ----------------------------><---- Comments ----> Do Page Change Src Seq
- Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line Date Id Number
- 010000 * * * * * * * * E n d O f S u b r o u t i n e * * * * * * * * 040115 010000
- 010100 /endif 040120 010100
- 017600 090921 017600
- 017700 //**************************************************************** 050609 017700
- 017800 // Subprocedure - $StartList ** 090918 017800
- 017900 // PURPOSE - Clear the subfile for next request. ** 090918 017900
- 018000 //**************************************************************** 050609 018000
- 018100 031028 018100
- 000001=OARQ900A 9000001
- *--------------------------------------------------------------------------------------------* 9
- * RPG record format . . . . : ARQ900A * 9
- * External format . . . . . : ARQ900A : ADSOE200/ARQ900D * 9
- *--------------------------------------------------------------------------------------------* 9
- 000002=O @LIST 1A CHAR 1 9000002
- 000003=O @CUST# 6S ZONE 5,0 9000003
- 000001=OARQ900B 10000001
- *--------------------------------------------------------------------------------------------* 10
- * RPG record format . . . . : ARQ900B * 10
- * External format . . . . . : ARQ900B : ADSOE200/ARQ900D * 10
- *--------------------------------------------------------------------------------------------* 10
- 000002=O @OPTION 1A CHAR 1 10000002
- 000003=O CUST# 6S ZONE 5,0 10000003
- 000004=O NAMEBEFORE 36A CHAR 30 10000004
- 000005=O NAMEAFTER 66A CHAR 30 10000005
- 000006=O DATE 74S ZONE 8,0 10000006
- 000007=O TIME 82T TIME *ISO. 8 10000007
- 000008=O JOB@ 92A CHAR 10 10000008
- 000001=OARQ900BCTL 11000001
- *--------------------------------------------------------------------------------------------* 11
- * RPG record format . . . . : ARQ900BCTL * 11
- * External format . . . . . : ARQ900BCTL : ADSOE200/ARQ900D * 11
- *--------------------------------------------------------------------------------------------* 11
- 000002=O *IN31 2N CHAR 1 11000002
- 000003=O *IN33 1N CHAR 1 11000003
- 000004=O *IN90 3N CHAR 1 11000004
- 000005=O RRNB 7S ZONE 4,0 11000005
- 000001=OARQ900BFK 12000001
- *--------------------------------------------------------------------------------------------* 12
- * RPG record format . . . . : ARQ900BFK * 12
- * External format . . . . . : ARQ900BFK : ADSOE200/ARQ900D * 12
- *--------------------------------------------------------------------------------------------* 12
- 000001=OARQ900C 13000001
- *--------------------------------------------------------------------------------------------* 13
- * RPG record format . . . . : ARQ900C * 13
- * External format . . . . . : ARQ900C : ADSOE200/ARQ900D * 13
- *--------------------------------------------------------------------------------------------* 13
- 000002=O TYPE 3A CHAR 3 13000002
- 000003=O CUST# 8S ZONE 5,0 13000003
- 000004=O USERID@ 18A CHAR 10 13000004
- 000005=O JOB@ 28A CHAR 10 13000005
- 000006=O DATE@ 36S ZONE 8,0 13000006
- 000007=O TIME@ 44T TIME *ISO. 8 13000007
- 000008=O NAMEB4 74A CHAR 30 13000008
- 000009=O CONSB4 76A CHAR 2 13000009
- 5722WDS V5R4M0 060210 RN IBM ILE RPG PROJ1398/ARQ900 CROW 09/21/09 12:49:27 Page 10
- Line <---------------------- Source Specifications ----------------------------><---- Comments ----> Do Page Change Src Seq
- Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line Date Id Number
- 000010=O ROUTEB4 78A CHAR 2 13000010
- 000011=O STREET1B4 108A CHAR 30 13000011
- 000012=O STREET2B4 138A CHAR 30 13000012
- 000013=O CITYB4 161A CHAR 23 13000013
- 000014=O STATEB4 163A CHAR 2 13000014
- 000015=O ZIPB4 173A CHAR 10 13000015
- 000016=O TIERB4 178A CHAR 5 13000016
- 000017=O WPCB4 179A CHAR 1 13000017
- 000018=O RPCB4 180A CHAR 1 13000018
- 000019=O NAMEAF 210A CHAR 30 13000019
- 000020=O CONSAF 212A CHAR 2 13000020
- 000021=O ROUTEAF 214A CHAR 2 13000021
- 000022=O STREET1AF 244A CHAR 30 13000022
- 000023=O STREET2AF 274A CHAR 30 13000023
- 000024=O CITYAF 297A CHAR 23 13000024
- 000025=O STATEAF 299A CHAR 2 13000025
- 000026=O ZIPAF 309A CHAR 10 13000026
- 000027=O TIERAF 314A CHAR 5 13000027
- 000028=O WPCAF 315A CHAR 1 13000028
- 000029=O RPCAF 316A CHAR 1 13000029
- 000001=OMSGSFLA 14000001
- *--------------------------------------------------------------------------------------------* 14
- * RPG record format . . . . : MSGSFLA * 14
- * External format . . . . . : MSGSFLA : ADSOE200/ARQ900D * 14
- * Format text . . . . . . . : Error message subfile * 14
- *--------------------------------------------------------------------------------------------* 14
- 000002=O @KEY 4A CHAR 4 14000002
- 000003=O @PGMQ 14A CHAR 10 14000003
- 000001=OMSGSFLB 15000001
- *--------------------------------------------------------------------------------------------* 15
- * RPG record format . . . . : MSGSFLB * 15
- * External format . . . . . : MSGSFLB : ADSOE200/ARQ900D * 15
- * Format text . . . . . . . : Error message control file * 15
- *--------------------------------------------------------------------------------------------* 15
- 000002=O *IN03 1N CHAR 1 15000002
- 000003=O @PGMQ 11A CHAR 10 15000003
- 018200 P $StartList B 090918 018200
- 018300
|
|