Common COMBPFS

Library Member Format: MODIFY
Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.combpfs +++|
00002  M00S00002.combpfs +++|                                                                      #
00003  M00S00003.combpfs +++|          CTEXT COMBPFS - *PF* ROUTINE RETURN CODE STATUS.
00004  M00S00004.combpfs +++|                                                                      #
00005  M00S00005.combpfs +++|
00006  M00S00006.combpfs +++|                                               CONTROL NOLIST;
00007  M00S00007.combpfs +++|                                               CONTROL IFEQ LISTCON,1;
00008  M00S00008.combpfs +++|                                               CONTROL LIST;
00009  M00S00009.combpfs +++|                                               CONTROL FI;
00010  M00S00010.combpfs +++|
00011  M00S00011.combpfs +++|                             BEGIN  # COMBPFS #
00012  M00S00012.combpfs +++|
00013  M00S00013.combpfs +++|                                                                      #
00014  M00S00014.combpfs +++|
00015  M00S00015.combpfs +++|***       COMBPFS - *PF* ROUTINE RETURN CODE STATUS.
00016  M00S00016.combpfs +++|*
00017  M00S00017.combpfs +++|*         *COMBPFS* CONTAINS A STATUS WORD FOR THE *PF* ROUTINE IN
00018  M00S00018.combpfs +++|*         *CPUREL* TO RETURN AN ERROR CODE TO.  THIS STATUS WORD
00019  M00S00019.combpfs +++|*         MUST BE USED BY ALL *SSEXEC* ROUTINES THAT USE THE
00020  M00S00020.combpfs +++|*         ROUTINE *PFD*, WHICH INTERFACES TO THE *PF* ROUTINE.
00021  M00S00021.combpfs +++|
00022  M00S00022.combpfs +++|          USE    /APFSCOM/
00023  M00S00023.combpfs +++| PFSTAT   BSS    1
00024  M00S00024.combpfs +++|          USE
00025  M00S00025.combpfs +++|          COL    12
00026  M00S00026.combpfs +++|                                                                      #
00027  M00S00027.combpfs +++|
00028  M00S00028.combpfs +++|           COMMON APFSCOM;
00029  M00S00029.combpfs +++|             BEGIN  # APFSCOM #
00030  M00S00030.combpfs +++|             ITEM PFSTAT     I;      # *PF* RETURN CODE STATUS #
00031  M00S00031.combpfs +++|             END  # APFSCOM #
00032  M00S00032.combpfs +++|
00033  M00S00033.combpfs +++|           END  # COMBPFS #
00034  M00S00034.combpfs +++|
00035  M00S00035.combpfs +++|                                                                      #
00036  M00S00036.combpfs +++|          COL    30
00037  M00S00037.combpfs +++|          ENDX
00038  M00S00038.combpfs +++|                                                                      #
00039  M00S00039.combpfs +++|
00040  M00S00040.combpfs +++|                                               CONTROL LIST;